new/_LinuxOpenBSD_/System/Mod/Kernel_so_init.txt

   1 MODULE Kernel_so_init;
   2
   3         (* THIS IS TEXT COPY OF Kernel_so_init.odc *)
   4         (* DO NOT EDIT *)
   5
   6         IMPORT Kernel, SYSTEM;
   7
   8         PROCEDURE SetKernelBaseStack* (x: INTEGER);
   9                 VAR
  10                         m: Kernel.Module;
  11                         ref, adr: INTEGER; mode, form: SHORTCHAR; desc: Kernel.Type; name: Kernel.Name;
  12         BEGIN
  13                 m := Kernel.modList;
  14                 WHILE (m # NIL) & ~(m.name = "Kernel") DO
  15                         m := m.next
  16                 END;
  17                 ASSERT(m # NIL, 100);
  18                 ref := m.refs; Kernel.GetRefProc(ref, adr, name); ASSERT(adr # 0, 101);
  19                 Kernel.GetRefVar(ref, mode, form, desc, adr, name);
  20                 WHILE (mode = 1X) & ~(name = "baseStack") DO
  21                         Kernel.GetRefVar(ref, mode, form, desc, adr, name)
  22                 END;
  23                 ASSERT(mode = 1X, 102); ASSERT(form = 6X, 103);
  24                 SYSTEM.PUT(m.data + adr, x)
  25         END SetKernelBaseStack;
  26
  27 END Kernel_so_init.