Changes in driver/cfa.cc [bbb1b35:2026bb6]
- File:
-
- 1 edited
-
driver/cfa.cc (modified) (18 diffs)
Legend:
- Unmodified
- Added
- Removed
-
driver/cfa.cc
rbbb1b35 r2026bb6 10 10 // Created On : Tue Aug 20 13:44:49 2002 11 11 // Last Modified By : Peter A. Buhr 12 // Last Modified On : Fri Aug 23 16:27:07201913 // Update Count : 41112 // Last Modified On : Sun Feb 10 08:28:09 2019 13 // Update Count : 281 14 14 // 15 15 … … 20 20 #include <string> // STL version 21 21 #include <string.h> // strcmp 22 #include <algorithm> // find23 22 24 23 #include <sys/types.h> … … 33 32 using std::to_string; 34 33 34 35 35 //#define __DEBUG_H__ 36 36 37 37 38 void Putenv( char * argv[], string arg ) { 39 static int flags = 0; // environment variables must have unique names 40 41 if ( putenv( (char *)( *new string( string( "__CFA_FLAG" + to_string( flags++ ) + "__=" ) + arg ) ).c_str() ) ) { 42 cerr << argv[0] << " error, cannot set environment variable." << endl; 43 exit( EXIT_FAILURE ); 44 } // if 45 } // Putenv 46 47 48 bool prefix( const string & arg, const string & pre ) { // check if string has prefix 38 bool prefix( string arg, string pre ) { 49 39 return arg.substr( 0, pre.size() ) == pre; 50 40 } // prefix 51 41 52 bool suffix( const string & arg ) { // check if string has suffix 53 enum { NumSuffixes = 3 }; 54 static const string suffixes[NumSuffixes] = { "cfa", "hfa", "ifa" }; 55 42 enum { NumSuffixes = 2 }; 43 const string suffixes[NumSuffixes] = { "cfa", "hfa", }; 44 45 bool suffix( string arg, const char * args[], int & nargs ) { 46 //std::cerr << arg << std::endl; 56 47 size_t dot = arg.find_last_of( "." ); 48 //std::cerr << dot << " " << (dot != string::npos ? arg.substr( dot + 1 ) : "fred" ) << std::endl; 57 49 if ( dot == string::npos ) return false; 58 const string * end = suffixes + NumSuffixes; 59 return std::find( suffixes, end, arg.substr( dot + 1 ) ) != end; 50 string sx = arg.substr( dot + 1 ); 51 for ( int i = 0; i < NumSuffixes; i += 1 ) { 52 if ( sx == suffixes[i] ) { 53 args[nargs] = "-x"; 54 nargs += 1; 55 args[nargs] = "c"; 56 nargs += 1; 57 return true; 58 } // if 59 } // for 60 return false; 60 61 } // suffix 61 62 62 63 63 static inline bool dirExists( const string & path ) { // check if directory exists 64 void shuffle( const char *args[], int S, int E, int N ) { 65 // S & E index 1 passed the end so adjust with -1 66 #ifdef __DEBUG_H__ 67 cerr << "shuffle:" << S << " " << E << " " << N << endl; 68 #endif // __DEBUG_H__ 69 for ( int j = E-1 + N; j > S-1 + N; j -=1 ) { 70 #ifdef __DEBUG_H__ 71 cerr << "\t" << j << " " << j-N << endl; 72 #endif // __DEBUG_H__ 73 args[j] = args[j-N]; 74 } // for 75 } // shuffle 76 77 static inline bool dirExists(const string & path) { 64 78 struct stat info; 65 if ( stat( path.c_str(), &info ) != 0 ) return false; 66 if ( info.st_mode & S_IFDIR ) return true; 67 return false; 68 } // dirExists 69 70 71 #define xstr(s) str(s) 79 if(stat( path.c_str(), &info ) != 0) 80 return false; 81 else if(info.st_mode & S_IFDIR) 82 return true; 83 else 84 return false; 85 } //dirExists 86 87 72 88 #define str(s) #s 73 89 74 int main( int argc, char * 90 int main( int argc, char *argv[] ) { 75 91 string Version( CFA_VERSION_LONG ); // current version number from CONFIG 76 string Major( xstr( CFA_VERSION_MAJOR ) ), Minor( xstr( CFA_VERSION_MINOR ) ), Patch( xstr( CFA_VERSION_PATCH ) );92 string Major( str( CFA_VERSION_MAJOR ) ), Minor( str( CFA_VERSION_MINOR ) ), Patch( str( CFA_VERSION_PATCH ) ); 77 93 78 94 string installincdir( CFA_INCDIR ); // fixed location of include files … … 88 104 string compiler_name; // name of C compiler 89 105 90 bool x_flag = false; // -x flag 91 bool nonoptarg = false; // no non-option arguments specified, i.e., no file names 92 bool link = true; // link stage occurring 106 bool nonoptarg = false; // indicates non-option argument specified 107 bool link = true; // linking as well as compiling 93 108 bool verbose = false; // -v flag 94 bool quiet = false; 95 bool debug = true; 96 bool nolib = false; 97 bool help = false; 109 bool quiet = false; // -quiet flag 110 bool debug = true; // -debug flag 111 bool nolib = false; // -nolib flag 112 bool help = false; // -help flag 98 113 bool CFA_flag = false; // -CFA flag 99 114 bool cpp_flag = false; // -E or -M flag, preprocessor only … … 101 116 bool noincstd_flag = false; // -no-include-stdhdr= flag 102 117 bool debugging __attribute(( unused )) = false; // -g flag 103 bool m32 = false; // -m32 flag 104 bool m64 = false; // -m64 flag 105 bool intree = false; // build in tree 106 int o_file = 0; // -o filename position 118 bool m32 = false; // -m32 flag 119 bool m64 = false; // -m64 flag 120 bool intree = false; 107 121 108 122 const char *args[argc + 100]; // cfa command line values, plus some space for additional flags … … 128 142 129 143 if ( arg == "-Xlinker" || arg == "-o" ) { 130 args[nargs++] = argv[i]; // pass argument along 144 args[nargs] = argv[i]; // pass the argument along 145 nargs += 1; 131 146 i += 1; 132 147 if ( i == argc ) continue; // next argument available ? 133 args[nargs ++] = argv[i]; // passargument along134 if ( arg == "-o" ) o_file = i; // remember file148 args[nargs] = argv[i]; // pass the argument along 149 nargs += 1; 135 150 } else if ( arg == "-XCFA" ) { // CFA pass through 136 151 i += 1; 137 Putenv( argv, argv[i] ); 152 args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + argv[i] ) ).c_str(); 153 nargs += 1; 138 154 139 155 // CFA specific arguments … … 142 158 CFA_flag = true; // strip the -CFA flag 143 159 link = false; 144 args[nargs++] = "-fsyntax-only"; // stop after stage 2 160 args[nargs] = "-E"; // replace the argument with -E 161 nargs += 1; 145 162 } else if ( arg == "-debug" ) { 146 163 debug = true; // strip the debug flag 147 164 } else if ( arg == "-nodebug" ) { 148 debug = false; // strip the nodebug flag165 debug = false; // strip the debug flag 149 166 } else if ( arg == "-nolib" ) { 150 167 nolib = true; // strip the nodebug flag … … 166 183 if ( i == argc ) continue; // next argument available ? 167 184 compiler_path = argv[i]; 168 Putenv( argv, arg + "=" + argv[i] ); 185 if ( putenv( (char *)( *new string( string( "__CFA_COMPILER__=" ) + argv[i]) ).c_str() ) != 0 ) { 186 cerr << argv[0] << " error, cannot set environment variable." << endl; 187 exit( EXIT_FAILURE ); 188 } // if 169 189 170 190 // C specific arguments … … 172 192 } else if ( arg == "-v" ) { 173 193 verbose = true; // verbosity required 174 args[nargs++] = argv[i]; // pass argument along 194 args[nargs] = argv[i]; // pass the argument along 195 nargs += 1; 175 196 } else if ( arg == "-g" ) { 176 197 debugging = true; // symbolic debugging required 177 args[nargs++] = argv[i]; // pass argument along 178 } else if ( arg == "-save-temps" ) { 179 args[nargs++] = argv[i]; // pass argument along 180 Putenv( argv, arg ); // save cfa-cpp output 181 } else if ( prefix( arg, "-x" ) ) { // file suffix ? 182 string lang; 183 args[nargs++] = argv[i]; // pass argument along 198 args[nargs] = argv[i]; // pass the argument along 199 nargs += 1; 200 } else if ( prefix( arg, "-std=" ) || prefix( arg, "--std=" ) ) { 201 std_flag = true; // -std=XX provided 202 args[nargs] = argv[i]; // pass the argument along 203 nargs += 1; 204 } else if ( arg == "-w" ) { 205 args[nargs] = argv[i]; // pass the argument along 206 nargs += 1; 207 args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str(); // add the argument for cfa-cpp 208 nargs += 1; 209 } else if ( prefix( arg, "-W" ) ) { // check before next tests 210 if ( arg == "-Werror" || arg == "-Wall" ) { 211 args[nargs] = argv[i]; // pass the argument along 212 nargs += 1; 213 args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str(); // add the argument for cfa-cpp 214 nargs += 1; 215 } else { 216 unsigned int adv = prefix( arg, "-Wno-" ) ? 5 : 2; 217 args[nargs] = argv[i]; // conditionally pass the argument along 218 const char * warning = argv[i] + adv; // extract warning 219 if ( SemanticWarning_Exist( warning ) ) { // replace the argument for cfa-cpp 220 args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str(); 221 } // if 222 nargs += 1; 223 } // if 224 } else if ( prefix( arg, "-B" ) ) { 225 Bprefix = arg.substr(2); // strip the -B flag 226 args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str(); 227 nargs += 1; 228 } else if ( prefix( arg, "-b" ) ) { 184 229 if ( arg.length() == 2 ) { // separate argument ? 185 230 i += 1; 186 231 if ( i == argc ) continue; // next argument available ? 187 lang = argv[i]; 188 args[nargs++] = argv[i]; // pass argument along 189 } else { 190 lang = arg.substr( 2 ); 191 } // if 192 x_flag = lang != "none"; 193 } else if ( prefix( arg, "-std=" ) || prefix( arg, "--std=" ) ) { 194 std_flag = true; // -std=XX provided 195 args[nargs++] = argv[i]; // pass argument along 196 } else if ( arg == "-w" ) { 197 args[nargs++] = argv[i]; // pass argument along 198 Putenv( argv, arg ); 199 } else if ( prefix( arg, "-W" ) ) { // check before next tests 200 if ( arg == "-Werror" || arg == "-Wall" ) { 201 args[nargs++] = argv[i]; // pass argument along 202 Putenv( argv, argv[i] ); 203 } else { 204 unsigned int adv = prefix( arg, "-Wno-" ) ? 5 : 2; 205 args[nargs] = argv[i]; // conditionally pass argument along 206 const char * warning = argv[i] + adv; // extract warning 207 if ( SemanticWarning_Exist( warning ) ) { // replace the argument for cfa-cpp 208 Putenv( argv, arg ); 209 } // if 210 nargs += 1; 211 } // if 212 } else if ( prefix( arg, "-B" ) ) { 213 Bprefix = arg.substr(2); // strip the -B flag 214 args[nargs++] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str(); 232 arg += argv[i]; // concatenate argument 233 } // if 234 // later versions of gcc require the -b option to appear at the start of the command line 235 shuffle( args, sargs, nargs, 1 ); // make room at front of argument list 236 args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along 237 if ( putenv( (char *)( *new string( string( "__GCC_MACHINE__=" ) + arg ) ).c_str() ) != 0 ) { 238 cerr << argv[0] << " error, cannot set environment variable." << endl; 239 exit( EXIT_FAILURE ); 240 } // if 241 sargs += 1; 242 nargs += 1; 243 } else if ( prefix( arg, "-V" ) ) { 244 if ( arg.length() == 2 ) { // separate argument ? 245 i += 1; 246 if ( i == argc ) continue; // next argument available ? 247 arg += argv[i]; // concatenate argument 248 } // if 249 // later versions of gcc require the -V option to appear at the start of the command line 250 shuffle( args, sargs, nargs, 1 ); // make room at front of argument list 251 args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along 252 if ( putenv( (char *)( *new string( string( "__GCC_VERSION__=" ) + arg ) ).c_str() ) != 0 ) { 253 cerr << argv[0] << " error, cannot set environment variable." << endl; 254 exit( EXIT_FAILURE ); 255 } // if 256 sargs += 1; 257 nargs += 1; 215 258 } else if ( arg == "-c" || arg == "-S" || arg == "-E" || arg == "-M" || arg == "-MM" ) { 216 args[nargs++] = argv[i]; // pass argument along 259 args[nargs] = argv[i]; // pass the argument along 260 nargs += 1; 217 261 if ( arg == "-E" || arg == "-M" || arg == "-MM" ) { 218 262 cpp_flag = true; // cpp only … … 221 265 } else if ( arg[1] == 'l' ) { 222 266 // if the user specifies a library, load it after user code 223 libs[nlibs++] = argv[i]; 267 libs[nlibs] = argv[i]; 268 nlibs += 1; 224 269 } else if ( arg == "-m32" ) { 225 270 m32 = true; 226 271 m64 = false; 227 args[nargs++] = argv[i]; 272 args[nargs] = argv[i]; 273 nargs += 1; 228 274 } else if ( arg == "-m64" ) { 229 275 m64 = true; 230 276 m32 = false; 231 args[nargs++] = argv[i]; 277 args[nargs] = argv[i]; 278 nargs += 1; 232 279 } else { 233 280 // concatenate any other arguments 234 args[nargs++] = argv[i]; 281 args[nargs] = argv[i]; 282 nargs += 1; 235 283 } // if 236 284 } else { 237 bool cfa = suffix( arg ); // check suffix 238 if ( ! x_flag && cfa ) { // no explicit suffix and cfa suffix ? 239 args[nargs++] = "-x"; 240 args[nargs++] = "c"; 241 } // if 242 args[nargs++] = argv[i]; // concatenate files 243 if ( ! x_flag && cfa ) { // no explicit suffix and cfa suffix ? 244 args[nargs++] = "-x"; 245 args[nargs++] = "none"; 285 bool cfa = suffix( arg, args, nargs ); // check suffix 286 args[nargs] = argv[i]; // concatenate file 287 nargs += 1; 288 if ( cfa ) { 289 args[nargs] = "-x"; 290 nargs += 1; 291 args[nargs] = "none"; 292 nargs += 1; 246 293 } // if 247 294 nonoptarg = true; … … 249 296 } // for 250 297 298 args[nargs] = "-x"; // turn off language 299 nargs += 1; 300 args[nargs] = "none"; 301 nargs += 1; 302 251 303 #ifdef __x86_64__ 252 args[nargs++] = "-mcx16"; // allow double-wide CAA 304 args[nargs] = "-mcx16"; // allow double-wide CAA 305 nargs += 1; 253 306 #endif // __x86_64__ 254 307 … … 261 314 #endif // __DEBUG_H__ 262 315 263 // -E flag stops at cc1 stage 1, so cfa-cpp in cc1 stage 2 is never executed.264 316 if ( cpp_flag && CFA_flag ) { 265 317 cerr << argv[0] << " error, cannot use -E and -CFA flags together." << endl; … … 268 320 269 321 // add the CFA include-library paths, which allow direct access to header files without directory qualification 270 if ( ! intree ) { 271 args[nargs++] = "-I" CFA_INCDIR; 322 if( !intree ) { 323 args[nargs] = "-I" CFA_INCDIR; 324 nargs += 1; 272 325 if ( ! noincstd_flag ) { // do not use during build 273 args[nargs++] = "-I" CFA_INCDIR "stdhdr"; 326 args[nargs] = "-I" CFA_INCDIR "stdhdr"; 327 nargs += 1; 274 328 } // if 275 args[nargs++] = "-I" CFA_INCDIR "concurrency"; 276 args[nargs++] = "-I" CFA_INCDIR "containers"; 329 args[nargs] = "-I" CFA_INCDIR "concurrency"; 330 nargs += 1; 331 args[nargs] = "-I" CFA_INCDIR "containers"; 332 nargs += 1; 277 333 } else { 278 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src"; 334 args[nargs] = "-I" TOP_SRCDIR "libcfa/src"; 335 nargs += 1; 279 336 if ( ! noincstd_flag ) { // do not use during build 280 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/stdhdr"; 337 args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/stdhdr"; 338 nargs += 1; 281 339 } // if 282 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/concurrency"; 283 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/containers"; 284 } // if 340 args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/concurrency"; 341 nargs += 1; 342 args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/containers"; 343 nargs += 1; 344 } 285 345 286 346 // add stdbool to get defines for bool/true/false 287 args[nargs++] = "-imacros"; 288 args[nargs++] = "stdbool.h"; 347 args[nargs] = "-imacros"; 348 nargs += 1; 349 args[nargs] = "stdbool.h"; 350 nargs += 1; 289 351 290 352 string libbase; 291 if ( !intree ) {353 if( !intree ) { 292 354 libbase = CFA_LIBDIR; 293 355 } else { 294 356 libbase = TOP_BUILDDIR "libcfa/"; 295 Putenv( argv, "-t" ); 296 } // if 297 298 string arch( m32 ? CFA_32_CPU : (m64 ? CFA_64_CPU : CFA_DEFAULT_CPU) ); 357 args[nargs] = "-D__CFA_FLAG__=-t"; 358 nargs += 1; 359 } 360 361 string arch = m32 ? CFA_32_CPU : (m64 ? CFA_64_CPU : CFA_DEFAULT_CPU); 299 362 if ( ! m32 && ! m64 ) { 300 363 if ( arch == "x86" ) { 301 args[nargs++] = "-m32"; 364 args[nargs] = "-m32"; 365 nargs += 1; 302 366 } else if ( arch == "x64" ) { 303 args[nargs++] = "-m64"; 367 args[nargs] = "-m64"; 368 nargs += 1; 304 369 } // if 305 370 } // if 306 307 string libdir( libbase + arch + "-" + (nolib ? "nolib" : (debug ? "debug": "nodebug")) ); 371 const char * config = nolib ? "nolib" : (debug ? "debug": "nodebug"); 372 string libdir = libbase + arch + "-" + config; 373 374 if ( ! nolib && ! dirExists( libdir ) ) { 375 cerr << argv[0] << " internal error, configuration " << config << " not installed." << endl; 376 cerr << "Was looking for " << libdir << endl; 377 libdir = libbase + arch + "-" + "nolib"; 378 } // if 379 308 380 if ( ! dirExists( libdir ) ) { 309 cerr << argv[0] << " internal error, cannot find prelude directory " << libdir << endl; 381 cerr << argv[0] << " internal error, cannot find prelude directory." << endl; 382 cerr << "Was looking for " << libdir << endl; 310 383 exit( EXIT_FAILURE ); 311 384 } // if 312 385 386 args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + libdir + (intree ? "/prelude" : "")) ).c_str(); 387 nargs += 1; 388 313 389 for ( int i = 0; i < nlibs; i += 1 ) { // copy non-user libraries after all user libraries 314 args[nargs++] = libs[i]; 390 args[nargs] = libs[i]; 391 nargs += 1; 315 392 } // for 316 393 317 394 if ( link ) { 318 args[nargs++] = "-Xlinker"; 319 args[nargs++] = "--undefined=__cfaabi_dbg_bits_write"; 320 args[nargs++] = "-Xlinker"; 321 args[nargs++] = "--undefined=__cfaabi_interpose_startup"; 322 args[nargs++] = "-Xlinker"; 323 args[nargs++] = "--undefined=__cfaabi_appready_startup"; 395 args[nargs] = "-Xlinker"; 396 nargs += 1; 397 args[nargs] = "--undefined=__cfaabi_dbg_bits_write"; 398 nargs += 1; 399 args[nargs] = "-Xlinker"; 400 nargs += 1; 401 args[nargs] = "--undefined=__cfaabi_interpose_startup"; 402 nargs += 1; 403 args[nargs] = "-Xlinker"; 404 nargs += 1; 405 args[nargs] = "--undefined=__cfaabi_appready_startup"; 406 nargs += 1; 324 407 325 408 // include the cfa library in case it's needed 326 args[nargs++] = ( *new string( string("-L" ) + libdir + (intree ? "/src/.libs" : "")) ).c_str(); 327 args[nargs++] = ( *new string( string("-Wl,-rpath," ) + libdir + (intree ? "/src/.libs" : "")) ).c_str(); 328 args[nargs++] = "-Wl,--push-state,--as-needed"; 329 args[nargs++] = "-lcfathread"; 330 args[nargs++] = "-Wl,--pop-state"; 331 args[nargs++] = "-lcfa"; 332 args[nargs++] = "-lpthread"; 333 args[nargs++] = "-ldl"; 334 args[nargs++] = "-lrt"; 335 args[nargs++] = "-lm"; 336 } // if 337 338 args[nargs++] = "-fexceptions"; // add exception flags (unconditionally) 339 340 // add flags based on the type of compile 341 342 args[nargs++] = ( *new string( string("-D__CFA_MAJOR__=") + Major ) ).c_str(); 343 args[nargs++] = ( *new string( string("-D__CFA_MINOR__=") + Minor ) ).c_str(); 344 args[nargs++] = ( *new string( string("-D__CFA_PATCH__=") + Patch ) ).c_str(); 345 args[nargs++] = "-D__CFA__"; 346 args[nargs++] = "-D__CFORALL__"; 347 args[nargs++] = "-D__cforall"; 409 args[nargs] = ( *new string( string("-L" ) + libdir + (intree ? "/src/.libs" : "")) ).c_str(); 410 nargs += 1; 411 args[nargs] = ( *new string( string("-Wl,-rpath," ) + libdir + (intree ? "/src/.libs" : "")) ).c_str(); 412 nargs += 1; 413 args[nargs] = "-Wl,--push-state,--as-needed"; 414 nargs += 1; 415 args[nargs] = "-lcfathread"; 416 nargs += 1; 417 args[nargs] = "-Wl,--pop-state"; 418 nargs += 1; 419 args[nargs] = "-lcfa"; 420 nargs += 1; 421 args[nargs] = "-lpthread"; 422 nargs += 1; 423 args[nargs] = "-ldl"; 424 nargs += 1; 425 args[nargs] = "-lrt"; 426 nargs += 1; 427 args[nargs] = "-lm"; 428 nargs += 1; 429 } // if 430 431 // Add exception flags (unconditionally) 432 args[nargs] = "-fexceptions"; 433 nargs += 1; 434 435 // add the correct set of flags based on the type of compile this is 436 437 args[nargs] = ( *new string( string("-D__CFA_MAJOR__=") + Major ) ).c_str(); 438 nargs += 1; 439 args[nargs] = ( *new string( string("-D__CFA_MINOR__=") + Minor ) ).c_str(); 440 nargs += 1; 441 args[nargs] = ( *new string( string("-D__CFA_PATCH__=") + Patch ) ).c_str(); 442 nargs += 1; 443 args[nargs] = "-D__CFA__"; 444 nargs += 1; 445 args[nargs] = "-D__CFORALL__"; 446 nargs += 1; 447 args[nargs] = "-D__cforall"; 448 nargs += 1; 348 449 349 450 if ( cpp_flag ) { 350 args[nargs++] = "-D__CPP__"; 351 } // if 352 451 args[nargs] = "-D__CPP__"; 452 nargs += 1; 453 } // if 454 455 shuffle( args, sargs, nargs, 1 ); // make room at front of argument list 456 nargs += 1; 353 457 if ( CFA_flag ) { 354 Putenv( argv, "-N" ); 355 Putenv( argv, "-CFA" ); 356 // -CFA implies cc1 stage 2, but gcc does not pass the -o file to this stage because it believe the file is for 357 // the linker. Hence, the -o file is explicit passed to cc1 stage 2 and used as cfa-cpp's output file. 358 if ( o_file ) Putenv( argv, string( "-o=" ) + argv[o_file] ); 458 args[sargs] = "-D__CFA_FLAG__=-N"; 459 args[nargs] = "-D__CFA_PREPROCESS_"; 460 nargs += 1; 359 461 } else { 360 Putenv( argv, "-L" ); 361 } // if 362 363 Putenv( argv, "--prelude-dir=" + libdir + (intree ? "/prelude" : "") ); 462 args[sargs] = "-D__CFA_FLAG__=-L"; 463 } // if 464 sargs += 1; 364 465 365 466 if ( debug ) { 366 467 heading += " (debug)"; 367 args[nargs++] = "-D__CFA_DEBUG__"; 468 args[nargs] = "-D__CFA_DEBUG__"; 469 nargs += 1; 368 470 } else { 369 471 heading += " (no debug)"; … … 373 475 Bprefix = ! intree ? installlibdir : srcdriverdir; 374 476 if ( Bprefix[Bprefix.length() - 1] != '/' ) Bprefix += '/'; 375 args[nargs++] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str(); 376 } // if 377 378 args[nargs++] = "-Xlinker"; // used by backtrace 379 args[nargs++] = "-export-dynamic"; 477 args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str(); 478 nargs += 1; 479 } // if 480 481 args[nargs] = "-Xlinker"; // used by backtrace 482 nargs += 1; 483 args[nargs] = "-export-dynamic"; 484 nargs += 1; 380 485 381 486 // execute the compilation command … … 391 496 392 497 if ( prefix( compiler_name, "gcc" ) ) { // allow suffix on gcc name 393 args[nargs++] = "-no-integrated-cpp"; 394 args[nargs++] = "-Wno-deprecated"; 395 #ifdef HAVE_CAST_FUNCTION_TYPE 396 args[nargs++] = "-Wno-cast-function-type"; 397 #endif // HAVE_CAST_FUNCTION_TYPE 498 args[nargs] = "-no-integrated-cpp"; 499 nargs += 1; 500 args[nargs] = "-Wno-deprecated"; 501 nargs += 1; 502 #ifdef HAVE_CAST_FUNCTION_TYPE 503 args[nargs] = "-Wno-cast-function-type"; 504 nargs += 1; 505 #endif // HAVE_CAST_FUNCTION_TYPE 398 506 if ( ! std_flag ) { // default c11, if none specified 399 args[nargs++] = "-std=gnu11"; 507 args[nargs] = "-std=gnu11"; 508 nargs += 1; 400 509 } // if 401 args[nargs++] = "-fgnu89-inline"; 402 args[nargs++] = "-D__int8_t_defined"; // prevent gcc type-size attributes 403 args[nargs++] = ( *new string( string("-B") + Bprefix ) ).c_str(); 510 args[nargs] = "-fgnu89-inline"; 511 nargs += 1; 512 args[nargs] = "-D__int8_t_defined"; // prevent gcc type-size attributes 513 nargs += 1; 514 args[nargs] = ( *new string( string("-B") + Bprefix ) ).c_str(); 515 nargs += 1; 404 516 } else { 405 517 cerr << argv[0] << " error, compiler \"" << compiler_name << "\" unsupported." << endl; … … 407 519 } // if 408 520 409 args[nargs] = nullptr; // terminate521 args[nargs] = NULL; // terminate with NULL 410 522 411 523 #ifdef __DEBUG_H__ 412 524 cerr << "nargs: " << nargs << endl; 413 525 cerr << "args:" << endl; 414 for ( int i = 0; args[i] != nullptr; i += 1 ) {526 for ( int i = 0; args[i] != NULL; i += 1 ) { 415 527 cerr << " \"" << args[i] << "\"" << endl; 416 528 } // for … … 434 546 if ( argc == 2 ) exit( EXIT_SUCCESS ); // if only the -v flag is specified, do not invoke gcc 435 547 436 for ( int i = 0; args[i] != nullptr; i += 1 ) {548 for ( int i = 0; args[i] != NULL; i += 1 ) { 437 549 cerr << args[i] << " "; 438 550 } // for … … 448 560 449 561 execvp( args[0], (char *const *)args ); // should not return 450 perror( "CFA Translator error: execvp" );562 perror( "CFA Translator error: cfa level, execvp" ); 451 563 exit( EXIT_FAILURE ); 452 564 } // main
Note:
See TracChangeset
for help on using the changeset viewer.
