diff options
Diffstat (limited to 'misc/pascal/insn16')
-rw-r--r-- | misc/pascal/insn16/include/pexec.h | 17 | ||||
-rw-r--r-- | misc/pascal/insn16/prun/pdbg.c | 1 | ||||
-rw-r--r-- | misc/pascal/insn16/prun/pexec.c | 1 | ||||
-rw-r--r-- | misc/pascal/insn16/prun/pload.c | 2 | ||||
-rw-r--r-- | misc/pascal/insn16/prun/prun.c | 1 |
5 files changed, 18 insertions, 4 deletions
diff --git a/misc/pascal/insn16/include/pexec.h b/misc/pascal/insn16/include/pexec.h index de35589d9..2b705ea34 100644 --- a/misc/pascal/insn16/include/pexec.h +++ b/misc/pascal/insn16/include/pexec.h @@ -44,10 +44,27 @@ * Definitions
****************************************************************************/
+#define BPERI 2
+#define ITOBSTACK(i) ((i) << 1)
+#define BTOISTACK(i) ((i) >> 1)
+#define ROUNDBTOI(i) (((i) + 1) >> 1)
+
/****************************************************************************
* Type Definitions
****************************************************************************/
+typedef uint16 uStackType; /* Stack values are 16-bits in length */
+typedef sint16 sStackType;
+typedef uint16 addrType; /* Addresses are 16-bits in length */
+typedef uint16 levelType; /* Limits to MAXUINT16 levels */
+
+union stack_u
+{
+ uStackType *i;
+ ubyte *b;
+};
+typedef union stack_u stackType;
+
/* This structure describes the parameters needed to initialize the p-code
* interpreter.
*/
diff --git a/misc/pascal/insn16/prun/pdbg.c b/misc/pascal/insn16/prun/pdbg.c index 54ebefa39..ee5ea1245 100644 --- a/misc/pascal/insn16/prun/pdbg.c +++ b/misc/pascal/insn16/prun/pdbg.c @@ -49,7 +49,6 @@ #include "pinsn16.h"
#include "pxdefs.h"
#include "pedefs.h"
-#include "pmach.h"
#include "paslib.h"
#include "pinsn.h"
diff --git a/misc/pascal/insn16/prun/pexec.c b/misc/pascal/insn16/prun/pexec.c index d2caca850..e3d1c1793 100644 --- a/misc/pascal/insn16/prun/pexec.c +++ b/misc/pascal/insn16/prun/pexec.c @@ -49,7 +49,6 @@ #include "pfdefs.h"
#include "pxdefs.h"
#include "pedefs.h"
-#include "pmach.h"
#include "paslib.h"
#include "pexec.h"
diff --git a/misc/pascal/insn16/prun/pload.c b/misc/pascal/insn16/prun/pload.c index e71026256..b460a9079 100644 --- a/misc/pascal/insn16/prun/pload.c +++ b/misc/pascal/insn16/prun/pload.c @@ -38,10 +38,10 @@ ****************************************************************************/
#include <stdio.h>
+#include <stdlib.h>
#include <errno.h>
#include "keywords.h"
-#include "pmach.h"
#include "pedefs.h"
#include "pofflib.h"
#include "perr.h"
diff --git a/misc/pascal/insn16/prun/prun.c b/misc/pascal/insn16/prun/prun.c index cc7c91111..6ad478b2b 100644 --- a/misc/pascal/insn16/prun/prun.c +++ b/misc/pascal/insn16/prun/prun.c @@ -49,7 +49,6 @@ #include "pinsn16.h"
#include "pxdefs.h"
#include "pedefs.h"
-#include "pmach.h"
#include "paslib.h"
#include "perr.h"
|