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

* also win64

Browse Source 
git-svn-id: trunk@4368 -
This commit is contained in:
peter 2006-08-06 10:15:22 +00:00
parent 590ad5b516
commit 0e8a21e84a
3 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/test/cg/tcnvint4.pp
View File

@ -110,6 +110,11 @@ begin
failed:=true; failed:=true;
u32bit := high(u32bit);
result_val := u32bit;
if trunc(result_val) <> high(u32bit) then
failed:=true;
u32bit := RESULT_U32BIT; u32bit := RESULT_U32BIT;
result_val := u32bit; result_val := u32bit;
if trunc(result_val) <> RESULT_U32BIT then if trunc(result_val) <> RESULT_U32BIT then

2
tests/test/tlibrary1.pp
View File

@ -8,7 +8,7 @@
{ The .so of the library needs to be in the current dir when { The .so of the library needs to be in the current dir when
testing the loading at runtime } testing the loading at runtime }
{$ifdef win32} {$ifdef mswindows}
{$define supported} {$define supported}
{$define supportidx} {$define supportidx}
{$endif win32} {$endif win32}

4
tests/test/tlibrary2.pp
View File

@ -2,9 +2,9 @@
{ Test program to test linking to fpc library } { Test program to test linking to fpc library }
{$ifdef win32} {$ifdef mswindows}
{$define supported} {$define supported}
{$endif win32} {$endif mswindows}
{$ifdef Unix} {$ifdef Unix}
{$define supported} {$define supported}
{$endif Unix} {$endif Unix}