From ce8148a3c137c122d389746866a026a315b3a7c5 Mon Sep 17 00:00:00 2001
From: Marcus Comstedt <marcus@mc.pp.se>
Date: Tue, 21 Nov 2000 03:38:22 +0100
Subject: [PATCH] Fixed improper junking of path in argv[0].
Rev: NT/tools/rntcc:1.26
Rev: NT/tools/rntcl:1.9
Rev: NT/tools/rntecl:1.10
---
NT/tools/rntcc | 2 +-
NT/tools/rntcl | 2 +-
NT/tools/rntecl | 4 ++--
3 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/NT/tools/rntcc b/NT/tools/rntcc
index 7e7f11e501..744ef737e4 100755
--- a/NT/tools/rntcc
+++ b/NT/tools/rntcc
@@ -347,7 +347,7 @@ int main(int argc, string *argv)
"#!/usr/local/bin/pike\n"
"inherit \""+find_lib_location()+"\";\n"
"int main(int argc, string *argv) {\n"
- "argv[0]=" + sprintf ("%O", output + ".exe") + ";\n"
+ "argv[0]+=\".exe\";\n"
"argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"
" int ret=silent_do_cmd(argv);\n"
" exit(ret);\n"
diff --git a/NT/tools/rntcl b/NT/tools/rntcl
index ff99db3ffc..656894ae99 100755
--- a/NT/tools/rntcl
+++ b/NT/tools/rntcl
@@ -308,7 +308,7 @@ int main(int argc, string *argv)
"#!/usr/local/bin/pike\n"
"inherit \""+find_lib_location()+"\";\n"
"int main(int argc, string *argv) {\n"
- "argv[0]=" + sprintf ("%O", output + ".exe") + ";\n"
+ "argv[0]+=\".exe\";\n"
"argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"
" int ret=silent_do_cmd(argv);\n"
" exit(ret);\n"
diff --git a/NT/tools/rntecl b/NT/tools/rntecl
index 942c382978..c2a9cbbe43 100755
--- a/NT/tools/rntecl
+++ b/NT/tools/rntecl
@@ -1,7 +1,7 @@
#!/usr/local/bin/pike
// -*- Pike -*-
-// $Id: rntecl,v 1.9 2000/08/25 17:08:30 mast Exp $
+// $Id: rntecl,v 1.10 2000/11/21 02:38:22 marcus Exp $
// RNTECL, a front-end to Intel ECL with options similar to GCC
// Written by Fredrik Hubinette & Henrik Grubbström.
@@ -381,7 +381,7 @@ int main(int argc, string *argv)
"int main(int argc, string *argv) {\n"
" if (lower_case(getenv(\"CROSSCOMPILING\")||\"no\") != \"no\")\n"
" exit(1);\n"
- " argv[0]=" + sprintf ("%O", output + ".exe") + ";\n"
+ " argv[0]+=\".exe\";\n"
" argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"
" int ret=silent_do_cmd(argv);\n"
" exit(ret);\n"
--
GitLab