diff options
Diffstat (limited to 'misc/pascal/libpoff/pfswap.c')
| -rw-r--r-- | misc/pascal/libpoff/pfswap.c | 250 |
1 files changed, 250 insertions, 0 deletions
diff --git a/misc/pascal/libpoff/pfswap.c b/misc/pascal/libpoff/pfswap.c new file mode 100644 index 000000000..bb99190bc --- /dev/null +++ b/misc/pascal/libpoff/pfswap.c @@ -0,0 +1,250 @@ +/**********************************************************************
+ * libpoff/pfswap.c
+ * Handle POFF Endian-ness
+ *
+ * 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 "keywords.h" /* Standard types */
+#include "paslib.h" /* Common library */
+#include "pfprivate.h" /* POFF private definitions */
+
+/**********************************************************************
+ * Definitions
+ **********************************************************************/
+
+/**********************************************************************
+ * Global Variables
+ **********************************************************************/
+
+/**********************************************************************
+ * Private Variables
+ **********************************************************************/
+
+/***********************************************************************
+ * Private Function Prototypes
+ ***********************************************************************/
+
+/***********************************************************************
+ * Private Functions
+ ***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffSwapRelocationEntry(poffRelocation_t *prel)
+{
+ prel->rl_info = poff32(prel->rl_info);
+ prel->rl_offset = poff32(prel->rl_offset);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffSwapSymbolTableEntry(poffSymbol_t *psym)
+{
+ psym->st_name = poff32(psym->st_name);
+ psym->st_value = poff32(psym->st_value);
+ psym->st_size = poff32(psym->st_size);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffSwapFileTabEntry(poffFileTab_t *pfile)
+{
+ *pfile = poff32((uint32)*pfile);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffSwaplineno(poffLineNumber_t *plineno)
+{
+ plineno->ln_lineno = poff16(plineno->ln_lineno);
+ plineno->ln_fileno = poff16(plineno->ln_fileno);
+ plineno->ln_poffset = poff32(plineno->ln_poffset);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffDebugFuncEntry(poffDebugFuncInfo_t *pdbg)
+{
+ pdbg->df_value = poff32(pdbg->df_value);
+ pdbg->df_size = poff32(pdbg->df_size);
+ pdbg->df_nparms = poff32(pdbg->df_nparms);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+static inline void poffDebugArgEntry(poffDebugArgInfo_t *parg)
+{
+ parg->da_size = poff32(parg->da_size);
+}
+#endif
+
+/***********************************************************************
+ * Public Functions
+ ***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapFileHeader(poffFileHeader_t *pFileHeader)
+{
+ pFileHeader->fh_shsize = poff16(pFileHeader->fh_shsize);
+ pFileHeader->fh_shnum = poff16(pFileHeader->fh_shnum);
+ pFileHeader->fh_name = poff32(pFileHeader->fh_name);
+ pFileHeader->fh_entry = poff32(pFileHeader->fh_entry);
+ pFileHeader->fh_shoff = poff32(pFileHeader->fh_shoff);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapSectionHeader(poffSectionHeader_t *pSectionHeader)
+{
+ pSectionHeader->sh_entsize = poff16(pSectionHeader->sh_entsize);
+ pSectionHeader->sh_name = poff32(pSectionHeader->sh_name);
+ pSectionHeader->sh_addr = poff32(pSectionHeader->sh_addr);
+ pSectionHeader->sh_offset = poff32(pSectionHeader->sh_offset);
+ pSectionHeader->sh_size = poff32(pSectionHeader->sh_size);
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapSymbolTableData(poffInfo_t *poffInfo)
+{
+ poffSymbol_t *psym;
+ uint32 index;
+
+ for (index = 0;
+ index < poffInfo->symbolTableSection.sh_size;
+ index += poffInfo->symbolTableSection.sh_entsize)
+ {
+ psym = (poffSymbol_t*)&poffInfo->symbolTable[index];
+ poffSwapSymbolTableEntry(psym);
+ }
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapRelocationData(poffInfo_t *poffInfo)
+{
+ poffRelocation_t *prel;
+ uint32 index;
+
+ for (index = 0;
+ index < poffInfo->relocSection.sh_size;
+ index += poffInfo->relocSection.sh_entsize)
+ {
+ prel = (poffRelocation_t*)&poffInfo->relocTable[index];
+ poffSwapRelocationEntry(prel);
+ }
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapFileTableData(poffInfo_t *poffInfo)
+{
+ poffFileTab_t *pfile;
+ uint32 index;
+
+ for (index = 0;
+ index < poffInfo->relocSection.sh_size;
+ index += poffInfo->relocSection.sh_entsize)
+ {
+ pfile = (poffFileTab_t*)&poffInfo->relocTable[index];
+ poffSwapFileTabEntry(pfile);
+ }
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapLineNumberData(poffInfo_t *poffInfo)
+{
+ poffLineNumber_t *plineno;
+ uint32 index;
+
+ for (index = 0;
+ index < poffInfo->relocSection.sh_size;
+ index += poffInfo->relocSection.sh_entsize)
+ {
+ plineno = (poffLineNumber_t*)&poffInfo->relocTable[index];
+ poffSwaplineno(plineno);
+ }
+}
+#endif
+
+/***********************************************************************/
+
+#ifdef CONFIG_POFF_SWAPNEEDED
+void poffSwapDebugData(poffInfo_t *poffInfo)
+{
+ poffDebugFuncInfo_t *pdbg;
+ poffDebugArgInfo_t *parg;
+ uint32 i;
+ int j;
+
+ for (i = 0; i + sizeof(poffDebugFuncInfo_t) < poffInfo->relocSection.sh_size;)
+ {
+ pdbg = (poffDebugFuncInfo_t*)&poffInfo->debugFuncTable[i];
+ poffDebugFuncEntry(pdbg);
+
+ i += sizeof(poffDebugFuncInfo_t);
+ for (j = 0; j < pdbg->df_nparms; j++)
+ {
+ parg = (poffDebugArgInfo_t*)&poffInfo->debugFuncTable[i];
+ poffDebugArgEntry(parg);
+ i += sizeof(poffDebugArgInfo_t);
+ }
+ }
+}
+#endif
+
+/***********************************************************************/
|