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

Fix compilation for JVM cpu

Browse Source 
git-svn-id: trunk@32953 -
This commit is contained in:
pierre 2016-01-16 01:09:49 +00:00
parent 8c5adb86cd
commit 5f87ff9205
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/tstunits/erroru.pp
View File

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