From: DeaDDooMER <deaddoomer@deadsoftware.ru>
Date: Sun, 8 Oct 2017 14:52:32 +0000 (+0300)
Subject: Coco/R возвращает коды ошибок
X-Git-Url: http://deadsoftware.ru/gitweb?a=commitdiff_plain;h=b240f3d0e4bce4ee89a7678b9b802bcde9f1d797;p=dsw-obn.git

Coco/R возвращает коды ошибок
---

diff --git a/tools/Coco/Coco.obn b/tools/Coco/Coco.obn
index 5f43695..aa8d1c1 100644
--- a/tools/Coco/Coco.obn
+++ b/tools/Coco/Coco.obn
@@ -158,13 +158,15 @@ BEGIN
 		IF time >= 0 THEN src := t; pos := beg; s.s := " " END
 	END;
 	IF src # NIL THEN
-		Texts.WriteString (w, "Coco/R - Compiler-Compiler V2.2"); Texts.Append(Oberon.Log, w.buf);
+		Texts.WriteString(w, "Coco/R - Compiler-Compiler V2.2"); Texts.WriteLn(w); Texts.Append(Oberon.Log, w.buf);
 		i := 0; WHILE i < 10 DO CRT.ddt[i] := FALSE; INC(i) END;
 		Options(s);
-		Texts.WriteLn(w); Texts.WriteString(w, s.s); Texts.Append(Oberon.Log, w.buf);
 		CRS.Reset(src, pos, Error); lastErrPos := -10;
 		CRP.Parse
-	END
+	ELSE
+		INC(CRS.errors);
+	END;
+	IF CRS.errors # 0 THEN HALT(1) END
 END Compile;
 
 BEGIN