* reset fpucw in system startup

git-svn-id: trunk@543 -

.gitattributes

@@ -6105,6 +6105,7 @@ tests/webtbs/tw4058.pp svneol=native#text/plain
 tests/webtbs/tw4078.pp svneol=native#text/plain
 tests/webtbs/tw4089.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/tw4140.pp svneol=native#text/plain
 tests/webtbs/ub1873.pp svneol=native#text/plain

rtl/linux/system.pp

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

tests/webtbs/tw4100.pp

@@ -0,0 +1,21 @@
+{ %result=217 }
+
+{ Source provided for Free Pascal Bug Report 4100 }
+{ Submitted by "Markus Roberts" on  2005-06-20 }
+{ e-mail: [email protected] }
+{$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.
+