paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 10:19:30 +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 17:23:26 +00:00
parent 910ff87b4f
commit 4e8795893e
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/webtbs/tw2911.pp
View File

@ -24,10 +24,10 @@ procedure RefCount(const s : string;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.')
@ -36,10 +36,10 @@ 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)^;
rc:=psizeint(pchar(p)-sizeof(sizeint)*2)^;
{$endif}
writeln('Ref count is ',rc,' expected ',expect);
if rc<>expect then
@ -69,4 +69,4 @@ begin
ARecordWithStrings := FunctionResultIsRecord(ARecordWithStrings);
twostring := onestring + twostring;
RefCount(ARecordWithStrings.one,2);
end.
end.