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

The generated "binary" now looks at the CROSSCOMPILING environment variable.

This is to avoid the annoying requester that appears on an NT4 machine when
you try to run an IA64 binary.

Rev: NT/tools/rntecl:1.2
parent f0027dea
No related branches found
No related tags found
No related merge requests found
......@@ -21,6 +21,7 @@ testfont binary
# changes to these files.
/Makefile foreign_ident
/NT/tools/install-sh foreign_ident
/NT/tools/rntecl foreign_ident
/bin/export.pike foreign_ident
/bin/extract.pike foreign_ident
/bin/feature_list foreign_ident
......
#!/usr/local/bin/pike
// -*- Pike -*-
// $Id: rntecl,v 1.2 2000/08/01 13:40:06 grubba Exp $
// RNTECL, a front-end to Intel ECL with options similar to GCC
// Written by Fredrik Hubinette & Henrik Grubbstrm.
......@@ -43,7 +45,9 @@ int main(int argc, string *argv)
{
string *ldopts=({"-INCREMENTAL:no"});
string *cflags=({
"-Wp64",
"-Wp64", // Generate warnings for loss of precision.
//"-W4", // Maximum verbosity.
"-W3", // More warnings.
"-D__WIN32__",
"-D_WIN32",
"-D__NT__",
......@@ -307,8 +311,10 @@ 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]+=\".exe\";\n"
"argv[0]=getenv(\"NTDRIVE\")+fixpath(combine_path(getcwd(),argv[0]));\n"
" if (lower_case(getenv(\"CROSSCOMPILING\")||\"no\") != \"no\")\n"
" exit(1);\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"
"}\n");
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment