* 64bit fixes

tests/tbs/tb0062.pp

@@ -3,7 +3,7 @@
 
 var
   p : pointer;
-  l  : longint;
+  l  : smallint;
 begin
   l:=Ofs(p); { Ofs returns a pointer type !? }
 

tests/tbs/tb0193.pp

@@ -10,6 +10,10 @@ asm
         movl    HEAPSIZE,%eax
 end ['EAX'];
 {$endif CPUI386}
+{$ifdef CPUX86_64}
+        movl    HEAPSIZE,%eax
+end ['EAX'];
+{$endif CPUX86_64}
 {$ifdef CPU68K}
         move.l    HEAPSIZE,d0
 end ['D0'];

tests/tbs/tb0240.pp

@@ -10,7 +10,6 @@ type
   TMyClass = class
     s: String;
   end;
-  plongint = ^longint;
 
 procedure dotest;
 
@@ -23,14 +22,14 @@ begin
   s:='Hallo '+s;
   writeln((plongint(s)-4)^);
   c := TMyClass.Create;
-  writeln(longint(c.s));
+  writeln(ptrint(c.s));
   c.s := Copy('Test', 1, 4);
-  writeln((plongint(c.s)-4)^);
+  writeln((pptrint(c.s)-4)^);
   c.free;
 end;
 
 var
-   membefore : longint;
+   membefore : sizeint;
 begin
   membefore:=memavail;
   writeln(memavail);

tests/tbs/tb0368.pp

@@ -1,7 +1,7 @@
 type
   tproc = procedure of object;
   trec = record
-    l1,l2 : longint;
+    l1,l2 : ptrint;
   end;
 var
   pfn : tproc;