pike.git
/
NT
/
tools
/
rntecl
version
»
Context lines:
10
20
40
80
file
none
3
pike.git/NT/tools/rntecl:1:
#!/usr/local/bin/pike // -*- Pike -*-
-
// $Id: rntecl,v 1.
4
2000/08/14
16
:
11
:
46
grubba Exp $
+
// $Id: rntecl,v 1.
5
2000/08/14
21
:
10
:
29
grubba Exp $
// RNTECL, a front-end to Intel ECL with options similar to GCC // Written by Fredrik Hubinette & Henrik Grubbström. inherit "lib.pike"; // Verbose is default for now, this can be turned off one this // frontend has been refined to where it does not require more // debugging.
pike.git/NT/tools/rntecl:35:
} string remove_ext(string file) { sscanf(file=reverse(file),"%*s.%s",file,file); return reverse(file); } string o_to_obj(string fname) {
-
if (fname[sizeof(fname)-
3
..] == ".o") {
+
if (fname[sizeof(fname)-
2
..] == ".o") {
return fname + "bj"; } return fname; } int main(int argc, string *argv) { string *ldopts=({"-INCREMENTAL:no"}); string *cflags=({ "-Wp64", // Generate warnings for loss of precision.