/* armos.c -- ARMulator OS interface: ARM6 Instruction Emulator.
Copyright (C) 1994 Advanced RISC Machines Ltd.
-
+
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 2 of the License, or
+ the Free Software Foundation; either version 3 of the License, or
(at your option) any later version.
-
+
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
-
+
You should have received a copy of the GNU General Public License
- along with this program; if not, write to the Free Software
- Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
+ along with this program; if not, see <http://www.gnu.org/licenses/>. */
/* 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"
+#include "libiberty.h"
#include <time.h>
#include <errno.h>
+#include <limits.h>
#include <string.h>
-#include <fcntl.h>
-
-#ifndef O_RDONLY
-#define O_RDONLY 0
-#endif
-#ifndef O_WRONLY
-#define O_WRONLY 1
-#endif
-#ifndef O_RDWR
-#define O_RDWR 2
-#endif
-#ifndef O_BINARY
-#define O_BINARY 0
-#endif
+#include "targ-vals.h"
-#ifdef __STDC__
-#define unlink(s) remove(s)
+#ifndef TARGET_O_BINARY
+#define TARGET_O_BINARY 0
#endif
#ifdef HAVE_UNISTD_H
-#include <unistd.h> /* For SEEK_SET etc */
-#endif
-
-#ifdef __riscos
-extern int _fisatty (FILE *);
-#define isatty_(f) _fisatty(f)
-#else
-#ifdef __ZTC__
-#include <io.h>
-#define isatty_(f) isatty((f)->_file)
-#else
-#ifdef macintosh
-#include <ioctl.h>
-#define isatty_(f) (~ioctl ((f)->_file, FIOINTERACTIVE, NULL))
-#else
-#define isatty_(f) isatty (fileno (f))
-#endif
-#endif
+#include <unistd.h> /* For SEEK_SET etc. */
#endif
#include "armdefs.h"
#include "armos.h"
+#include "armemu.h"
+
#ifndef NOOS
#ifndef VALIDATE
/* #ifndef ASIM */
/* For RDIError_BreakpointReached. */
#include "dbg_rdi.h"
-extern unsigned ARMul_OSInit (ARMul_State * state);
-extern void ARMul_OSExit (ARMul_State * state);
-extern unsigned ARMul_OSHandleSWI (ARMul_State * state, ARMword number);
-extern unsigned ARMul_OSException (ARMul_State * state, ARMword vector,
- ARMword pc);
-extern ARMword ARMul_OSLastErrorP (ARMul_State * state);
-extern ARMword ARMul_Debug (ARMul_State * state, ARMword pc, ARMword instr);
+#include "gdb/callback.h"
+extern host_callback *sim_callback;
+
+extern unsigned ARMul_OSInit (ARMul_State *);
+extern unsigned ARMul_OSHandleSWI (ARMul_State *, ARMword);
-#define BUFFERSIZE 4096
#ifndef FOPEN_MAX
#define FOPEN_MAX 64
#endif
-#define UNIQUETEMPS 256
-
-#ifndef NOOS
-static void UnwindDataAbort (ARMul_State * state, ARMword addr);
-static void getstring (ARMul_State * state, ARMword from, char *to);
+#ifndef PATH_MAX
+#define PATH_MAX 1024
#endif
-/***************************************************************************\
-* OS private Information *
-\***************************************************************************/
+/* OS private Information. */
struct OSblock
{
- ARMword Time0;
- ARMword ErrorP;
ARMword ErrorNo;
- FILE *FileTable[FOPEN_MAX];
- char FileFlags[FOPEN_MAX];
- char *tempnames[UNIQUETEMPS];
};
-#define NOOP 0
-#define BINARY 1
-#define READOP 2
-#define WRITEOP 4
+/* Bit mask of enabled SWI implementations. */
+unsigned int swi_mask = -1;
-#ifdef macintosh
-#define FIXCRLF(t,c) ((t & BINARY) ? \
- c : \
- ((c == '\n' || c == '\r' ) ? (c ^ 7) : c) \
- )
-#else
-#define FIXCRLF(t,c) c
-#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 */
+static ARMword softvectorcode[] =
+{
+ /* Installed instructions:
+ swi tidyexception + event;
+ mov lr, pc;
+ ldmia fp, {fp, 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, SVC32MODE, 13, ADDRSUPERSTACK); /* and for supervisor mode */
- ARMul_SetReg (state, ABORT32MODE, 13, ADDRSUPERSTACK); /* and for abort 32 mode */
- ARMul_SetReg (state, UNDEF32MODE, 13, ADDRSUPERSTACK); /* and for undef 32 mode */
- instr = 0xe59ff000 | (ADDRSOFTVECTORS - 8); /* load pc from soft vector */
+ state->Reg[13] = ADDRSUPERSTACK; /* Set up a stack for the current mode... */
+ ARMul_SetReg (state, SVC32MODE, 13, ADDRSUPERSTACK);/* ...and for supervisor mode... */
+ ARMul_SetReg (state, ABORT32MODE, 13, ADDRSUPERSTACK);/* ...and for abort 32 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 */
+ /* Write hardware vectors. */
+ ARMul_WriteWord (state, i, instr);
+
+ SWI_vector_installed = 0;
+
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 */
+ /* Install FPE. */
+ for (i = 0; i < fpesize; i += 4)
+ /* Copy the code. */
ARMul_WriteWord (state, FPESTART + i, fpecode[i >> 2]);
+
+ /* Scan backwards from the end of the code. */
for (i = FPESTART + fpesize;; i -= 4)
- { /* reverse the error strings */
+ {
+ /* When we reach the marker value, break out of
+ the loop, leaving i pointing at the maker. */
if ((j = ARMul_ReadWord (state, i)) == 0xffffffff)
break;
+
+ /* If necessary, reverse the error strings. */
if (state->bigendSig && j < 0x80000000)
- { /* it's part of the string so swap it */
+ {
+ /* It's part of the string so swap it. */
j = ((j >> 0x18) & 0x000000ff) |
((j >> 0x08) & 0x0000ff00) |
((j << 0x08) & 0x00ff0000) | ((j << 0x18) & 0xff000000);
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 */
+
+ /* Copy old illegal instr vector. */
+ ARMul_WriteWord (state, FPEOLDVECT, ARMul_ReadWord (state, ARMUndefinedInstrV));
+ /* Install new vector. */
+ ARMul_WriteWord (state, ARMUndefinedInstrV, FPENEWVECT (ARMul_ReadWord (state, i - 4)));
ARMul_ConsolePrint (state, ", FPE");
-/* #endif /* ASIM */
+/* #endif ASIM */
#endif /* VALIDATE */
#endif /* NOOS */
- return (TRUE);
-}
+ /* Intel do not want DEMON SWI support. */
+ if (state->is_XScale)
+ swi_mask = SWI_MASK_ANGEL;
-void
-ARMul_OSExit (ARMul_State * state)
-{
- free ((char *) state->OSptr);
+ return TRUE;
}
-
-/***************************************************************************\
-* Return the last Operating System Error. *
-\***************************************************************************/
-
-ARMword ARMul_OSLastErrorP (ARMul_State * state)
+static int translate_open_mode[] =
{
- return ((struct OSblock *) state->OSptr)->ErrorP;
-}
-
-#if 1 /* CYGNUS LOCAL */
-/* This is the cygnus way of doing it, which makes it simple to do our tests */
-
-static int translate_open_mode[] = {
- O_RDONLY, /* "r" */
- O_RDONLY + O_BINARY, /* "rb" */
- O_RDWR, /* "r+" */
- O_RDWR + O_BINARY, /* "r+b" */
- O_WRONLY + O_CREAT + O_TRUNC, /* "w" */
- O_WRONLY + O_BINARY + O_CREAT + O_TRUNC, /* "wb" */
- O_RDWR + O_CREAT + O_TRUNC, /* "w+" */
- O_RDWR + O_BINARY + O_CREAT + O_TRUNC, /* "w+b" */
- O_WRONLY + O_APPEND + O_CREAT, /* "a" */
- O_WRONLY + O_BINARY + O_APPEND + O_CREAT, /* "ab" */
- O_RDWR + O_APPEND + O_CREAT, /* "a+" */
- O_RDWR + O_BINARY + O_APPEND + O_CREAT /* "a+b" */
+ TARGET_O_RDONLY, /* "r" */
+ TARGET_O_RDONLY + TARGET_O_BINARY, /* "rb" */
+ TARGET_O_RDWR, /* "r+" */
+ TARGET_O_RDWR + TARGET_O_BINARY, /* "r+b" */
+ TARGET_O_WRONLY + TARGET_O_CREAT + TARGET_O_TRUNC, /* "w" */
+ TARGET_O_WRONLY + TARGET_O_BINARY + TARGET_O_CREAT + TARGET_O_TRUNC, /* "wb" */
+ TARGET_O_RDWR + TARGET_O_CREAT + TARGET_O_TRUNC, /* "w+" */
+ TARGET_O_RDWR + TARGET_O_BINARY + TARGET_O_CREAT + TARGET_O_TRUNC, /* "w+b" */
+ TARGET_O_WRONLY + TARGET_O_APPEND + TARGET_O_CREAT, /* "a" */
+ TARGET_O_WRONLY + TARGET_O_BINARY + TARGET_O_APPEND + TARGET_O_CREAT, /* "ab" */
+ TARGET_O_RDWR + TARGET_O_APPEND + TARGET_O_CREAT, /* "a+" */
+ TARGET_O_RDWR + TARGET_O_BINARY + TARGET_O_APPEND + TARGET_O_CREAT /* "a+b" */
};
static void
ARMword temp;
struct OSblock *OSptr = (struct OSblock *) state->OSptr;
- while ((temp = ARMul_ReadByte (state, addr++)) != 0)
- (void) fputc ((char) temp, stdout);
+ while ((temp = ARMul_SafeReadByte (state, addr++)) != 0)
+ {
+ char buffer = temp;
+ /* Note - we cannot just cast 'temp' to a (char *) here,
+ since on a big-endian host the byte value will end
+ up in the wrong place and a nul character will be printed. */
+ (void) sim_callback->write_stdout (sim_callback, & buffer, 1);
+ }
- OSptr->ErrorNo = errno;
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
static void
{
ARMword temp;
char *cptr = state->CommandLine;
+
if (cptr == NULL)
cptr = "\0";
do
{
temp = (ARMword) * cptr++;
- ARMul_WriteByte (state, addr++, temp);
+ ARMul_SafeWriteByte (state, addr++, temp);
}
while (temp != 0);
}
+static int
+ReadFileName (ARMul_State * state, char *buf, ARMword src, size_t n)
+{
+ struct OSblock *OSptr = (struct OSblock *) state->OSptr;
+ char *p = buf;
+
+ while (n--)
+ if ((*p++ = ARMul_SafeReadByte (state, src++)) == '\0')
+ return 0;
+ OSptr->ErrorNo = cb_host_to_target_errno (sim_callback, ENAMETOOLONG);
+ state->Reg[0] = -1;
+ return -1;
+}
+
static void
SWIopen (ARMul_State * state, ARMword name, ARMword SWIflags)
{
struct OSblock *OSptr = (struct OSblock *) state->OSptr;
- char dummy[2000];
+ char buf[PATH_MAX];
int flags;
- int i;
- for (i = 0; dummy[i] = ARMul_ReadByte (state, name + i); i++)
- ;
+ if (ReadFileName (state, buf, name, sizeof buf) == -1)
+ return;
- /* Now we need to decode the Demon open mode */
- flags = translate_open_mode[SWIflags];
+ /* Now we need to decode the Demon open mode. */
+ if (SWIflags >= ARRAY_SIZE (translate_open_mode))
+ flags = 0;
+ else
+ flags = translate_open_mode[SWIflags];
- /* Filename ":tt" is special: it denotes stdin/out */
- if (strcmp (dummy, ":tt") == 0)
+ /* Filename ":tt" is special: it denotes stdin/out. */
+ if (strcmp (buf, ":tt") == 0)
{
- if (flags == O_RDONLY) /* opening tty "r" */
+ if (flags == TARGET_O_RDONLY) /* opening tty "r" */
state->Reg[0] = 0; /* stdin */
else
state->Reg[0] = 1; /* stdout */
}
else
{
- state->Reg[0] = (int) open (dummy, flags, 0666);
- OSptr->ErrorNo = errno;
+ state->Reg[0] = sim_callback->open (sim_callback, buf, flags);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
}
if (local == NULL)
{
- fprintf (stderr, "sim: Unable to read 0x%x bytes - out of memory\n",
- len);
+ sim_callback->printf_filtered
+ (sim_callback,
+ "sim: Unable to read 0x%lx bytes - out of memory\n",
+ (long)len);
return;
}
- res = read (f, local, len);
+ res = sim_callback->read (sim_callback, f, local, len);
if (res > 0)
for (i = 0; i < res; i++)
- ARMul_WriteByte (state, ptr + i, local[i]);
+ ARMul_SafeWriteByte (state, ptr + i, local[i]);
+
free (local);
state->Reg[0] = res == -1 ? -1 : len - res;
- OSptr->ErrorNo = errno;
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
static void
{
struct OSblock *OSptr = (struct OSblock *) state->OSptr;
int res;
- int i;
+ ARMword i;
char *local = malloc (len);
if (local == NULL)
{
- fprintf (stderr, "sim: Unable to write 0x%x bytes - out of memory\n",
- len);
+ sim_callback->printf_filtered
+ (sim_callback,
+ "sim: Unable to write 0x%lx bytes - out of memory\n",
+ (long) len);
return;
}
for (i = 0; i < len; i++)
- local[i] = ARMul_ReadByte (state, ptr + i);
+ local[i] = ARMul_SafeReadByte (state, ptr + i);
- res = write (f, local, len);
+ res = sim_callback->write (sim_callback, f, local, len);
state->Reg[0] = res == -1 ? -1 : len - res;
free (local);
- OSptr->ErrorNo = errno;
+
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
static void
struct OSblock *OSptr = (struct OSblock *) state->OSptr;
ARMword addr;
- if (fh == 0 || fh > FOPEN_MAX)
+ if (fh > FOPEN_MAX)
{
OSptr->ErrorNo = EBADF;
state->Reg[0] = -1L;
return;
}
- addr = lseek (fh, 0, SEEK_CUR);
- if (addr < 0)
- state->Reg[0] = -1L;
- else
+ addr = sim_callback->lseek (sim_callback, fh, 0, SEEK_CUR);
+
+ state->Reg[0] = sim_callback->lseek (sim_callback, fh, 0L, SEEK_END);
+ (void) sim_callback->lseek (sim_callback, fh, addr, SEEK_SET);
+
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+}
+
+static void
+SWIremove (ARMul_State * state, ARMword path)
+{
+ char buf[PATH_MAX];
+
+ if (ReadFileName (state, buf, path, sizeof buf) != -1)
{
- state->Reg[0] = lseek (fh, 0L, SEEK_END);
- (void) lseek (fh, addr, SEEK_SET);
+ struct OSblock *OSptr = (struct OSblock *) state->OSptr;
+ state->Reg[0] = sim_callback->unlink (sim_callback, buf);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
+}
+
+static void
+SWIrename (ARMul_State * state, ARMword old, ARMword new)
+{
+ char oldbuf[PATH_MAX], newbuf[PATH_MAX];
- OSptr->ErrorNo = errno;
+ if (ReadFileName (state, oldbuf, old, sizeof oldbuf) != -1
+ && ReadFileName (state, newbuf, new, sizeof newbuf) != -1)
+ {
+ struct OSblock *OSptr = (struct OSblock *) state->OSptr;
+ state->Reg[0] = sim_callback->rename (sim_callback, oldbuf, newbuf);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ }
}
-/***************************************************************************\
-* 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, fildes;
- char buffer[BUFFERSIZE], *cptr;
- FILE *fptr;
- struct OSblock *OSptr = (struct OSblock *) state->OSptr;
+ struct OSblock * OSptr = (struct OSblock *) state->OSptr;
+ int unhandled = FALSE;
switch (number)
{
case SWI_Read:
- SWIread (state, state->Reg[0], state->Reg[1], state->Reg[2]);
- return TRUE;
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIread (state, state->Reg[0], state->Reg[1], state->Reg[2]);
+ else
+ unhandled = TRUE;
+ break;
case SWI_Write:
- SWIwrite (state, state->Reg[0], state->Reg[1], state->Reg[2]);
- return TRUE;
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIwrite (state, state->Reg[0], state->Reg[1], state->Reg[2]);
+ else
+ unhandled = TRUE;
+ break;
case SWI_Open:
- SWIopen (state, state->Reg[0], state->Reg[1]);
- return TRUE;
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIopen (state, state->Reg[0], state->Reg[1]);
+ else
+ unhandled = TRUE;
+ break;
case SWI_Clock:
- /* return number of centi-seconds... */
- state->Reg[0] =
+ if (swi_mask & SWI_MASK_DEMON)
+ {
+ /* 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);
+ (CLOCKS_PER_SEC >= 100)
+ ? (ARMword) (clock () / (CLOCKS_PER_SEC / 100))
+ : (ARMword) ((clock () * 100) / CLOCKS_PER_SEC);
#else
- /* presume unix... clock() returns microseconds */
- (ARMword) (clock () / 10000);
+ /* Presume unix... clock() returns microseconds. */
+ (ARMword) (clock () / 10000);
#endif
- OSptr->ErrorNo = errno;
- return (TRUE);
+ OSptr->ErrorNo = errno;
+ }
+ else
+ unhandled = TRUE;
+ break;
case SWI_Time:
- state->Reg[0] = (ARMword) time (NULL);
- OSptr->ErrorNo = errno;
- return (TRUE);
+ if (swi_mask & SWI_MASK_DEMON)
+ {
+ state->Reg[0] = (ARMword) sim_callback->time (sim_callback, NULL);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ }
+ else
+ unhandled = TRUE;
+ break;
case SWI_Close:
- state->Reg[0] = close (state->Reg[0]);
- OSptr->ErrorNo = errno;
- return TRUE;
+ if (swi_mask & SWI_MASK_DEMON)
+ {
+ state->Reg[0] = sim_callback->close (sim_callback, state->Reg[0]);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ }
+ else
+ unhandled = TRUE;
+ break;
case SWI_Flen:
- SWIflen (state, state->Reg[0]);
- return (TRUE);
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIflen (state, state->Reg[0]);
+ else
+ unhandled = TRUE;
+ break;
case SWI_Exit:
- state->Emulate = FALSE;
- return TRUE;
+ if (swi_mask & SWI_MASK_DEMON)
+ state->Emulate = FALSE;
+ else
+ unhandled = TRUE;
+ break;
case SWI_Seek:
- {
- /* 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;
- }
+ if (swi_mask & SWI_MASK_DEMON)
+ {
+ /* We must return non-zero for failure. */
+ state->Reg[0] = -1 >= sim_callback->lseek (sim_callback, state->Reg[0], state->Reg[1], SEEK_SET);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ }
+ else
+ unhandled = TRUE;
+ break;
case SWI_WriteC:
- (void) fputc ((int) state->Reg[0], stdout);
- OSptr->ErrorNo = errno;
- return (TRUE);
+ if (swi_mask & SWI_MASK_DEMON)
+ {
+ char tmp = state->Reg[0];
+ (void) sim_callback->write_stdout (sim_callback, &tmp, 1);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ }
+ else
+ unhandled = TRUE;
+ break;
case SWI_Write0:
- SWIWrite0 (state, state->Reg[0]);
- return (TRUE);
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIWrite0 (state, state->Reg[0]);
+ else
+ unhandled = TRUE;
+ break;
case SWI_GetErrno:
- state->Reg[0] = OSptr->ErrorNo;
- return (TRUE);
-
- case SWI_Breakpoint:
- state->EndCondition = RDIError_BreakpointReached;
- state->Emulate = FALSE;
- return (TRUE);
-
- case SWI_GetEnv:
- state->Reg[0] = ADDRCMDLINE;
- if (state->MemSize)
- state->Reg[1] = state->MemSize;
+ if (swi_mask & SWI_MASK_DEMON)
+ state->Reg[0] = OSptr->ErrorNo;
else
- state->Reg[1] = ADDRUSERSTACK;
+ unhandled = TRUE;
+ break;
- WriteCommandLineTo (state, state->Reg[0]);
- return (TRUE);
-
- /* Handle Angel SWIs as well as Demon ones */
- case AngelSWI_ARM:
- case AngelSWI_Thumb:
- /* R1 is almost always a parameter block */
- addr = state->Reg[1];
- /* R0 is a reason code */
- switch (state->Reg[0])
+ case SWI_GetEnv:
+ if (swi_mask & SWI_MASK_DEMON)
{
- /* Unimplemented reason codes */
- case AngelSWI_Reason_ReadC:
- case AngelSWI_Reason_IsTTY:
- case AngelSWI_Reason_TmpNam:
- case AngelSWI_Reason_Remove:
- case AngelSWI_Reason_Rename:
- case AngelSWI_Reason_System:
- case AngelSWI_Reason_EnterSVC:
- default:
- state->Emulate = FALSE;
- return (FALSE);
-
- case AngelSWI_Reason_Clock:
- /* 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 */
- (ARMword) (clock () / 10000);
-#endif
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case AngelSWI_Reason_Time:
- state->Reg[0] = (ARMword) time (NULL);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case AngelSWI_Reason_WriteC:
- (void) fputc ((int) ARMul_ReadByte (state, addr), stdout);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case AngelSWI_Reason_Write0:
- SWIWrite0 (state, addr);
- return (TRUE);
-
- case AngelSWI_Reason_Close:
- state->Reg[0] = close (ARMul_ReadWord (state, addr));
- OSptr->ErrorNo = errno;
- 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);
-
- case AngelSWI_Reason_FLen:
- SWIflen (state, ARMul_ReadWord (state, addr));
- return (TRUE);
-
- case AngelSWI_Reason_GetCmdLine:
- WriteCommandLineTo (state, ARMul_ReadWord (state, addr));
- return (TRUE);
-
- case AngelSWI_Reason_HeapInfo:
- /* R1 is a pointer to a pointer */
- addr = ARMul_ReadWord (state, addr);
-
- /* Pick up the right memory limit */
+ state->Reg[0] = ADDRCMDLINE;
if (state->MemSize)
- temp = state->MemSize;
+ state->Reg[1] = state->MemSize;
else
- temp = ADDRUSERSTACK;
+ state->Reg[1] = ADDRUSERSTACK;
- ARMul_WriteWord (state, addr, 0); /* Heap base */
- 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);
-
- case AngelSWI_Reason_ReportException:
- if (state->Reg[1] == ADP_Stopped_ApplicationExit)
- state->Reg[0] = 0;
- else
- state->Reg[0] = -1;
- state->Emulate = FALSE;
- return (TRUE);
-
- case ADP_Stopped_ApplicationExit:
- state->Reg[0] = 0;
- state->Emulate = FALSE;
- return (TRUE);
-
- case ADP_Stopped_RunTimeError:
- state->Reg[0] = -1;
- state->Emulate = FALSE;
- return (TRUE);
-
- case AngelSWI_Reason_Errno:
- state->Reg[0] = OSptr->ErrorNo;
- return (TRUE);
-
- case AngelSWI_Reason_Open:
- SWIopen (state,
- ARMul_ReadWord (state, addr),
- ARMul_ReadWord (state, addr + 4));
- return TRUE;
-
- case AngelSWI_Reason_Read:
- SWIread (state,
- ARMul_ReadWord (state, addr),
- ARMul_ReadWord (state, addr + 4),
- ARMul_ReadWord (state, addr + 8));
- return TRUE;
-
- case AngelSWI_Reason_Write:
- SWIwrite (state,
- ARMul_ReadWord (state, addr),
- ARMul_ReadWord (state, addr + 4),
- ARMul_ReadWord (state, addr + 8));
- return TRUE;
+ WriteCommandLineTo (state, state->Reg[0]);
}
+ else
+ unhandled = TRUE;
+ break;
- default:
+ case SWI_Breakpoint:
+ state->EndCondition = RDIError_BreakpointReached;
state->Emulate = FALSE;
- return (FALSE);
- }
-}
-
-#else /* CYGNUS LOCAL: #if 1 */
+ break;
-unsigned
-ARMul_OSHandleSWI (ARMul_State * state, ARMword number)
-{
-#ifdef NOOS
- return (FALSE);
-#else
-#ifdef VALIDATE
- switch (number)
- {
- case 0x11:
- state->Emulate = FALSE;
- return (TRUE);
- case 0x01:
- if (ARM32BITMODE)
- ARMul_SetCPSR (state, (ARMul_GetCPSR (state) & 0xffffffc0) | 0x13);
+ case SWI_Remove:
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIremove (state, state->Reg[0]);
else
- ARMul_SetCPSR (state, (ARMul_GetCPSR (state) & 0xffffffc0) | 0x3);
- return (TRUE);
- default:
- return (FALSE);
- }
-#else
- ARMword addr, temp;
- char buffer[BUFFERSIZE], *cptr;
- FILE *fptr;
- struct OSblock *OSptr = (struct OSblock *) state->OSptr;
+ unhandled = TRUE;
+ break;
- switch (number)
- {
- case SWI_WriteC:
- (void) fputc ((int) state->Reg[0], stderr);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Write0:
- addr = state->Reg[0];
- while ((temp = ARMul_ReadByte (state, addr++)) != 0)
- fputc ((char) temp, stderr);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_ReadC:
- state->Reg[0] = (ARMword) fgetc (stdin);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_CLI:
- addr = state->Reg[0];
- getstring (state, state->Reg[0], buffer);
- state->Reg[0] = (ARMword) system (buffer);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_GetEnv:
- state->Reg[0] = ADDRCMDLINE;
- if (state->MemSize)
- state->Reg[1] = state->MemSize;
+ case SWI_Rename:
+ if (swi_mask & SWI_MASK_DEMON)
+ SWIrename (state, state->Reg[0], state->Reg[1]);
else
- state->Reg[1] = ADDRUSERSTACK;
+ unhandled = TRUE;
+ break;
- addr = state->Reg[0];
- cptr = state->CommandLine;
- if (cptr == NULL)
- cptr = "\0";
- do
+ case SWI_IsTTY:
+ if (swi_mask & SWI_MASK_DEMON)
{
- temp = (ARMword) * cptr++;
- ARMul_WriteByte (state, addr++, temp);
+ state->Reg[0] = sim_callback->isatty (sim_callback, state->Reg[0]);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
}
- while (temp != 0);
- return (TRUE);
-
- case SWI_Exit:
-#ifdef ASIM
- simkernel1_abort_run ();
-#else
- state->Emulate = FALSE;
-#endif
- return (TRUE);
-
- case SWI_EnterOS:
- if (ARM32BITMODE)
- ARMul_SetCPSR (state, (ARMul_GetCPSR (state) & 0xffffffc0) | 0x13);
else
- ARMul_SetCPSR (state, (ARMul_GetCPSR (state) & 0xffffffc0) | 0x3);
- return (TRUE);
+ unhandled = TRUE;
+ break;
- case SWI_GetErrno:
- state->Reg[0] = OSptr->ErrorNo;
- return (TRUE);
+ /* Handle Angel SWIs as well as Demon ones. */
+ case AngelSWI_ARM:
+ case AngelSWI_Thumb:
+ if (swi_mask & SWI_MASK_ANGEL)
+ {
+ ARMword addr;
+ ARMword temp;
- case SWI_Clock:
- /* return muber of centi-seconds... */
- state->Reg[0] =
+ /* R1 is almost always a parameter block. */
+ addr = state->Reg[1];
+ /* R0 is a reason code. */
+ switch (state->Reg[0])
+ {
+ case -1:
+ /* This can happen when a SWI is interrupted (eg receiving a
+ ctrl-C whilst processing SWIRead()). The SWI will complete
+ returning -1 in r0 to the caller. If GDB is then used to
+ resume the system call the reason code will now be -1. */
+ return TRUE;
+
+ /* Unimplemented reason codes. */
+ case AngelSWI_Reason_ReadC:
+ case AngelSWI_Reason_TmpNam:
+ case AngelSWI_Reason_System:
+ case AngelSWI_Reason_EnterSVC:
+ default:
+ state->Emulate = FALSE;
+ return FALSE;
+
+ case AngelSWI_Reason_Clock:
+ /* 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);
+ (CLOCKS_PER_SEC >= 100)
+ ? (ARMword) (clock () / (CLOCKS_PER_SEC / 100))
+ : (ARMword) ((clock () * 100) / CLOCKS_PER_SEC);
#else
- /* presume unix... clock() returns microseconds */
- (ARMword) (clock () / 10000);
+ /* Presume unix... clock() returns microseconds. */
+ (ARMword) (clock () / 10000);
#endif
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Time:
- state->Reg[0] = (ARMword) time (NULL);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Remove:
- getstring (state, state->Reg[0], buffer);
- state->Reg[0] = unlink (buffer);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Rename:
- {
- char buffer2[BUFFERSIZE];
-
- getstring (state, state->Reg[0], buffer);
- getstring (state, state->Reg[1], buffer2);
- state->Reg[0] = rename (buffer, buffer2);
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
+ OSptr->ErrorNo = errno;
+ break;
- case SWI_Open:
- {
-#if 0
- /* It seems to me that these are in the wrong order
- sac@cygnus.com, so I've redone it to use the
- flags instead, with the functionality which was already
- there -- ahh, perhaps the TRUNC bit is in a different
- place on the original host ? */
- static char *fmode[] = { "r", "rb", "r+", "r+b",
- "w", "wb", "w+", "w+b",
- "a", "ab", "a+", "a+b",
- "r", "r", "r", "r"
- } /* last 4 are illegal */ ;
-#endif
+ case AngelSWI_Reason_Time:
+ state->Reg[0] = (ARMword) sim_callback->time (sim_callback, NULL);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
- unsigned type;
-
- type = (unsigned) (state->Reg[1] & 3L);
- getstring (state, state->Reg[0], buffer);
- if (strcmp (buffer, ":tt") == 0 && (type == O_RDONLY)) /* opening tty "r" */
- fptr = stdin;
- else if (strcmp (buffer, ":tt") == 0 && (type == O_WRONLY)) /* opening tty "w" */
- fptr = stderr;
- else
- {
- switch (type)
+ case AngelSWI_Reason_WriteC:
{
- case O_RDONLY:
- fptr = fopen (buffer, "r");
- break;
- case O_WRONLY:
- fptr = fopen (buffer, "w");
- break;
- case O_RDWR:
- fptr = fopen (buffer, "rw");
+ char tmp = ARMul_SafeReadByte (state, addr);
+ (void) sim_callback->write_stdout (sim_callback, &tmp, 1);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
break;
}
- }
-
- state->Reg[0] = 0;
- if (fptr != NULL)
- {
- for (temp = 0; temp < FOPEN_MAX; temp++)
- if (OSptr->FileTable[temp] == NULL)
- {
- OSptr->FileTable[temp] = fptr;
- OSptr->FileFlags[temp] = type & 1; /* preserve the binary bit */
- state->Reg[0] = (ARMword) (temp + 1);
- break;
- }
- if (state->Reg[0] == 0)
- OSptr->ErrorNo = EMFILE; /* too many open files */
- else
- OSptr->ErrorNo = errno;
- }
- else
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
- case SWI_Close:
- temp = state->Reg[0];
- if (temp == 0 || temp > FOPEN_MAX || OSptr->FileTable[temp - 1] == 0)
- {
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
+ case AngelSWI_Reason_Write0:
+ SWIWrite0 (state, addr);
+ break;
+
+ case AngelSWI_Reason_Close:
+ state->Reg[0] = sim_callback->close (sim_callback, ARMul_ReadWord (state, addr));
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case AngelSWI_Reason_Seek:
+ state->Reg[0] = -1 >= sim_callback->lseek (sim_callback, ARMul_ReadWord (state, addr),
+ ARMul_ReadWord (state, addr + 4),
+ SEEK_SET);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case AngelSWI_Reason_FLen:
+ SWIflen (state, ARMul_ReadWord (state, addr));
+ break;
+
+ case AngelSWI_Reason_GetCmdLine:
+ WriteCommandLineTo (state, ARMul_ReadWord (state, addr));
+ break;
+
+ case AngelSWI_Reason_HeapInfo:
+ /* R1 is a pointer to a pointer. */
+ addr = ARMul_ReadWord (state, addr);
+
+ /* Pick up the right memory limit. */
+ if (state->MemSize)
+ temp = state->MemSize;
+ else
+ temp = ADDRUSERSTACK;
+
+ ARMul_WriteWord (state, addr, 0); /* Heap base. */
+ ARMul_WriteWord (state, addr + 4, temp); /* Heap limit. */
+ ARMul_WriteWord (state, addr + 8, temp); /* Stack base. */
+ ARMul_WriteWord (state, addr + 12, temp); /* Stack limit. */
+ break;
+
+ case AngelSWI_Reason_ReportException:
+ if (state->Reg[1] == ADP_Stopped_ApplicationExit)
+ state->Reg[0] = 0;
+ else
+ state->Reg[0] = -1;
+ state->Emulate = FALSE;
+ break;
+
+ case ADP_Stopped_ApplicationExit:
+ state->Reg[0] = 0;
+ state->Emulate = FALSE;
+ break;
+
+ case ADP_Stopped_RunTimeError:
+ state->Reg[0] = -1;
+ state->Emulate = FALSE;
+ break;
+
+ case AngelSWI_Reason_Errno:
+ state->Reg[0] = OSptr->ErrorNo;
+ break;
+
+ case AngelSWI_Reason_Open:
+ SWIopen (state,
+ ARMul_ReadWord (state, addr),
+ ARMul_ReadWord (state, addr + 4));
+ break;
+
+ case AngelSWI_Reason_Read:
+ SWIread (state,
+ ARMul_ReadWord (state, addr),
+ ARMul_ReadWord (state, addr + 4),
+ ARMul_ReadWord (state, addr + 8));
+ break;
+
+ case AngelSWI_Reason_Write:
+ SWIwrite (state,
+ ARMul_ReadWord (state, addr),
+ ARMul_ReadWord (state, addr + 4),
+ ARMul_ReadWord (state, addr + 8));
+ break;
+
+ case AngelSWI_Reason_IsTTY:
+ state->Reg[0] = sim_callback->isatty (sim_callback,
+ ARMul_ReadWord (state, addr));
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case AngelSWI_Reason_Remove:
+ SWIremove (state,
+ ARMul_ReadWord (state, addr));
+
+ case AngelSWI_Reason_Rename:
+ SWIrename (state,
+ ARMul_ReadWord (state, addr),
+ ARMul_ReadWord (state, addr + 4));
+ }
}
- temp--;
- fptr = OSptr->FileTable[temp];
- if (fptr == stdin || fptr == stderr)
- state->Reg[0] = 0;
else
- state->Reg[0] = fclose (fptr);
- OSptr->FileTable[temp] = NULL;
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Write:
- {
- unsigned size, upto, type;
- char ch;
-
- temp = state->Reg[0];
- if (temp == 0 || temp > FOPEN_MAX || OSptr->FileTable[temp - 1] == 0)
- {
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
- }
- temp--;
- fptr = OSptr->FileTable[temp];
- type = OSptr->FileFlags[temp];
- addr = state->Reg[1];
- size = (unsigned) state->Reg[2];
-
- if (type & READOP)
- fseek (fptr, 0L, SEEK_CUR);
- OSptr->FileFlags[temp] = (type & BINARY) | WRITEOP;;
- while (size > 0)
- {
- if (size >= BUFFERSIZE)
- upto = BUFFERSIZE;
- else
- upto = size;
- for (cptr = buffer; (cptr - buffer) < upto; cptr++)
- {
- ch = (char) ARMul_ReadByte (state, (ARMword) addr++);
- *cptr = FIXCRLF (type, ch);
- }
- temp = fwrite (buffer, 1, upto, fptr);
- if (temp < upto)
- {
- state->Reg[0] = (ARMword) (size - temp);
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
- size -= upto;
- }
- state->Reg[0] = 0;
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
+ unhandled = TRUE;
+ break;
- case SWI_Read:
+ /* The following SWIs are generated by the softvectorcode[]
+ installed by default by the simulator. */
+ case 0x91: /* Undefined Instruction. */
{
- unsigned size, upto, type;
- char ch;
-
- temp = state->Reg[0];
- if (temp == 0 || temp > FOPEN_MAX || OSptr->FileTable[temp - 1] == 0)
- {
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
- }
- temp--;
- fptr = OSptr->FileTable[temp];
- addr = state->Reg[1];
- size = (unsigned) state->Reg[2];
- type = OSptr->FileFlags[temp];
-
- if (type & WRITEOP)
- fseek (fptr, 0L, SEEK_CUR);
- OSptr->FileFlags[temp] = (type & BINARY) | READOP;;
- while (size > 0)
- {
- if (isatty_ (fptr))
- {
- upto = (size >= BUFFERSIZE) ? BUFFERSIZE : size + 1;
- if (fgets (buffer, upto, fptr) != 0)
- temp = strlen (buffer);
- else
- temp = 0;
- upto--; /* 1 char used for terminating null */
- }
- else
- {
- upto = (size >= BUFFERSIZE) ? BUFFERSIZE : size;
- temp = fread (buffer, 1, upto, fptr);
- }
- for (cptr = buffer; (cptr - buffer) < temp; cptr++)
- {
- ch = *cptr;
- ARMul_WriteByte (state, (ARMword) addr++, FIXCRLF (type, ch));
- }
- if (temp < upto)
- {
- state->Reg[0] = (ARMword) (size - temp);
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
- size -= upto;
- }
- state->Reg[0] = 0;
- OSptr->ErrorNo = errno;
- return (TRUE);
+ ARMword addr = state->RegBank[UNDEFBANK][14] - 4;
+
+ sim_callback->printf_filtered
+ (sim_callback, "sim: exception: Unhandled Instruction '0x%08x' at 0x%08x. Stopping.\n",
+ ARMul_ReadWord (state, addr), addr);
+ state->EndCondition = RDIError_SoftwareInterrupt;
+ state->Emulate = FALSE;
+ return FALSE;
}
- case SWI_Seek:
- if (state->Reg[0] == 0 || state->Reg[0] > FOPEN_MAX
- || OSptr->FileTable[state->Reg[0] - 1] == 0)
- {
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
- }
- fptr = OSptr->FileTable[state->Reg[0] - 1];
- state->Reg[0] = fseek (fptr, (long) state->Reg[1], SEEK_SET);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_Flen:
- if (state->Reg[0] == 0 || state->Reg[0] > FOPEN_MAX
- || OSptr->FileTable[state->Reg[0] - 1] == 0)
- {
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
- }
- fptr = OSptr->FileTable[state->Reg[0] - 1];
- addr = (ARMword) ftell (fptr);
- if (fseek (fptr, 0L, SEEK_END) < 0)
- state->Reg[0] = -1;
- else
- {
- state->Reg[0] = (ARMword) ftell (fptr);
- (void) fseek (fptr, addr, SEEK_SET);
- }
- OSptr->ErrorNo = errno;
- return (TRUE);
+ case 0x90: /* Reset. */
+ case 0x92: /* SWI. */
+ /* These two can be safely ignored. */
+ break;
+
+ case 0x93: /* Prefetch Abort. */
+ case 0x94: /* Data Abort. */
+ case 0x95: /* Address Exception. */
+ case 0x96: /* IRQ. */
+ case 0x97: /* FIQ. */
+ case 0x98: /* Error. */
+ unhandled = TRUE;
+ break;
+
+ case -1:
+ /* This can happen when a SWI is interrupted (eg receiving a
+ ctrl-C whilst processing SWIRead()). The SWI will complete
+ returning -1 in r0 to the caller. If GDB is then used to
+ resume the system call the reason code will now be -1. */
+ return TRUE;
- case SWI_IsTTY:
- if (state->Reg[0] == 0 || state->Reg[0] > FOPEN_MAX
- || OSptr->FileTable[state->Reg[0] - 1] == 0)
+ case 0x180001: /* RedBoot's Syscall SWI in ARM mode. */
+ if (swi_mask & SWI_MASK_REDBOOT)
{
- OSptr->ErrorNo = EBADF;
- state->Reg[0] = -1L;
- return (TRUE);
- }
- fptr = OSptr->FileTable[state->Reg[0] - 1];
- state->Reg[0] = isatty_ (fptr);
- OSptr->ErrorNo = errno;
- return (TRUE);
-
- case SWI_TmpNam:
- {
- ARMword size;
-
- addr = state->Reg[0];
- temp = state->Reg[1] & 0xff;
- size = state->Reg[2];
- if (OSptr->tempnames[temp] == NULL)
- {
- if ((OSptr->tempnames[temp] = malloc (L_tmpnam)) == NULL)
+ switch (state->Reg[0])
+ {
+ /* These numbers are defined in libgloss/syscall.h
+ but the simulator should not be dependend upon
+ libgloss being installed. */
+ case 1: /* Exit. */
+ state->Emulate = FALSE;
+ /* Copy exit code into r0. */
+ state->Reg[0] = state->Reg[1];
+ break;
+
+ case 2: /* Open. */
+ SWIopen (state, state->Reg[1], state->Reg[2]);
+ break;
+
+ case 3: /* Close. */
+ state->Reg[0] = sim_callback->close (sim_callback, state->Reg[1]);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case 4: /* Read. */
+ SWIread (state, state->Reg[1], state->Reg[2], state->Reg[3]);
+ break;
+
+ case 5: /* Write. */
+ SWIwrite (state, state->Reg[1], state->Reg[2], state->Reg[3]);
+ break;
+
+ case 6: /* Lseek. */
+ state->Reg[0] = sim_callback->lseek (sim_callback,
+ state->Reg[1],
+ state->Reg[2],
+ state->Reg[3]);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case 17: /* Utime. */
+ state->Reg[0] = state->Reg[1] = (ARMword) sim_callback->time (sim_callback, NULL);
+ OSptr->ErrorNo = sim_callback->get_errno (sim_callback);
+ break;
+
+ case 7: /* Unlink. */
+ case 8: /* Getpid. */
+ case 9: /* Kill. */
+ case 10: /* Fstat. */
+ case 11: /* Sbrk. */
+ case 12: /* Argvlen. */
+ case 13: /* Argv. */
+ case 14: /* ChDir. */
+ case 15: /* Stat. */
+ case 16: /* Chmod. */
+ case 18: /* Time. */
+ sim_callback->printf_filtered
+ (sim_callback,
+ "sim: unhandled RedBoot syscall `%d' encountered - "
+ "returning ENOSYS\n",
+ state->Reg[0]);
+ state->Reg[0] = -1;
+ OSptr->ErrorNo = cb_host_to_target_errno
+ (sim_callback, ENOSYS);
+ break;
+ case 1001: /* Meminfo. */
{
+ ARMword totmem = state->Reg[1],
+ topmem = state->Reg[2];
+ ARMword stack = state->MemSize > 0
+ ? state->MemSize : ADDRUSERSTACK;
+ if (totmem != 0)
+ ARMul_WriteWord (state, totmem, stack);
+ if (topmem != 0)
+ ARMul_WriteWord (state, topmem, stack);
state->Reg[0] = 0;
- return (TRUE);
+ break;
}
- (void) tmpnam (OSptr->tempnames[temp]);
- }
- cptr = OSptr->tempnames[temp];
- if (strlen (cptr) > state->Reg[2])
- state->Reg[0] = 0;
- else
- do
- {
- ARMul_WriteByte (state, addr++, *cptr);
- }
- while (*cptr++ != 0);
- OSptr->ErrorNo = errno;
- return (TRUE);
- }
- case SWI_InstallHandler:
- {
- ARMword handlerp = ADDRSOFHANDLERS + state->Reg[0] * 8;
- ARMword oldr1 = ARMul_ReadWord (state, handlerp),
- oldr2 = ARMul_ReadWord (state, handlerp + 4);
- ARMul_WriteWord (state, handlerp, state->Reg[1]);
- ARMul_WriteWord (state, handlerp + 4, state->Reg[2]);
- state->Reg[1] = oldr1;
- state->Reg[2] = oldr2;
- return (TRUE);
- }
+ default:
+ sim_callback->printf_filtered
+ (sim_callback,
+ "sim: unknown RedBoot syscall '%d' encountered - ignoring\n",
+ state->Reg[0]);
+ return FALSE;
+ }
+ break;
+ }
- case SWI_GenerateError:
- ARMul_Abort (state, ARMSWIV);
- if (state->Emulate)
- ARMul_SetR15 (state,
- ARMul_ReadWord (state, ADDRSOFTVECTORS + ARMErrorV));
- return (TRUE);
+ default:
+ unhandled = TRUE;
+ }
-/* SWI's 0x9x unwind the state of the CPU after an abort of type x */
+ if (unhandled)
+ {
+ if (SWI_vector_installed)
+ {
+ ARMword cpsr;
+ ARMword i_size;
- case 0x90: /* Branch through zero */
- {
- ARMword oldpsr = ARMul_GetCPSR (state);
- ARMul_SetCPSR (state, (oldpsr & 0xffffffc0) | 0x13);
- ARMul_SetSPSR (state, SVC32MODE, oldpsr);
- state->Reg[14] = 0;
- goto TidyCommon;
- }
+ cpsr = ARMul_GetCPSR (state);
+ i_size = INSN_SIZE;
- case 0x98: /* Error */
- {
- ARMword errorp = state->Reg[0], regp = state->Reg[1];
- unsigned i;
- ARMword errorpsr = ARMul_ReadWord (state, regp + 16 * 4);
- for (i = 0; i < 15; i++)
- ARMul_SetReg (state, errorpsr, i,
- ARMul_ReadWord (state, regp + i * 4L));
- state->Reg[14] = ARMul_ReadWord (state, regp + 15 * 4L);
- state->Reg[10] = errorp;
- ARMul_SetSPSR (state, state->Mode, errorpsr);
- OSptr->ErrorP = errorp;
- goto TidyCommon;
- }
+ ARMul_SetSPSR (state, SVC32MODE, cpsr);
- case 0x94: /* Data abort */
- {
- ARMword addr = state->Reg[14] - 8;
- ARMword cpsr = ARMul_GetCPSR (state);
- if (ARM26BITMODE)
- addr = addr & 0x3fffffc;
- ARMul_SetCPSR (state, ARMul_GetSPSR (state, cpsr));
- UnwindDataAbort (state, addr);
- if (addr >= FPESTART && addr < FPEEND)
- { /* in the FPE */
- ARMword sp, spsr;
- unsigned i;
-
- sp = state->Reg[13];
- state->Reg[13] += 64; /* fix the aborting mode sp */
- state->Reg[14] = ARMul_ReadWord (state, sp + 60); /* and its lr */
- spsr = ARMul_GetSPSR (state, state->Mode);
- state->Mode = ARMul_SwitchMode (state, state->Mode, spsr);
- for (i = 0; i < 15; i++)
- {
- ARMul_SetReg (state, spsr, i, ARMul_ReadWord (state, sp));
- sp += 4;
- }
- ARMul_SetCPSR (state, cpsr);
- state->Reg[14] = ARMul_ReadWord (state, sp) + 4; /* botch it */
- ARMul_SetSPSR (state, state->Mode, spsr);
- }
- else
+ cpsr &= ~0xbf;
+ cpsr |= SVC32MODE | 0x80;
ARMul_SetCPSR (state, cpsr);
- /* and fall through to correct r14 */
- }
- case 0x95: /* Address Exception */
- state->Reg[14] -= 4;
- case 0x91: /* Undefined instruction */
- case 0x92: /* SWI */
- case 0x93: /* Prefetch abort */
- case 0x96: /* IRQ */
- case 0x97: /* FIQ */
- state->Reg[14] -= 4;
- TidyCommon:
- if (state->VectorCatch & (1 << (number - 0x90)))
- {
- ARMul_SetR15 (state, state->Reg[14] + 8); /* the 8 is the pipelining the the RDI will undo */
- ARMul_SetCPSR (state, ARMul_GetSPSR (state, ARMul_GetCPSR (state)));
- if (number == 0x90)
- state->EndCondition = 10; /* Branch through Zero Error */
- else
- state->EndCondition = (unsigned) number - 0x8f;
- state->Emulate = FALSE;
+ state->RegBank[SVCBANK][14] = state->Reg[14] = state->Reg[15] - i_size;
+ state->NextInstr = RESUME;
+ state->Reg[15] = state->pc = ARMSWIV;
+ FLUSHPIPE;
}
else
{
- ARMword sp = state->Reg[13];
- ARMul_WriteWord (state, sp - 4, state->Reg[14]);
- ARMul_WriteWord (state, sp - 8, state->Reg[12]);
- ARMul_WriteWord (state, sp - 12, state->Reg[11]);
- ARMul_WriteWord (state, sp - 16, state->Reg[10]);
- state->Reg[13] = sp - 16;
- state->Reg[11] = ADDRSOFHANDLERS + 8 * (number - 0x90);
+ sim_callback->printf_filtered
+ (sim_callback,
+ "sim: unknown SWI encountered - %x - ignoring\n",
+ number);
+ return FALSE;
}
- return (TRUE);
-
-/* SWI's 0x8x pass an abort of type x to the debugger if a handler returns */
-
- case 0x80:
- case 0x81:
- case 0x82:
- case 0x83:
- case 0x84:
- case 0x85:
- case 0x86:
- case 0x87:
- case 0x88:
- {
- ARMword sp = state->Reg[13];
- state->Reg[10] = ARMul_ReadWord (state, sp);
- state->Reg[11] = ARMul_ReadWord (state, sp + 4);
- state->Reg[12] = ARMul_ReadWord (state, sp + 8);
- state->Reg[14] = ARMul_ReadWord (state, sp + 12);
- state->Reg[13] = sp + 16;
- ARMul_SetR15 (state, state->Reg[14] + 8); /* the 8 is the pipelining the the RDI will undo */
- ARMul_SetCPSR (state, ARMul_GetSPSR (state, ARMul_GetCPSR (state)));
- if (number == 0x80)
- state->EndCondition = 10; /* Branch through Zero Error */
- else
- state->EndCondition = (unsigned) number - 0x7f;
- state->Emulate = FALSE;
- return (TRUE);
- }
-
- default:
- state->Emulate = FALSE;
- return (FALSE);
- }
-#endif
-#endif
-}
-
-#endif /* CYGNUS LOCAL: #if 1 */
-
-#ifndef NOOS
-#ifndef ASIM
-
-/***************************************************************************\
-* The emulator calls this routine when an Exception occurs. The second *
-* parameter is the address of the relevant exception vector. Returning *
-* FALSE from this routine causes the trap to be taken, TRUE causes it to *
-* be ignored (so set state->Emulate to FALSE!). *
-\***************************************************************************/
-
-unsigned
-ARMul_OSException (ARMul_State * state, ARMword vector, ARMword pc)
-{ /* don't use this here */
- return (FALSE);
-}
-
-#endif
-
-/***************************************************************************\
-* Unwind a data abort *
-\***************************************************************************/
-
-static void
-UnwindDataAbort (ARMul_State * state, ARMword addr)
-{
- ARMword instr = ARMul_ReadWord (state, addr);
- ARMword rn = BITS (16, 19);
- ARMword itype = BITS (24, 27);
- ARMword offset;
- if (rn == 15)
- return;
- if (itype == 8 || itype == 9)
- {
- /* LDM or STM */
- unsigned long regs = BITS (0, 15);
- offset = 0;
- if (!BIT (21))
- return; /* no wb */
- for (; regs != 0; offset++)
- regs ^= (regs & -regs);
- if (offset == 0)
- offset = 16;
- }
- else if (itype == 12 || /* post-indexed CPDT */
- (itype == 13 && BIT (21)))
- { /* pre_indexed CPDT with WB */
- offset = BITS (0, 7);
}
- else
- return;
-
- if (BIT (23))
- state->Reg[rn] -= offset * 4;
- else
- state->Reg[rn] += offset * 4;
-}
-
-/***************************************************************************\
-* Copy a string from the debuggee's memory to the host's *
-\***************************************************************************/
-static void
-getstring (ARMul_State * state, ARMword from, char *to)
-{
- do
- {
- *to = (char) ARMul_ReadByte (state, from++);
- }
- while (*to++ != '\0');
+ return TRUE;
}
-
-#endif /* NOOS */