瀏覽代碼

* fixed runtime check

peter 23 年之前
父節點
當前提交
1d8b9cac97
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      tests/webtbs/tw2177.pp

+ 1 - 0
tests/webtbs/tw2177.pp

@@ -60,6 +60,7 @@ begin
     on EAccessViolation do WriteLn('Access Violation');
   else
     WriteLn('Problem');
+    halt(1);
   end;
 end.