minimal fix to regression from:

https://dcvs.elegosoft.com/cgi-bin/cvsweb.cgi/cm3/m3-sys/cm3/src/Builder.m3.diff?r1=1.37;r2=1.38

https://dcvs.elegosoft.com/cgi-bin/cvsweb.cgi/cm3/m3-sys/cm3/src/Builder.m3

Revision 1.38: download - view: text, markup, annotated - select for diffs
Wed Jan 30 12:57:50 2013 MET (2 years, 6 months ago) by jkrell
Branches: MAIN
Diff to: previous 1.37: preferred, unified
Changes since revision 1.37: +151 -105 lines
add "C" mode to builder

The exact logic as to what to keep in error paths could use more attention.

m3-sys/cm3/src/Builder.m3

@@ -1596,7 +1596,7 @@ PROCEDURE PushOneM3 (s: State;  u: M3Unit.T): BOOLEAN =
       IF NOT keep THEN
         Utils.Remove (cm3OutName);
       END;
-      Msg.FatalError (NIL, "failed compiling: ");
+      Msg.Error (NIL, "failed compiling: ");
     ELSE
       IF s.delayBackend THEN (* parallel/delayed version of back-end code *)
         s.machine.record(TRUE);