P-code lister

git-svn-id: svn://svn.code.sf.net/p/nuttx/code/trunk@501 42af7a65-404d-4744-a932-0658087f49c3

2 files changed, 477 insertions, 0 deletions

diff --git a/misc/pascal/insn32/plist/Makefile b/misc/pascal/insn32/plist/Makefile
new file mode 100644
index 000000000..506cdfee2
--- /dev/null
+++ b/misc/pascal/insn32/plist/Makefile
@@ -0,0 +1,90 @@
+############################################################################
+# insn32/plist/Makefile
+#
+#   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.
+#
+############################################################################
+#
+# Directories
+#
+PLISTDIR	= ${shell pwd}
+INSNDIR		= $(PLISTDIR)/..
+PASCAL		= $(PLISTDIR)/../..
+
+include $(PASCAL)/Make.config
+include $(PASCAL)/Make.defs
+
+INCDIR		= $(PASCAL)/include
+LIBDIR		= $(PASCAL)/lib
+BINDIR		= $(PASCAL)/bin32
+
+#
+# Tools
+#
+EXTRA_INCLUDES	= -I$(INSNDIR)/include
+INCLUDES	+= $(EXTRA_INCLUDES)
+CFLAGS		+= $(EXTRA_INCLUDES)
+
+#
+# Objects and targets
+#
+PLISTSRCS		= plist.c
+PLISTOBJS		= $(PLISTSRCS:.c=.o)
+
+OBJS			= $(PLISTOBJS)
+
+all: plist
+.PHONY: all plist clean
+
+$(OBJS): %.o: %.c
+	$(CC) -c $(CFLAGS) $< -o $@
+
+check_libs:
+	@if [ ! -f $(LIBDIR)/libpoff.a ] ; then \
+		echo "$(LIBDIR)/libpoff.a does not exist" ; \
+		exit 1 ; \
+	fi
+	@if [ ! -f $(LIBDIR)/libpas.a ] ; then \
+		echo "$(LIBDIR)/libpas.a does not exist" ; \
+		exit 1 ; \
+	fi
+	@if [ ! -f $(LIBDIR)/libinsn.a ] ; then \
+		echo "$(LIBDIR)/libinsn.a does not exist" ; \
+		exit 1 ; \
+	fi
+
+$(BINDIR)/plist: check_libs $(PLISTOBJS)
+	$(CC) -o $@ $(LDFLAGS) $(PLISTOBJS) -lpoff -linsn -lpas
+
+plist: $(BINDIR)/plist
+
+clean:
+	$(RM) plist *.o core *~
diff --git a/misc/pascal/insn32/plist/plist.c b/misc/pascal/insn32/plist/plist.c
new file mode 100644
index 000000000..8bc1e210d
--- /dev/null
+++ b/misc/pascal/insn32/plist/plist.c
@@ -0,0 +1,387 @@
+/**********************************************************************

+ * plist.c

+ * POFF file lister

+ *

+ *   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 <stdlib.h>

+#include <unistd.h>

+#include <ctype.h>

+#include <string.h>

+

+#define _GNU_SOURCE

+#include <getopt.h>

+

+#include "keywords.h"

+#include "pdefs.h"

+#include "podefs.h"

+#include "pinsn32.h"

+#include "pedefs.h"

+

+#include "pofflib.h"

+

+#include "paslib.h"

+#include "pinsn.h"

+

+/**********************************************************************

+ * Definitions

+ **********************************************************************/

+

+#define MAX_STRING 80

+

+/**********************************************************************

+ * Private Data

+ **********************************************************************/

+

+static char *poffFileName      = NULL;

+static int  showFileHeader     = 0;

+static int  showSectionHeaders = 0;

+static int  showSymbols        = 0;

+static int  showRelocs         = 0;

+static int  disassemble        = 0;

+

+/**********************************************************************

+ * Private Constant Data

+ **********************************************************************/

+

+static const struct option long_options[] =

+{

+  {"all",              0, NULL, 'a'},

+  {"file-header",      0, NULL, 'h'},

+  {"section-headers",  0, NULL, 'S'},

+  {"symbols",          0, NULL, 's'},

+  {"relocs",           0, NULL, 'r'},

+  {"disassemble",      0, NULL, 'd'},

+  {"help",             0, NULL, 'H'},

+  {NULL,     0, NULL, 0}

+};

