[Oberon] Unreferenced/unused code in Project Oberon 2013
Andreas Pirklbauer
andreas_pirklbauer at yahoo.com
Sun Apr 28 08:29:23 CEST 2019
> -Kernel: It’s not wise to delete StackSize. If you want to improve,
> rather use StackSize in Modules instead of using a constant there.
>
> br
> Jörg
Exactly. One should not flush the baby with the bathtub. E.g. one can change Kernel.Init
from:
PROCEDURE Init*;
BEGIN Files.Init; MTOrg := SYSTEM.REG(MT);
SYSTEM.GET(16, AllocPtr); SYSTEM.GET(20, root); SYSTEM.GET(24, limit); DEC(limit, 8000H)
END Init;
to:
PROCEDURE Init*;
BEGIN Files.Init; MTOrg := SYSTEM.REG(MT);
SYSTEM.GET(16, AllocPtr); SYSTEM.GET(20, root); limit := Kernel.stackOrg - Kernel.stackSize
END Init;
More information about the Oberon
mailing list