Return to gencode.h CVS log

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

Annotation of researchv10no/cmd/ccom/vax/gencode.h, revision 1.1.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: #define REGMASK 0x3f
                      6: #define REGVAR 6
                      7: /* these would be 3 and 3 respectively on the mac32, 3f and 6 on the vax */
                      8: /* registers 0..REGVAR-1 are scratch */
                      9: typedef struct {
                     10:        unsigned char ans;
                     11:        unsigned char regmask;
                     12:        unsigned short flag;
                     13: } ret;
                     14: #define CC     1
                     15: #define VALUE  2
                     16: #define TOSTACK        4
                     17: #define ASADDR 8
                     18: #define SCRATCH        16
                     19: #define ICON0  32
                     20: #define ICON1  64
                     21: #define ISREG  128
                     22: #define DESTISLEFT     256
                     23: #define CANINDIR       512
                     24: #define FAILX  1024
                     25: #define INDEX  2048
                     26: #define FAIL0  4096
                     27: #define FAIL (FAILX|FAIL0)
                     28: #define USED   8192
                     29: #define NOGOOD (FAIL|USED)
                     30: #define AUTO   (16384) /* ans is auto incr/decr */
                     31: #define FSTASG 0x8000  /* to Stasg, for Stasg */
                     32: /* as param; as return
                     33:  * CC just need the condition codes; condition codes are valid
                     34:  * VALUE need the value (for incr/decr.  as opposed to just the side effect)
                     35:  * TOSTACK put the result on the stack
                     36:  * ASADDR as an address, for various weird environments (calls, extzv, ...)
                     37:  * SCRATCH ; the result is in a scratch place
                     38:  * ICON0 ; the result is the constant 0
                     39:  * ICON1 ; the result is the constant 1
                     40:  * ISREG ; the result is in a register
                     41:  * DESTISLEFT put the result in the left operand (asg ops)
                     42:  * CANINDIR ; the result can be indirected through
                     43:  * FAIL ; there is no result, for we ran out of registers
                     44:  * INDEX ; some size-dependent addressing mode was used, so watch it
                     45:  * FAIL0 ; we ran out of register 0
                     46:  * USED plan to use result; don't re-use, as in 3+(*p++=*q++), register p, q
                     47: /* ASADDR is never used with a dest, and is always VALUE|ASADDR */
                     48: ret doit(), allocreg(), specialreg(), indir(), tostack(), indirit(), simpler(),
                     49:        alloctmp(), checksize(), addrsimp();
                     50: 
                     51: #define LEFT 1
                     52: #define RIGHT 2
                     53: char *genjmp(), *genjbc();
                     54: #define BUF 256
                     55: extern char bufs[][BUF];
                     56: extern char *buf, *bufend;
                     57: extern char prbuf[];
                     58: char *prptr;
                     59: #define done(s, n, rm) s.ans = (buf - bufs[0])/BUF; buf += BUF; s.flag = n; s.regmask = rm; if(buf >= bufend) overr(); return(s)
                     60: #define str(s) bufs[s.ans]
                     61: 
                     62: enum op { Andeq = 1, And, Cmp, Comop, Decr, Diveq, Div, Xoreq, Xor,
                     63:        Incr, Lseq, Ls, Minuseq, Minus, Modeq, Mod, Muleq, Mul, Oreq,
                     64:        Or, Pluseq, Plus, Rseq, Rs, Asg, Cm, Call, Stcall, Stasg, Compl,
                     65:        Conv, Genbr, Genlab, Genubr, Star, Addr, Ucall, Uminus, Ustcall,
                     66:        Init, Funarg, Fld, Starg, Auto, Reg, Name, Param, Icon, Snode,
                     67:        Qnode, Rnode};
                     68: enum type { Tpoint, Tchar, Tuchar, Tshort, Tushort, Tint, Tuint, Tlong,
                     69:        Tulong, Tfloat, Tdouble, Tstruct, Tvoid};
                     70: typedef struct node {
                     71:        enum op op;
                     72:        enum type type;
                     73:        struct node *left, *right;
                     74:        char *name;
                     75:        int lval, rval, label, lop;
                     76:        int stsize, argsize;
                     77: } mnod;
                     78: 
                     79: mnod myt[];
                     80: mnod *copytree(), *gimmenode();
                     81: extern int ntree, regvar, Pflag, bbcount;
                     82: #define debugpr(s) /*printf(s), prtree(svq), putchar('\n')*/

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