Return to flags2.c CVS log

Up to [Research Unix] / researchv9 / cmd / sun / pcc

Annotation of researchv9/cmd/sun/pcc/flags2.c, revision 1.1

1.1     ! root        1: #ifndef lint
        !             2: static char sccsid[] = "@(#)flags2.c 1.1 86/02/03 Copyr 1985 Sun Micro";
        !             3: #endif
        !             4: 
        !             5: /*
        !             6:  * Copyright (c) 1985 by Sun Microsystems, Inc.
        !             7:  */
        !             8: 
        !             9: #include "cpass2.h"
        !            10: 
        !            11: /*
        !            12:  * process pass 2 flags from ccom/f1 command line
        !            13:  */
        !            14: 
        !            15: int use68020 = 0;
        !            16: int use68881 = 0;
        !            17: int usesky = 0;
        !            18: int usesoft = 0;
        !            19: int useswitch = 0;
        !            20: int usefpa = 0;
        !            21: int stmtprofflag = 0;
        !            22: FILE *dotd_fp;
        !            23: 
        !            24: struct machopts {
        !            25:     char *optname;
        !            26:     int *useflag;
        !            27: } machopts[] = {
        !            28:     "m68020",  &use68020,
        !            29:     "fpa",     &usefpa,
        !            30:     "f68881",  &use68881,
        !            31:     "fsky",    &usesky,
        !            32:     "fsoft",   &usesoft,
        !            33:     "fswitch", &useswitch,
        !            34: };
        !            35: 
        !            36: int chk_ovfl = 0;
        !            37: 
        !            38: myflags( c, cpp )
        !            39:     char c; 
        !            40:     register char **cpp;
        !            41: {
        !            42:        register struct machopts *fp;
        !            43:        register char *cp;
        !            44: 
        !            45:        switch( c ) {
        !            46:        case 'A':
        !            47:                cp = *cpp;
        !            48:                stmtprofflag = 1;
        !            49:                if((dotd_fp = fopen(cp+1, "w")) == NULL){
        !            50:                        perror(cp+1);
        !            51:                        cerror( "can't open statement profiling statistics file");
        !            52:                }
        !            53:                goto endswitch;
        !            54: 
        !            55:        case 'f':       
        !            56:        case 'm':
        !            57:                cp = *cpp;
        !            58:                for (fp = machopts; fp->optname; fp++) {
        !            59:                        if (!strcmp(fp->optname, cp)) {
        !            60:                                *(fp->useflag) = 1;
        !            61:                                goto endswitch;
        !            62:                        }
        !            63:                }
        !            64: #ifndef  FORT
        !            65: #ifdef FLOATMATH
        !            66:                if (!strcmp("fsingle", cp)) {
        !            67:                        FLOATMATH = 1;
        !            68:                        goto endswitch;
        !            69:                }
        !            70:                if (!strcmp("fsingle2", cp)) {
        !            71:                        FLOATMATH = 2;
        !            72:                        goto endswitch;
        !            73:                }
        !            74: #endif
        !            75: #endif
        !            76: 
        !            77:        endswitch:
        !            78:                /* recognized an option string; skip to its end */
        !            79:                while (cp[1]) cp++;
        !            80:                *cpp = cp;
        !            81:                return;
        !            82: 
        !            83:        case 'F': 
        !            84:                usesky = 1; 
        !            85:                use68881 = 0;
        !            86:                return;
        !            87:        case 'V':
        !            88:                chk_ovfl++;
        !            89:                return;
        !            90:        default: 
        !            91:                cerror( "Bad flag %c", c );
        !            92:        }
        !            93: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.