Kernel

Changes to module Kernel

Module Kernel allows to set the size of the initial stack. In EPO, and also Project Oberon, the value is hard-coded.

The stack size is defined via

CONST StackSize = 4000H;
VAR stackSize*: INTEGER;

PROCEDURE Init;
BEGIN
  (* ... *)
  stackSize := StackSize;
  (* was: stackSize := 8000H; *)
  (* ... *)
END Init;

Module Modules needs to pick up that value as well, as the stack size is hard-coded a second time there in EPO and PO.