瀏覽代碼

* 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
    if i<>2 then
      do_error(1119);
      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');
    writeln('Test successfully passed');
    halt(0);
    halt(0);
 end.
 end.