+

+/**********************************************************************

+ * Private Function Prototypes

+ **********************************************************************/

+

+static void     showUsage          (const char *progname);

+static void     parseArgs          (int argc, char **argv);

+static void     dumpProgramData    (poffHandle_t poffHandle);

+

+/**********************************************************************

+ * Global Functions

+ **********************************************************************/

+

+int main (int argc, char *argv[], char *envp[])

+{

+  FILE   *object;                  /* Object file pointer */

+  poffHandle_t poffHandle;         /* Handle for POFF object */

+  char    fileName[FNAME_SIZE+1];  /* Object file name */

+  uint16  errCode;                 /* See pedefs.h */

+

+  /* Parse the command line arguments */

+

+  parseArgs(argc, argv);

+

+  /* Open source POFF file -- Use .o or command line extension, if supplied */

+

+  (void) extension (poffFileName, "o", fileName, 0);

+  if (!(object = fopen (fileName, "rb")))

+    {

+      printf ("Error opening %s\n", fileName);

+      exit (1);

+    } /* end if */

+

+  /* Read the POFF file */

+

+  poffHandle = poffCreateHandle();

+  if (poffHandle == NULL)

+    {

+      printf ("Could not get POFF handler\n");

+      exit (1);

+    }

+

+  errCode = poffReadFile(poffHandle, object);

+  if (errCode != eNOERROR)

+    {

+      printf ("Could not read POFF file\n");

+      exit (1);

+    }

+

+  /* Dump the File Header */

+

+  if (showFileHeader)

+    {

+      poffDumpFileHeader(poffHandle, stdout);

+    }

+

+  /* Dump the Section Headers */

+

+  if (showSectionHeaders)

+    {

+      poffDumpSectionHeaders(poffHandle, stdout);

+    }

+

+  /* Dump the symbol table */

+

+  if (showSymbols)

+    {

+      poffDumpSymbolTable(poffHandle, stdout);

+    }

+

+  /* Dump the relocation table */

+

+  if (showRelocs)

+    {

+      poffDumpRelocTable(poffHandle, stdout);

+    }

+

+  /* Dump the program data section -- Main Loop */

+

+  if (disassemble)

+    {

+      dumpProgramData(poffHandle);

+    }

+

+  /* Close files and release objects */

+

+  poffDestroyHandle(poffHandle);

+  (void)fclose(object);

+  return 0;

+} /* end main */

+

+/**********************************************************************

+ * Private Functions

+ **********************************************************************/

+

+static void showUsage(const char *progname)

+{

+  fprintf(stderr, "Usage:\n");

+  fprintf(stderr, "  %s [options] <poff-filename>\n",

+	  progname);

+  fprintf(stderr, "options:\n");

+  fprintf(stderr, "  -a --all              Equivalent to: -h -S -s -r -d\n");

+  fprintf(stderr, "  -h --file-header      Display the ELF file header\n");

+  fprintf(stderr, "  -S --section-headers  Display the sections' header\n");

+  fprintf(stderr, "  -s --symbols          Display the symbol table\n");

+  fprintf(stderr, "  -r --relocs           Display the relocations\n");

+  fprintf(stderr, "  -d --disassemble      Display disassembled text\n");

+  fprintf(stderr, "  -H --help             Display this information\n");

+  exit(1);

+}

+

+/***********************************************************************/

+

+static void parseArgs(int argc, char **argv)

