Bell 32V development

[unix-history] / usr / src / cmd / f77 / locdefs

diff --git a/usr/src/cmd/f77/locdefs b/usr/src/cmd/f77/locdefs
index b315a5d..8d2a746 100644 (file)
--- a/usr/src/cmd/f77/locdefs
+++ b/usr/src/cmd/f77/locdefs
@@ -1,7 +1,7 @@
 #ifndef TARGET
 TARGET NOT DEFINED !!!
 #endif
 #ifndef TARGET
 TARGET NOT DEFINED !!!
 #endif

-#if TARGET!=PDP11
+#if TARGET!=VAX

 Target= TARGET OUT OF RANGE!!
 #endif
 
 Target= TARGET OUT OF RANGE!!
 #endif
 


@@ -14,40 +14,41 @@ Family = FAMILY OUT OF RANGE
 
 #define TYLENG TYLONG
 
 
 #define TYLENG TYLONG
 

-#define TYINT  TYSHORT
-#define SZADDR 2
+#define TYINT  TYLONG
+#define SZADDR 4

 #define SZSHORT        2
 #define SZSHORT        2

-#define SZINT  2
+#define SZINT  4

 
 #define SZLONG 4
 #define SZLENG SZLONG
 
 #define ALIADDR SZADDR
 #define ALISHORT SZSHORT
 
 #define SZLONG 4
 #define SZLENG SZLONG
 
 #define ALIADDR SZADDR
 #define ALISHORT SZSHORT

-#define ALILONG 2
-#define ALIDOUBLE 2
+#define ALILONG 4
+#define ALIDOUBLE 4

 #define ALIINT ALILONG
 #define ALILENG        ALILONG
 
 #define ALIINT ALILONG
 #define ALILENG        ALILONG
 

+#define AUTOREG 13
+#define ARGREG 12
+#define CARGREG 12
+#define ARGOFFSET 4
+#define SAVESPACE 40

 
 

-#define AUTOREG 5
-#define ARGREG 4
-#define SAVESPACE 6

 
 #define FUDGEOFFSET 1
 #define BITSPERCHAR 8
 #define XL 8
 
 
 #define FUDGEOFFSET 1
 #define BITSPERCHAR 8
 #define XL 8
 

-#define USETEXT        "\t.text"
-#define USECONST       "\t.data"
-#define USEBSS "\t.bss"
-#define USEINIT        "\t.data"
+#define USETEXT        ".text"
+#define USECONST       ".data\t0"
+#define USEBSS ".data\t1"
+#define USEINIT        ".data\t2"

 
 #define BLANKCOMMON "_BLNK_"
 
 #define LABELFMT "%s:\n"
 
 #define BLANKCOMMON "_BLNK_"
 
 #define LABELFMT "%s:\n"

-#define MAXSHORT 32767

 
 

-#define MAXREGVAR 2
-#define TYIREG TYSHORT
-#define MSKIREG  M(TYSHORT)
+#define MAXREGVAR 4
+#define TYIREG TYLONG
+#define MSKIREG  (M(TYSHORT)|M(TYLONG))