Return to geno.c CVS log

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

Annotation of coherent/b/bin/c/common/i386/geno.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * common/i386/geno.c
        !             3:  * Output one and two operand opcodes with their address fields.
        !             4:  * Used in cc1 and cc2.
        !             5:  * i386.
        !             6:  */
        !             7: 
        !             8: #ifdef   vax
        !             9: #include "INC$LIB:mch.h"
        !            10: #include "INC$LIB:host.h"
        !            11: #include "INC$LIB:ops.h"
        !            12: #include "INC$LIB:var.h"
        !            13: #include "INC$LIB:varmch.h"
        !            14: #include "INC$LIB:opcode.h"
        !            15: #include "INC$LIB:stream.h"
        !            16: #else
        !            17: #include "mch.h"
        !            18: #include "host.h"
        !            19: #include "ops.h"
        !            20: #include "var.h"
        !            21: #include "varmch.h"
        !            22: #include "opcode.h"
        !            23: #include "stream.h"
        !            24: #endif
        !            25: 
        !            26: extern int *genaf();
        !            27: 
        !            28: /*
        !            29:  * Bogus nachos.
        !            30:  * There is a lot of lint to be picked here.
        !            31:  * Before the i386 compiler port,
        !            32:  * both the machine-independent compiler base
        !            33:  * and the machine-dependent parts of the compiler
        !            34:  * implicitly assumed sizeof(int) >= sizeof(ival_t).
        !            35:  * Arguments to genone(), gentwo() and genaf()
        !            36:  * are implicitly int throughout the source.
        !            37:  * For the 286-based i386 cross compiler,
        !            38:  * sizeof(ival_t) > sizeof(int) (32 > 16), 
        !            39:  * so information in the high word of the ival_t
        !            40:  * written by genaf() below is garbage.
        !            41:  * This should be cleaned up when time permits!
        !            42:  */
        !            43: 
        !            44: /* VARARGS. */
        !            45: genone(op)
        !            46: {
        !            47:        bput(CODE);
        !            48:        bput(op);
        !            49:        genaf(&op + 1);
        !            50: }
        !            51: 
        !            52: /* VARARGS. */
        !            53: gentwo(op)
        !            54: {
        !            55:        bput(CODE);
        !            56:        bput(op);
        !            57:        genaf(genaf(&op + 1));
        !            58: }
        !            59: 
        !            60: /* VARARGS. */
        !            61: int *
        !            62: genaf(mp) register int *mp;
        !            63: {
        !            64:        register int mode;
        !            65: 
        !            66:        iput((ival_t)(mode = *mp++));
        !            67:        if ((mode & A_OFFS) != 0)
        !            68:                iput(*((ival_t *)mp)++);
        !            69:        if ((mode & A_LID) != 0)
        !            70:                iput((ival_t)*mp++);
        !            71:        else if ((mode & A_GID) != 0)
        !            72:                sput(*((char **)mp)++);
        !            73:        return mp;
        !            74: }
        !            75: 
        !            76: /* end of common/i386/geno.c */

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