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

Various fixes to OS vs Oberon file lifetime management in Files.Mod.

Browse source
This commit is contained in:
David Brown 2016-11-29 15:27:30 +00:00
parent 51ae4c3241
commit 9f0cbccf55
4 changed files with 44 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/runtime/Modules.Mod
View file

@ -136,7 +136,7 @@ MODULE Modules; (* jt 6.1.96 *)
PROCEDURE Halt*(code: SYSTEM.INT32);
BEGIN
(*IF HaltHandler # NIL THEN HaltHandler(code) END;*)
Heap.FINALL;
errstring("Terminated by Halt("); errint(code); errstring("). ");
IF code < 0 THEN DisplayHaltCode(code) END;
errstring(Platform.NL);
@ -145,6 +145,7 @@ MODULE Modules; (* jt 6.1.96 *)
PROCEDURE AssertFail*(code: SYSTEM.INT32);
BEGIN
Heap.FINALL;
errstring("Assertion failure.");
IF code # 0 THEN errstring(" ASSERT code "); errint(code); errstring("."); END;
errstring(Platform.NL);