paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 18:51:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* test compilatio fixed for 64 bit targets

Browse Source
This commit is contained in:
florian 2004-12-19 21:17:24 +00:00
parent 1381adee4b
commit 8766f848d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/tmt1.pp
View File

@ -28,7 +28,7 @@ var
threadvar threadvar
thri : longint; thri : longint;
function f(p : pointer) : longint; function f(p : pointer) : ptrint;
var var
s : ansistring; s : ansistring;
begin begin
@ -45,7 +45,7 @@ function f(p : pointer) : longint;
end; end;
var var
i : longint; i : ptrint;
begin begin
finished:=0; finished:=0;