* use erroru

tests/tbs0005.pp

@@ -1,3 +1,6 @@
+uses 
+  erroru;
+
 begin
   if 1=1 then
     begin
@@ -5,6 +8,6 @@ begin
     end;
   if 1<>1 then
     begin
-      Halt(1);
+      Error;
     end;
 end.

tests/tbs0006.pp

@@ -1,3 +1,5 @@
+uses
+  erroru;
 var
    a,b,c,d,e,f,g,r : double;
 
@@ -12,5 +14,5 @@ begin
    a:= a - 2*b*e - 2*c*f - 2*d*g - Sqr(r);
    writeln(a,' (must be -1010)');
    if a<>-1010.0 then
-     Halt(1);
+     Error;
 end.

tests/tbs0007.pp

@@ -1,3 +1,6 @@
+uses
+  erroru;
+
 var
    count : byte;
    test : longint;
@@ -8,7 +11,7 @@ begin
         inc(test);
         writeln(count,'. loop');
         if test>127 then 
-          Halt(1);
+          Error;
      end;
 end.
 

tests/testansi.pp

@@ -451,9 +451,10 @@ begin
   Domem(tempmem);
 end;
 
-Var StartMem : Longint;
+Var GlobalStartMem,StartMem : Longint;
 
 begin
+  GlobalStartMem:=MemAvail;
   StartMem:=MemAvail;
   Writeln ('Testing Initialize/Finalize.');
   TestInitFinal;
@@ -482,4 +483,5 @@ begin
   Writeln;Writeln ('Testing standard functions.');
   TestStdfunc;
   Write ('End of standard functions: ');DoMem(StartMem);
+  Write ('For the whole program ');DoMem(GlobalStartMem);
 end.