|
@@ -78,7 +78,9 @@ begin
|
|
else
|
|
else
|
|
begin
|
|
begin
|
|
exitcode:=0;
|
|
exitcode:=0;
|
|
|
|
+{$ifndef CPUJVM}
|
|
erroraddr:=nil;
|
|
erroraddr:=nil;
|
|
|
|
+{$endif ndef CPUJVM}
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
@@ -99,9 +101,12 @@ function DoMem (Var StartMem : sizeint): sizeint;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
+{$ifndef CPUJVM}
|
|
var
|
|
var
|
|
hstatus : TFPCHeapstatus;
|
|
hstatus : TFPCHeapstatus;
|
|
|
|
+{$endif ndef CPUJVM}
|
|
begin
|
|
begin
|
|
|
|
+{$ifndef CPUJVM}
|
|
hstatus:=GetFPCHeapStatus;
|
|
hstatus:=GetFPCHeapStatus;
|
|
if StartMem=0 then
|
|
if StartMem=0 then
|
|
begin
|
|
begin
|
|
@@ -115,6 +120,7 @@ begin
|
|
DoMem:=hstatus.CurrHeapUsed-StartMem;
|
|
DoMem:=hstatus.CurrHeapUsed-StartMem;
|
|
end;
|
|
end;
|
|
StartMem:=hstatus.CurrHeapUsed;
|
|
StartMem:=hstatus.CurrHeapUsed;
|
|
|
|
+{$endif ndef CPUJVM}
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
|