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

Build link list based on imports, not on modules compiled by compiler instance.

Browse source
This commit is contained in:
David Brown 2016-12-18 13:03:59 +00:00
parent 4a71f43e72
commit 460b879829
7 changed files with 100 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/runtime/Files.Mod
View file

@ -645,21 +645,11 @@ Especially Length would become fairly complex.
PROCEDURE Register* (f: File);
VAR idx, errcode: INTEGER; f1: File;
BEGIN
(*
Out.String("Files.Register f.registerName = "); Out.String(f.registerName);
Out.String(", fd = "); Out.Int(f.fd,1); Out.Ln;
*)
IF (f.state = create) & (f.registerName # "") THEN f.state := close (* shortcut renaming *) END;
Close(f);
IF f.registerName # "" THEN
Deregister(f.registerName);
Rename(f.workName, f.registerName, errcode);
(*
Out.String("Renamed (for register) f.fd = "); Out.Int(f.fd,1);
Out.String(" from workname "); Out.String(f.workName);
Out.String(" to registerName "); Out.String(f.registerName);
Out.String(" errorcode = "); Out.Int(errcode,1); Out.Ln;
*)
IF errcode # 0 THEN Err("Couldn't rename temp name as register name", f, errcode) END;
f.workName := f.registerName; f.registerName := ""; f.tempFile := FALSE
END