X-Git-Url: https://deadsoftware.ru/gitweb?p=cpc.git;a=blobdiff_plain;f=src%2Fgeneric%2FDsw%2FMod%2FLinker486Main.cp;h=9396d01dc304c264baf08104e11363dd25ebb386;hp=677681f61bf92aef3b403317581584d8cede96f0;hb=cd7e2ed80772dd1537f6dc320dfc506311495fc9;hpb=e01013bb2dfa7aaab246a94bdde530fd91ea4a43 diff --git a/src/generic/Dsw/Mod/Linker486Main.cp b/src/generic/Dsw/Mod/Linker486Main.cp index 677681f..9396d01 100644 --- a/src/generic/Dsw/Mod/Linker486Main.cp +++ b/src/generic/Dsw/Mod/Linker486Main.cp @@ -7,6 +7,8 @@ MODULE DswLinker486Main; CONST tgtElfStatic = 0; tgtElfExe = 1; tgtElfDll = 2; tgtPeExe = 3; tgtPeDll = 4; + version = "0.2"; + TYPE Elem = POINTER TO RECORD name: ARRAY 256 OF CHAR; @@ -105,6 +107,9 @@ MODULE DswLinker486Main; ELSIF p = "-trap" THEN 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;