paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 22:29:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed test for 64 bit targets

Browse Source
This commit is contained in:
florian 2004-11-02 16:31:11 +00:00
parent 00d3de8c51
commit 910ff87b4f
1 changed files with 3 additions and 4 deletions

7
tests/webtbs/tw1677.pp
View File

@ -8,10 +8,10 @@ procedure RefCount(const s : ansistring;expect:longint);
type
PLongint = ^Longint;
var
P : PLongint;
P : psizeint;
rc : longint;
begin
P := PLongint(s);
P := psizeint(s);
rc:=0;
if (p = nil)
then writeln('Nil string.')
@ -20,7 +20,7 @@ begin
{$if defined(ver1_0) or defined(ver1_9_4)}
rc:=(p-1)^;
{$else}
rc:=plongint(pchar(p)-8)^;
rc:=psizeint(pchar(p)-sizeof(sizeint)*2)^;
{$endif}
{$else}
rc:=plongint(pchar(p)-8)^;
@ -62,4 +62,3 @@ begin
writeln('ok');
end.