Return to machdefs.h CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.bin / f77 / f77.tahoe / include

Annotation of 43BSDTahoe/usr.bin/f77/f77.tahoe/include/machdefs.h, revision 1.1.1.1

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!= TAHOE
                     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 LVARREG 11
                     65: #define ARGOFFSET 4
                     66: 
                     67: 
                     68: #define FUDGEOFFSET 1
                     69: #define BITSPERCHAR 8
                     70: #define XL 16
                     71: 
                     72: #define USETEXT                ".text"
                     73: #define USECONST       ".data\t0"
                     74: #define USEBSS         ".data\t1"
                     75: #define USEINIT                ".data\t2"
                     76: 
                     77: #define BLANKCOMMON "_BLNK_"
                     78: 
                     79: #define LABELFMT "%s:\n"
                     80: 
                     81: #define MAXREGVAR 5
                     82: #define TYIREG TYLONG
                     83: #define MSKIREG  (M(TYSHORT)|M(TYLONG))
                     84: 
                     85: #define MAXINT 0x7fffffff
                     86: #define MININT  0x80000000
                     87: 
                     88: #define MAXBYTE        0xff
                     89: #define BYTESIZE       8
                     90: 
                     91: #define SMALLVAR(x) ((x) < 512)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.