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

Remove redundant sync that causes error on windows. Update console for Windows cr/lf.

Browse source
This commit is contained in:
David Brown 2016-11-10 11:22:23 +00:00
parent c2e97de495
commit c93705920e
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/runtime/Files.Mod
View file

@ -215,8 +215,11 @@ MODULE Files; (* J. Templ 1.12. 89/12.4.95 Oberon files mapped onto Unix files
IF (f.state # create) OR (f.registerName # "") THEN
Create(f); i := 0;
WHILE (i < nofbufs) & (f.bufs[i] # NIL) DO Flush(f.bufs[i]); INC(i) END;
(* There's no reason to sync this file - we're about to close it. The OS
will sync if necessary. Further, sync will fail for a R/O file on Windows.
error := Platform.Sync(f.fd);
IF error # 0 THEN Err("error writing file", f, error) END;
IF error # 0 THEN Err("error syncing file", f, error) END;
*)
CloseOSFile(f);
END
END Close;