|
|
1.1 root 1: /*
2: * machdefs.h
3: *
4: * Machine definitions for f77 compiler, pass 1. VAX version.
5: *
6: * University of Utah CS Dept modification history:
7: *
8: * $Header: machdefs.h,v 1.3 86/02/18 10:55:30 rcs Exp $
9: * $Log: machdefs.h,v $
10: * Revision 1.3 86/02/18 10:55:30 rcs
11: * add 4.3 f77 references. C. Keating.
12: *
13: * Revision 2.2 85/01/14 03:41:13 donn
14: * Added changes to make the storage used for constants that are passed
15: * as arguments to functions come out read-only.
16: *
17: * Revision 2.1 84/07/19 12:55:11 donn
18: * Changed comment header to UofU.
19: *
20: * Revision 1.3 84/07/02 12:04:42 donn
21: * I goofed when I added the original changes for SZFLOAT and SZDOUBLE.
22: * Thanks to Raleigh Romine for pointing this out (sigh).
23: *
24: * Revision 1.2 84/02/28 20:46:16 donn
25: * Added definitions for SZFLOAT and SZDOUBLE, needed by Berkeley changes to
26: * produce shorter offsets to variables in machine code.
27: *
28: */
29:
30: #ifndef TARGET
31: TARGET NOT DEFINED !!!
32: #endif
33: #if TARGET!= TAHOE
34: Target= TARGET OUT OF RANGE!!
35: #endif
36:
37: #ifndef FAMILY
38: FAMILY NOT DEFINED!!!
39: #endif
40: #if FAMILY!=PCC && FAMILY!=DMR
41: Family = FAMILY OUT OF RANGE
42: #endif
43:
44: #define SDB 1
45:
46: #define TYLENG TYLONG
47:
48: #define TYINT TYLONG
49: #define SZADDR 4
50: #define SZSHORT 2
51: #define SZINT 4
52: #define SZFLOAT 4
53: #define SZDOUBLE 8
54:
55: #define SZLONG 4
56: #define SZLENG SZLONG
57:
58: #define ALIADDR SZADDR
59: #define ALISHORT SZSHORT
60: #define ALILONG 4
61: #define ALIDOUBLE 4
62: #define ALIINT ALILONG
63: #define ALILENG ALILONG
64:
65: #define AUTOREG 13
66: #define ARGREG 12
67: #define LVARREG 11
68: #define ARGOFFSET 4
69:
70:
71: #define FUDGEOFFSET 1
72: #define BITSPERCHAR 8
73: #define XL 16
74:
75: #define USETEXT ".text"
76: #define USECONST ".data\t0"
77: #define USEBSS ".data\t1"
78: #define USEINIT ".data\t2"
79:
80: #define BLANKCOMMON "_BLNK_"
81:
82: #define LABELFMT "%s:\n"
83:
84: #define MAXREGVAR 5
85: #define TYIREG TYLONG
86: #define MSKIREG (M(TYSHORT)|M(TYLONG))
87:
88: #define MAXINT 0x7fffffff
89: #define MININT 0x80000000
90:
91: #define MAXBYTE 0xff
92: #define BYTESIZE 8
93:
94: #define SMALLVAR(x) ((x) < 512)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.