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

fixed bug, forgot to new text. -- noch

Browse source 
Former-commit-id: af98fae2f1
This commit is contained in:
Norayr Chilingarian 2015-02-12 21:00:49 +04:00
parent 5d1eed31e4
commit 849a759bce
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/ethStrings.Mod
View file

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