浏览代码

Added programmed halt

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7734 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 年之前
父节点
当前提交
b5b064eaba
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      source/Debugging.Mod

+ 4 - 0
source/Debugging.Mod

@@ -188,6 +188,10 @@ VAR
 	BEGIN
 	END Nothing;
 
+	PROCEDURE Halt*;
+	BEGIN HALT (1234);
+	END Halt;
+
 	PROCEDURE DisableGC*;
 	BEGIN
 		Heaps.GC := Nothing;