Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
/* This file contains a model of Demon, ARM Ltd's Debug Monitor,
-including all the SWI's required to support the C library. The code in
-it is not really for the faint-hearted (especially the abort handling
-code), but it is a complete example. Defining NOOS will disable all the
-fun, and definign VAILDATE will define SWI 1 to enter SVC mode, and SWI
-0x11 to halt the emulator. */
+ including all the SWI's required to support the C library. The code in
+ it is not really for the faint-hearted (especially the abort handling
+ code), but it is a complete example. Defining NOOS will disable all the
+ fun, and definign VAILDATE will define SWI 1 to enter SVC mode, and SWI
+ 0x11 to halt the emulator. */
#include "config.h"
#include "ansidecl.h"
#endif
#define UNIQUETEMPS 256
-/***************************************************************************\
-* OS private Information *
-\***************************************************************************/
+/* OS private Information. */
struct OSblock
{
#endif
static ARMword softvectorcode[] =
-{ /* basic: swi tidyexception + event; mov pc, lr;
- ldmia r11,{r11,pc}; swi generateexception + event. */
- 0xef000090, 0xe1a0e00f, 0xe89b8800, 0xef000080, /*Reset */
- 0xef000091, 0xe1a0e00f, 0xe89b8800, 0xef000081, /*Undef */
- 0xef000092, 0xe1a0e00f, 0xe89b8800, 0xef000082, /*SWI */
- 0xef000093, 0xe1a0e00f, 0xe89b8800, 0xef000083, /*Prefetch abort */
- 0xef000094, 0xe1a0e00f, 0xe89b8800, 0xef000084, /*Data abort */
- 0xef000095, 0xe1a0e00f, 0xe89b8800, 0xef000085, /*Address exception */
- 0xef000096, 0xe1a0e00f, 0xe89b8800, 0xef000086, /*IRQ*/
- 0xef000097, 0xe1a0e00f, 0xe89b8800, 0xef000087, /*FIQ*/
- 0xef000098, 0xe1a0e00f, 0xe89b8800, 0xef000088, /*Error */
- 0xe1a0f00e /* default handler */
+{
+ /* Basic: swi tidyexception + event; mov pc, lr;
+ ldmia r11,{r11,pc}; swi generateexception + event. */
+ 0xef000090, 0xe1a0e00f, 0xe89b8800, 0xef000080, /* Reset */
+ 0xef000091, 0xe1a0e00f, 0xe89b8800, 0xef000081, /* Undef */
+ 0xef000092, 0xe1a0e00f, 0xe89b8800, 0xef000082, /* SWI */
+ 0xef000093, 0xe1a0e00f, 0xe89b8800, 0xef000083, /* Prefetch abort */
+ 0xef000094, 0xe1a0e00f, 0xe89b8800, 0xef000084, /* Data abort */
+ 0xef000095, 0xe1a0e00f, 0xe89b8800, 0xef000085, /* Address exception */
+ 0xef000096, 0xe1a0e00f, 0xe89b8800, 0xef000086, /* IRQ */
+ 0xef000097, 0xe1a0e00f, 0xe89b8800, 0xef000087, /* FIQ */
+ 0xef000098, 0xe1a0e00f, 0xe89b8800, 0xef000088, /* Error */
+ 0xe1a0f00e /* Default handler */
};
-/***************************************************************************\
-* Time for the Operating System to initialise itself. *
-\***************************************************************************/
+/* Time for the Operating System to initialise itself. */
unsigned
ARMul_OSInit (ARMul_State * state)
exit (15);
}
}
+
OSptr = (struct OSblock *) state->OSptr;
OSptr->ErrorP = 0;
state->Reg[13] = ADDRSUPERSTACK; /* set up a stack for the current mode */
ARMul_SetReg (state, UNDEF32MODE, 13, ADDRSUPERSTACK); /* and for undef 32 mode */
ARMul_SetReg (state, SYSTEMMODE, 13, ADDRSUPERSTACK); /* and for system mode */
instr = 0xe59ff000 | (ADDRSOFTVECTORS - 8); /* load pc from soft vector */
+
for (i = ARMul_ResetV; i <= ARMFIQV; i += 4)
ARMul_WriteWord (state, i, instr); /* write hardware vectors */
+
for (i = ARMul_ResetV; i <= ARMFIQV + 4; i += 4)
{
ARMul_WriteWord (state, ADDRSOFTVECTORS + i, SOFTVECTORCODE + i * 4);
ARMul_WriteWord (state, ADDRSOFHANDLERS + 2 * i + 4L,
SOFTVECTORCODE + sizeof (softvectorcode) - 4L);
}
+
for (i = 0; i < sizeof (softvectorcode); i += 4)
ARMul_WriteWord (state, SOFTVECTORCODE + i, softvectorcode[i / 4]);
+
for (i = 0; i < FOPEN_MAX; i++)
OSptr->FileTable[i] = NULL;
+
for (i = 0; i < UNIQUETEMPS; i++)
OSptr->tempnames[i] = NULL;
+
ARMul_ConsolePrint (state, ", Demon 1.01");
/* #ifndef ASIM */
/* install fpe */
for (i = 0; i < fpesize; i += 4) /* copy the code */
ARMul_WriteWord (state, FPESTART + i, fpecode[i >> 2]);
+
for (i = FPESTART + fpesize;; i -= 4)
{ /* reverse the error strings */
if ((j = ARMul_ReadWord (state, i)) == 0xffffffff)
ARMul_WriteWord (state, i, j);
}
}
+
ARMul_WriteWord (state, FPEOLDVECT, ARMul_ReadWord (state, 4)); /* copy old illegal instr vector */
ARMul_WriteWord (state, 4, FPENEWVECT (ARMul_ReadWord (state, i - 4))); /* install new vector */
ARMul_ConsolePrint (state, ", FPE");
#endif /* VALIDATE */
#endif /* NOOS */
- return (TRUE);
+ return TRUE;
}
void
}
-/***************************************************************************\
-* Return the last Operating System Error. *
-\***************************************************************************/
+/* Return the last Operating System Error. */
ARMword ARMul_OSLastErrorP (ARMul_State * state)
{
return ((struct OSblock *) state->OSptr)->ErrorP;
}
-static int translate_open_mode[] = {
+static int translate_open_mode[] =
+{
O_RDONLY, /* "r" */
O_RDONLY + O_BINARY, /* "rb" */
O_RDWR, /* "r+" */
{
ARMword temp;
char *cptr = state->CommandLine;
+
if (cptr == NULL)
cptr = "\0";
do
for (i = 0; (dummy[i] = ARMul_ReadByte (state, name + i)); i++)
;
- /* Now we need to decode the Demon open mode */
+ /* Now we need to decode the Demon open mode. */
flags = translate_open_mode[SWIflags];
- /* Filename ":tt" is special: it denotes stdin/out */
+ /* Filename ":tt" is special: it denotes stdin/out. */
if (strcmp (dummy, ":tt") == 0)
{
if (flags == O_RDONLY) /* opening tty "r" */
if (res > 0)
for (i = 0; i < res; i++)
ARMul_WriteByte (state, ptr + i, local[i]);
+
free (local);
state->Reg[0] = res == -1 ? -1 : len - res;
OSptr->ErrorNo = errno;
res = write (f, local, len);
state->Reg[0] = res == -1 ? -1 : len - res;
free (local);
+
OSptr->ErrorNo = errno;
}
OSptr->ErrorNo = errno;
}
-/***************************************************************************\
-* The emulator calls this routine when a SWI instruction is encuntered. The *
-* parameter passed is the SWI number (lower 24 bits of the instruction). *
-\***************************************************************************/
+/* The emulator calls this routine when a SWI instruction is encuntered.
+ The parameter passed is the SWI number (lower 24 bits of the instruction). */
unsigned
ARMul_OSHandleSWI (ARMul_State * state, ARMword number)
{
ARMword addr, temp;
struct OSblock *OSptr = (struct OSblock *) state->OSptr;
-
+ ARMword saved_number = 0;
+
+ /* Intel do not want DEMON SWI support. */
+ if (state->is_XScale)
+ switch (number)
+ {
+ case SWI_Read:
+ case SWI_Write:
+ case SWI_Open:
+ case SWI_Clock:
+ case SWI_Time:
+ case SWI_Close:
+ case SWI_Flen:
+ case SWI_Exit:
+ case SWI_Seek:
+ case SWI_WriteC:
+ case SWI_Write0:
+ case SWI_GetErrno:
+ case SWI_GetEnv:
+ saved_number = number;
+ number = -1;
+ default:
+ break;
+ }
+
switch (number)
{
case SWI_Read:
return TRUE;
case SWI_Clock:
- /* return number of centi-seconds... */
+ /* Return number of centi-seconds. */
state->Reg[0] =
#ifdef CLOCKS_PER_SEC
(CLOCKS_PER_SEC >= 100)
? (ARMword) (clock () / (CLOCKS_PER_SEC / 100))
: (ARMword) ((clock () * 100) / CLOCKS_PER_SEC);
#else
- /* presume unix... clock() returns microseconds */
+ /* Presume unix... clock() returns microseconds. */
(ARMword) (clock () / 10000);
#endif
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case SWI_Time:
state->Reg[0] = (ARMword) time (NULL);
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case SWI_Close:
state->Reg[0] = close (state->Reg[0]);
case SWI_Flen:
SWIflen (state, state->Reg[0]);
- return (TRUE);
+ return TRUE;
case SWI_Exit:
state->Emulate = FALSE;
case SWI_Seek:
{
- /* We must return non-zero for failure */
+ /* We must return non-zero for failure. */
state->Reg[0] = -1 >= lseek (state->Reg[0], state->Reg[1], SEEK_SET);
OSptr->ErrorNo = errno;
return TRUE;
case SWI_WriteC:
(void) fputc ((int) state->Reg[0], stdout);
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case SWI_Write0:
SWIWrite0 (state, state->Reg[0]);
- return (TRUE);
+ return TRUE;
case SWI_GetErrno:
state->Reg[0] = OSptr->ErrorNo;
- return (TRUE);
+ return TRUE;
case SWI_GetEnv:
state->Reg[0] = ADDRCMDLINE;
state->Reg[1] = ADDRUSERSTACK;
WriteCommandLineTo (state, state->Reg[0]);
- return (TRUE);
-
+ return TRUE;
+
case SWI_Breakpoint:
state->EndCondition = RDIError_BreakpointReached;
state->Emulate = FALSE;
- return (TRUE);
+ return TRUE;
- /* Handle Angel SWIs as well as Demon ones */
+ /* Handle Angel SWIs as well as Demon ones. */
case AngelSWI_ARM:
case AngelSWI_Thumb:
- /* R1 is almost always a parameter block */
+ /* R1 is almost always a parameter block. */
addr = state->Reg[1];
- /* R0 is a reason code */
+ /* R0 is a reason code. */
switch (state->Reg[0])
{
- /* Unimplemented reason codes */
+ /* Unimplemented reason codes. */
case AngelSWI_Reason_ReadC:
case AngelSWI_Reason_IsTTY:
case AngelSWI_Reason_TmpNam:
case AngelSWI_Reason_EnterSVC:
default:
state->Emulate = FALSE;
- return (FALSE);
+ return FALSE;
case AngelSWI_Reason_Clock:
- /* return number of centi-seconds... */
+ /* Return number of centi-seconds. */
state->Reg[0] =
#ifdef CLOCKS_PER_SEC
(CLOCKS_PER_SEC >= 100)
? (ARMword) (clock () / (CLOCKS_PER_SEC / 100))
: (ARMword) ((clock () * 100) / CLOCKS_PER_SEC);
#else
- /* presume unix... clock() returns microseconds */
+ /* Presume unix... clock() returns microseconds. */
(ARMword) (clock () / 10000);
#endif
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Time:
state->Reg[0] = (ARMword) time (NULL);
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_WriteC:
(void) fputc ((int) ARMul_ReadByte (state, addr), stdout);
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Write0:
SWIWrite0 (state, addr);
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Close:
state->Reg[0] = close (ARMul_ReadWord (state, addr));
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Seek:
state->Reg[0] = -1 >= lseek (ARMul_ReadWord (state, addr),
ARMul_ReadWord (state, addr + 4),
SEEK_SET);
OSptr->ErrorNo = errno;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_FLen:
SWIflen (state, ARMul_ReadWord (state, addr));
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_GetCmdLine:
WriteCommandLineTo (state, ARMul_ReadWord (state, addr));
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_HeapInfo:
- /* R1 is a pointer to a pointer */
+ /* R1 is a pointer to a pointer. */
addr = ARMul_ReadWord (state, addr);
- /* Pick up the right memory limit */
+ /* Pick up the right memory limit. */
if (state->MemSize)
temp = state->MemSize;
else
ARMul_WriteWord (state, addr + 4, temp); /* Heap limit */
ARMul_WriteWord (state, addr + 8, temp); /* Stack base */
ARMul_WriteWord (state, addr + 12, temp); /* Stack limit */
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_ReportException:
if (state->Reg[1] == ADP_Stopped_ApplicationExit)
case ADP_Stopped_ApplicationExit:
state->Reg[0] = 0;
state->Emulate = FALSE;
- return (TRUE);
+ return TRUE;
case ADP_Stopped_RunTimeError:
state->Reg[0] = -1;
state->Emulate = FALSE;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Errno:
state->Reg[0] = OSptr->ErrorNo;
- return (TRUE);
+ return TRUE;
case AngelSWI_Reason_Open:
SWIopen (state,
{
/* If there is a SWI vector installed use it. */
extern int SWI_vector_installed;
-
+
+ if (state->is_XScale && saved_number != -1)
+ number = saved_number;
+
if (SWI_vector_installed && number != SWI_Breakpoint)
{
ARMword cpsr;
be ignored (so set state->Emulate to FALSE!). */
unsigned
-ARMul_OSException (
- ARMul_State * state ATTRIBUTE_UNUSED,
+ARMul_OSException (ARMul_State * state ATTRIBUTE_UNUSED,
ARMword vector ATTRIBUTE_UNUSED,
ARMword pc ATTRIBUTE_UNUSED)
{
OSDN Git Service
