paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 07:19:27 +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
begin
exitcode:=0;
{$ifndef CPUJVM}
erroraddr:=nil;
{$endif ndef CPUJVM}
end;
end;
@ -99,9 +101,12 @@ function DoMem (Var StartMem : sizeint): sizeint;
end;
end;
{$ifndef CPUJVM}
var
hstatus : TFPCHeapstatus;
{$endif ndef CPUJVM}
begin
{$ifndef CPUJVM}
hstatus:=GetFPCHeapStatus;
if StartMem=0 then
begin
@ -115,6 +120,7 @@ begin
DoMem:=hstatus.CurrHeapUsed-StartMem;
end;
StartMem:=hstatus.CurrHeapUsed;
{$endif ndef CPUJVM}
end;