index 27997e2c3bf946219122604f9b2451a481fc2acc..9396d01dc304c264baf08104e11363dd25ebb386 100644 (file)
CONST
tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4;
+ version = "0.2";
+
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.