From 52394a2e45d4a063a6b53e15c1d45bbd3ce8d2b6 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Tue, 1 Aug 2000 17:53:31 +0200
Subject: [PATCH] Added support for -S.
Rev: NT/tools/rntecl:1.3
---
NT/tools/rntecl | 15 ++++++++++++++-
1 file changed, 14 insertions(+), 1 deletion(-)
diff --git a/NT/tools/rntecl b/NT/tools/rntecl
index 1512275cb2..e68c60db0e 100755
--- a/NT/tools/rntecl
+++ b/NT/tools/rntecl
@@ -1,7 +1,7 @@
#!/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 Grubbström.
@@ -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)});
--
GitLab