/**********************************************************************
* 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);
}