paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-08 02:27:56 +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;
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

2
tests/test/tlibrary1.pp
View File

@ -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}

4
tests/test/tlibrary2.pp
View File

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