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

@@ -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"

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"

NT/tools/rntecl

 #!/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 Grubbstrm.
@@ -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"