Ignore:
File:
1 edited

Legend:

Unmodified
Added
Removed
  • driver/cfa.cc

    r2c60af75 r4f5a8a2  
    1010// Created On       : Tue Aug 20 13:44:49 2002
    1111// Last Modified By : Peter A. Buhr
    12 // Last Modified On : Thu Aug 22 22:29:50 2019
    13 // Update Count     : 403
     12// Last Modified On : Sat Aug 10 08:44:15 2019
     13// Update Count     : 311
    1414//
    1515
     
    2828#include "config.h"                                                                             // configure info
    2929
     30
    3031using std::cerr;
    3132using std::endl;
     
    3334using std::to_string;
    3435
     36
    3537//#define __DEBUG_H__
    3638
    3739
    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() ) != 0 ) {
    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
     40bool prefix( string arg, string pre ) {
    4941        return arg.substr( 0, pre.size() ) == pre;
    5042} // prefix
    5143
    52 bool suffix( const string & arg ) {                                             // check if string has suffix
     44bool suffix( string arg ) {
    5345        enum { NumSuffixes = 3 };
    5446        static const string suffixes[NumSuffixes] = { "cfa", "hfa", "ifa" };
    55 
     47        //std::cerr << arg << std::endl;
    5648        size_t dot = arg.find_last_of( "." );
     49        //std::cerr << dot << " " << (dot != string::npos ? arg.substr( dot + 1 ) : "fred" ) << std::endl;
    5750        if ( dot == string::npos ) return false;
    5851        const string * end = suffixes + NumSuffixes;
     
    6154
    6255
    63 static inline bool dirExists( const string & path ) {   // check if directory exists
     56void shuffle( const char * args[], int S, int E, int N ) {
     57        // S & E index 1 passed the end so adjust with -1
     58        #ifdef __DEBUG_H__
     59        cerr << "shuffle:" << S << " " << E << " " << N << endl;
     60        #endif // __DEBUG_H__
     61        for ( int j = E-1 + N; j > S-1 + N; j -=1 ) {
     62                #ifdef __DEBUG_H__
     63                cerr << "\t" << j << " " << j-N << endl;
     64                #endif // __DEBUG_H__
     65                args[j] = args[j-N];
     66        } // for
     67} // shuffle
     68
     69static inline bool dirExists( const string & path ) {
    6470    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)
     71    if(stat( path.c_str(), &info ) != 0)
     72        return false;
     73    else if(info.st_mode & S_IFDIR)
     74        return true;
     75    else
     76        return false;
     77} //dirExists
     78
     79
    7280#define str(s) #s
    7381
    7482int main( int argc, char * argv[] ) {
    7583        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 ) );
     84        string Major( str( CFA_VERSION_MAJOR ) ), Minor( str( CFA_VERSION_MINOR ) ), Patch( str( CFA_VERSION_PATCH ) );
    7785
    7886        string installincdir( CFA_INCDIR );                                     // fixed location of include files
     
    104112        bool m64 = false;                                                                       // -m64 flag
    105113        bool intree = false;
    106         int o_file = 0;                                                                         // -o filename position
    107114
    108115        const char *args[argc + 100];                                           // cfa command line values, plus some space for additional flags
     
    128135
    129136                        if ( arg == "-Xlinker" || arg == "-o" ) {
    130                                 args[nargs++] = argv[i];                                // pass argument along
     137                                args[nargs] = argv[i];                                  // pass the argument along
     138                                nargs += 1;
    131139                                i += 1;
    132140                                if ( i == argc ) continue;                              // next argument available ?
    133                                 args[nargs++] = argv[i];                                // pass argument along
    134                                 if ( arg == "-o" ) o_file = i;                  // remember file
     141                                args[nargs] = argv[i];                                  // pass the argument along
     142                                nargs += 1;
    135143                        } else if ( arg == "-XCFA" ) {                          // CFA pass through
    136144                                i += 1;
    137                                 Putenv( argv, argv[i] );
     145                                args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + argv[i] ) ).c_str();
     146                                nargs += 1;
    138147
    139148                                // CFA specific arguments
     
    142151                                CFA_flag = true;                                                // strip the -CFA flag
    143152                                link = false;
    144                                 args[nargs++] = "-fsyntax-only";                // stop after stage 2
     153                                args[nargs] = "-E";                                             // replace the argument with -E
     154                                nargs += 1;
    145155                        } else if ( arg == "-debug" ) {
    146156                                debug = true;                                                   // strip the debug flag
    147157                        } else if ( arg == "-nodebug" ) {
    148                                 debug = false;                                                  // strip the nodebug flag
     158                                debug = false;                                                  // strip the debug flag
    149159                        } else if ( arg == "-nolib" ) {
    150160                                nolib = true;                                                   // strip the nodebug flag
     
    166176                                if ( i == argc ) continue;                              // next argument available ?
    167177                                compiler_path = argv[i];
    168                                 Putenv( argv, arg + "=" + argv[i] );
     178                                if ( putenv( (char *)( *new string( string( "__CFA_COMPILER__=" ) + argv[i]) ).c_str() ) != 0 ) {
     179                                        cerr << argv[0] << " error, cannot set environment variable." << endl;
     180                                        exit( EXIT_FAILURE );
     181                                } // if
    169182
    170183                                // C specific arguments
     
    172185                        } else if ( arg == "-v" ) {
    173186                                verbose = true;                                                 // verbosity required
    174                                 args[nargs++] = argv[i];                                // pass argument along
     187                                args[nargs] = argv[i];                                  // pass the argument along
     188                                nargs += 1;
    175189                        } else if ( arg == "-g" ) {
    176190                                debugging = true;                                               // symbolic debugging required
    177                                 args[nargs++] = argv[i];                                // pass argument along
     191                                args[nargs] = argv[i];                                  // pass the argument along
     192                                nargs += 1;
    178193                        } else if ( prefix( arg, "-x" ) ) {                     // file suffix ?
    179194                                string lang;
    180                                 args[nargs++] = argv[i];                                // pass argument along
     195                                args[nargs] = argv[i];                                  // pass the argument along
     196                                nargs += 1;
    181197                                if ( arg.length() == 2 ) {                              // separate argument ?
    182198                                        i += 1;
    183199                                        if ( i == argc ) continue;                      // next argument available ?
    184200                                        lang = argv[i];
    185                                         args[nargs++] = argv[i];                        // pass argument along
     201                                        args[nargs] = argv[i];                          // pass the argument along
     202                                        nargs += 1;
    186203                                } else {
    187204                                        lang = arg.substr( 2 );
     
    190207                        } else if ( prefix( arg, "-std=" ) || prefix( arg, "--std=" ) ) {
    191208                                std_flag = true;                                                // -std=XX provided
    192                                 args[nargs++] = argv[i];                                // pass argument along
     209                                args[nargs] = argv[i];                                  // pass the argument along
     210                                nargs += 1;
    193211                        } else if ( arg == "-w" ) {
    194                                 args[nargs++] = argv[i];                                // pass argument along
    195                                 Putenv( argv, arg );
     212                                args[nargs] = argv[i];                                  // pass the argument along
     213                                nargs += 1;
     214                                args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str(); // add the argument for cfa-cpp
     215                                nargs += 1;
    196216                        } else if ( prefix( arg, "-W" ) ) {                     // check before next tests
    197217                                if ( arg == "-Werror" || arg == "-Wall" ) {
    198                                         args[nargs++] = argv[i];                        // pass argument along
    199                                         Putenv( argv, argv[i] );
     218                                        args[nargs] = argv[i];                          // pass the argument along
     219                                        nargs += 1;
     220                                        args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str(); // add the argument for cfa-cpp
     221                                        nargs += 1;
    200222                                } else {
    201223                                        unsigned int adv = prefix( arg, "-Wno-" ) ? 5 : 2;
    202                                         args[nargs] = argv[i];                          // conditionally pass argument along
    203                                         const char * warning = argv[i] + adv; // extract warning
     224                                        args[nargs] = argv[i];                          // conditionally pass the argument along
     225                                        const char * warning = argv[i] + adv;    // extract warning
    204226                                        if ( SemanticWarning_Exist( warning ) ) { // replace the argument for cfa-cpp
    205                                                 Putenv( argv, arg );
     227                                                args[nargs] = ( *new string( string("-D__CFA_FLAG__=") + arg ) ).c_str();
    206228                                        } // if
    207229                                        nargs += 1;
     
    209231                        } else if ( prefix( arg, "-B" ) ) {
    210232                                Bprefix = arg.substr(2);                                // strip the -B flag
    211                                 args[nargs++] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
     233                                args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
     234                                nargs += 1;
     235                        } else if ( prefix( arg, "-b" ) ) {
     236                                if ( arg.length() == 2 ) {                              // separate argument ?
     237                                        i += 1;
     238                                        if ( i == argc ) continue;                      // next argument available ?
     239                                        arg += argv[i];                                         // concatenate argument
     240                                } // if
     241                                // later versions of gcc require the -b option to appear at the start of the command line
     242                                shuffle( args, sargs, nargs, 1 );               // make room at front of argument list
     243                                args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along
     244                                if ( putenv( (char *)( *new string( string( "__GCC_MACHINE__=" ) + arg ) ).c_str() ) != 0 ) {
     245                                        cerr << argv[0] << " error, cannot set environment variable." << endl;
     246                                        exit( EXIT_FAILURE );
     247                                } // if
     248                                sargs += 1;
     249                                nargs += 1;
     250                        } else if ( prefix( arg, "-V" ) ) {
     251                                if ( arg.length() == 2 ) {                              // separate argument ?
     252                                        i += 1;
     253                                        if ( i == argc ) continue;                      // next argument available ?
     254                                        arg += argv[i];                                         // concatenate argument
     255                                } // if
     256                                // later versions of gcc require the -V option to appear at the start of the command line
     257                                shuffle( args, sargs, nargs, 1 );               // make room at front of argument list
     258                                args[sargs] = ( *new string( arg ) ).c_str(); // pass the argument along
     259                                if ( putenv( (char *)( *new string( string( "__GCC_VERSION__=" ) + arg ) ).c_str() ) != 0 ) {
     260                                        cerr << argv[0] << " error, cannot set environment variable." << endl;
     261                                        exit( EXIT_FAILURE );
     262                                } // if
     263                                sargs += 1;
     264                                nargs += 1;
    212265                        } else if ( arg == "-c" || arg == "-S" || arg == "-E" || arg == "-M" || arg == "-MM" ) {
    213                                 args[nargs++] = argv[i];                                // pass argument along
     266                                args[nargs] = argv[i];                                  // pass the argument along
     267                                nargs += 1;
    214268                                if ( arg == "-E" || arg == "-M" || arg == "-MM" ) {
    215269                                        cpp_flag = true;                                        // cpp only
     
    218272                        } else if ( arg[1] == 'l' ) {
    219273                                // if the user specifies a library, load it after user code
    220                                 libs[nlibs++] = argv[i];
     274                                libs[nlibs] = argv[i];
     275                                nlibs += 1;
    221276                        } else if ( arg == "-m32" ) {
    222277                                m32 = true;
    223278                                m64 = false;
    224                                 args[nargs++] = argv[i];
     279                                args[nargs] = argv[i];
     280                                nargs += 1;
    225281                        } else if ( arg == "-m64" ) {
    226282                                m64 = true;
    227283                                m32 = false;
    228                                 args[nargs++] = argv[i];
     284                                args[nargs] = argv[i];
     285                                nargs += 1;
    229286                        } else {
    230287                                // concatenate any other arguments
    231                                 args[nargs++] = argv[i];
     288                                args[nargs] = argv[i];
     289                                nargs += 1;
    232290                        } // if
    233291                } else {
    234292                        bool cfa = suffix( arg );                                       // check suffix
    235293                        if ( ! x_flag && cfa ) {                                        // no explicit suffix and cfa suffix ?
    236                                 args[nargs++] = "-x";
    237                                 args[nargs++] = "c";
     294                                args[nargs] = "-x";
     295                                nargs += 1;
     296                                args[nargs] = "c";
     297                                nargs += 1;
    238298                        } // if
    239                         args[nargs++] = argv[i];                                        // concatenate files
     299                        args[nargs] = argv[i];                                          // concatenate file
     300                        nargs += 1;
    240301                        if ( ! x_flag && cfa ) {                                        // no explicit suffix and cfa suffix ?
    241                                 args[nargs++] = "-x";
    242                                 args[nargs++] = "none";
     302                                args[nargs] = "-x";
     303                                nargs += 1;
     304                                args[nargs] = "none";
     305                                nargs += 1;
    243306                        } // if
    244307                        nonoptarg = true;
     
    247310
    248311        #ifdef __x86_64__
    249         args[nargs++] = "-mcx16";                                                       // allow double-wide CAA
     312        args[nargs] = "-mcx16";                                                         // allow double-wide CAA
     313        nargs += 1;
    250314        #endif // __x86_64__
    251315
     
    258322        #endif // __DEBUG_H__
    259323
    260         // if ( cpp_flag && CFA_flag ) {
    261         //      cerr << argv[0] << " error, cannot use -E and -CFA flags together." << endl;
    262         //      exit( EXIT_FAILURE );
    263         // } // if
     324        if ( cpp_flag && CFA_flag ) {
     325                cerr << argv[0] << " error, cannot use -E and -CFA flags together." << endl;
     326                exit( EXIT_FAILURE );
     327        } // if
    264328
    265329        // add the CFA include-library paths, which allow direct access to header files without directory qualification
    266         if ( ! intree ) {
    267                 args[nargs++] = "-I" CFA_INCDIR;
     330        if( !intree ) {
     331                args[nargs] = "-I" CFA_INCDIR;
     332                nargs += 1;
    268333                if ( ! noincstd_flag ) {                                                // do not use during build
    269                         args[nargs++] = "-I" CFA_INCDIR "stdhdr";
     334                        args[nargs] = "-I" CFA_INCDIR "stdhdr";
     335                        nargs += 1;
    270336                } // if
    271                 args[nargs++] = "-I" CFA_INCDIR "concurrency";
    272                 args[nargs++] = "-I" CFA_INCDIR "containers";
     337                args[nargs] = "-I" CFA_INCDIR "concurrency";
     338                nargs += 1;
     339                args[nargs] = "-I" CFA_INCDIR "containers";
     340                nargs += 1;
    273341        } else {
    274                 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src";
     342                args[nargs] = "-I" TOP_SRCDIR "libcfa/src";
     343                nargs += 1;
    275344                if ( ! noincstd_flag ) {                                                // do not use during build
    276                         args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/stdhdr";
     345                        args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/stdhdr";
     346                        nargs += 1;
    277347                } // if
    278                 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/concurrency";
    279                 args[nargs++] = "-I" TOP_SRCDIR "libcfa/src" "/containers";
    280         } // if
     348                args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/concurrency";
     349                nargs += 1;
     350                args[nargs] = "-I" TOP_SRCDIR "libcfa/src" "/containers";
     351                nargs += 1;
     352        }
    281353
    282354        // add stdbool to get defines for bool/true/false
    283         args[nargs++] = "-imacros";
    284         args[nargs++] = "stdbool.h";
     355        args[nargs] = "-imacros";
     356        nargs += 1;
     357        args[nargs] = "stdbool.h";
     358        nargs += 1;
    285359
    286360        string libbase;
    287         if ( ! intree ) {
     361        if( !intree ) {
    288362                libbase = CFA_LIBDIR;
    289363        } else {
    290364                libbase = TOP_BUILDDIR "libcfa/";
    291                 Putenv( argv, "-t" );
    292         } // if
     365                args[nargs] = "-D__CFA_FLAG__=-t";
     366                nargs += 1;
     367        }
    293368
    294369        string arch = m32 ? CFA_32_CPU : (m64 ? CFA_64_CPU : CFA_DEFAULT_CPU);
    295370        if ( ! m32 && ! m64 ) {
    296371                if ( arch == "x86" ) {
    297                         args[nargs++] = "-m32";
     372                        args[nargs] = "-m32";
     373                        nargs += 1;
    298374                } else if ( arch == "x64" ) {
    299                         args[nargs++] = "-m64";
     375                        args[nargs] = "-m64";
     376                        nargs += 1;
    300377                }  // if
    301378        } // if
    302 
    303         string libdir = libbase + arch + "-" + (nolib ? "nolib" : (debug ? "debug": "nodebug"));
     379        const char * config = nolib ? "nolib" : (debug ? "debug": "nodebug");
     380        string libdir = libbase + arch + "-" + config;
     381
     382        if ( ! nolib && ! dirExists( libdir ) ) {
     383                cerr << argv[0] << " internal error, configuration " << config << " not installed." << endl;
     384                cerr << "Was looking for " << libdir << endl;
     385                libdir = libbase + arch + "-" + "nolib";
     386        } // if
     387
    304388        if ( ! dirExists( libdir ) ) {
    305                 cerr << argv[0] << " internal error, cannot find prelude directory " << libdir << endl;
     389                cerr << argv[0] << " internal error, cannot find prelude directory." << endl;
     390                cerr << "Was looking for " << libdir << endl;
    306391                exit( EXIT_FAILURE );
    307392        } // if
    308393
     394        args[nargs] = ( *new string( string("-D__CFA_FLAG__=--prelude-dir=" ) + libdir + (intree ? "/prelude" : "")) ).c_str();
     395        nargs += 1;
     396
    309397        for ( int i = 0; i < nlibs; i += 1 ) {                          // copy non-user libraries after all user libraries
    310                 args[nargs++] = libs[i];
     398                args[nargs] = libs[i];
     399                nargs += 1;
    311400        } // for
    312401
    313402        if ( link ) {
    314                 args[nargs++] = "-Xlinker";
    315                 args[nargs++] = "--undefined=__cfaabi_dbg_bits_write";
    316                 args[nargs++] = "-Xlinker";
    317                 args[nargs++] = "--undefined=__cfaabi_interpose_startup";
    318                 args[nargs++] = "-Xlinker";
    319                 args[nargs++] = "--undefined=__cfaabi_appready_startup";
     403                args[nargs] = "-Xlinker";
     404                nargs += 1;
     405                args[nargs] = "--undefined=__cfaabi_dbg_bits_write";
     406                nargs += 1;
     407                args[nargs] = "-Xlinker";
     408                nargs += 1;
     409                args[nargs] = "--undefined=__cfaabi_interpose_startup";
     410                nargs += 1;
     411                args[nargs] = "-Xlinker";
     412                nargs += 1;
     413                args[nargs] = "--undefined=__cfaabi_appready_startup";
     414                nargs += 1;
    320415
    321416                // include the cfa library in case it's needed
    322                 args[nargs++] = ( *new string( string("-L" ) + libdir + (intree ? "/src/.libs" : "")) ).c_str();
    323                 args[nargs++] = ( *new string( string("-Wl,-rpath," ) + libdir + (intree ? "/src/.libs" : "")) ).c_str();
    324                 args[nargs++] = "-Wl,--push-state,--as-needed";
    325                 args[nargs++] = "-lcfathread";
    326                 args[nargs++] = "-Wl,--pop-state";
    327                 args[nargs++] = "-lcfa";
    328                 args[nargs++] = "-lpthread";
    329                 args[nargs++] = "-ldl";
    330                 args[nargs++] = "-lrt";
    331                 args[nargs++] = "-lm";
    332         } // if
    333 
    334         args[nargs++] = "-fexceptions";                                         // add exception flags (unconditionally)
    335 
    336         // add flags based on the type of compile
    337 
    338         args[nargs++] = ( *new string( string("-D__CFA_MAJOR__=") + Major ) ).c_str();
    339         args[nargs++] = ( *new string( string("-D__CFA_MINOR__=") + Minor ) ).c_str();
    340         args[nargs++] = ( *new string( string("-D__CFA_PATCH__=") + Patch ) ).c_str();
    341         args[nargs++] = "-D__CFA__";
    342         args[nargs++] = "-D__CFORALL__";
    343         args[nargs++] = "-D__cforall";
     417                args[nargs] = ( *new string( string("-L" ) + libdir + (intree ? "/src/.libs" : "")) ).c_str();
     418                nargs += 1;
     419                args[nargs] = ( *new string( string("-Wl,-rpath," ) + libdir + (intree ? "/src/.libs" : "")) ).c_str();
     420                nargs += 1;
     421                args[nargs] = "-Wl,--push-state,--as-needed";
     422                nargs += 1;
     423                args[nargs] = "-lcfathread";
     424                nargs += 1;
     425                args[nargs] = "-Wl,--pop-state";
     426                nargs += 1;
     427                args[nargs] = "-lcfa";
     428                nargs += 1;
     429                args[nargs] = "-lpthread";
     430                nargs += 1;
     431                args[nargs] = "-ldl";
     432                nargs += 1;
     433                args[nargs] = "-lrt";
     434                nargs += 1;
     435                args[nargs] = "-lm";
     436                nargs += 1;
     437        } // if
     438
     439        // Add exception flags (unconditionally)
     440        args[nargs] = "-fexceptions";
     441        nargs += 1;
     442
     443        // add the correct set of flags based on the type of compile this is
     444
     445        args[nargs] = ( *new string( string("-D__CFA_MAJOR__=") + Major ) ).c_str();
     446        nargs += 1;
     447        args[nargs] = ( *new string( string("-D__CFA_MINOR__=") + Minor ) ).c_str();
     448        nargs += 1;
     449        args[nargs] = ( *new string( string("-D__CFA_PATCH__=") + Patch ) ).c_str();
     450        nargs += 1;
     451        args[nargs] = "-D__CFA__";
     452        nargs += 1;
     453        args[nargs] = "-D__CFORALL__";
     454        nargs += 1;
     455        args[nargs] = "-D__cforall";
     456        nargs += 1;
    344457
    345458        if ( cpp_flag ) {
    346                 args[nargs++] = "-D__CPP__";
    347         } // if
    348 
     459                args[nargs] = "-D__CPP__";
     460                nargs += 1;
     461        } // if
     462
     463        shuffle( args, sargs, nargs, 1 );                                       // make room at front of argument list
     464        nargs += 1;
    349465        if ( CFA_flag ) {
    350                 Putenv( argv, "-N" );
    351                 Putenv( argv, "-CFA" );
    352                 if ( o_file ) Putenv( argv, string( "-o=" ) + argv[o_file] );
     466                args[sargs] = "-D__CFA_FLAG__=-N";
     467                args[nargs] = "-D__CFA_PREPROCESS_";
     468                nargs += 1;
    353469        } else {
    354                 Putenv( argv, "-L" );
    355         } // if
    356 
    357         Putenv( argv, "--prelude-dir=" + libdir + (intree ? "/prelude" : "") );
     470                args[sargs] = "-D__CFA_FLAG__=-L";
     471        } // if
     472        sargs += 1;
    358473
    359474        if ( debug ) {
    360475                heading += " (debug)";
    361                 args[nargs++] = "-D__CFA_DEBUG__";
     476                args[nargs] = "-D__CFA_DEBUG__";
     477                nargs += 1;
    362478        } else {
    363479                heading += " (no debug)";
     
    367483                Bprefix = ! intree ? installlibdir : srcdriverdir;
    368484                if ( Bprefix[Bprefix.length() - 1] != '/' ) Bprefix += '/';
    369                 args[nargs++] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
    370         } // if
    371 
    372         args[nargs++] = "-Xlinker";                                                     // used by backtrace
    373         args[nargs++] = "-export-dynamic";
     485                args[nargs] = ( *new string( string("-D__GCC_BPREFIX__=") + Bprefix ) ).c_str();
     486                nargs += 1;
     487        } // if
     488
     489        args[nargs] = "-Xlinker";                                                       // used by backtrace
     490        nargs += 1;
     491        args[nargs] = "-export-dynamic";
     492        nargs += 1;
    374493
    375494        // execute the compilation command
     
    385504
    386505        if ( prefix( compiler_name, "gcc" ) ) {                         // allow suffix on gcc name
    387                 args[nargs++] = "-no-integrated-cpp";
    388                 args[nargs++] = "-Wno-deprecated";
    389                 #ifdef HAVE_CAST_FUNCTION_TYPE
    390                 args[nargs++] = "-Wno-cast-function-type";
    391                 #endif // HAVE_CAST_FUNCTION_TYPE
     506                args[nargs] = "-no-integrated-cpp";
     507                nargs += 1;
     508                args[nargs] = "-Wno-deprecated";
     509                nargs += 1;
     510#ifdef HAVE_CAST_FUNCTION_TYPE
     511                args[nargs] = "-Wno-cast-function-type";
     512                nargs += 1;
     513#endif // HAVE_CAST_FUNCTION_TYPE
    392514                if ( ! std_flag ) {                                                             // default c11, if none specified
    393                         args[nargs++] = "-std=gnu11";
     515                        args[nargs] = "-std=gnu11";
     516                        nargs += 1;
    394517                } // if
    395                 args[nargs++] = "-fgnu89-inline";
    396                 args[nargs++] = "-D__int8_t_defined";                   // prevent gcc type-size attributes
    397                 args[nargs++] = ( *new string( string("-B") + Bprefix ) ).c_str();
     518                args[nargs] = "-fgnu89-inline";
     519                nargs += 1;
     520                args[nargs] = "-D__int8_t_defined";                             // prevent gcc type-size attributes
     521                nargs += 1;
     522                args[nargs] = ( *new string( string("-B") + Bprefix ) ).c_str();
     523                nargs += 1;
    398524        } else {
    399525                cerr << argv[0] << " error, compiler \"" << compiler_name << "\" unsupported." << endl;
     
    401527        } // if
    402528
    403         args[nargs] = NULL;                                                                     // terminate
     529        args[nargs] = NULL;                                                                     // terminate with NULL
    404530
    405531        #ifdef __DEBUG_H__
     
    442568
    443569        execvp( args[0], (char *const *)args );                         // should not return
    444         perror( "CFA Translator error: execvp" );
     570        perror( "CFA Translator error: cfa level, execvp" );
    445571        exit( EXIT_FAILURE );
    446572} // main
Note: See TracChangeset for help on using the changeset viewer.