[Oberon] SystemV- Heap + Module Space

Tomas Kral thomas.kral at email.cz
Thu Jan 3 13:03:37 CET 2019


In situations when there is insufficient space in module store, what
would be a simple recovery in Load() procedure? Generally I just wish roll back the ref
counts before the failing module. 

I believe I need to add some code right after this line. 

IF res = 0 THEN (*search for gap in module store*)
ELSE error(7, name1)
  Files.Set(R, F, ???);
  Files.ReadString(R, impname);   (*roll back ref counts*)
  WHILE impname[0] # 0X DO DEC(???.refcnt); Files.ReadString(R, impname) END ;

Tomas Kral <thomas.kral at email.cz>

More information about the Oberon mailing list