|
@@ -1,4 +1,4 @@
|
|
|
-{ %skiptarget go32v2 }
|
|
|
|
|
|
|
+{ %skiptarget=go32v2 }
|
|
|
{ This test generates trouble in ntvdm.exe under Windows
|
|
{ This test generates trouble in ntvdm.exe under Windows
|
|
|
for go32v2 executables }
|
|
for go32v2 executables }
|
|
|
{ Source provided for Free Pascal Bug Report 3157 }
|
|
{ Source provided for Free Pascal Bug Report 3157 }
|
|
@@ -22,7 +22,7 @@ begin
|
|
|
not fit in Single or Double.
|
|
not fit in Single or Double.
|
|
|
So instruction below should raise Floating point overflow.
|
|
So instruction below should raise Floating point overflow.
|
|
|
But it does not (yet). }
|
|
But it does not (yet). }
|
|
|
- c:=cosh(800);
|
|
|
|
|
|
|
+ c:=cosh(800);
|
|
|
except
|
|
except
|
|
|
on E:Exception do
|
|
on E:Exception do
|
|
|
begin
|
|
begin
|
pierre