source: src/driver/cc1.cc @ 81419b5

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsctordeferred_resndemanglerenumforall-pointer-decaygc_noraiijacob/cs343-translationjenkins-sandboxmemorynew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newstringwith_gc
Last change on this file since 81419b5 was 6e7e2b36, checked in by Peter A. Buhr <pabuhr@…>, 9 years ago

redo automake seventh attempt

  • Property mode set to 100644
File size: 14.2 KB
RevLine 
[b87a5ed]1//
2// Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
3//
4// The contents of this file are covered under the licence agreement in the
5// file "LICENCE" distributed with Cforall.
6//
[51b7345]7// cc1.cc --
[b87a5ed]8//
9// Author           : Peter A. Buhr
[51b7345]10// Created On       : Fri Aug 26 14:23:51 2005
11// Last Modified By : Peter A. Buhr
[00cc023]12// Last Modified On : Sat May 30 08:58:29 2015
13// Update Count     : 51
[51b7345]14//
15
16#include <iostream>
17using std::cerr;
18using std::endl;
19#include <string>
20using std::string;
[b87a5ed]21#include <cstdio>                                                                               // stderr, stdout, perror, fprintf
22#include <cstdlib>                                                                              // getenv, exit, mkstemp
23#include <unistd.h>                                                                             // execvp, fork, unlink
24#include <sys/wait.h>                                                                   // wait
[51b7345]25
[b87a5ed]26#include "config.h"                                                                             // configure info
[51b7345]27
28
29//#define __DEBUG_H__
30
31
[b87a5ed]32string compiler_name( GCC_PATH );                                               // path/name of C compiler
[51b7345]33
34string D__GCC_BPREFIX__( "-D__GCC_BPREFIX__=" );
[d9a0e76]35string D__CFA_FLAGPREFIX__( "-D__CFA_FLAG__=" );
[51b7345]36
[bdd516a]37char tmpname[] = P_tmpdir "/CFAXXXXXX";
38int tmpfilefd = -1;
39
[51b7345]40
41bool prefix( string arg, string pre ) {
[b87a5ed]42        return arg.substr( 0, pre.size() ) == pre;
[51b7345]43} // prefix
44
45
46void checkEnv( const char *args[], int &nargs ) {
[b87a5ed]47        char *value;
[51b7345]48
[b87a5ed]49        value = getenv( "__COMPILER__" );
50        if ( value != NULL ) {
51                compiler_name = value;
[51b7345]52#ifdef __DEBUG_H__
[b87a5ed]53                cerr << "env arg:\"" << compiler_name << "\"" << endl;
[51b7345]54#endif // __DEBUG_H__
[b87a5ed]55        } // if
[51b7345]56
[b87a5ed]57        value = getenv( "__GCC_MACHINE__" );
58        if ( value != NULL ) {
59                args[nargs] = ( *new string( value ) ).c_str(); // pass the argument along
[51b7345]60#ifdef __DEBUG_H__
[b87a5ed]61                cerr << "env arg:\"" << args[nargs] << "\"" << endl;
[51b7345]62#endif // __DEBUG_H__
[b87a5ed]63                nargs += 1;
64        } // if
[51b7345]65
[b87a5ed]66        value = getenv( "__GCC_VERSION__" );
67        if ( value != NULL ) {
68                args[nargs] = ( *new string( value ) ).c_str(); // pass the argument along
[51b7345]69#ifdef __DEBUG_H__
[b87a5ed]70                cerr << "env arg:\"" << args[nargs] << "\"" << endl;
[51b7345]71#endif // __DEBUG_H__
[b87a5ed]72                nargs += 1;
73        } // if
[51b7345]74} // checkEnv
75
76
[bdd516a]77void rmtmpfile() {
[b87a5ed]78        if ( unlink( tmpname ) == -1 ) {                                        // remove tmpname
79                perror ( "CFA Translator error: cpp failed" );
80                exit( EXIT_FAILURE );
81        } // if
82        tmpfilefd = -1;                                                                         // mark closed
[bdd516a]83} // rmtmpfile
84
85
86void sigTermHandler( int signal ) {
[b87a5ed]87        if ( tmpfilefd != -1 ) {                                                        // RACE, file created ?
88                rmtmpfile();                                                                    // remove
89                exit( EXIT_FAILURE );                                                   // terminate
90        } // if
[bdd516a]91} // sigTermHandler
92
93
[51b7345]94void Stage1( const int argc, const char * const argv[] ) {
[b87a5ed]95        int code;
96        int i;
[51b7345]97
[b87a5ed]98        string arg;
99        string bprefix;
[51b7345]100
[b87a5ed]101        const char *cpp_in = NULL;
102        const char *cpp_out = NULL;
[51b7345]103
[b87a5ed]104        bool CFA_flag = false;
105        bool cpp_flag = false;
106        const char *o_name = NULL;
[51b7345]107
[b87a5ed]108        const char *args[argc + 100];                                           // leave space for 100 additional cpp command line values
109        int nargs = 1;                                                                          // number of arguments in args list; 0 => command name
110        const char *uargs[20];                                                          // leave space for 20 additional cfa-cpp command line values
111        int nuargs = 1;                                                                         // 0 => command name
[51b7345]112
[b87a5ed]113        signal( SIGINT,  sigTermHandler );
114        signal( SIGTERM, sigTermHandler );
[bdd516a]115
[b87a5ed]116        // process all the arguments
[51b7345]117
[b87a5ed]118        checkEnv( args, nargs );                                                        // arguments passed via environment variables
[51b7345]119
[b87a5ed]120        for ( i = 1; i < argc; i += 1 ) {
[51b7345]121#ifdef __DEBUG_H__
[b87a5ed]122                cerr << "argv[" << i << "]:\"" << argv[i] << "\"" << endl;
[51b7345]123#endif // __DEBUG_H__
[b87a5ed]124                arg = argv[i];
[51b7345]125#ifdef __DEBUG_H__
[b87a5ed]126                cerr << "arg:\"" << arg << "\"" << endl;
[51b7345]127#endif // __DEBUG_H__
[b87a5ed]128                if ( prefix( arg, "-" ) ) {
129                        // strip g++ flags that are inappropriate or cause duplicates in subsequent passes
130
131                        if ( arg == "-quiet" ) {
132                        } else if ( arg == "-imultilib" || arg == "-imultiarch" ) {
133                                i += 1;                                                                 // and the argument
134                        } else if ( prefix( arg, "-A" ) ) {
135                        } else if ( prefix( arg, "-D__GNU" ) ) {
136                                //********
137                                // GCC 5.6.0 SEPARATED THE -D FROM THE ARGUMENT!
138                                //********
139                        } else if ( arg == "-D" && prefix( argv[i + 1], "__GNU" ) ) {
140                                i += 1;                                                                 // and the argument
141
142                                // strip flags controlling cpp step
143
144                        } else if ( arg == "-D__CPP__" ) {
145                                cpp_flag = true;
146                        } else if ( arg == "-D" && string( argv[i + 1] ) == "__CPP__" ) {
147                                i += 1;                                                                 // and the argument
148                                cpp_flag = true;
149                        } else if ( arg == "-D__CFA__" ) {
150                                CFA_flag = true;
151                        } else if ( arg == "-D" && string( argv[i + 1] ) == "__CFA__" ) {
152                                i += 1;                                                                 // and the argument
153                                CFA_flag = true;
154                        } else if ( prefix( arg, D__CFA_FLAGPREFIX__ ) ) {
155                                uargs[nuargs] = ( *new string( arg.substr( D__CFA_FLAGPREFIX__.size() ) ) ).c_str();
156                                nuargs += 1;
157                        } else if ( arg == "-D" && prefix( argv[i + 1], D__CFA_FLAGPREFIX__.substr(2) ) ) {
158                                uargs[nuargs] = ( *new string( string( argv[i + 1] ).substr( D__CFA_FLAGPREFIX__.size() - 2 ) ) ).c_str();
159                                nuargs += 1;
160                                i += 1;                                                                 // and the argument
161                        } else if ( prefix( arg, D__GCC_BPREFIX__ ) ) {
162                                bprefix = arg.substr( D__GCC_BPREFIX__.size() );
163                        } else if ( arg == "-D" && prefix( argv[i + 1], D__GCC_BPREFIX__.substr(2) ) ) {
164                                bprefix = string( argv[i + 1] ).substr( D__GCC_BPREFIX__.size() - 2 );
165                                i += 1;                                                                 // and the argument
166
167                                // all other flags
168
169                        } else if ( arg == "-o" ) {
170                                i += 1;
171                                o_name = argv[i];
172                        } else {
173                                args[nargs] = argv[i];                                  // pass the flag along
174                                nargs += 1;
175                                // CPP flags with an argument
176                                if ( arg == "-D" || arg == "-I" || arg == "-MF" || arg == "-MT" || arg == "-MQ" ||
177                                         arg == "-include" || arg == "-imacros" || arg == "-idirafter" || arg == "-iprefix" ||
178                                         arg == "-iwithprefix" || arg == "-iwithprefixbefore" || arg == "-isystem" || arg == "-isysroot" ) {
179                                        i += 1;
180                                        args[nargs] = argv[i];                          // pass the argument along
181                                        nargs += 1;
[51b7345]182#ifdef __DEBUG_H__
[b87a5ed]183                                        cerr << "argv[" << i << "]:\"" << argv[i] << "\"" << endl;
[51b7345]184#endif // __DEBUG_H__
[b87a5ed]185                                } else if ( arg == "-MD" || arg == "-MMD" ) {
186                                        args[nargs] = "-MF";                            // insert before file
187                                        nargs += 1;
188                                        i += 1;
189                                        args[nargs] = argv[i];                          // pass the argument along
190                                        nargs += 1;
[51b7345]191#ifdef __DEBUG_H__
[b87a5ed]192                                        cerr << "argv[" << i << "]:\"" << argv[i] << "\"" << endl;
[51b7345]193#endif // __DEBUG_H__
[b87a5ed]194                                } // if
195                        } // if
196                } else {                                                                                // obtain input and possibly output files
197                        if ( cpp_in == NULL ) {
198                                cpp_in = argv[i];
199#ifdef __DEBUG_H__
200                                cerr << "cpp_in:\"" << cpp_in << "\"" << endl;
201#endif // __DEBUG_H__
202                        } else if ( cpp_out == NULL ) {
203                                cpp_out = argv[i];
[51b7345]204#ifdef __DEBUG_H__
[b87a5ed]205                                cerr << "cpp_out:\"" << cpp_out << "\""<< endl;
[51b7345]206#endif // __DEBUG_H__
[b87a5ed]207                        } else {
208                                cerr << "Usage: " << argv[0] << " input-file [output-file] [options]" << endl;
209                                exit( EXIT_FAILURE );
210                        } // if
211                } // if
212        } // for
213
[51b7345]214#ifdef __DEBUG_H__
[b87a5ed]215        cerr << "args:";
216        for ( i = 1; i < nargs; i += 1 ) {
217                cerr << " " << args[i];
218        } // for
219        if ( cpp_in != NULL ) cerr << " " << cpp_in;
220        if ( cpp_out != NULL ) cerr << " " << cpp_out;
221        cerr << endl;
[51b7345]222#endif // __DEBUG_H__
[b87a5ed]223
224        if ( cpp_in == NULL ) {
[51b7345]225                cerr << "Usage: " << argv[0] << " input-file [output-file] [options]" << endl;
226                exit( EXIT_FAILURE );
227        } // if
[b87a5ed]228
229        if ( cpp_flag ) {
230                // The -E flag is specified on the cfa command so only run the preprocessor and output is written to standard
231                // output or -o. The call to cfa has a -E so it does not have to be added to the argument list.
232
233                args[0] = compiler_name.c_str();
234                args[nargs] = cpp_in;
235                nargs += 1;
236                if ( o_name != NULL ) {                                                 // location for output
237                        args[nargs] = "-o";
238                        nargs += 1;
239                        args[nargs] = o_name;
240                        nargs += 1;
241                } // if
242                args[nargs] = NULL;                                                             // terminate argument list
[51b7345]243
244#ifdef __DEBUG_H__
[b87a5ed]245                cerr << "nargs: " << nargs << endl;
246                for ( i = 0; args[i] != NULL; i += 1 ) {
247                        cerr << args[i] << " ";
248                } // for
249                cerr << endl;
[51b7345]250#endif // __DEBUG_H__
251
[b87a5ed]252                execvp( args[0], (char *const *)args );                 // should not return
253                perror( "CFA Translator error: cpp level, execvp" );
254                exit( EXIT_FAILURE );
255        } // if
[51b7345]256
[b87a5ed]257        // Create a temporary file to store output of the C preprocessor.
[51b7345]258
[b87a5ed]259        tmpfilefd = mkstemp( tmpname );
260        if ( tmpfilefd == -1 ) {
261                perror( "CFA Translator error: cpp level, mkstemp" );
262                exit( EXIT_FAILURE );
[51b7345]263        } // if
264
265#ifdef __DEBUG_H__
[b87a5ed]266        cerr << "tmpname:" << tmpname << " tmpfilefd:" << tmpfilefd << endl;
[51b7345]267#endif // __DEBUG_H__
268
[b87a5ed]269        // Run the C preprocessor and save the output in tmpfile.
[51b7345]270
[b87a5ed]271        if ( fork() == 0 ) {                                                             // child process ?
272                // -o xxx.ii cannot be used to write the output file from cpp because no output file is created if cpp detects
273                // an error (e.g., cannot find include file). Whereas, output is always generated, even when there is an error,
274                // when cpp writes to stdout. Hence, stdout is redirected into the temporary file.
275                if ( freopen( tmpname, "w", stdout ) == NULL ) { // redirect stdout to tmpname
276                        perror( "CFA Translator error: cpp level, freopen" );
277                        exit( EXIT_FAILURE );
278                } // if
[51b7345]279
[b87a5ed]280                args[0] = compiler_name.c_str();
281                args[nargs] = cpp_in;                                                   // input to cpp
282                nargs += 1;
283                args[nargs] = NULL;                                                             // terminate argument list
[51b7345]284
285#ifdef __DEBUG_H__
[b87a5ed]286                cerr << "cpp nargs: " << nargs << endl;
287                for ( i = 0; args[i] != NULL; i += 1 ) {
288                        cerr << args[i] << " ";
289                } // for
290                cerr << endl;
[51b7345]291#endif // __DEBUG_H__
292
[b87a5ed]293                execvp( args[0], (char *const *)args );                 // should not return
294                perror( "CFA Translator error: cpp level, execvp" );
295                exit( EXIT_FAILURE );
[51b7345]296        } // if
297
[b87a5ed]298        wait( &code );                                                                          // wait for child to finish
[51b7345]299
300#ifdef __DEBUG_H__
[b87a5ed]301        cerr << "return code from cpp:" << WEXITSTATUS(code) << endl;
[51b7345]302#endif // __DEBUG_H__
303
[b87a5ed]304        if ( WIFSIGNALED(code) != 0 ) {                                         // child failed ?
305                rmtmpfile();                                                                    // remove tmpname
306                cerr << "CFA Translator error: cpp failed with signal " << WTERMSIG(code) << endl;
307                exit( EXIT_FAILURE );
308        } // if
[51b7345]309
[b87a5ed]310        if ( WEXITSTATUS(code) != 0 ) {                                         // child error ?
311                rmtmpfile();                                                                    // remove tmpname
312                exit( WEXITSTATUS( code ) );                                    // do not continue
313        } // if
[51b7345]314
[b87a5ed]315        // If -CFA flag specified, run the cfa-cpp preprocessor on the temporary file, and output is written to standard
316        // output.  Otherwise, run the cfa-cpp preprocessor on the temporary file and save the result into the output file.
[51b7345]317
[b87a5ed]318        if ( fork() == 0 ) {                                                            // child runs CFA
319                uargs[0] = ( *new string( bprefix + "/cfa-cpp" ) ).c_str();
320
321                uargs[nuargs] = "-p";
322                nuargs += 1;
323
324                uargs[nuargs] = tmpname;
325                nuargs += 1;
326                if ( o_name != NULL ) {
327                        uargs[nuargs] = o_name;
328                        nuargs += 1;
329                } else if ( ! CFA_flag ) {                                              // run cfa-cpp ?
330                        uargs[nuargs] = cpp_out;
331                        nuargs += 1;
332                } // if
333                uargs[nuargs] = NULL;                                                   // terminate argument list
[51b7345]334
335#ifdef __DEBUG_H__
[b87a5ed]336                cerr << "cfa-cpp nuargs: " << o_name << " " << CFA_flag << " " << nuargs << endl;
337                for ( i = 0; uargs[i] != NULL; i += 1 ) {
338                        cerr << uargs[i] << " ";
339                } // for
340                cerr << endl;
[51b7345]341#endif // __DEBUG_H__
342
[b87a5ed]343                execvp( uargs[0], (char * const *)uargs );              // should not return
344                perror( "CFA Translator error: cpp level, execvp" );
345                exit( EXIT_FAILURE );
346        } // if
[51b7345]347
[b87a5ed]348        wait( &code );                                                                          // wait for child to finish
[51b7345]349
350#ifdef __DEBUG_H__
[b87a5ed]351        cerr << "return code from cfa-cpp:" << WEXITSTATUS(code) << endl;
[51b7345]352#endif // __DEBUG_H__
353
[b87a5ed]354        // Must unlink here because file must exist across execvp.
355        rmtmpfile();                                                                            // remove tmpname
[51b7345]356
[b87a5ed]357        if ( WIFSIGNALED(code) ) {                                                      // child failed ?
358                cerr << "CFA Translator error: cfa-cpp failed with signal " << WTERMSIG(code) << endl;
359                exit( EXIT_FAILURE );
360        } // if
[51b7345]361
[b87a5ed]362        exit( WEXITSTATUS(code) );
[51b7345]363} // Stage1
364
365
366void Stage2( const int argc, const char * const * argv ) {
[b87a5ed]367        int i;
[51b7345]368
[b87a5ed]369        string arg;
[51b7345]370
[b87a5ed]371        const char *cpp_in = NULL;
[51b7345]372
[b87a5ed]373        const char *args[argc + 100];                                           // leave space for 100 additional cfa command line values
374        int nargs = 1;                                                                          // number of arguments in args list; 0 => command name
[51b7345]375
[b87a5ed]376        // process all the arguments
[51b7345]377
[b87a5ed]378        checkEnv( args, nargs );                                                        // arguments passed via environment variables
[51b7345]379
[b87a5ed]380        for ( i = 1; i < argc; i += 1 ) {
[51b7345]381#ifdef __DEBUG_H__
[b87a5ed]382                cerr << "argv[" << i << "]:\"" << argv[i] << "\"" << endl;
[51b7345]383#endif // __DEBUG_H__
[b87a5ed]384                arg = argv[i];
[51b7345]385#ifdef __DEBUG_H__
[b87a5ed]386                cerr << "arg:\"" << arg << "\"" << endl;
[51b7345]387#endif // __DEBUG_H__
[b87a5ed]388                if ( prefix( arg, "-" ) ) {
389                        // strip inappropriate flags
[51b7345]390
[b87a5ed]391                        if ( arg == "-quiet" || arg == "-version" || arg == "-fpreprocessed" ||
392                                 // Currently CFA does not suppose precompiled .h files.
393                                 prefix( arg, "--output-pch" ) ) {
[51b7345]394
[b87a5ed]395                                // strip inappropriate flags with an argument
[51b7345]396
[b87a5ed]397                        } else if ( arg == "-auxbase" || arg == "-auxbase-strip" || arg == "-dumpbase" ) {
398                                i += 1;
[51b7345]399#ifdef __DEBUG_H__
[b87a5ed]400                                cerr << "arg:\"" << argv[i] << "\"" << endl;
[51b7345]401#endif // __DEBUG_H__
402
[b87a5ed]403                                // all other flags
[51b7345]404
[b87a5ed]405                        } else {
406                                args[nargs] = argv[i];                                  // pass the flag along
407                                nargs += 1;
408                                if ( arg == "-o" ) {
409                                        i += 1;
410                                        args[nargs] = argv[i];                          // pass the argument along
411                                        nargs += 1;
[51b7345]412#ifdef __DEBUG_H__
[b87a5ed]413                                        cerr << "arg:\"" << argv[i] << "\"" << endl;
[51b7345]414#endif // __DEBUG_H__
[b87a5ed]415                                } // if
416                        } // if
417                } else {                                                                                // obtain input and possibly output files
418                        if ( cpp_in == NULL ) {
419                                cpp_in = argv[i];
[51b7345]420#ifdef __DEBUG_H__
[b87a5ed]421                                cerr << "cpp_in:\"" << cpp_in << "\"" << endl;
[51b7345]422#endif // __DEBUG_H__
[b87a5ed]423                        } else {
424                                cerr << "Usage: " << argv[0] << " input-file [output-file] [options]" << endl;
425                                exit( EXIT_FAILURE );
426                        } // if
427                } // if
428        } // for
[51b7345]429
430#ifdef __DEBUG_H__
[b87a5ed]431        cerr << "args:";
432        for ( i = 1; i < nargs; i += 1 ) {
433                cerr << " " << args[i];
434        } // for
435        cerr << endl;
436        if ( cpp_in != NULL ) cerr << " " << cpp_in;
[51b7345]437#endif // __DEBUG_H__
438
[b87a5ed]439        args[0] = compiler_name.c_str();
440        args[nargs] = "-S";                                                                     // only compile and put assembler output in specified file
441        nargs += 1;
442        args[nargs] = cpp_in;
443        nargs += 1;
444        args[nargs] = NULL;                                                                     // terminate argument list
[51b7345]445
446#ifdef __DEBUG_H__
[b87a5ed]447        cerr << "stage2 nargs: " << nargs << endl;
448        for ( i = 0; args[i] != NULL; i += 1 ) {
449                cerr << args[i] << " ";
450        } // for
451        cerr << endl;
[51b7345]452#endif // __DEBUG_H__
453
[b87a5ed]454        execvp( args[0], (char * const *)args );                        // should not return
455        perror( "CFA Translator error: cpp level, execvp" );
456        exit( EXIT_FAILURE );                                                           // tell gcc not to go any further
[51b7345]457} // Stage2
458
459
460int main( const int argc, const char * const argv[], const char * const env[] ) {
461#ifdef __DEBUG_H__
[b87a5ed]462        for ( int i = 0; env[i] != NULL; i += 1 ) {
463                cerr << env[i] << endl;
464        } // for
[51b7345]465#endif // __DEBUG_H__
466
[b87a5ed]467        string arg = argv[1];
[51b7345]468
[b87a5ed]469        // Currently, stage 1 starts with flag -E and stage 2 with flag -fpreprocessed.
[51b7345]470
[b87a5ed]471        if ( arg == "-E" ) {
[51b7345]472#ifdef __DEBUG_H__
[b87a5ed]473                cerr << "Stage1" << endl;
[51b7345]474#endif // __DEBUG_H__
[b87a5ed]475                Stage1( argc, argv );
476        } else if ( arg == "-fpreprocessed" ) {
[51b7345]477#ifdef __DEBUG_H__
[b87a5ed]478                cerr << "Stage2" << endl;
[51b7345]479#endif // __DEBUG_H__
[b87a5ed]480                Stage2( argc, argv );
481        } else {
482                cerr << "Usage: " << argv[0] << " input-file [output-file] [options]" << endl;
483                exit( EXIT_FAILURE );
484        } // if
[51b7345]485} // main
486
487// Local Variables: //
[b87a5ed]488// tab-width: 4 //
489// mode: c++ //
[51b7345]490// compile-command: "make install" //
491// End: //
Note: See TracBrowser for help on using the repository browser.