Browse Source

Fix compilation for JVM cpu

git-svn-id: trunk@32953 -
pierre 9 years ago
parent
commit
5f87ff9205
1 changed files with 6 additions and 0 deletions
  1. 6 0
      tests/tstunits/erroru.pp

+ 6 - 0
tests/tstunits/erroru.pp

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