paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 19:18:47 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
tests/webtbs/tw1677.pp
View File

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