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