Skip to content
Snippets Groups Projects
Commit 52394a2e authored by Henrik (Grubba) Grubbström's avatar Henrik (Grubba) Grubbström
Browse files

Added support for -S.

Rev: NT/tools/rntecl:1.3
parent 7323acd9
No related branches found
No related tags found
No related merge requests found
#!/usr/local/bin/pike
// -*- Pike -*-
// $Id: rntecl,v 1.2 2000/08/01 13:40:06 grubba Exp $
// $Id: rntecl,v 1.3 2000/08/01 15:53:31 grubba Exp $
// RNTECL, a front-end to Intel ECL with options similar to GCC
// Written by Fredrik Hubinette & Henrik Grubbstrm.
......@@ -61,6 +61,7 @@ int main(int argc, string *argv)
mixed *opts=Getopt.find_all_options(argv, aggregate(
({"oper_pre",Getopt.NO_ARG, ({"-E"}) }),
({"oper_asm",Getopt.NO_ARG, ({"-S"}) }),
({"oper_comp",Getopt.NO_ARG, ({"-c"}) }),
({"verbose",Getopt.NO_ARG, ({"-v"}) }),
({"debug",Getopt.MAY_HAVE_ARG, ({"-g"}) }),
......@@ -108,6 +109,11 @@ int main(int argc, string *argv)
target="-";
break;
case "oper_asm":
cflags+=({ "-S" });
target="asm";
break;
case "oper_comp":
target="obj";
cflags+=({ "-c" });
......@@ -218,6 +224,13 @@ int main(int argc, string *argv)
wantfile=output;
break;
case "asm":
if(!output)
output=remove_ext(argv[1])+".s";
cflags+=({"-Fa"+fixpath(output)});
wantfile=output;
break;
case "dll":
if(output)
cflags+=({"-Fe"+fixpath(output)});
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment