2
0
Эх сурвалжийг харах

* more info on memory holes

pierre 23 жил өмнө
parent
commit
fa934bd43f

+ 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.