X-Git-Url: https://deadsoftware.ru/gitweb?p=dsw-obn.git;a=blobdiff_plain;f=tools%2FCoco%2FCoco.obn;h=aa8d1c1ad20ba1cc0c66bb3c3c016b6f8eaa2c7d;hp=5f43695f899a8fa619e4ddbbe0d6cb0183c02da8;hb=b240f3d0e4bce4ee89a7678b9b802bcde9f1d797;hpb=c3c7b7920e8061bd5f2820ccca1153bd2174fe01

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