paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* 64 bit fixes

Browse Source 
git-svn-id: trunk@4989 -
This commit is contained in:
tom_at_work 2006-10-20 21:35:03 +00:00
parent ec5e7aaff1
commit f291e46227
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/webtbs/tw5641.pp
View File

@ -12,11 +12,11 @@ begin
Assert(obj^.init, 'case 1a ((addr and $FF) <> 0)');
Assert(obj^.init, 'case 1b ((addr and $FF) <> 0)');
Assert(obj^.init, 'case 1c ((addr and $FF) <> 0)');
obj:=Pointer((Cardinal(mempool) or $FF) + 1);
obj:=Pointer((SizeUint(mempool) or $FF) + 1);
Assert(obj^.init, 'case 2 (addr=$xxxxxx00)');
obj:=Pointer((Cardinal(mempool) or $FFFF) + 1);
obj:=Pointer((SizeUint(mempool) or $FFFF) + 1);
Assert(obj^.init, 'case 3 (addr=$xxxx0000)');
obj:=Pointer((Cardinal(mempool) or $FFFFFF) + 1);
obj:=Pointer((SizeUint(mempool) or $FFFFFF) + 1);
Assert(obj^.init, 'case 4 (addr=$xx000000)');
FreeMem(mempool);
writeln('ok');