Browse Source

* more info on memory holes

pierre 23 years ago
parent
commit
fa934bd43f
1 changed files with 5 additions and 2 deletions
  1. 5 2
      tests/test/texception3.pp

+ 5 - 2
tests/test/texception3.pp

@@ -769,8 +769,11 @@ begin
    if i<>2 then
      do_error(1119);
 
-   if memavail<>startmemavail then
-     do_error(99999);
+   if memavail<startmemavail then
+     begin
+       writeln('exception generates memory holes');
+       do_error(99999);
+     end;
    writeln('Test successfully passed');
    halt(0);
 end.