date and time created 86/01/11 11:00:58 by sam

SCCS-vsn: old/pcc/ccom.tahoe/mac2defs.h 1.1
SCCS-vsn: old/pcc/ccom.tahoe/macdefs.h 1.1

diff --git a/usr/src/old/pcc/ccom.tahoe/mac2defs.h b/usr/src/old/pcc/ccom.tahoe/mac2defs.h
new file mode 100644 (file)
index 0000000..faedc98
--- /dev/null
+++ b/usr/src/old/pcc/ccom.tahoe/mac2defs.h
@@ -0,0 +1,53 @@
+/*     mac2defs.h      1.1     86/01/11        */
+
+/*     Tahoe Registers */
+
+       /* scratch registers */
+# define R0 0
+# define R1 1
+# define R2 2
+# define R3 3
+# define R4 4
+# define R5 5
+
+       /* register variables */
+# define R6 6
+# define R7 7
+# define R8 8
+# define R9 9
+# define R10 10
+# define R11 11
+# define R12 12
+
+       /* special purpose */
+# define FP 13 /* frame pointer */
+# define SP 14 /* stack pointer */
+# define PC 15 /* program counter */
+
+       /* floating registers */
+# define ACC 16        /* accumulator */
+
+extern int fregs;
+extern int maxargs;
+
+# define BYTEOFF(x) ((x)&03)
+# define wdal(k) (BYTEOFF(k)==0)
+# define BITOOR(x) ((x)>>3)  /* bit offset to oreg offset */
+
+# define REGSZ 16
+
+# define TMPREG FP
+
+# define R2REGS   /* permit double indexing */
+
+# define STOARG(p)     /* just evaluate the arguments, and be done with it... */
+# define STOFARG(p)
+# define STOSTARG(p)
+
+# define NESTCALLS
+
+# define MYREADER(p) myreader(p)
+int optim2();
+# define SIREG (SPECIAL|6)     /* indexed OREG */
+int special();
+#define callchk(p) if(p->in.op!=FORTCALL)allchk()

diff --git a/usr/src/old/pcc/ccom.tahoe/macdefs.h b/usr/src/old/pcc/ccom.tahoe/macdefs.h
new file mode 100644 (file)
index 0000000..bd94652
--- /dev/null
+++ b/usr/src/old/pcc/ccom.tahoe/macdefs.h
@@ -0,0 +1,84 @@
+/*     macdefs.h       1.1     86/01/11        */
+
+# define makecc(val,i)  lastcon = (lastcon<<8)|((val<<24)>>24);  
+
+# define  ARGINIT SZINT
+# define  AUTOINIT (13*SZINT)
+# define  SZCHAR 8
+# define  SZINT 32
+# define  SZFLOAT 32
+# define  SZDOUBLE 64
+# define  SZLONG 32
+# define  SZSHORT 16
+# define SZPOINT 32
+# define ALCHAR 8
+# define ALINT 32
+# define ALFLOAT 32
+# define ALDOUBLE 32
+# define ALLONG 32
+# define ALSHORT 16
+# define ALPOINT 32
+# define ALSTRUCT 8
+# define  ALSTACK 32 
+
+/*     size in which constants are converted */
+/*     should be long if feasable */
+
+# define CONSZ long
+# define CONFMT "%ld"
+
+/*     size in which offsets are kept
+/*     should be large enough to cover address space in bits
+*/
+
+# define OFFSZ long
+
+/*     character set macro */
+
+# define  CCTRANS(x) x
+
+/* register cookie for stack pointer */
+
+# define  STKREG 13
+
+/*     maximum and minimum register variables */
+
+# define MAXRVAR 12
+# define MINRVAR 6
+
+       /* various standard pieces of code are used */
+# define STDPRTREE
+# define LABFMT "L%d"
+
+/* show stack grows negatively */
+#define BACKAUTO
+#define BACKTEMP
+
+/* no field hardware support on Tahoe
+#define FIELDOPS */
+
+/* bytes are numbered from left to right
+#define RTOLBYTES */
+
+/* we want prtree included */
+# define STDPRTREE
+# ifndef FORT
+# define ONEPASS
+#endif
+
+# define ENUMSIZE(high,low) INT
+
+
+/* register char and short are not allowed
+#define REG_CHAR */
+/* addr of reg+offset is computed */
+# define ADDROREG
+# define FIXDEF(p) outstab(p)
+# define FIXARG(p) fixarg(p)
+# define FIXSTRUCT(a,b) outstruct(a,b)
+# define PRTDCON       /* use local version of prtdcon */
+# define ASSTRINGS     /* assembler recognizes strings */
+# define STABDOT       /* output .stabdot entries */
+# define LCOMM         /* .lcomm for non-global commons */
+# define BUFSTDERR     /* buffer error messages */
+# define FLEXNAMES     /* unlimited name length */