paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 14:41:37 +02: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
thri : longint;
function f(p : pointer) : longint;
function f(p : pointer) : ptrint;
var
s : ansistring;
begin
@ -45,7 +45,7 @@ function f(p : pointer) : longint;
end;
var
i : longint;
i : ptrint;
begin
finished:=0;