File: Kernel.Mod

package info (click to toggle)
oo2c32 1.5.0-1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 8,748 kB
  • ctags: 5,415
  • sloc: ansic: 95,007; sh: 473; makefile: 344; perl: 57; lisp: 21
file content (21 lines) | stat: -rw-r--r-- 337 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
MODULE Kernel [FOREIGN "C";
               LINK FILE "Kernel.c" END];

IMPORT
  SYSTEM;
  
  
TYPE
  Name* = POINTER TO ARRAY OF CHAR;
  Module* = POINTER TO ModuleDesc;
  ModuleDesc* = RECORD
    next-: Module;
    name-: Name;
    key: LONGINT;
    tdescs: SYSTEM.PTR
  END;

VAR
  modules-["_program_modules"]: Module;
  
END Kernel.