* 64 bit fixes

git-svn-id: trunk@4989 -

tests/webtbs/tw5641.pp

@@ -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');