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

* 64 bit fixes

Browse Source 
git-svn-id: trunk@4988 -
This commit is contained in:
tom_at_work 2006-10-20 21:13:12 +00:00
parent fd507efa80
commit ec5e7aaff1
1 changed files with 4 additions and 4 deletions

8
tests/webtbs/tw7100.pp
View File

@ -51,11 +51,11 @@ end;
procedure DumpString(const s: string);
var
i: integer;
pi: pinteger;
i: sizeint;
pi: psizeint;
pb: pbyte;
begin
pi := pinteger(s);
pi := psizeint(s);
pb := pbyte(pi);
// Printing reference counter and string length
@ -65,7 +65,7 @@ begin
{ refcount has to be 1, length 2 -> happens to be the same as i }
if (pi^ <> i) then
halt(1);
write(IntToHex(pi^, 8),' ');
write(IntToHex(pi^, sizeof(sizeint)*2),' ');
inc(pi);
end;