[Oberon] PO2013 - ORL Linker Static Buffer

Tomas Kral thomas.kral at email.cz
Mon May 18 08:04:12 CEST 2020


Hi,

I use rather earlier version of the above. Looking at buffer
allocation code part.

 binStart := Modules.AllocPtr; binMTOrg := binStart + 32; binroot :=
NIL; res := 0; limit := Kernel.heapOrg; DEC(limit, 8000H);
    binAllocPtr :=  binStart+ 256; i:= 0;
    WHILE i < 256+DescSize DO SYSTEM.PUT(binStart + i, 0); INC(i, 4)
END ;

This sets aside a static block from the heap, if I got the idea right? And fills it with zeros?

[a] I do not see later in the code, the block is released?
[b] These are mine limits, do I need to adjust anything in ORL?

ORTool 18.2.2013
branch to Modules Init() E70025FE
mem limit     0
boot size/sectors used 39296  39
modules root 00008420
modules limit 00040000
Mem limit 0009FEF0
Stack org 00060000

Many thanks

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


More information about the Oberon mailing list