[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