1 #define TYLENG TYLONG /* char string length field */ 2 3 #define TYINT TYLONG 4 #define SZADDR 4 5 #define SZSHORT 2 6 #define SZINT 4 7 8 #define SZLONG 4 9 #define SZLENG SZLONG 10 11 #define SZDREAL 8 12 13 /* Alignment restrictions */ 14 15 #define ALIADDR SZADDR 16 #define ALISHORT SZSHORT 17 #define ALILONG 4 18 #define ALIDOUBLE 8 19 #define ALIINT ALILONG 20 #define ALILENG ALILONG 21 22 #define BLANKCOMMON "_BLNK__" /* Name for the unnamed 23 common block; this is unique 24 because of underscores */ 25 26 #define LABELFMT "%s:\n" 27 28 #define MAXREGVAR 4 29 #define TYIREG TYLONG 30 #define MSKIREG (M(TYSHORT)|M(TYLONG)) /* allowed types of DO indicies 31 which can be put in registers */ 32