Return to gencode.h CVS log

Up to [Research Unix] / researchv8dc / cmd / ccom / vax

Annotation of researchv8dc/cmd/ccom/vax/gencode.h, revision 1.1

1.1     ! root        1: #include "mfile2.h"
        !             2: #include "setjmp.h"
        !             3: extern jmp_buf back;
        !             4: extern char *regnames[], *frameptr, *argptr;
        !             5: #ifdef M32
        !             6: #define REGMASK 0x3
        !             7: #define REGVAR 3
        !             8: #define UP ('A' - 'a')
        !             9: #define VAX 0
        !            10: #else if VAX
        !            11: #define REGMASK 0x3f
        !            12: #define REGVAR 6
        !            13: #define M32 0
        !            14: #endif
        !            15: /* these would be 3 and 3 respectively on the mac32, 3f and 6 on the vax */
        !            16: /* registers 0..REGVAR-1 are scratch */
        !            17: typedef struct {
        !            18:        unsigned char ans;
        !            19:        unsigned char regmask;
        !            20:        unsigned short flag;
        !            21: } ret;
        !            22: #define CC     1
        !            23: #define VALUE  2
        !            24: #define TOSTACK        4
        !            25: #define ASADDR 8
        !            26: #define SCRATCH        16
        !            27: #define ICON0  (VAX? 32: 0)
        !            28: #define ICON1  (VAX? 64: 0)
        !            29: #define ISREG  128
        !            30: #define DESTISLEFT     256
        !            31: #define CANINDIR       512
        !            32: #define FAILX  1024
        !            33: #define INDEX  (VAX? 2048: 0)
        !            34: #define FAIL0  4096
        !            35: #define FAIL (FAILX|FAIL0)
        !            36: #define USED   (VAX?8192:0)
        !            37: #define NOGOOD (FAIL|USED)
        !            38: #define AUTO   (16384) /* ans is auto incr/decr */
        !            39: /* as param; as return
        !            40:  * CC just need the condition codes; condition codes are valid
        !            41:  * VALUE need the value (for incr/decr.  as opposed to just the side effect)
        !            42:  * TOSTACK put the result on the stack
        !            43:  * ASADDR as an address, for various weird environments (calls, extzv, ...)
        !            44:  * SCRATCH ; the result is in a scratch place
        !            45:  * ICON0 ; the result is the constant 0
        !            46:  * ICON1 ; the result is the constant 1
        !            47:  * ISREG ; the result is in a register
        !            48:  * DESTISLEFT put the result in the left operand (asg ops)
        !            49:  * CANINDIR ; the result can be indirected through
        !            50:  * FAIL ; there is no result, for we ran out of registers
        !            51:  * INDEX ; some size-dependent addressing mode was used, so watch it
        !            52:  * FAIL0 ; we ran out of register 0
        !            53:  * USED plan to use result; don't re-use, as in 3+(*p++=*q++), register p, q
        !            54: /* ASADDR is never used with a dest, and is always VALUE|ASADDR */
        !            55: ret doit(), allocreg(), specialreg(), indir(), tostack(), indirit(), simpler(),
        !            56:        alloctmp(), checksize();
        !            57: 
        !            58: #define LEFT 1
        !            59: #define RIGHT 2
        !            60: char *genjmp();
        !            61: 
        !            62: #define BUF 64 /* overflow unchecked */
        !            63: char bufs[256][BUF];
        !            64: char *buf, *bufend;
        !            65: char prbuf[10240];
        !            66: char *prptr;
        !            67: #define done(s, n, rm) s.ans = (buf - bufs[0])/BUF; buf += BUF; s.flag = n; s.regmask = rm; if(buf >= bufend) cerror("buf ov"); return(s)
        !            68: #define str(s) bufs[s.ans]
        !            69: 
        !            70: NODE *copytree(), *gimmenode(), *convnodol();
        !            71: extern int ntree, regvar, Pflag, bbcount;

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