vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 18:02:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixed bug, forgot to new text. -- noch

Browse source
This commit is contained in:
Norayr Chilingarian 2015-02-12 21:00:49 +04:00
parent 63dc2c5c31
commit af98fae2f1
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/lib/s3/ethDates.Mod
View file

@ -188,6 +188,7 @@ BEGIN
i := 0; j := 0; i := 0; j := 0;
WHILE i < 12 DO WHILE j < A[i+1] DO T[j] := SHORT(SHORT(i + 1)); INC(j) END; INC(i) END; WHILE i < 12 DO WHILE j < A[i+1] DO T[j] := SHORT(SHORT(i + 1)); INC(j) END; INC(i) END;
(*Oberon.OpenScanner(S, "System.TimeDiff");*) (*Oberon.OpenScanner(S, "System.TimeDiff");*)
NEW(Txt);
Texts.Open(Txt, "System.TimeDiff"); Texts.Open(Txt, "System.TimeDiff");
Texts.OpenScanner(S, Txt, 0); Texts.OpenScanner(S, Txt, 0);
TimeDiff := 0; TimeDiff := 0;

1
src/lib/s3/ethStrings.Mod
View file

@ -829,6 +829,7 @@ END StrToReal;
PROCEDURE Init(); PROCEDURE Init();
VAR i: LONGINT; s: Texts.Scanner; txt : Texts.Text; (* noch *) VAR i: LONGINT; s: Texts.Scanner; txt : Texts.Text; (* noch *)
BEGIN BEGIN
NEW(txt);
Texts.Open(txt, "System.DateFormat"); (* got rid of Oberon.OpenScanner -- noch *) Texts.Open(txt, "System.DateFormat"); (* got rid of Oberon.OpenScanner -- noch *)
Texts.OpenScanner(s, txt, 0); Texts.OpenScanner(s, txt, 0);
IF s.class = Texts.String THEN COPY(s.s, dateform) ELSE dateform := "" END; IF s.class = Texts.String THEN COPY(s.s, dateform) ELSE dateform := "" END;