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

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.