|
|
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.