Return to pass_err.c CVS log

Up to [CSRG BSD Unix] / 42BSD / ingres / source / parser

Annotation of 42BSD/ingres/source/parser/pass_err.c, revision 1.1.1.1

1.1       root        1: # include      <ingres.h>
                      2: # include      <pv.h>
                      3: # include      <sccs.h>
                      4: 
                      5: SCCSID(@(#)pass_err.c  7.1     2/5/81)
                      6: 
                      7: /*
                      8: **  PASS_ERR -- the error passing routine for the parser
                      9: **
                     10: **     Trace Flags:
                     11: **             pass_err ~~ 65
                     12: */
                     13: 
                     14: pass_err(pc, pv)
                     15: int    pc;
                     16: PARM   pv[];
                     17: {
                     18:        extern int      Ingerr;
                     19:        extern int      Err_fnd;
                     20:        register int    num;
                     21: 
                     22:        num = pv[0].pv_val.pv_int;
                     23: # ifdef        xPTR1
                     24:        tTfp(65, 0, "pass_err %d\n", num);
                     25: # endif
                     26: 
                     27:        if (Ingerr)
                     28:                Ingerr = num;
                     29:        else
                     30:                Ingerr = 1;
                     31: 
                     32:        Err_fnd += 1;
                     33: 
                     34:        return (-1);            /* means pass error message up to front end */
                     35: }

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