Преглед на файлове

* more info on memory holes

pierre преди 23 години
родител
ревизия
fa934bd43f
променени са 1 файла, в които са добавени 5 реда и са изтрити 2 реда
  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.