index 27997e2c3bf946219122604f9b2451a481fc2acc..e08555a5518f8820e5e1cecb5f4da0143a4edb6a 100644 (file)
CONST
tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
+ version = "0.3";
+
TYPE
Elem = POINTER TO RECORD
name: ARRAY 256 OF CHAR;
inobj.next := obj;
INC(i)
ELSIF p = "-trap" THEN
- LB.trap := TRUE
+ LB.trap := TRUE;
+ Kernel.intTrap := TRUE
+ ELSIF p = "-version" THEN
+ Console.WriteStr(version); Console.WriteLn;
+ Kernel.Quit(0)
ELSE
Console.WriteStr("unknown option ");
Console.WriteStr(p); Console.WriteLn;
END Init;
BEGIN
+ Kernel.intTrap := FALSE;
Kernel.Start(Init)
END DswLinker486Main.