Return to geno.c CVS log

Up to [MW Coherent from dump] / coherent / b / bin / c / common / i8086

Annotation of coherent/b/bin/c/common/i8086/geno.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * Output one and two operand opcodes
                      3:  * with their address fields.
                      4:  * Used in cc1 and cc2.
                      5:  */
                      6: #ifdef   vax
                      7: #include "INC$LIB:mch.h"
                      8: #include "INC$LIB:host.h"
                      9: #include "INC$LIB:ops.h"
                     10: #include "INC$LIB:var.h"
                     11: #include "INC$LIB:varmch.h"
                     12: #include "INC$LIB:opcode.h"
                     13: #include "INC$LIB:stream.h"
                     14: #else
                     15: #include "mch.h"
                     16: #include "host.h"
                     17: #include "ops.h"
                     18: #include "var.h"
                     19: #include "varmch.h"
                     20: #include "opcode.h"
                     21: #include "stream.h"
                     22: #endif
                     23: extern int *genaf();
                     24: 
                     25: genone(op)
                     26: {
                     27:        bput(CODE);
                     28:        bput(op);
                     29:        genaf(&op + 1);
                     30: }
                     31: 
                     32: gentwo(op)
                     33: {
                     34:        bput(CODE);
                     35:        bput(op);
                     36:        genaf(genaf(&op + 1));
                     37: }
                     38: 
                     39: int *
                     40: genaf(mp)
                     41: register int *mp;
                     42: {
                     43:        register int mode;
                     44: 
                     45:        iput(mode = *mp++);
                     46:        if ((mode & A_OFFS) != 0)
                     47:                iput(*mp++);
                     48:        if ((mode & A_LID) != 0)
                     49:                iput(*mp++);
                     50:        else if ((mode & A_GID) != 0)
                     51:                sput(*((char **)mp)++);
                     52:        return (mp);
                     53: }

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