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