BSD 4_3_Net_2 release

[unix-history] / usr / src / usr.bin / pascal / px / machdep.h

diff --git a/usr/src/usr.bin/pascal/px/machdep.h b/usr/src/usr.bin/pascal/px/machdep.h
index b99dd94..4425944 100644 (file)
--- a/usr/src/usr.bin/pascal/px/machdep.h
+++ b/usr/src/usr.bin/pascal/px/machdep.h
@@ -1,20 +1,57 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *     This product includes software developed by the University of
+ *     California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.

  *
  *

- *     @(#)machdep.h   5.2 (Berkeley) %G%
+ *     @(#)machdep.h   5.4 (Berkeley) 4/16/91

  */
 
 #ifdef ADDR32
  */
 
 #ifdef ADDR32

-#define pushaddr push4
-#define popaddr (char *)pop4
+#define pushaddr(x)    push4((long)(x))
+#define popaddr()      (char *)pop4()

 #endif ADDR32
 #ifdef ADDR16
 #endif ADDR32
 #ifdef ADDR16

-#define pushaddr push2
-#define popaddr (char *)pop2
+#define pushaddr(x)    push2((short)(x))
+#define popaddr()      (char *)pop2()

 #endif ADDR16
 
 #endif ADDR16
 

+#define popfile()      (FILE *)(popaddr())
+
+#if defined(pdp11)
+#define        popint  pop2
+#define        pushint push2
+#else
+#define popint pop4
+#define pushint        push4
+#endif
+

 /*
  * Machine specific macros for reading quantities from the
  * interpreter instruction stream. Operands in the instruction
 /*
  * Machine specific macros for reading quantities from the
  * interpreter instruction stream. Operands in the instruction


@@ -37,3 +74,42 @@
        target = *tsp++ << 16, target += *(unsigned short *)tsp
 #define STACKALIGN(target, value) target = ((value) + 3) &~ 3
 #endif tahoe
        target = *tsp++ << 16, target += *(unsigned short *)tsp
 #define STACKALIGN(target, value) target = ((value) + 3) &~ 3
 #endif tahoe

+
+/*
+ * The following macros implement all accesses to the interpreter stack.
+ *
+ * They used to be hard-coded assembler stuff massaged into the compiler
+ * output by sed scripts, but things are cleaner now.
+ *
+ * The STACKSIZE is an arbitrary value.  I picked 100K since it was unlikely
+ * that anybody's program would run out of stack.  Automatic allocation
+ * would be nice, maybe procedure call should check for enough space + slop
+ * and expand it if necessary.  Expanding the stack will require
+ * pointer relocation if it moves, though.  Probably better would be a
+ * command line option to set the stack size.
+ */
+#define        STACKSIZE       100000
+#define        setup()         { \
+       extern char *malloc(); \
+       stack.cp = STACKSIZE + malloc((unsigned)STACKSIZE); \
+       }
+#ifndef tahoe
+#define        push2(x)        (*--stack.sp) = (x)
+#else
+#define        push2(x)        (*--stack.lp) = (x) << 16
+#endif
+#define push4(x)       (*--stack.lp)  = (x)
+#define push8(x)       (*--stack.dbp) = (x)
+#define pushsze8(x)    (*--stack.s8p) = (x)
+#define pushsp(x)      (stack.cp -= (x))
+#ifndef tahoe
+#define pop2()         (*stack.sp++)
+#else
+#define pop2()         (*stack.lp++) >> 16
+#endif
+#define pop4()         (*stack.lp++)
+#define pop8()         (*stack.dbp++)
+#define popsze8()      (*stack.s8p++)
+#define popsp(x)       (void)(stack.cp += (x))
+#define        enableovrflo()  /*nop*/
+#define        disableovrflo() /*nop*/