[Oberon] SystemV- Heap + Module Space

[Tomas Kral]

Hi,

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 ;
END ;

-- 
Tomas Kral <thomas.kral at email.cz>