git-svn-id: trunk@4368 -
@@ -110,6 +110,11 @@ begin
failed:=true;
+ u32bit := high(u32bit);
+ result_val := u32bit;
+ if trunc(result_val) <> high(u32bit) then
+ failed:=true;
+
u32bit := RESULT_U32BIT;
result_val := u32bit;
if trunc(result_val) <> RESULT_U32BIT then
@@ -8,7 +8,7 @@
{ The .so of the library needs to be in the current dir when
testing the loading at runtime }
-{$ifdef win32}
+{$ifdef mswindows}
{$define supported}
{$define supportidx}
{$endif win32}
@@ -2,9 +2,9 @@
{ Test program to test linking to fpc library }
-{$endif win32}
+{$endif mswindows}
{$ifdef Unix}
{$endif Unix}