Return to mip.h CVS log

Up to [Research Unix] / researchv9 / jtools / src / pi

Annotation of researchv9/jtools/src/pi/mip.h, revision 1.1.1.1

1.1       root        1: # define TNULL PTR    /* pointer to UNDEF */
                      2: # define FARG 1
                      3: # define CHAR 2
                      4: # define SHORT 3
                      5: # define INT 4
                      6: # define LONG 5
                      7: # define FLOAT 6
                      8: # define DOUBLE 7
                      9: # define STRTY 8
                     10: # define UNIONTY 9
                     11: # define ENUMTY 10
                     12: # define MOETY 11
                     13: # define UCHAR 12
                     14: # define USHORT 13
                     15: # define UNSIGNED 14
                     16: # define ULONG 15
                     17: # define VOID FTN      /* function returning UNDEF (for void) */
                     18: # define UNDEF 17
                     19: # define BITS 18
                     20: # define UBITS 19
                     21: 
                     22: # define PTR  0100
                     23: # define FTN  0200
                     24: # define ARY  0300
                     25: 
                     26: # define BTMASK 077
                     27: # define BTSHIFT 6
                     28: # define TSHIFT 2
                     29: # define TMASK 0300
                     30: 
                     31: # define BTYPE(x)  (x&BTMASK)   /* basic type of x */
                     32: # define ISPTR(x) ((x&TMASK)==PTR)
                     33: # define ISFTN(x)  ((x&TMASK)==FTN)  /* is x a function type */
                     34: # define ISARY(x)   ((x&TMASK)==ARY)   /* is x an array type */
                     35: # define INCREF(x) (((x&~BTMASK)<<TSHIFT)|PTR|(x&BTMASK))
                     36: # define DECREF(x) (((x>>TSHIFT)&~BTMASK)|(x&BTMASK))

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