* set HaltOnNotReleased to true in all testss using heaptrc so

they'll exit with an error code in case of a memory leak

git-svn-id: trunk@8350 -

tests/webtbs/tw1433.pp

@@ -1,6 +1,7 @@
 { %OPT=-gh }
 { The only problem is that we don't really get a
   non zero exitcode if some memory is not freed PM }
+{ now we do, thanks to a patch of yours several years later :) }
 { Source provided for Free Pascal Bug Report 1433 }
 { Submitted by "Aleksey V. Vaneev" on  2001-03-10 }
 { e-mail: picoder@sbis.komi.ru }
@@ -29,6 +30,7 @@ begin
 end;
 
 begin
+        HaltOnNotReleased := true;
         ExitTest1;
         ExitTest2;
 end.

tests/webtbs/tw3348.pp

@@ -19,6 +19,7 @@ end;
 var
  ar1: integerarty;
 begin
+ HaltOnNotReleased := true;
  ar1:= nil;
  proc(ar1); // checkpointer error (nil!)
 end.

tests/webtbs/tw3411.pp

@@ -51,5 +51,6 @@ begin
 end;
 
 begin
+   HaltOnNotReleased := true;
   TestLeak;
 end.

tests/webtbs/tw3661.pp

@@ -9,5 +9,6 @@ uses
   Classes;
 
 begin
+ HaltOnNotReleased := true;
  writeln('abc');
 end.

tests/webtbs/tw3721.pp

@@ -5,6 +5,7 @@ uses sysutils;
 var ps : pstring;
 
 begin
+  HaltOnNotReleased := true;  
   ps:=newstr('TEST');
   writeln(ps^);
   disposestr(ps);

tests/webtbs/tw3742.pp

@@ -37,6 +37,7 @@ begin
 end;
 
 begin
+ HaltOnNotReleased := true;
  testproc;
  writeln('refcount b 0: ',pinteger(pchar(pointer(ar2[0].stack)-8))^);
  writeln('refcount b 1: ',pinteger(pchar(pointer(ar2[1].stack)-8))^);

tests/webtbs/tw4247.pp

@@ -7,6 +7,7 @@ program project1;
 var
  po1,po2: pointer;
 begin
+ HaltOnNotReleased := true;
  getmem(po1,500);
  getmem(po2,500);
  reallocmem(po1,400);
@@ -16,4 +17,4 @@ begin
  reallocmem(po1,600);
  freemem(po1,600);
  freemem(po2,500);
-end.
+end.

tests/webtbs/tw6767.pp

@@ -11,6 +11,7 @@ uses
 var
  CheckThread : TCheckConnThread;
 begin
+  HaltOnNotReleased := true;
   CheckThread := TCheckConnThread.Create(false);
   CheckThread.Terminate;
   CheckThread.Waitfor;

tests/webtbs/tw8664.pp

@@ -9,5 +9,6 @@ end;
 
 
 begin
+  HaltOnNotReleased := true;
   TLResourceListAdd(['Value1']);
 end.

tests/webtbs/tw8757.pp

@@ -9,6 +9,7 @@ constructor o.init; begin end;
 var o1 : ^o;
 
 begin
+  HaltOnNotReleased := true;;
   New(o1,init);
   // New(o1); o1^.init; <- no error
   dispose(o1);