From b240f3d0e4bce4ee89a7678b9b802bcde9f1d797 Mon Sep 17 00:00:00 2001 From: DeaDDooMER Date: Sun, 8 Oct 2017 17:52:32 +0300 Subject: [PATCH] =?utf8?q?Coco/R=20=D0=B2=D0=BE=D0=B7=D0=B2=D1=80=D0=B0?= =?utf8?q?=D1=89=D0=B0=D0=B5=D1=82=20=D0=BA=D0=BE=D0=B4=D1=8B=20=D0=BE?= =?utf8?q?=D1=88=D0=B8=D0=B1=D0=BE=D0=BA?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- tools/Coco/Coco.obn | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) 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 -- 2.29.2