+{

+  int option_index;

+  int c;

+

+  /* Check for existence of filename argument */

+

+  if (argc < 2)

+    {

+      fprintf(stderr, "ERROR: POFF filename required\n");

+      showUsage(argv[0]);

+    } /* end if */

+

+  /* Parse the command line options */

+

+  do

+    {

+      c = getopt_long (argc, argv, "ahSsrdH",

+		       long_options, &option_index);

+      if (c != -1)

+	{

+	  switch (c)

+	    {

+	    case 'a' :

+	      showFileHeader     = 1;

+	      showSectionHeaders = 1;

+	      showSymbols        = 1;

+	      showRelocs         = 1;

+	      disassemble        = 1;

+	      break;

+

+	    case 'h' :

+	      showFileHeader     = 1;

+	      break;

+

+	    case 'S' :

+	      showSectionHeaders = 1;

+	      break;

+

+	    case 's' :

+	      showSymbols        = 1;

+	      break;

+

+	    case 'r' :

+	      showRelocs         = 1;

+	      break;

+

+	    case 'd' :

+	      disassemble        = 1;

+	      break;

+

+	    case 'H' :

+	      showUsage(argv[0]);

+	      break;

+

+	    default:

+	      /* Shouldn't happen */

+

+	      fprintf(stderr, "ERROR: Unrecognized option\n");

+	      showUsage(argv[0]);

+	    }

+	}

+    }

+  while (c != -1);

+

+  /* Get the name of the p-code file(s) from the last argument(s) */

+

+  if (optind != argc-1)

+    {

+      fprintf(stderr, "ERROR: POFF filename required as final argument\n");

+      showUsage(argv[0]);

+    }

+

+  /* Save the POFF file name */

+

+  poffFileName = argv[argc-1];

+}

+

+/***********************************************************************/

+

+static void dumpProgramData(poffHandle_t poffHandle)

+{

+  poffLibLineNumber_t *lastln;     /* Previous line number reference */

+  poffLibLineNumber_t *ln;         /* Current line number reference */

+  poffLibDebugFuncInfo_t *dfi;     /* Current line debug info */

+  uint32  pc;                      /* Program counter */

+  int     opSize;                  /* Size of the opcode */

+  int     inch;                    /* Input char */

+  OPTYPE  op;                      /* opcode */

+

+  /* Read the line number entries from the POFF file */

+

+  poffReadLineNumberTable(poffHandle);

+

+  /* Read the debug function information from the POFF file */

+

+  poffReadDebugFuncInfoTable(poffHandle);

+

+  /* Dump the program data section -- DumpProgramData Loop */

+

+  pc     = 0;

+  lastln = NULL;

+

+  while ((inch = poffGetProgByte(poffHandle)) != EOF)

+    {

+      /* Get opcode arguments (if any) */

+

+      op.op  = inch;

+      opSize = 1;

+

+      if (inch & o32)

+	{

+	  uint32 arg;

+

+	  /* Handle 32-bits in big endian byte stream */

+

+	  arg  = poffGetProgByte(poffHandle) << 24;

+	  arg |= poffGetProgByte(poffHandle) << 16;

+	  arg |= poffGetProgByte(poffHandle) <<  8;

+	  arg |= poffGetProgByte(poffHandle);

+

+	  op.arg  = arg;

+	  opSize += 4;

+	}

+

+      /* Check for debug information associated with this line */

+

+      dfi = poffFindDebugFuncInfo(pc);

+      if (dfi)

+	{

+	  int i;

+	  if (dfi->retsize)

+	    {

+	      printf("\nFUNCTION ENTRY:  return size=%ld nparms=%ld\n",

+		     dfi->retsize, dfi->nparms);

+	    }

+	  else

+	    {

+	      printf("\nPROCEDURE ENTRY: nparms=%ld\n", dfi->nparms);

+	    }

+

+	  for (i = 0; i < dfi->nparms; i++)

+	    {

+	      printf("Argument %2d:     size=%ld\n", i, dfi->argsize[i]);

+	    }

+	}

+

+      /* Find the line number associated with this line */

+

+      ln = poffFindLineNumber(pc);

+      if ((ln) && (ln != lastln))

+	{

+	  /* Print the line number line */

+

+	  printf("\n%s:%ld\n", ln->filename, ln->lineno);

+

+	  /* This will suppress reporting the same line number

+	   * repeatedly.

+	   */

+

+	  lastln = ln;

+	}

+

+      /* Print the address then the opcode on stdout */

+

+      fprintf(stdout, "%08lx ", pc);

+      insn_DisassemblePCode(stdout, &op);

+

+      /* Bump the PC to the next address */

+

+      pc += opSize;

+

+    } /* end while */

+

+  /* Release buffers associated with line number and debug information */

+

+  poffReleaseLineNumberTable();

+  poffReleaseDebugFuncInfoTable();

+

+} /* end dumpProgramData */

+

+/***********************************************************************/