Output of S.s when there was no text scanned was garbage

This commit is contained in:
Norayr Chilingarian 2020-05-09 01:31:04 +04:00
parent 163102bd19
commit 289c154f46
2 changed files with 0 additions and 5 deletions

View file

@ -22,7 +22,6 @@ BEGIN
(* Getting 1 argument and outputting it *)
Texts.OpenScanner(S, Oberon.Par.text, Oberon.Par.pos);
Texts.Scan(S);
Out.String(S.s); Out.Ln;
command := S.s;

View file

@ -62,11 +62,7 @@ BEGIN
LogNormalized(sec, 2);
Out.String(" :- ");
FOR i := 0 TO Strings.Length(buff) - 1 DO
(* Out.Char(" ");
Out.Int(ORD(buff[i]), 4);
Out.Char("-"); *)
Out.Char(buff[i]);
(* Out.Char(" ");Out.Char(" ");Out.Char(" "); *)
END;
Out.Ln;
END Log;