pike.git/ NT/ tools/ rntcl

2000-11-21

2000-11-21 02:38:22 by Marcus Comstedt <marcus@mc.pp.se>

• ce8148a3c137c122d389746866a026a315b3a7c5 (3 lines) (+2/-1) ^{[ Show | Annotate ]}
  Branch: 7.9

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

308:    "#!/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"