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

8
tests/webtbs/tw7100.pp
View File

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