Return to subr.c CVS log

Up to [MW Coherent from dump] / coherent / d / bin / as

Annotation of coherent/d/bin/as/subr.c, revision 1.1

1.1     ! root        1: #include "asm.h"
        !             2: 
        !             3: /*
        !             4:  * Note an error.
        !             5:  * If the error is a `q' just
        !             6:  * give up.
        !             7:  */
        !             8: err(c, msg)
        !             9: char *msg;
        !            10: {
        !            11:        if (pass == 2) {
        !            12:                ++nerr;
        !            13:                if (ifn != NULL)
        !            14:                        fprintf(efp, "%d: %s: %s\n", line, ifn, msg);
        !            15:                else
        !            16:                        fprintf(efp, "%d: %s\n", line, msg);
        !            17:        }
        !            18:        if (c == 'q')
        !            19:                longjmp(env, 1);
        !            20: }
        !            21: 
        !            22: /*
        !            23:  * Note a `u' error.
        !            24:  * Tag it with the name if not making
        !            25:  * a listing file.
        !            26:  */
        !            27: uerr(id)
        !            28: char *id;
        !            29: {
        !            30:        char work[40];
        !            31: 
        !            32:        sprintf(work, "undefined symbol '%s'", id);
        !            33:        err('u', work);
        !            34: }
        !            35: 
        !            36: /*
        !            37:  * Note an 'r' error.
        !            38:  */
        !            39: rerr(msg)
        !            40: char *msg;
        !            41: {
        !            42:        err('r', msg);
        !            43: }
        !            44: 
        !            45: /*
        !            46:  * Note an 'a' error.
        !            47:  */
        !            48: aerr(msg)
        !            49: char *msg;
        !            50: {
        !            51:        err('a', msg);
        !            52: }
        !            53: 
        !            54: /*
        !            55:  * Note a 'q' error.
        !            56:  */
        !            57: qerr(msg)
        !            58: char *msg;
        !            59: {
        !            60:        err('q', msg);
        !            61: }
        !            62: 
        !            63: static int lastline = 0;
        !            64: /*
        !            65:  * Note Data in bssd
        !            66:  */
        !            67: serr()
        !            68: {
        !            69:        if(line != lastline) {
        !            70:                err('s', "data in bssd");
        !            71:                lastline = line;
        !            72:        }
        !            73: }

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