1 /*
   2  * CDDL HEADER START
   3  *
   4  * The contents of this file are subject to the terms of the
   5  * Common Development and Distribution License (the "License").
   6  * You may not use this file except in compliance with the License.
   7  *
   8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
   9  * or http://www.opensolaris.org/os/licensing.
  10  * See the License for the specific language governing permissions
  11  * and limitations under the License.
  12  *
  13  * When distributing Covered Code, include this CDDL HEADER in each
  14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
  15  * If applicable, add the following below this CDDL HEADER, with the
  16  * fields enclosed by brackets "[]" replaced with your own identifying
  17  * information: Portions Copyright [yyyy] [name of copyright owner]
  18  *
  19  * CDDL HEADER END
  20  */
  21 
  22 /*
  23  * Copyright 2011, Richard Lowe.
  24  */
  25 /*
  26  * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
  27  * Use is subject to license terms.
  28  */
  29 
  30 /*
  31  * Wrapper for the GNU C compiler to make it accept the Sun C compiler
  32  * arguments where possible.
  33  *
  34  * Since the translation is inexact, this is something of a work-in-progress.
  35  *
  36  */
  37 
  38 /* If you modify this file, you must increment CW_VERSION */
  39 #define CW_VERSION      "1.30"
  40 
  41 /*
  42  * -#           Verbose mode
  43  * -###         Show compiler commands built by driver, no compilation
  44  * -A<name[(tokens)]>     Preprocessor predicate assertion
  45  * -B<[static|dynamic]>   Specify dynamic or static binding
  46  * -C           Prevent preprocessor from removing comments
  47  * -c           Compile only - produce .o files, suppress linking
  48  * -cg92        Alias for -xtarget=ss1000
  49  * -D<name[=token]>       Associate name with token as if by #define
  50  * -d[y|n]      dynamic [-dy] or static [-dn] option to linker
  51  * -E           Compile source through preprocessor only, output to stdout
  52  * -erroff=<t>    Suppress warnings specified by tags t(%none, %all, <tag list>)
  53  * -errtags=<a>   Display messages with tags a(no, yes)
  54  * -errwarn=<t>   Treats warnings specified by tags t(%none, %all, <tag list>)
  55  *              as errors
  56  * -fast        Optimize using a selection of options
  57  * -fd          Report old-style function definitions and declarations
  58  * -features=zla        Allow zero-length arrays
  59  * -flags       Show this summary of compiler options
  60  * -fnonstd     Initialize floating-point hardware to non-standard preferences
  61  * -fns[=<yes|no>] Select non-standard floating point mode
  62  * -fprecision=<p> Set FP rounding precision mode p(single, double, extended)
  63  * -fround=<r>    Select the IEEE rounding mode in effect at startup
  64  * -fsimple[=<n>] Select floating-point optimization preferences <n>
  65  * -fsingle     Use single-precision arithmetic (-Xt and -Xs modes only)
  66  * -ftrap=<t>     Select floating-point trapping mode in effect at startup
  67  * -fstore      force floating pt. values to target precision on assignment
  68  * -G           Build a dynamic shared library
  69  * -g           Compile for debugging
  70  * -H           Print path name of each file included during compilation
  71  * -h <name>      Assign <name> to generated dynamic shared library
  72  * -I<dir>        Add <dir> to preprocessor #include file search path
  73  * -i           Passed to linker to ignore any LD_LIBRARY_PATH setting
  74  * -keeptmp     Keep temporary files created during compilation
  75  * -KPIC        Compile position independent code with 32-bit addresses
  76  * -Kpic        Compile position independent code
  77  * -L<dir>        Pass to linker to add <dir> to the library search path
  78  * -l<name>       Link with library lib<name>.a or lib<name>.so
  79  * -mc          Remove duplicate strings from .comment section of output files
  80  * -mr          Remove all strings from .comment section of output files
  81  * -mr,"string" Remove all strings and append "string" to .comment section
  82  * -mt          Specify options needed when compiling multi-threaded code
  83  * -native      Find available processor, generate code accordingly
  84  * -nofstore    Do not force floating pt. values to target precision
  85  *              on assignment
  86  * -nolib       Same as -xnolib
  87  * -noqueue     Disable queuing of compiler license requests
  88  * -norunpath   Do not build in a runtime path for shared libraries
  89  * -O           Use default optimization level (-xO2 or -xO3. Check man page.)
  90  * -o <outputfile> Set name of output file to <outputfile>
  91  * -P           Compile source through preprocessor only, output to .i  file
  92  * -PIC         Alias for -KPIC or -xcode=pic32
  93  * -p           Compile for profiling with prof
  94  * -pic         Alias for -Kpic or -xcode=pic13
  95  * -Q[y|n]      Emit/don't emit identification info to output file
  96  * -qp          Compile for profiling with prof
  97  * -R<dir[:dir]> Build runtime search path list into executable
  98  * -S           Compile and only generate assembly code (.s)
  99  * -s           Strip symbol table from the executable file
 100  * -t           Turn off duplicate symbol warnings when linking
 101  * -U<name>       Delete initial definition of preprocessor symbol <name>
 102  * -V           Report version number of each compilation phase
 103  * -v           Do stricter semantic checking
 104  * -W<c>,<arg>      Pass <arg> to specified component <c> (a,l,m,p,0,2,h,i,u)
 105  * -w           Suppress compiler warning messages
 106  * -Xa          Compile assuming ANSI C conformance, allow K & R extensions
 107  *              (default mode)
 108  * -Xc          Compile assuming strict ANSI C conformance
 109  * -Xs          Compile assuming (pre-ANSI) K & R C style code
 110  * -Xt          Compile assuming K & R conformance, allow ANSI C
 111  * -x386        Generate code for the 80386 processor
 112  * -x486        Generate code for the 80486 processor
 113  * -xarch=<a>     Specify target architecture instruction set
 114  * -xbuiltin[=<b>] When profitable inline, or substitute intrinisic functions
 115  *              for system functions, b={%all,%none}
 116  * -xCC         Accept C++ style comments
 117  * -xchar_byte_order=<o> Specify multi-char byte order <o> (default, high, low)
 118  * -xchip=<c>     Specify the target processor for use by the optimizer
 119  * -xcode=<c>     Generate different code for forming addresses
 120  * -xcrossfile[=<n>] Enable optimization and inlining across source files,
 121  *              n={0|1}
 122  * -xe          Perform only syntax/semantic checking, no code generation
 123  * -xF          Compile for later mapfile reordering or unused section
 124  *              elimination
 125  * -xhelp=<f>     Display on-line help information f(flags, readme, errors)
 126  * -xildoff     Cancel -xildon
 127  * -xildon      Enable use of the incremental linker, ild
 128  * -xinline=[<a>,...,<a>]  Attempt inlining of specified user routines,
 129  *              <a>={%auto,func,no%func}
 130  * -xlibmieee   Force IEEE 754 return values for math routines in
 131  *              exceptional cases
 132  * -xlibmil     Inline selected libm math routines for optimization
 133  * -xlic_lib=sunperf    Link in the Sun supplied performance libraries
 134  * -xlicinfo    Show license server information
 135  * -xM          Generate makefile dependencies
 136  * -xM1         Generate makefile dependencies, but exclude /usr/include
 137  * -xmaxopt=[off,1,2,3,4,5] maximum optimization level allowed on #pragma opt
 138  * -xnolib      Do not link with default system libraries
 139  * -xnolibmil   Cancel -xlibmil on command line
 140  * -xO<n> Generate optimized code (n={1|2|3|4|5})
 141  * -xP          Print prototypes for function definitions
 142  * -xpentium    Generate code for the pentium processor
 143  * -xpg         Compile for profiling with gprof
 144  * -xprofile=<p> Collect data for a profile or use a profile to optimize
 145  *              <p>={{collect,use}[:<path>],tcov}
 146  * -xregs=<r>     Control register allocation
 147  * -xs          Allow debugging without object (.o) files
 148  * -xsb         Compile for use with the WorkShop source browser
 149  * -xsbfast     Generate only WorkShop source browser info, no compilation
 150  * -xsfpconst   Represent unsuffixed floating point constants as single
 151  *              precision
 152  * -xspace      Do not do optimizations that increase code size
 153  * -xstrconst   Place string literals into read-only data segment
 154  * -xtarget=<t>   Specify target system for optimization
 155  * -xtemp=<dir>   Set directory for temporary files to <dir>
 156  * -xtime       Report the execution time for each compilation phase
 157  * -xtransition Emit warnings for differences between K&R C and ANSI C
 158  * -xtrigraphs[=<yes|no>] Enable|disable trigraph translation
 159  * -xunroll=n   Enable unrolling loops n times where possible
 160  * -Y<c>,<dir>      Specify <dir> for location of component <c> (a,l,m,p,0,h,i,u)
 161  * -YA,<dir>      Change default directory searched for components
 162  * -YI,<dir>      Change default directory searched for include files
 163  * -YP,<dir>      Change default directory for finding libraries files
 164  * -YS,<dir>      Change default directory for startup object files
 165  */
 166 
 167 /*
 168  * Translation table:
 169  */
 170 /*
 171  * -#                           -v
 172  * -###                         error
 173  * -A<name[(tokens)]>             pass-thru
 174  * -B<[static|dynamic]>           pass-thru (syntax error for anything else)
 175  * -C                           pass-thru
 176  * -c                           pass-thru
 177  * -cg92                        -m32 -mcpu=v8 -mtune=supersparc (SPARC only)
 178  * -D<name[=token]>               pass-thru
 179  * -dy or -dn                   -Wl,-dy or -Wl,-dn
 180  * -E                           pass-thru
 181  * -erroff=E_EMPTY_TRANSLATION_UNIT ignore
 182  * -errtags=%all                -Wall
 183  * -errwarn=%all                -Werror else -Wno-error
 184  * -fast                        error
 185  * -fd                          error
 186  * -features=zla                ignore
 187  * -flags                       --help
 188  * -fnonstd                     error
 189  * -fns[=<yes|no>]                error
 190  * -fprecision=<p>                error
 191  * -fround=<r>                    error
 192  * -fsimple[=<n>]         error
 193  * -fsingle[=<n>]         error
 194  * -ftrap=<t>                     error
 195  * -fstore                      error
 196  * -G                           pass-thru
 197  * -g                           pass-thru
 198  * -H                           pass-thru
 199  * -h <name>                      pass-thru
 200  * -I<dir>                        pass-thru
 201  * -i                           pass-thru
 202  * -keeptmp                     -save-temps
 203  * -KPIC                        -fPIC
 204  * -Kpic                        -fpic
 205  * -L<dir>                        pass-thru
 206  * -l<name>                       pass-thru
 207  * -mc                          error
 208  * -mr                          error
 209  * -mr,"string"                 error
 210  * -mt                          -D_REENTRANT
 211  * -native                      error
 212  * -nofstore                    error
 213  * -nolib                       -nodefaultlibs
 214  * -noqueue                     ignore
 215  * -norunpath                   ignore
 216  * -O                           -O1 (Check the man page to be certain)
 217  * -o <outputfile>                pass-thru
 218  * -P                           -E -o filename.i (or error)
 219  * -PIC                         -fPIC (C++ only)
 220  * -p                           pass-thru
 221  * -pic                         -fpic (C++ only)
 222  * -Q[y|n]                      error
 223  * -qp                          -p
 224  * -R<dir[:dir]>          pass-thru
 225  * -S                           pass-thru
 226  * -s                           -Wl,-s
 227  * -t                           -Wl,-t
 228  * -U<name>                       pass-thru
 229  * -V                           --version
 230  * -v                           -Wall
 231  * -Wa,<arg>                      pass-thru
 232  * -Wp,<arg>                      pass-thru except -xc99=<a>
 233  * -Wl,<arg>                      pass-thru
 234  * -W{m,0,2,h,i,u>           error/ignore
 235  * -Wu,-xmodel=kernel           -ffreestanding -mcmodel=kernel -mno-red-zone
 236  * -xmodel=kernel               -ffreestanding -mcmodel=kernel -mno-red-zone
 237  * -Wu,-save_args               -msave-args
 238  * -w                           pass-thru
 239  * -Xa                          -std=iso9899:199409 or -ansi
 240  * -Xc                          -ansi -pedantic
 241  * -Xt                          error
 242  * -Xs                          -traditional -std=c89
 243  * -x386                        -march=i386 (x86 only)
 244  * -x486                        -march=i486 (x86 only)
 245  * -xarch=<a>                     table
 246  * -xbuiltin[=<b>]                -fbuiltin (-fno-builtin otherwise)
 247  * -xCC                         ignore
 248  * -xchar_byte_order=<o>  error
 249  * -xchip=<c>                     table
 250  * -xcode=<c>                     table
 251  * -xdebugformat=<format> ignore (always use dwarf-2 for gcc)
 252  * -xcrossfile[=<n>]              ignore
 253  * -xe                          error
 254  * -xF                          error
 255  * -xhelp=<f>                     error
 256  * -xildoff                     ignore
 257  * -xildon                      ignore
 258  * -xinline                     ignore
 259  * -xlibmieee                   error
 260  * -xlibmil                     error
 261  * -xlic_lib=sunperf            error
 262  * -xM                          -M
 263  * -xM1                         -MM
 264  * -xmaxopt=[...]               error
 265  * -xnolib                      -nodefaultlibs
 266  * -xnolibmil                   error
 267  * -xO<n>                 -O<n>
 268  * -xP                          error
 269  * -xpentium                    -march=pentium (x86 only)
 270  * -xpg                         error
 271  * -xprofile=<p>          error
 272  * -xregs=<r>                     table
 273  * -xs                          error
 274  * -xsb                         error
 275  * -xsbfast                     error
 276  * -xsfpconst                   error
 277  * -xspace                      ignore (-not -Os)
 278  * -xstrconst                   ignore
 279  * -xtarget=<t>                   table
 280  * -xtemp=<dir>                   error
 281  * -xtime                       error
 282  * -xtransition                 -Wtransition
 283  * -xtrigraphs=<yes|no>           -trigraphs -notrigraphs
 284  * -xunroll=n                   error
 285  * -W0,-xdbggen=no%usedonly     -fno-eliminate-unused-debug-symbols
 286  *                              -fno-eliminate-unused-debug-types
 287  * -Y<c>,<dir>                      error
 288  * -YA,<dir>                      error
 289  * -YI,<dir>                      -nostdinc -I<dir>
 290  * -YP,<dir>                      error
 291  * -YS,<dir>                      error
 292  */
 293 
 294 #include <stdio.h>
 295 #include <sys/types.h>
 296 #include <unistd.h>
 297 #include <string.h>
 298 #include <stdlib.h>
 299 #include <ctype.h>
 300 #include <fcntl.h>
 301 #include <errno.h>
 302 #include <stdarg.h>
 303 #include <sys/utsname.h>
 304 #include <sys/param.h>
 305 #include <sys/isa_defs.h>
 306 #include <sys/wait.h>
 307 #include <sys/stat.h>
 308 
 309 #define CW_F_CXX        0x01
 310 #define CW_F_SHADOW     0x02
 311 #define CW_F_EXEC       0x04
 312 #define CW_F_ECHO       0x08
 313 #define CW_F_XLATE      0x10
 314 #define CW_F_PROG       0x20
 315 
 316 typedef enum cw_compiler {
 317         CW_C_CC = 0,
 318         CW_C_GCC
 319 } cw_compiler_t;
 320 
 321 static const char *cmds[] = {
 322         "cc", "CC",
 323         "gcc", "g++"
 324 };
 325 
 326 static char default_dir[2][MAXPATHLEN] = {
 327         DEFAULT_CC_DIR,
 328         DEFAULT_GCC_DIR,
 329 };
 330 
 331 #define CC(ctx) \
 332         (((ctx)->i_flags & CW_F_SHADOW) ? \
 333             ((ctx)->i_compiler == CW_C_CC ? CW_C_GCC : CW_C_CC) : \
 334             (ctx)->i_compiler)
 335 
 336 #define CIDX(compiler, flags)   \
 337         ((int)(compiler) << 1) + ((flags) & CW_F_CXX ? 1 : 0)
 338 
 339 typedef enum cw_op {
 340         CW_O_NONE = 0,
 341         CW_O_PREPROCESS,
 342         CW_O_COMPILE,
 343         CW_O_LINK
 344 } cw_op_t;
 345 
 346 struct aelist {
 347         struct ae {
 348                 struct ae *ae_next;
 349                 char *ae_arg;
 350         } *ael_head, *ael_tail;
 351         int ael_argc;
 352 };
 353 
 354 typedef struct cw_ictx {
 355         cw_compiler_t   i_compiler;
 356         struct aelist   *i_ae;
 357         uint32_t        i_flags;
 358         int             i_oldargc;
 359         char            **i_oldargv;
 360         pid_t           i_pid;
 361         char            i_discard[MAXPATHLEN];
 362         char            *i_stderr;
 363 } cw_ictx_t;
 364 
 365 /*
 366  * Status values to indicate which Studio compiler and associated
 367  * flags are being used.
 368  */
 369 #define M32             0x01    /* -m32 - only on Studio 12 */
 370 #define M64             0x02    /* -m64 - only on Studio 12 */
 371 #define SS11            0x100   /* Studio 11 */
 372 #define SS12            0x200   /* Studio 12 */
 373 
 374 #define TRANS_ENTRY     5
 375 /*
 376  * Translation table definition for the -xarch= flag. The "x_arg"
 377  * value is translated into the appropriate gcc flags according
 378  * to the values in x_trans[n]. The x_flags indicates what compiler
 379  * is being used and what flags have been set via the use of
 380  * "x_arg".
 381  */
 382 typedef struct xarch_table {
 383         char    *x_arg;
 384         int     x_flags;
 385         char    *x_trans[TRANS_ENTRY];
 386 } xarch_table_t;
 387 
 388 /*
 389  * The translation table for the -xarch= flag used in the Studio compilers.
 390  */
 391 static const xarch_table_t xtbl[] = {
 392 #if defined(__x86)
 393         { "generic",    SS11 },
 394         { "generic64",  (SS11|M64), { "-m64", "-mtune=opteron" } },
 395         { "amd64",      (SS11|M64), { "-m64", "-mtune=opteron" } },
 396         { "386",        SS11,   { "-march=i386" } },
 397         { "pentium_pro", SS11,  { "-march=pentiumpro" } },
 398         { "sse",        SS11, { "-msse", "-mfpmath=sse" } },
 399         { "sse2",       SS11, { "-msse2", "-mfpmath=sse" } },
 400 #elif defined(__sparc)
 401         { "generic",    (SS11|M32), { "-m32", "-mcpu=v8" } },
 402         { "generic64",  (SS11|M64), { "-m64", "-mcpu=v9" } },
 403         { "v8",         (SS11|M32), { "-m32", "-mcpu=v8", "-mno-v8plus" } },
 404         { "v8plus",     (SS11|M32), { "-m32", "-mcpu=v9", "-mv8plus" } },
 405         { "v8plusa",    (SS11|M32), { "-m32", "-mcpu=ultrasparc", "-mv8plus",
 406                         "-mvis" } },
 407         { "v8plusb",    (SS11|M32), { "-m32", "-mcpu=ultrasparc3", "-mv8plus",
 408                         "-mvis" } },
 409         { "v9",         (SS11|M64), { "-m64", "-mcpu=v9" } },
 410         { "v9a",        (SS11|M64), { "-m64", "-mcpu=ultrasparc", "-mvis" } },
 411         { "v9b",        (SS11|M64), { "-m64", "-mcpu=ultrasparc3", "-mvis" } },
 412         { "sparc",      SS12, { "-mcpu=v9", "-mv8plus" } },
 413         { "sparcvis",   SS12, { "-mcpu=ultrasparc", "-mvis" } },
 414         { "sparcvis2",  SS12, { "-mcpu=ultrasparc3", "-mvis" } }
 415 #endif
 416 };
 417 
 418 static int xtbl_size = sizeof (xtbl) / sizeof (xarch_table_t);
 419 
 420 static const char *progname;
 421 
 422 static const char *xchip_tbl[] = {
 423 #if defined(__x86)
 424         "386",          "-mtune=i386", NULL,
 425         "486",          "-mtune=i486", NULL,
 426         "pentium",      "-mtune=pentium", NULL,
 427         "pentium_pro",  "-mtune=pentiumpro", NULL,
 428 #elif defined(__sparc)
 429         "super",        "-mtune=supersparc", NULL,
 430         "ultra",        "-mtune=ultrasparc", NULL,
 431         "ultra3",       "-mtune=ultrasparc3", NULL,
 432 #endif
 433         NULL,           NULL
 434 };
 435 
 436 static const char *xcode_tbl[] = {
 437 #if defined(__sparc)
 438         "abs32",        "-fno-pic", "-mcmodel=medlow", NULL,
 439         "abs44",        "-fno-pic", "-mcmodel=medmid", NULL,
 440         "abs64",        "-fno-pic", "-mcmodel=medany", NULL,
 441         "pic13",        "-fpic", NULL,
 442         "pic32",        "-fPIC", NULL,
 443 #endif
 444         NULL,           NULL
 445 };
 446 
 447 static const char *xtarget_tbl[] = {
 448 #if defined(__x86)
 449         "pentium_pro",  "-march=pentiumpro", NULL,
 450 #endif  /* __x86 */
 451         NULL,           NULL
 452 };
 453 
 454 static const char *xregs_tbl[] = {
 455 #if defined(__sparc)
 456         "appl",         "-mapp-regs", NULL,
 457         "no%appl",      "-mno-app-regs", NULL,
 458         "float",        "-mfpu", NULL,
 459         "no%float",     "-mno-fpu", NULL,
 460 #endif  /* __sparc */
 461         NULL,           NULL
 462 };
 463 
 464 static void
 465 nomem(void)
 466 {
 467         (void) fprintf(stderr, "%s: error: out of memory\n", progname);
 468         exit(1);
 469 }
 470 
 471 static void
 472 cw_perror(const char *fmt, ...)
 473 {
 474         va_list ap;
 475         int saved_errno = errno;
 476 
 477         (void) fprintf(stderr, "%s: error: ", progname);
 478 
 479         va_start(ap, fmt);
 480         (void) vfprintf(stderr, fmt, ap);
 481         va_end(ap);
 482 
 483         (void) fprintf(stderr, " (%s)\n", strerror(saved_errno));
 484 }
 485 
 486 static void
 487 newae(struct aelist *ael, const char *arg)
 488 {
 489         struct ae *ae;
 490 
 491         if ((ae = calloc(sizeof (*ae), 1)) == NULL)
 492                 nomem();
 493         ae->ae_arg = strdup(arg);
 494         if (ael->ael_tail == NULL)
 495                 ael->ael_head = ae;
 496         else
 497                 ael->ael_tail->ae_next = ae;
 498         ael->ael_tail = ae;
 499         ael->ael_argc++;
 500 }
 501 
 502 static cw_ictx_t *
 503 newictx(void)
 504 {
 505         cw_ictx_t *ctx = calloc(sizeof (cw_ictx_t), 1);
 506         if (ctx)
 507                 if ((ctx->i_ae = calloc(sizeof (struct aelist), 1)) == NULL) {
 508                         free(ctx);
 509                         return (NULL);
 510                 }
 511 
 512         return (ctx);
 513 }
 514 
 515 static void
 516 error(const char *arg)
 517 {
 518         (void) fprintf(stderr,
 519             "%s: error: mapping failed at or near arg '%s'\n", progname, arg);
 520         exit(2);
 521 }
 522 
 523 /*
 524  * Add the current favourite set of warnings to the gcc invocation.
 525  */
 526 static void
 527 warnings(struct aelist *h)
 528 {
 529         static int warningsonce;
 530 
 531         if (warningsonce++)
 532                 return;
 533 
 534         /*
 535          * Enable as many warnings as exist, then disable those that we never
 536          * ever want.
 537          */
 538         newae(h, "-Wall");
 539         newae(h, "-Wextra");
 540 }
 541 
 542 static void
 543 optim_disable(struct aelist *h, int level)
 544 {
 545         if (level >= 2) {
 546                 newae(h, "-fno-strict-aliasing");
 547                 newae(h, "-fno-unit-at-a-time");
 548                 newae(h, "-fno-optimize-sibling-calls");
 549         }
 550 }
 551 
 552 /* ARGSUSED */
 553 static void
 554 Xamode(struct aelist *h)
 555 {
 556 }
 557 
 558 static void
 559 Xcmode(struct aelist *h)
 560 {
 561         static int xconce;
 562 
 563         if (xconce++)
 564                 return;
 565 
 566         newae(h, "-ansi");
 567         newae(h, "-pedantic-errors");
 568 }
 569 
 570 static void
 571 Xsmode(struct aelist *h)
 572 {
 573         static int xsonce;
 574 
 575         if (xsonce++)
 576                 return;
 577 
 578         newae(h, "-traditional");
 579         newae(h, "-traditional-cpp");
 580 }
 581 
 582 static void
 583 usage()
 584 {
 585         (void) fprintf(stderr,
 586             "usage: %s { -_cc | -_gcc | -_CC | -_g++ } [ -_compiler | ... ]\n",
 587             progname);
 588         exit(2);
 589 }
 590 
 591 static int
 592 xlate_xtb(struct aelist *h, const char *xarg)
 593 {
 594         int     i, j;
 595 
 596         for (i = 0; i < xtbl_size; i++) {
 597                 if (strcmp(xtbl[i].x_arg, xarg) == 0)
 598                         break;
 599         }
 600 
 601         /*
 602          * At the end of the table and so no matching "arg" entry
 603          * found and so this must be a bad -xarch= flag.
 604          */
 605         if (i == xtbl_size)
 606                 error(xarg);
 607 
 608         for (j = 0; j < TRANS_ENTRY; j++) {
 609                 if (xtbl[i].x_trans[j] != NULL)
 610                         newae(h, xtbl[i].x_trans[j]);
 611                 else
 612                         break;
 613         }
 614         return (xtbl[i].x_flags);
 615 
 616 }
 617 
 618 static void
 619 xlate(struct aelist *h, const char *xarg, const char **table)
 620 {
 621         while (*table != NULL && strcmp(xarg, *table) != 0) {
 622                 while (*table != NULL)
 623                         table++;
 624                 table++;
 625         }
 626 
 627         if (*table == NULL)
 628                 error(xarg);
 629 
 630         table++;
 631 
 632         while (*table != NULL) {
 633                 newae(h, *table);
 634                 table++;
 635         }
 636 }
 637 
 638 static void
 639 do_gcc(cw_ictx_t *ctx)
 640 {
 641         int c;
 642         int pic = 0, nolibc = 0;
 643         int in_output = 0, seen_o = 0, c_files = 0;
 644         cw_op_t op = CW_O_LINK;
 645         char *model = NULL;
 646         int     mflag = 0;
 647 
 648         if (ctx->i_flags & CW_F_PROG) {
 649                 newae(ctx->i_ae, "--version");
 650                 return;
 651         }
 652 
 653         newae(ctx->i_ae, "-fident");
 654         newae(ctx->i_ae, "-finline");
 655         newae(ctx->i_ae, "-fno-inline-functions");
 656         newae(ctx->i_ae, "-fno-builtin");
 657         newae(ctx->i_ae, "-fno-asm");
 658         newae(ctx->i_ae, "-fdiagnostics-show-option");
 659         newae(ctx->i_ae, "-nodefaultlibs");
 660 
 661 #if defined(__sparc)
 662         /*
 663          * The SPARC ldd and std instructions require 8-byte alignment of
 664          * their address operand.  gcc correctly uses them only when the
 665          * ABI requires 8-byte alignment; unfortunately we have a number of
 666          * pieces of buggy code that doesn't conform to the ABI.  This
 667          * flag makes gcc work more like Studio with -xmemalign=4.
 668          */
 669         newae(ctx->i_ae, "-mno-integer-ldd-std");
 670 #endif
 671 
 672         /*
 673          * This is needed because 'u' is defined
 674          * under a conditional on 'sun'.  Should
 675          * probably just remove the conditional,
 676          * or make it be dependent on '__sun'.
 677          *
 678          * -Dunix is also missing in enhanced ANSI mode
 679          */
 680         newae(ctx->i_ae, "-D__sun");
 681 
 682         /*
 683          * Walk the argument list, translating as we go ..
 684          */
 685 
 686         while (--ctx->i_oldargc > 0) {
 687                 char *arg = *++ctx->i_oldargv;
 688                 size_t arglen = strlen(arg);
 689 
 690                 if (*arg == '-') {
 691                         arglen--;
 692                 } else {
 693                         /*
 694                          * Discard inline files that gcc doesn't grok
 695                          */
 696                         if (!in_output && arglen > 3 &&
 697                             strcmp(arg + arglen - 3, ".il") == 0)
 698                                 continue;
 699 
 700                         if (!in_output && arglen > 2 &&
 701                             arg[arglen - 2] == '.' &&
 702                             (arg[arglen - 1] == 'S' || arg[arglen - 1] == 's' ||
 703                             arg[arglen - 1] == 'c' || arg[arglen - 1] == 'i'))
 704                                 c_files++;
 705 
 706                         /*
 707                          * Otherwise, filenames and partial arguments
 708                          * are passed through for gcc to chew on.  However,
 709                          * output is always discarded for the secondary
 710                          * compiler.
 711                          */
 712                         if ((ctx->i_flags & CW_F_SHADOW) && in_output)
 713                                 newae(ctx->i_ae, ctx->i_discard);
 714                         else
 715                                 newae(ctx->i_ae, arg);
 716                         in_output = 0;
 717                         continue;
 718                 }
 719 
 720                 if (ctx->i_flags & CW_F_CXX) {
 721                         if (strncmp(arg, "-compat=", 8) == 0) {
 722                                 /* discard -compat=4 and -compat=5 */
 723                                 continue;
 724                         }
 725                         if (strcmp(arg, "-Qoption") == 0) {
 726                                 /* discard -Qoption and its two arguments */
 727                                 if (ctx->i_oldargc < 3)
 728                                         error(arg);
 729                                 ctx->i_oldargc -= 2;
 730                                 ctx->i_oldargv += 2;
 731                                 continue;
 732                         }
 733                         if (strcmp(arg, "-xwe") == 0) {
 734                                 /* turn warnings into errors */
 735                                 newae(ctx->i_ae, "-Werror");
 736                                 continue;
 737                         }
 738                         if (strcmp(arg, "-noex") == 0) {
 739                                 /* no exceptions */
 740                                 newae(ctx->i_ae, "-fno-exceptions");
 741                                 /* no run time type descriptor information */
 742                                 newae(ctx->i_ae, "-fno-rtti");
 743                                 continue;
 744                         }
 745                         if (strcmp(arg, "-pic") == 0) {
 746                                 newae(ctx->i_ae, "-fpic");
 747                                 pic = 1;
 748                                 continue;
 749                         }
 750                         if (strcmp(arg, "-PIC") == 0) {
 751                                 newae(ctx->i_ae, "-fPIC");
 752                                 pic = 1;
 753                                 continue;
 754                         }
 755                         if (strcmp(arg, "-norunpath") == 0) {
 756                                 /* gcc has no corresponding option */
 757                                 continue;
 758                         }
 759                         if (strcmp(arg, "-nolib") == 0) {
 760                                 /* -nodefaultlibs is on by default */
 761                                 nolibc = 1;
 762                                 continue;
 763                         }
 764 #if defined(__sparc)
 765                         if (strcmp(arg, "-cg92") == 0) {
 766                                 mflag |= xlate_xtb(ctx->i_ae, "v8");
 767                                 xlate(ctx->i_ae, "super", xchip_tbl);
 768                                 continue;
 769                         }
 770 #endif  /* __sparc */
 771                 }
 772 
 773                 switch ((c = arg[1])) {
 774                 case '_':
 775                         if (strcmp(arg, "-_noecho") == 0)
 776                                 ctx->i_flags &= ~CW_F_ECHO;
 777                         else if (strncmp(arg, "-_cc=", 5) == 0 ||
 778                             strncmp(arg, "-_CC=", 5) == 0)
 779                                 /* EMPTY */;
 780                         else if (strncmp(arg, "-_gcc=", 6) == 0 ||
 781                             strncmp(arg, "-_g++=", 6) == 0)
 782                                 newae(ctx->i_ae, arg + 6);
 783                         else
 784                                 error(arg);
 785                         break;
 786                 case '#':
 787                         if (arglen == 1) {
 788                                 newae(ctx->i_ae, "-v");
 789                                 break;
 790                         }
 791                         error(arg);
 792                         break;
 793                 case 'g':
 794                         newae(ctx->i_ae, "-gdwarf-2");
 795                         break;
 796                 case 'E':
 797                         if (arglen == 1) {
 798                                 newae(ctx->i_ae, "-xc");
 799                                 newae(ctx->i_ae, arg);
 800                                 op = CW_O_PREPROCESS;
 801                                 nolibc = 1;
 802                                 break;
 803                         }
 804                         error(arg);
 805                         break;
 806                 case 'c':
 807                 case 'S':
 808                         if (arglen == 1) {
 809                                 op = CW_O_COMPILE;
 810                                 nolibc = 1;
 811                         }
 812                         /* FALLTHROUGH */
 813                 case 'C':
 814                 case 'H':
 815                 case 'p':
 816                         if (arglen == 1) {
 817                                 newae(ctx->i_ae, arg);
 818                                 break;
 819                         }
 820                         error(arg);
 821                         break;
 822                 case 'A':
 823                 case 'h':
 824                 case 'I':
 825                 case 'i':
 826                 case 'L':
 827                 case 'l':
 828                 case 'R':
 829                 case 'U':
 830                 case 'u':
 831                 case 'w':
 832                         newae(ctx->i_ae, arg);
 833                         break;
 834                 case 'o':
 835                         seen_o = 1;
 836                         if (arglen == 1) {
 837                                 in_output = 1;
 838                                 newae(ctx->i_ae, arg);
 839                         } else if (ctx->i_flags & CW_F_SHADOW) {
 840                                 newae(ctx->i_ae, "-o");
 841                                 newae(ctx->i_ae, ctx->i_discard);
 842                         } else {
 843                                 newae(ctx->i_ae, arg);
 844                         }
 845                         break;
 846                 case 'D':
 847                         newae(ctx->i_ae, arg);
 848                         /*
 849                          * XXX  Clearly a hack ... do we need _KADB too?
 850                          */
 851                         if (strcmp(arg, "-D_KERNEL") == 0 ||
 852                             strcmp(arg, "-D_BOOT") == 0)
 853                                 newae(ctx->i_ae, "-ffreestanding");
 854                         break;
 855                 case 'd':
 856                         if (arglen == 2) {
 857                                 if (strcmp(arg, "-dy") == 0) {
 858                                         newae(ctx->i_ae, "-Wl,-dy");
 859                                         break;
 860                                 }
 861                                 if (strcmp(arg, "-dn") == 0) {
 862                                         newae(ctx->i_ae, "-Wl,-dn");
 863                                         break;
 864                                 }
 865                         }
 866                         if (strcmp(arg, "-dalign") == 0) {
 867                                 /*
 868                                  * -dalign forces alignment in some cases;
 869                                  * gcc does not need any flag to do this.
 870                                  */
 871                                 break;
 872                         }
 873                         error(arg);
 874                         break;
 875                 case 'e':
 876                         if (strcmp(arg,
 877                             "-erroff=E_EMPTY_TRANSLATION_UNIT") == 0) {
 878                                 /*
 879                                  * Accept but ignore this -- gcc doesn't
 880                                  * seem to complain about empty translation
 881                                  * units
 882                                  */
 883                                 break;
 884                         }
 885                         /* XX64 -- ignore all -erroff= options, for now */
 886                         if (strncmp(arg, "-erroff=", 8) == 0)
 887                                 break;
 888                         if (strcmp(arg, "-errtags=yes") == 0) {
 889                                 warnings(ctx->i_ae);
 890                                 break;
 891                         }
 892                         if (strcmp(arg, "-errwarn=%all") == 0) {
 893                                 newae(ctx->i_ae, "-Werror");
 894                                 break;
 895                         }
 896                         error(arg);
 897                         break;
 898                 case 'f':
 899                         if (strcmp(arg, "-flags") == 0) {
 900                                 newae(ctx->i_ae, "--help");
 901                                 break;
 902                         }
 903                         if (strncmp(arg, "-features=zla", 13) == 0) {
 904                                 /*
 905                                  * Accept but ignore this -- gcc allows
 906                                  * zero length arrays.
 907                                  */
 908                                 break;
 909                         }
 910                         error(arg);
 911                         break;
 912                 case 'G':
 913                         newae(ctx->i_ae, "-shared");
 914                         nolibc = 1;
 915                         break;
 916                 case 'k':
 917                         if (strcmp(arg, "-keeptmp") == 0) {
 918                                 newae(ctx->i_ae, "-save-temps");
 919                                 break;
 920                         }
 921                         error(arg);
 922                         break;
 923                 case 'K':
 924                         if (arglen == 1) {
 925                                 if ((arg = *++ctx->i_oldargv) == NULL ||
 926                                     *arg == '\0')
 927                                         error("-K");
 928                                 ctx->i_oldargc--;
 929                         } else {
 930                                 arg += 2;
 931                         }
 932                         if (strcmp(arg, "pic") == 0) {
 933                                 newae(ctx->i_ae, "-fpic");
 934                                 pic = 1;
 935                                 break;
 936                         }
 937                         if (strcmp(arg, "PIC") == 0) {
 938                                 newae(ctx->i_ae, "-fPIC");
 939                                 pic = 1;
 940                                 break;
 941                         }
 942                         error("-K");
 943                         break;
 944                 case 'm':
 945                         if (strcmp(arg, "-mt") == 0) {
 946                                 newae(ctx->i_ae, "-D_REENTRANT");
 947                                 break;
 948                         }
 949                         if (strcmp(arg, "-m64") == 0) {
 950                                 newae(ctx->i_ae, "-m64");
 951 #if defined(__x86)
 952                                 newae(ctx->i_ae, "-mtune=opteron");
 953 #endif
 954                                 mflag |= M64;
 955                                 break;
 956                         }
 957                         if (strcmp(arg, "-m32") == 0) {
 958                                 newae(ctx->i_ae, "-m32");
 959                                 mflag |= M32;
 960                                 break;
 961                         }
 962                         error(arg);
 963                         break;
 964                 case 'B':       /* linker options */
 965                 case 'M':
 966                 case 'z':
 967                         {
 968                                 char *opt;
 969                                 size_t len;
 970                                 char *s;
 971 
 972                                 if (arglen == 1) {
 973                                         opt = *++ctx->i_oldargv;
 974                                         if (opt == NULL || *opt == '\0')
 975                                                 error(arg);
 976                                         ctx->i_oldargc--;
 977                                 } else {
 978                                         opt = arg + 2;
 979                                 }
 980                                 len = strlen(opt) + 7;
 981                                 if ((s = malloc(len)) == NULL)
 982                                         nomem();
 983                                 (void) snprintf(s, len, "-Wl,-%c%s", c, opt);
 984                                 newae(ctx->i_ae, s);
 985                                 free(s);
 986                         }
 987                         break;
 988                 case 'n':
 989                         if (strcmp(arg, "-noqueue") == 0) {
 990                                 /*
 991                                  * Horrid license server stuff - n/a
 992                                  */
 993                                 break;
 994                         }
 995                         error(arg);
 996                         break;
 997                 case 'O':
 998                         if (arglen == 1) {
 999                                 newae(ctx->i_ae, "-O");
1000                                 break;
1001                         }
1002                         error(arg);
1003                         break;
1004                 case 'P':
1005                         /*
1006                          * We could do '-E -o filename.i', but that's hard,
1007                          * and we don't need it for the case that's triggering
1008                          * this addition.  We'll require the user to specify
1009                          * -o in the Makefile.  If they don't they'll find out
1010                          * in a hurry.
1011                          */
1012                         newae(ctx->i_ae, "-E");
1013                         op = CW_O_PREPROCESS;
1014                         nolibc = 1;
1015                         break;
1016                 case 'q':
1017                         if (strcmp(arg, "-qp") == 0) {
1018                                 newae(ctx->i_ae, "-p");
1019                                 break;
1020                         }
1021                         error(arg);
1022                         break;
1023                 case 's':
1024                         if (arglen == 1) {
1025                                 newae(ctx->i_ae, "-Wl,-s");
1026                                 break;
1027                         }
1028                         error(arg);
1029                         break;
1030                 case 't':
1031                         if (arglen == 1) {
1032                                 newae(ctx->i_ae, "-Wl,-t");
1033                                 break;
1034                         }
1035                         error(arg);
1036                         break;
1037                 case 'V':
1038                         if (arglen == 1) {
1039                                 ctx->i_flags &= ~CW_F_ECHO;
1040                                 newae(ctx->i_ae, "--version");
1041                                 break;
1042                         }
1043                         error(arg);
1044                         break;
1045                 case 'v':
1046                         if (arglen == 1) {
1047                                 warnings(ctx->i_ae);
1048                                 break;
1049                         }
1050                         error(arg);
1051                         break;
1052                 case 'W':
1053                         if (strncmp(arg, "-Wp,-xc99", 9) == 0) {
1054                                 /*
1055                                  * gcc's preprocessor will accept c99
1056                                  * regardless, so accept and ignore.
1057                                  */
1058                                 break;
1059                         }
1060                         if (strncmp(arg, "-Wa,", 4) == 0 ||
1061                             strncmp(arg, "-Wp,", 4) == 0 ||
1062                             strncmp(arg, "-Wl,", 4) == 0) {
1063                                 newae(ctx->i_ae, arg);
1064                                 break;
1065                         }
1066                         if (strcmp(arg, "-W0,-xc99=pragma") == 0) {
1067                                 /* (undocumented) enables _Pragma */
1068                                 break;
1069                         }
1070                         if (strcmp(arg, "-W0,-xc99=%none") == 0) {
1071                                 /*
1072                                  * This is a polite way of saying
1073                                  * "no c99 constructs allowed!"
1074                                  * For now, just accept and ignore this.
1075                                  */
1076                                 break;
1077                         }
1078                         if (strcmp(arg, "-W0,-noglobal") == 0 ||
1079                             strcmp(arg, "-W0,-xglobalstatic") == 0) {
1080                                 /*
1081                                  * gcc doesn't prefix local symbols
1082                                  * in debug mode, so this is not needed.
1083                                  */
1084                                 break;
1085                         }
1086                         if (strcmp(arg, "-W0,-Lt") == 0) {
1087                                 /*
1088                                  * Generate tests at the top of loops.
1089                                  * There is no direct gcc equivalent, ignore.
1090                                  */
1091                                 break;
1092                         }
1093                         if (strcmp(arg, "-W0,-xdbggen=no%usedonly") == 0) {
1094                                 newae(ctx->i_ae,
1095                                     "-fno-eliminate-unused-debug-symbols");
1096                                 newae(ctx->i_ae,
1097                                     "-fno-eliminate-unused-debug-types");
1098                                 break;
1099                         }
1100                         if (strcmp(arg, "-W2,-xwrap_int") == 0) {
1101                                 /*
1102                                  * Use the legacy behaviour (pre-SS11)
1103                                  * for integer wrapping.
1104                                  * gcc does not need this.
1105                                  */
1106                                 break;
1107                         }
1108                         if (strcmp(arg, "-W2,-Rcond_elim") == 0) {
1109                                 /*
1110                                  * Elimination and expansion of conditionals;
1111                                  * gcc has no direct equivalent.
1112                                  */
1113                                 break;
1114                         }
1115                         if (strcmp(arg, "-Wd,-xsafe=unboundsym") == 0) {
1116                                 /*
1117                                  * Prevents optimizing away checks for
1118                                  * unbound weak symbol addresses.  gcc does
1119                                  * not do this, so it's not needed.
1120                                  */
1121                                 break;
1122                         }
1123                         if (strncmp(arg, "-Wc,-xcode=", 11) == 0) {
1124                                 xlate(ctx->i_ae, arg + 11, xcode_tbl);
1125                                 if (strncmp(arg + 11, "pic", 3) == 0)
1126                                         pic = 1;
1127                                 break;
1128                         }
1129                         if (strncmp(arg, "-Wc,-Qiselect", 13) == 0) {
1130                                 /*
1131                                  * Prevents insertion of register symbols.
1132                                  * gcc doesn't do this, so ignore it.
1133                                  */
1134                                 break;
1135                         }
1136                         if (strcmp(arg, "-Wc,-Qassembler-ounrefsym=0") == 0) {
1137                                 /*
1138                                  * Prevents optimizing away of static variables.
1139                                  * gcc does not do this, so it's not needed.
1140                                  */
1141                                 break;
1142                         }
1143 #if defined(__x86)
1144                         if (strcmp(arg, "-Wu,-xmodel=kernel") == 0) {
1145                                 newae(ctx->i_ae, "-ffreestanding");
1146                                 newae(ctx->i_ae, "-mno-red-zone");
1147                                 model = "-mcmodel=kernel";
1148                                 nolibc = 1;
1149                                 break;
1150                         }
1151                         if (strcmp(arg, "-Wu,-save_args") == 0) {
1152                                 newae(ctx->i_ae, "-msave-args");
1153                                 break;
1154                         }
1155 #endif  /* __x86 */
1156                         error(arg);
1157                         break;
1158                 case 'X':
1159                         if (strcmp(arg, "-Xa") == 0 ||
1160                             strcmp(arg, "-Xt") == 0) {
1161                                 Xamode(ctx->i_ae);
1162                                 break;
1163                         }
1164                         if (strcmp(arg, "-Xc") == 0) {
1165                                 Xcmode(ctx->i_ae);
1166                                 break;
1167                         }
1168                         if (strcmp(arg, "-Xs") == 0) {
1169                                 Xsmode(ctx->i_ae);
1170                                 break;
1171                         }
1172                         error(arg);
1173                         break;
1174                 case 'x':
1175                         if (arglen == 1)
1176                                 error(arg);
1177                         switch (arg[2]) {
1178 #if defined(__x86)
1179                         case '3':
1180                                 if (strcmp(arg, "-x386") == 0) {
1181                                         newae(ctx->i_ae, "-march=i386");
1182                                         break;
1183                                 }
1184                                 error(arg);
1185                                 break;
1186                         case '4':
1187                                 if (strcmp(arg, "-x486") == 0) {
1188                                         newae(ctx->i_ae, "-march=i486");
1189                                         break;
1190                                 }
1191                                 error(arg);
1192                                 break;
1193 #endif  /* __x86 */
1194                         case 'a':
1195                                 if (strncmp(arg, "-xarch=", 7) == 0) {
1196                                         mflag |= xlate_xtb(ctx->i_ae, arg + 7);
1197                                         break;
1198                                 }
1199                                 error(arg);
1200                                 break;
1201                         case 'b':
1202                                 if (strncmp(arg, "-xbuiltin=", 10) == 0) {
1203                                         if (strcmp(arg + 10, "%all"))
1204                                                 newae(ctx->i_ae, "-fbuiltin");
1205                                         break;
1206                                 }
1207                                 error(arg);
1208                                 break;
1209                         case 'C':
1210                                 /* Accept C++ style comments -- ignore */
1211                                 if (strcmp(arg, "-xCC") == 0)
1212                                         break;
1213                                 error(arg);
1214                                 break;
1215                         case 'c':
1216                                 if (strncmp(arg, "-xc99=%all", 10) == 0) {
1217                                         newae(ctx->i_ae, "-std=gnu99");
1218                                         break;
1219                                 }
1220                                 if (strncmp(arg, "-xc99=%none", 11) == 0) {
1221                                         newae(ctx->i_ae, "-std=gnu89");
1222                                         break;
1223                                 }
1224                                 if (strncmp(arg, "-xc11=%all", 10) == 0) {
1225                                         newae(ctx->i_ae, "-std=gnu11");
1226                                         break;
1227                                 }
1228                                 if (strncmp(arg, "-xchip=", 7) == 0) {
1229                                         xlate(ctx->i_ae, arg + 7, xchip_tbl);
1230                                         break;
1231                                 }
1232                                 if (strncmp(arg, "-xcode=", 7) == 0) {
1233                                         xlate(ctx->i_ae, arg + 7, xcode_tbl);
1234                                         if (strncmp(arg + 7, "pic", 3) == 0)
1235                                                 pic = 1;
1236                                         break;
1237                                 }
1238                                 if (strncmp(arg, "-xcache=", 8) == 0)
1239                                         break;
1240                                 if (strncmp(arg, "-xcrossfile", 11) == 0)
1241                                         break;
1242                                 error(arg);
1243                                 break;
1244                         case 'd':
1245                                 if (strcmp(arg, "-xdepend") == 0)
1246                                         break;
1247                                 if (strncmp(arg, "-xdebugformat=", 14) == 0)
1248                                         break;
1249                                 error(arg);
1250                                 break;
1251                         case 'F':
1252                                 /*
1253                                  * Compile for mapfile reordering, or unused
1254                                  * section elimination, syntax can be -xF or
1255                                  * more complex, like -xF=%all -- ignore.
1256                                  */
1257                                 if (strncmp(arg, "-xF", 3) == 0)
1258                                         break;
1259                                 error(arg);
1260                                 break;
1261                         case 'i':
1262                                 if (strncmp(arg, "-xinline", 8) == 0)
1263                                         /* No inlining; ignore */
1264                                         break;
1265                                 if (strcmp(arg, "-xildon") == 0 ||
1266                                     strcmp(arg, "-xildoff") == 0)
1267                                         /* No incremental linking; ignore */
1268                                         break;
1269                                 error(arg);
1270                                 break;
1271 #if defined(__x86)
1272                         case 'm':
1273                                 if (strcmp(arg, "-xmodel=kernel") == 0) {
1274                                         newae(ctx->i_ae, "-ffreestanding");
1275                                         newae(ctx->i_ae, "-mno-red-zone");
1276                                         model = "-mcmodel=kernel";
1277                                         nolibc = 1;
1278                                         break;
1279                                 }
1280                                 error(arg);
1281                                 break;
1282 #endif  /* __x86 */
1283                         case 'M':
1284                                 if (strcmp(arg, "-xM") == 0) {
1285                                         newae(ctx->i_ae, "-M");
1286                                         break;
1287                                 }
1288                                 if (strcmp(arg, "-xM1") == 0) {
1289                                         newae(ctx->i_ae, "-MM");
1290                                         break;
1291                                 }
1292                                 error(arg);
1293                                 break;
1294                         case 'n':
1295                                 if (strcmp(arg, "-xnolib") == 0) {
1296                                         nolibc = 1;
1297                                         break;
1298                                 }
1299                                 error(arg);
1300                                 break;
1301                         case 'O':
1302                                 if (strncmp(arg, "-xO", 3) == 0) {
1303                                         size_t len = strlen(arg);
1304                                         char *s = NULL;
1305                                         int c = *(arg + 3);
1306                                         int level;
1307 
1308                                         if (len != 4 || !isdigit(c))
1309                                                 error(arg);
1310 
1311                                         level = atoi(arg + 3);
1312                                         if (level > 5)
1313                                                 error(arg);
1314                                         if (level >= 2) {
1315                                                 /*
1316                                                  * For gcc-3.4.x at -O2 we
1317                                                  * need to disable optimizations
1318                                                  * that break ON.
1319                                                  */
1320                                                 optim_disable(ctx->i_ae, level);
1321                                                 /*
1322                                                  * limit -xO3 to -O2 as well.
1323                                                  */
1324                                                 level = 2;
1325                                         }
1326                                         if (asprintf(&s, "-O%d", level) == -1)
1327                                                 nomem();
1328                                         newae(ctx->i_ae, s);
1329                                         free(s);
1330                                         break;
1331                                 }
1332                                 error(arg);
1333                                 break;
1334                         case 'p':
1335                                 if (strcmp(arg, "-xpentium") == 0) {
1336                                         newae(ctx->i_ae, "-march=pentium");
1337                                         break;
1338                                 }
1339                                 if (strcmp(arg, "-xpg") == 0) {
1340                                         newae(ctx->i_ae, "-pg");
1341                                         break;
1342                                 }
1343                                 error(arg);
1344                                 break;
1345                         case 'r':
1346                                 if (strncmp(arg, "-xregs=", 7) == 0) {
1347                                         xlate(ctx->i_ae, arg + 7, xregs_tbl);
1348                                         break;
1349                                 }
1350                                 error(arg);
1351                                 break;
1352                         case 's':
1353                                 if (strcmp(arg, "-xs") == 0 ||
1354                                     strcmp(arg, "-xspace") == 0 ||
1355                                     strcmp(arg, "-xstrconst") == 0)
1356                                         break;
1357                                 error(arg);
1358                                 break;
1359                         case 't':
1360                                 if (strcmp(arg, "-xtransition") == 0) {
1361                                         newae(ctx->i_ae, "-Wtransition");
1362                                         break;
1363                                 }
1364                                 if (strcmp(arg, "-xtrigraphs=yes") == 0) {
1365                                         newae(ctx->i_ae, "-trigraphs");
1366                                         break;
1367                                 }
1368                                 if (strcmp(arg, "-xtrigraphs=no") == 0) {
1369                                         newae(ctx->i_ae, "-notrigraphs");
1370                                         break;
1371                                 }
1372                                 if (strncmp(arg, "-xtarget=", 9) == 0) {
1373                                         xlate(ctx->i_ae, arg + 9, xtarget_tbl);
1374                                         break;
1375                                 }
1376                                 error(arg);
1377                                 break;
1378                         case 'e':
1379                         case 'h':
1380                         case 'l':
1381                         default:
1382                                 error(arg);
1383                                 break;
1384                         }
1385                         break;
1386                 case 'Y':
1387                         if (arglen == 1) {
1388                                 if ((arg = *++ctx->i_oldargv) == NULL ||
1389                                     *arg == '\0')
1390                                         error("-Y");
1391                                 ctx->i_oldargc--;
1392                                 arglen = strlen(arg + 1);
1393                         } else {
1394                                 arg += 2;
1395                         }
1396                         /* Just ignore -YS,... for now */
1397                         if (strncmp(arg, "S,", 2) == 0)
1398                                 break;
1399                         if (strncmp(arg, "l,", 2) == 0) {
1400                                 char *s = strdup(arg);
1401                                 s[0] = '-';
1402                                 s[1] = 'B';
1403                                 newae(ctx->i_ae, s);
1404                                 free(s);
1405                                 break;
1406                         }
1407                         if (strncmp(arg, "I,", 2) == 0) {
1408                                 char *s = strdup(arg);
1409                                 s[0] = '-';
1410                                 s[1] = 'I';
1411                                 newae(ctx->i_ae, "-nostdinc");
1412                                 newae(ctx->i_ae, s);
1413                                 free(s);
1414                                 break;
1415                         }
1416                         error(arg);
1417                         break;
1418                 case 'Q':
1419                         /*
1420                          * We could map -Qy into -Wl,-Qy etc.
1421                          */
1422                 default:
1423                         error(arg);
1424                         break;
1425                 }
1426         }
1427 
1428         if (c_files > 1 && (ctx->i_flags & CW_F_SHADOW) &&
1429             op != CW_O_PREPROCESS) {
1430                 (void) fprintf(stderr, "%s: error: multiple source files are "
1431                     "allowed only with -E or -P\n", progname);
1432                 exit(2);
1433         }
1434 
1435         /*
1436          * Make sure that we do not have any unintended interactions between
1437          * the xarch options passed in and the version of the Studio compiler
1438          * used.
1439          */
1440         if ((mflag & (SS11|SS12)) == (SS11|SS12)) {
1441                 (void) fprintf(stderr,
1442                     "Conflicting \"-xarch=\" flags (both Studio 11 and 12)\n");
1443                 exit(2);
1444         }
1445 
1446         switch (mflag) {
1447         case 0:
1448                 /* FALLTHROUGH */
1449         case M32:
1450 #if defined(__sparc)
1451                 /*
1452                  * Only -m32 is defined and so put in the missing xarch
1453                  * translation.
1454                  */
1455                 newae(ctx->i_ae, "-mcpu=v8");
1456                 newae(ctx->i_ae, "-mno-v8plus");
1457 #endif
1458                 break;
1459         case M64:
1460 #if defined(__sparc)
1461                 /*
1462                  * Only -m64 is defined and so put in the missing xarch
1463                  * translation.
1464                  */
1465                 newae(ctx->i_ae, "-mcpu=v9");
1466 #endif
1467                 break;
1468         case SS12:
1469 #if defined(__sparc)
1470                 /* no -m32/-m64 flag used - this is an error for sparc builds */
1471                 (void) fprintf(stderr, "No -m32/-m64 flag defined\n");
1472                 exit(2);
1473 #endif
1474                 break;
1475         case SS11:
1476                 /* FALLTHROUGH */
1477         case (SS11|M32):
1478         case (SS11|M64):
1479                 break;
1480         case (SS12|M32):
1481 #if defined(__sparc)
1482                 /*
1483                  * Need to add in further 32 bit options because with SS12
1484                  * the xarch=sparcvis option can be applied to 32 or 64
1485                  * bit, and so the translatation table (xtbl) cannot handle
1486                  * that.
1487                  */
1488                 newae(ctx->i_ae, "-mv8plus");
1489 #endif
1490                 break;
1491         case (SS12|M64):
1492                 break;
1493         default:
1494                 (void) fprintf(stderr,
1495                     "Incompatible -xarch= and/or -m32/-m64 options used.\n");
1496                 exit(2);
1497         }
1498         if (op == CW_O_LINK && (ctx->i_flags & CW_F_SHADOW))
1499                 exit(0);
1500 
1501         if (model && !pic)
1502                 newae(ctx->i_ae, model);
1503         if (!nolibc)
1504                 newae(ctx->i_ae, "-lc");
1505         if (!seen_o && (ctx->i_flags & CW_F_SHADOW)) {
1506                 newae(ctx->i_ae, "-o");
1507                 newae(ctx->i_ae, ctx->i_discard);
1508         }
1509 }
1510 
1511 static void
1512 do_cc(cw_ictx_t *ctx)
1513 {
1514         int in_output = 0, seen_o = 0;
1515         cw_op_t op = CW_O_LINK;
1516 
1517         if (ctx->i_flags & CW_F_PROG) {
1518                 newae(ctx->i_ae, "-V");
1519                 return;
1520         }
1521 
1522         while (--ctx->i_oldargc > 0) {
1523                 char *arg = *++ctx->i_oldargv;
1524 
1525                 if (*arg != '-') {
1526                         if (in_output == 0 || !(ctx->i_flags & CW_F_SHADOW)) {
1527                                 newae(ctx->i_ae, arg);
1528                         } else {
1529                                 in_output = 0;
1530                                 newae(ctx->i_ae, ctx->i_discard);
1531                         }
1532                         continue;
1533                 }
1534                 switch (*(arg + 1)) {
1535                 case '_':
1536                         if (strcmp(arg, "-_noecho") == 0) {
1537                                 ctx->i_flags &= ~CW_F_ECHO;
1538                         } else if (strncmp(arg, "-_cc=", 5) == 0 ||
1539                             strncmp(arg, "-_CC=", 5) == 0) {
1540                                 newae(ctx->i_ae, arg + 5);
1541                         } else if (strncmp(arg, "-_gcc=", 6) != 0 &&
1542                             strncmp(arg, "-_g++=", 6) != 0) {
1543                                 (void) fprintf(stderr,
1544                                     "%s: invalid argument '%s'\n", progname,
1545                                     arg);
1546                                 exit(2);
1547                         }
1548                         break;
1549                 case 'V':
1550                         ctx->i_flags &= ~CW_F_ECHO;
1551                         newae(ctx->i_ae, arg);
1552                         break;
1553                 case 'o':
1554                         seen_o = 1;
1555                         if (strlen(arg) == 2) {
1556                                 in_output = 1;
1557                                 newae(ctx->i_ae, arg);
1558                         } else if (ctx->i_flags & CW_F_SHADOW) {
1559                                 newae(ctx->i_ae, "-o");
1560                                 newae(ctx->i_ae, ctx->i_discard);
1561                         } else {
1562                                 newae(ctx->i_ae, arg);
1563                         }
1564                         break;
1565                 case 'c':
1566                 case 'S':
1567                         if (strlen(arg) == 2)
1568                                 op = CW_O_COMPILE;
1569                         newae(ctx->i_ae, arg);
1570                         break;
1571                 case 'E':
1572                 case 'P':
1573                         if (strlen(arg) == 2)
1574                                 op = CW_O_PREPROCESS;
1575                 /*FALLTHROUGH*/
1576                 default:
1577                         newae(ctx->i_ae, arg);
1578                 }
1579         }
1580 
1581         if ((op == CW_O_LINK || op == CW_O_PREPROCESS) &&
1582             (ctx->i_flags & CW_F_SHADOW))
1583                 exit(0);
1584 
1585         if (!seen_o && (ctx->i_flags & CW_F_SHADOW)) {
1586                 newae(ctx->i_ae, "-o");
1587                 newae(ctx->i_ae, ctx->i_discard);
1588         }
1589 }
1590 
1591 static void
1592 prepctx(cw_ictx_t *ctx)
1593 {
1594         const char *dir = NULL, *cmd;
1595         char *program = NULL;
1596         size_t len;
1597 
1598         switch (CIDX(CC(ctx), ctx->i_flags)) {
1599                 case CIDX(CW_C_CC, 0):
1600                         program = getenv("CW_CC");
1601                         dir = getenv("CW_CC_DIR");
1602                         break;
1603                 case CIDX(CW_C_CC, CW_F_CXX):
1604                         program = getenv("CW_CPLUSPLUS");
1605                         dir = getenv("CW_CPLUSPLUS_DIR");
1606                         break;
1607                 case CIDX(CW_C_GCC, 0):
1608                         program = getenv("CW_GCC");
1609                         dir = getenv("CW_GCC_DIR");
1610                         break;
1611                 case CIDX(CW_C_GCC, CW_F_CXX):
1612                         program = getenv("CW_GPLUSPLUS");
1613                         dir = getenv("CW_GPLUSPLUS_DIR");
1614                         break;
1615         }
1616 
1617         if (program == NULL) {
1618                 if (dir == NULL)
1619                         dir = default_dir[CC(ctx)];
1620                 cmd = cmds[CIDX(CC(ctx), ctx->i_flags)];
1621                 len = strlen(dir) + strlen(cmd) + 2;
1622                 if ((program = malloc(len)) == NULL)
1623                         nomem();
1624                 (void) snprintf(program, len, "%s/%s", dir, cmd);
1625         }
1626 
1627         newae(ctx->i_ae, program);
1628 
1629         if (ctx->i_flags & CW_F_PROG) {
1630                 (void) printf("%s: %s\n", (ctx->i_flags & CW_F_SHADOW) ?
1631                     "shadow" : "primary", program);
1632                 (void) fflush(stdout);
1633         }
1634 
1635         if (!(ctx->i_flags & CW_F_XLATE))
1636                 return;
1637 
1638         switch (CC(ctx)) {
1639         case CW_C_CC:
1640                 do_cc(ctx);
1641                 break;
1642         case CW_C_GCC:
1643                 do_gcc(ctx);
1644                 break;
1645         }
1646 }
1647 
1648 static int
1649 invoke(cw_ictx_t *ctx)
1650 {
1651         char **newargv;
1652         int ac;
1653         struct ae *a;
1654 
1655         if ((newargv = calloc(sizeof (*newargv), ctx->i_ae->ael_argc + 1)) ==
1656             NULL)
1657                 nomem();
1658 
1659         if (ctx->i_flags & CW_F_ECHO)
1660                 (void) fprintf(stderr, "+ ");
1661 
1662         for (ac = 0, a = ctx->i_ae->ael_head; a; a = a->ae_next, ac++) {
1663                 newargv[ac] = a->ae_arg;
1664                 if (ctx->i_flags & CW_F_ECHO)
1665                         (void) fprintf(stderr, "%s ", a->ae_arg);
1666                 if (a == ctx->i_ae->ael_tail)
1667                         break;
1668         }
1669 
1670         if (ctx->i_flags & CW_F_ECHO) {
1671                 (void) fprintf(stderr, "\n");
1672                 (void) fflush(stderr);
1673         }
1674 
1675         if (!(ctx->i_flags & CW_F_EXEC))
1676                 return (0);
1677 
1678         /*
1679          * We must fix up the environment here so that the
1680          * dependency files are not trampled by the shadow compiler.
1681          */
1682         if ((ctx->i_flags & CW_F_SHADOW) &&
1683             (unsetenv("SUNPRO_DEPENDENCIES") != 0 ||
1684             unsetenv("DEPENDENCIES_OUTPUT") != 0)) {
1685                 (void) fprintf(stderr, "error: environment setup failed: %s\n",
1686                     strerror(errno));
1687                 return (-1);
1688         }
1689 
1690         (void) execv(newargv[0], newargv);
1691         cw_perror("couldn't run %s", newargv[0]);
1692 
1693         return (-1);
1694 }
1695 
1696 static int
1697 reap(cw_ictx_t *ctx)
1698 {
1699         int status, ret = 0;
1700         char buf[1024];
1701         struct stat s;
1702 
1703         /*
1704          * Only wait for one specific child.
1705          */
1706         if (ctx->i_pid <= 0)
1707                 return (-1);
1708 
1709         do {
1710                 if (waitpid(ctx->i_pid, &status, 0) < 0) {
1711                         cw_perror("cannot reap child");
1712                         return (-1);
1713                 }
1714                 if (status != 0) {
1715                         if (WIFSIGNALED(status)) {
1716                                 ret = -WTERMSIG(status);
1717                                 break;
1718                         } else if (WIFEXITED(status)) {
1719                                 ret = WEXITSTATUS(status);
1720                                 break;
1721                         }
1722                 }
1723         } while (!WIFEXITED(status) && !WIFSIGNALED(status));
1724 
1725         (void) unlink(ctx->i_discard);
1726 
1727         if (stat(ctx->i_stderr, &s) < 0) {
1728                 cw_perror("stat failed on child cleanup");
1729                 return (-1);
1730         }
1731         if (s.st_size != 0) {
1732                 FILE *f;
1733 
1734                 if ((f = fopen(ctx->i_stderr, "r")) != NULL) {
1735                         while (fgets(buf, sizeof (buf), f))
1736                                 (void) fprintf(stderr, "%s", buf);
1737                         (void) fflush(stderr);
1738                         (void) fclose(f);
1739                 }
1740         }
1741         (void) unlink(ctx->i_stderr);
1742         free(ctx->i_stderr);
1743 
1744         /*
1745          * cc returns an error code when given -V; we want that to succeed.
1746          */
1747         if (ctx->i_flags & CW_F_PROG)
1748                 return (0);
1749 
1750         return (ret);
1751 }
1752 
1753 static int
1754 exec_ctx(cw_ictx_t *ctx, int block)
1755 {
1756         char *file;
1757 
1758         /*
1759          * To avoid offending cc's sensibilities, the name of its output
1760          * file must end in '.o'.
1761          */
1762         if ((file = tempnam(NULL, ".cw")) == NULL) {
1763                 nomem();
1764                 return (-1);
1765         }
1766         (void) strlcpy(ctx->i_discard, file, MAXPATHLEN);
1767         (void) strlcat(ctx->i_discard, ".o", MAXPATHLEN);
1768         free(file);
1769 
1770         if ((ctx->i_stderr = tempnam(NULL, ".cw")) == NULL) {
1771                 nomem();
1772                 return (-1);
1773         }
1774 
1775         if ((ctx->i_pid = fork()) == 0) {
1776                 int fd;
1777 
1778                 (void) fclose(stderr);
1779                 if ((fd = open(ctx->i_stderr, O_WRONLY | O_CREAT | O_EXCL,
1780                     0666)) < 0) {
1781                         cw_perror("open failed for standard error");
1782                         exit(1);
1783                 }
1784                 if (dup2(fd, 2) < 0) {
1785                         cw_perror("dup2 failed for standard error");
1786                         exit(1);
1787                 }
1788                 if (fd != 2)
1789                         (void) close(fd);
1790                 if (freopen("/dev/fd/2", "w", stderr) == NULL) {
1791                         cw_perror("freopen failed for /dev/fd/2");
1792                         exit(1);
1793                 }
1794                 prepctx(ctx);
1795                 exit(invoke(ctx));
1796         }
1797 
1798         if (ctx->i_pid < 0) {
1799                 cw_perror("fork failed");
1800                 return (1);
1801         }
1802 
1803         if (block)
1804                 return (reap(ctx));
1805 
1806         return (0);
1807 }
1808 
1809 int
1810 main(int argc, char **argv)
1811 {
1812         cw_ictx_t *ctx = newictx();
1813         cw_ictx_t *ctx_shadow = newictx();
1814         const char *dir;
1815         int do_serial, do_shadow;
1816         int ret = 0;
1817 
1818         if ((progname = strrchr(argv[0], '/')) == NULL)
1819                 progname = argv[0];
1820         else
1821                 progname++;
1822 
1823         if (ctx == NULL || ctx_shadow == NULL)
1824                 nomem();
1825 
1826         ctx->i_flags = CW_F_ECHO|CW_F_XLATE;
1827 
1828         /*
1829          * Figure out where to get our tools from.  This depends on
1830          * the environment variables set at run time.
1831          */
1832         if ((dir = getenv("SPRO_VROOT")) != NULL) {
1833                 (void) snprintf(default_dir[CW_C_CC], MAXPATHLEN,
1834                     "%s/bin", dir);
1835         } else if ((dir = getenv("SPRO_ROOT")) != NULL) {
1836                 (void) snprintf(default_dir[CW_C_CC], MAXPATHLEN,
1837                     "%s/SS12/bin", dir);
1838         } else if ((dir = getenv("BUILD_TOOLS")) != NULL) {
1839                 (void) snprintf(default_dir[CW_C_CC], MAXPATHLEN,
1840                     "%s/SUNWspro/SS12/bin", dir);
1841         }
1842 
1843         if ((dir = getenv("GCC_ROOT")) != NULL) {
1844                 (void) snprintf(default_dir[CW_C_GCC], MAXPATHLEN,
1845                     "%s/bin", dir);
1846         }
1847 
1848         do_shadow = (getenv("CW_NO_SHADOW") ? 0 : 1);
1849         do_serial = (getenv("CW_SHADOW_SERIAL") ? 1 : 0);
1850 
1851         if (getenv("CW_NO_EXEC") == NULL)
1852                 ctx->i_flags |= CW_F_EXEC;
1853 
1854         /*
1855          * The first argument must be one of "-_cc", "-_gcc", "-_CC", or "-_g++"
1856          */
1857         if (argc == 1)
1858                 usage();
1859         argc--;
1860         argv++;
1861         if (strcmp(argv[0], "-_cc") == 0) {
1862                 ctx->i_compiler = CW_C_CC;
1863         } else if (strcmp(argv[0], "-_gcc") == 0) {
1864                 ctx->i_compiler = CW_C_GCC;
1865         } else if (strcmp(argv[0], "-_CC") == 0) {
1866                 ctx->i_compiler = CW_C_CC;
1867                 ctx->i_flags |= CW_F_CXX;
1868         } else if (strcmp(argv[0], "-_g++") == 0) {
1869                 ctx->i_compiler = CW_C_GCC;
1870                 ctx->i_flags |= CW_F_CXX;
1871         } else {
1872                 /* assume "-_gcc" by default */
1873                 argc++;
1874                 argv--;
1875                 ctx->i_compiler = CW_C_GCC;
1876         }
1877 
1878         /*
1879          * -_compiler - tell us the path to the primary compiler only
1880          */
1881         if (argc > 1 && strcmp(argv[1], "-_compiler") == 0) {
1882                 ctx->i_flags &= ~CW_F_XLATE;
1883                 prepctx(ctx);
1884                 (void) printf("%s\n", ctx->i_ae->ael_head->ae_arg);
1885                 return (0);
1886         }
1887 
1888         /*
1889          * -_versions - tell us the cw version, paths to all compilers, and
1890          *              ask each for its version if we know how.
1891          */
1892         if (argc > 1 && strcmp(argv[1], "-_versions") == 0) {
1893                 (void) printf("cw version %s", CW_VERSION);
1894                 if (!do_shadow)
1895                         (void) printf(" (SHADOW MODE DISABLED)");
1896                 (void) printf("\n");
1897                 (void) fflush(stdout);
1898                 ctx->i_flags &= ~CW_F_ECHO;
1899                 ctx->i_flags |= CW_F_PROG|CW_F_EXEC;
1900                 argc--;
1901                 argv++;
1902                 do_serial = 1;
1903         }
1904 
1905         ctx->i_oldargc = argc;
1906         ctx->i_oldargv = argv;
1907 
1908         ret |= exec_ctx(ctx, do_serial);
1909 
1910         if (do_shadow) {
1911                 (void) memcpy(ctx_shadow, ctx, sizeof (cw_ictx_t));
1912                 ctx_shadow->i_flags |= CW_F_SHADOW;
1913                 ret |= exec_ctx(ctx_shadow, 1);
1914         }
1915 
1916         if (!do_serial)
1917                 ret |= reap(ctx);
1918 
1919         return (ret);
1920 }