diff options
Diffstat (limited to 'misc/pascal/insn32/libinsn/pgen.c')
| -rw-r--r-- | misc/pascal/insn32/libinsn/pgen.c | 383 |
1 files changed, 383 insertions, 0 deletions
diff --git a/misc/pascal/insn32/libinsn/pgen.c b/misc/pascal/insn32/libinsn/pgen.c new file mode 100644 index 000000000..7283622aa --- /dev/null +++ b/misc/pascal/insn32/libinsn/pgen.c @@ -0,0 +1,383 @@ +/**********************************************************************
+ * pgen.c
+ * P-Code generation logic
+ *
+ * Copyright (C) 2008 Gregory Nutt. All rights reserved.
+ * Author: Gregory Nutt <spudmonkey@racsa.co.cr>
+ *
+ * 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. Neither the name NuttX 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 COPYRIGHT HOLDERS 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
+ * COPYRIGHT OWNER 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.
+ *
+ **********************************************************************/
+
+/**********************************************************************
+ * Included Files
+ **********************************************************************/
+
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include "config.h" /* Configuration */
+#include "keywords.h" /* Standard types */
+#include "pdefs.h" /* Common types */
+#include "pofflib.h" /* POFF library definitions */
+#include "podefs.h" /* Logical opcode definitions */
+#include "pedefs.h" /* Error codes */
+#include "pinsn32.h" /* 32-bit target INSN opcode definitions */
+#include "perr.h" /* Error handling logic */
+
+#include "pinsn.h" /* (to verify prototypes in this file) */
+
+/**********************************************************************
+ * Definitions
+ **********************************************************************/
+
+#define INVALID_INCLUDE (-1)
+
+/**********************************************************************
+ * Global Variables
+ **********************************************************************/
+
+/* See pas.h */
+extern poffHandle_t poffHandle; /* Handle to POFF object */
+extern FILE *lstFile; /* LIST file pointer */
+extern sint16 level; /* Static nesting level */
+
+/**********************************************************************
+ * Private Variables
+ **********************************************************************/
+
+static const ubyte opmap[NUM_OPCODES] =
+{
+ oNOP, /* opNOP */
+ oNEG, /* opNEG */
+ oABS, /* opABS */
+ oINC, /* opINC */
+ oDEC, /* opDEC */
+ oNOT, /* opNOT */
+ oADD, /* opADD */
+ oSUB, /* opSUB */
+ oMUL, /* opMUL */
+ oDIV, /* opDIV */
+ oMOD, /* opMOD */
+ oSLL, /* opSLL */
+ oSRL, /* opSRL */
+ oSRA, /* opSRA */
+ oOR, /* opOR */
+ oAND, /* opAND */
+ oEQUZ, /* opEQUZ */
+ oNEQZ, /* opNEQZ */
+ oLTZ, /* opLTZ */
+ oGTEZ, /* opGTEZ */
+ oGTZ, /* opGTZ */
+ oLTEZ, /* opLTEZ */
+ oEQU, /* opEQU */
+ oNEQ, /* opNEQ */
+ oLT, /* opLT */
+ oGTE, /* opGTE */
+ oGT, /* opGT */
+ oLTE, /* opLTE */
+ oBIT, /* opBIT */
+ oLDI, /* opLDI */
+ oLDIB, /* opLDIB */
+ oLDIM, /* opLDIM */
+ oSTI, /* opSTI */
+ oSTIB, /* opSTIB */
+ oSTIM, /* opSTIM */
+ oDUP, /* opDUP */
+ oPUSHS, /* opPUSHS */
+ oPOPS, /* opPOPS */
+ oRET, /* opRET */
+ oEND, /* opEND */
+ oFLOAT, /* opFLOAT */
+ oJEQUZ, /* opJEQUZ */
+ oJNEQZ, /* opJNEQZ */
+ oJMP, /* opJMP */
+ oJEQU, /* opJEQU */
+ oJNEQ, /* opJNEQ */
+ oJLT, /* opJLT */
+ oJGTE, /* opJGTE */
+ oJGT, /* opJGT */
+ oJLTE, /* opJLTE */
+ oLD, /* opLD */
+ oLDH, /* opLDH */
+ oLDB, /* opLDB */
+ oLDM, /* opLDM */
+ oST, /* opST */
+ oSTB, /* opSTB */
+ oSTM, /* opSTM */
+ oLDX, /* opLDX */
+ oLDXB, /* opLDXB */
+ oLDXM, /* opLDXM */
+ oSTX, /* opSTX */
+ oSTXB, /* opSTXB */
+ oSTXM, /* opSTXM */
+ oLA, /* opLA */
+ oLAC, /* opLAC */
+ oPUSH, /* opPUSH */
+ oINDS, /* opINDS */
+ oLAX, /* opLAX */
+ oLIB, /* opLIB */
+ oLABEL, /* opLABEL */
+ oPCAL, /* opPCAL */
+ oLDS, /* opLDS */
+ oLDSH, /* opLDSH */
+ oLDSB, /* opLDSB */
+ oLDSM, /* opLDSM */
+ oSTS, /* opSTS */
+ oSTSB, /* opSTSB */
+ oSTSM, /* opSTSM */
+ oLDSX, /* opLDSX */
+ oLDSXB, /* opLDSXB */
+ oLDSXM, /* opLDSXM */
+ oSTSX, /* opSTSX */
+ oSTSXB, /* opSTSXB */
+ oSTSXM, /* opSTSXM */
+ oLAS, /* opLAS */
+ oLASX, /* opLASX */
+ oSYSIO, /* opSYSIO */
+ oLINE, /* opLINE */
+};
+
+static uint16 g_nCurrentIncludeNumber = INVALID_INCLUDE;
+
+/***********************************************************************
+ * Private Function Prototypes
+ ***********************************************************************/
+
+/***********************************************************************
+ * Private Functions
+ ***********************************************************************/
+
+static void
+insn32_GenerateSimple(ubyte opcode);
+static void
+insn32_GenerateDataOperation(ubyte opcode, uint32 data);
+static void
+insn32_Generate(enum pcode_e opcode, uint32 arg);
+
+/***********************************************************************
+ * Private Functions
+ ***********************************************************************/
+
+/***********************************************************************/
+/* Disassemble an Op-code */
+
+#if CONFIG_DEBUG
+static inline void
+insn32_DisassemblePCode(ubyte opcode, uint32 arg)
+{
+ OPTYPE op;
+
+ op.op = opcode;
+ op.arg = arg;
+
+ insn_DisassemblePCode(lstFile, &op);
+}
+#else
+# define insn32_DisassemblePCode(op,a)
+#endif
+
+/***********************************************************************/
+static inline void
+insn32_DisassembleOpcode(ubyte opcode, uint32 data)
+{
+#if CONFIG_DEBUG
+ OPTYPE op;
+ op.op = opcode;
+ op.arg = data;
+ insn32_DisassemblePCode(opcode, 0);
+#endif
+}
+
+/***********************************************************************/
+/* Generate an Op-Code */
+
+static void
+insn32_GenerateSimple(ubyte opcode)
+{
+ TRACE(lstFile,"[insn32_GenerateSimple:0x%02x]", opcode);
+
+ /* Write the 8-bit opcode */
+
+ poffAddProgByte(poffHandle, opcode);
+
+ /* Now, add the disassembled PCode to the list file. */
+
+ insn32_DisassembleOpcode(opcode, 0);
+}
+
+/***********************************************************************/
+
+static void
+insn32_GenerateDataOperation(ubyte opcode, uint32 data)
+{
+ union
+ {
+ ubyte b[4];
+ uint32 w;
+ } udata;
+
+ TRACE(lstFile,"[insn32_GenerateDataOperation:0x%02x:0x%07x]", opcode, data);
+
+ /* Write the 8-bit opcode */
+
+ poffAddProgByte(poffHandle, opcode);
+
+ /* Write the 32-bit opcode */
+
+ udata.w = data;
+ (void)poffAddProgByte(poffHandle, udata.b[opB1]);
+ (void)poffAddProgByte(poffHandle, udata.b[opB2]);
+ (void)poffAddProgByte(poffHandle, udata.b[opB3]);
+ (void)poffAddProgByte(poffHandle, udata.b[opB4]);
+
+ /* Now, add the disassembled PCode to the list file. */
+
+ insn32_DisassembleOpcode(opcode, data);
+}
+
+/***********************************************************************/
+
+static void
+insn32_Generate(enum pcode_e opcode, uint32 arg)
+{
+ ubyte insn_opcode = opmap[opcode];
+
+ TRACE(lstFile,"[insn32_Generate:0x%02x->0x%02x]", opcode, insn_opcode);
+
+ if (insn_opcode & o32)
+ {
+ insn32_GenerateDataOperation(insn_opcode, arg);
+ }
+ else
+ {
+ insn32_GenerateSimple(insn_opcode);
+
+ /* We ignore the argument... what if one was provided? */
+
+ if (arg != 0)
+ {
+ warn(eARGIGNORED);
+ }
+ }
+}
+
+/***********************************************************************
+ * Public Functions
+ ***********************************************************************/
+
+void
+insn_GenerateSimple(enum pcode_e opcode)
+{
+ insn32_Generate(opcode, 0);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateDataOperation(enum pcode_e opcode, sint32 data)
+{
+ insn32_Generate(opcode, (uint32)data);
+}
+
+/***********************************************************************/
+/* Data size for the next multiple register operation (in bytes) is
+ * retained in the DC register.
+ */
+
+void insn_GenerateDataSize(uint32 dwDataSize)
+{
+ insn32_GenerateDataOperation(oSDC, dwDataSize);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateFpOperation(ubyte fpOpcode)
+{
+ insn32_GenerateDataOperation(oFLOAT, fpOpcode);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateIoOperation(uint16 ioOpcode, uint16 fileNumber)
+{
+ uint32 arg = (uint32)fileNumber << 16 | (uint32)ioOpcode;
+ insn32_GenerateDataOperation(oSYSIO, arg);
+}
+
+/***********************************************************************/
+
+void
+insn_BuiltInFunctionCall(uint16 libOpcode)
+{
+ insn32_GenerateDataOperation(oLIB, (uint32)libOpcode);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateLevelReference(enum pcode_e opcode, uint16 level, sint32 offset)
+{
+ /* Note that level is ignored. We used the level set by the
+ * preceding call to insn_SetStackLevel().
+ */
+
+ insn32_Generate(opcode, (uint32)offset);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateProcedureCall(uint16 level, sint32 offset)
+{
+ insn32_GenerateDataOperation(oPCAL, (uint32)offset);
+}
+
+/***********************************************************************/
+
+void
+insn_GenerateLineNumber(uint16 includeNumber, uint32 lineNumber)
+{
+ if (includeNumber != g_nCurrentIncludeNumber)
+ {
+ g_nCurrentIncludeNumber = includeNumber;
+ insn32_GenerateDataOperation(oINCLUDE, includeNumber);
+ }
+ insn32_GenerateDataOperation(oLINE, lineNumber);
+}
+
+/***********************************************************************/
+
+void
+insn_SetStackLevel(uint32 level)
+{
+ insn32_GenerateDataOperation(oSLSP, level);
+}
|