浏览代码

patched trap when release tool runs into trouble at system bootup

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@6674 8c9fc860-2736-0410-a75d-ab315db34111
felixf 9 年之前
父节点
当前提交
f8d1d7cb2a
共有 1 个文件被更改,包括 2 次插入2 次删除
  1. 2 2
      source/Release.Mod

+ 2 - 2
source/Release.Mod

@@ -1993,8 +1993,7 @@ TYPE
 					Error(Diagnostics.Invalid, "Version mismatch, Release.Mod is version #, tool file is version #", v1, v2);
 				END;
 			END;
-			ASSERT(builds # NIL);
-			RETURN ~(error OR scanner.error);
+			RETURN ~(error OR scanner.error OR (builds = NIL));
 		END Parse;
 
 		(* Import = IMPORT Entries END whereas Entries = FileName *)
@@ -2082,6 +2081,7 @@ TYPE
 		PROCEDURE ParseBuilds(builds : Builds) : BOOLEAN;
 		VAR token : Token; build : BuildObj;
 		BEGIN
+			IF builds = NIL THEN RETURN FALSE END;
 			ASSERT(builds # NIL);
 			scanner.Peek(token);
 			IF  (token = BUILDS) THEN