paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 05:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* reset fpucw in system startup

Browse Source 
git-svn-id: trunk@543 -
This commit is contained in:
peter 2005-06-30 14:02:15 +00:00
parent 3700aa1b80
commit 2654bf6a16
3 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6105,6 +6105,7 @@ tests/webtbs/tw4058.pp svneol=native#text/plain
tests/webtbs/tw4078.pp svneol=native#text/plain tests/webtbs/tw4078.pp svneol=native#text/plain
tests/webtbs/tw4089.pp svneol=native#text/plain tests/webtbs/tw4089.pp svneol=native#text/plain
tests/webtbs/tw4093.pp svneol=native#text/plain tests/webtbs/tw4093.pp svneol=native#text/plain
tests/webtbs/tw4100.pp svneol=native#text/plain
tests/webtbs/tw4115.pp svneol=native#text/plain tests/webtbs/tw4115.pp svneol=native#text/plain
tests/webtbs/tw4140.pp svneol=native#text/plain tests/webtbs/tw4140.pp svneol=native#text/plain
tests/webtbs/ub1873.pp svneol=native#text/plain tests/webtbs/ub1873.pp svneol=native#text/plain

1
rtl/linux/system.pp
View File

@ -225,6 +225,7 @@ end;
Begin Begin
SysResetFPU;
IsConsole := TRUE; IsConsole := TRUE;
IsLibrary := FALSE; IsLibrary := FALSE;
StackLength := InitialStkLen; StackLength := InitialStkLen;

21
tests/webtbs/tw4100.pp Executable file
View File

@ -0,0 +1,21 @@
{ %result=217 }
{ Source provided for Free Pascal Bug Report 4100 }
{ Submitted by "Markus Roberts" on 2005-06-20 }
{ e-mail: Markus@reality.com }
{$linklib c}
uses SysUtils;
var
X,Y,Z : Extended;
I : integer;
begin
X := 0.0;
Y := 1.0;
Z := Y/X;
I := 7;
writeln('test');
writeln(StrToFloat('1e7'));
writeln(Z);
end.