@@ -3,7 +3,7 @@
var
p : pointer;
- l : longint;
+ l : smallint;
begin
l:=Ofs(p); { Ofs returns a pointer type !? }
@@ -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'];
@@ -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;
- membefore : longint;
+ membefore : sizeint;
membefore:=memavail;
writeln(memavail);
@@ -1,7 +1,7 @@
type
tproc = procedure of object;
trec = record
- l1,l2 : longint;
+ l1,l2 : ptrint;
pfn : tproc;