20000317 sourceware import

libgloss/fr30/syscalls.c

@@ -0,0 +1,162 @@
+/* FR30 system call emulation code
+   Copyright (C) 1998 Free Software Foundation, Inc.
+   Contributed by Cygnus Solutions.
+
+This file is part of GNU CC.
+
+GNU CC 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, or (at your option)
+any later version.
+
+GNU CC 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 GNU CC; see the file COPYING.  If not, write to
+the Free Software Foundation, 59 Temple Place - Suite 330,
+Boston, MA 02111-1307, USA.  */
+
+#include <sys/stat.h>
+#include "../syscall.h"
+
+int
+_read (file, ptr, len)
+     int    file;
+     char * ptr;
+     int    len;
+{
+  asm ("ldi:8 %0, r0" :: "i" (SYS_read) : "r0");
+  asm ("int   #10");
+  
+  return;
+}
+
+int
+_lseek (file, ptr, dir)
+     int file;
+     int ptr;
+     int dir;
+{
+  asm ("ldi:8 %0, r0" :: "i" (SYS_lseek) : "r0");
+  asm ("int   #10");
+  
+  return;
+}
+
+int
+_write (file, ptr, len)
+     int    file;
+     char * ptr;
+     int    len;
+{
+  asm ("ldi:8 %0, r0" :: "i" (SYS_write) : "r0");
+  asm ("int   #10");
+  
+  return;
+}
+
+int
+_open (path, flags)
+     const char * path;
+     int flags;
+{
+  asm ("ldi:8  %0, r0" :: "i" (SYS_open) : "r0");
+  asm ("int    #10");
+  
+  return;
+}
+
+int
+_close (file)
+     int file;
+{
+  asm ("ldi:8  %0, r0" :: "i" (SYS_close) : "r0");
+  asm ("int    #10");
+  
+  return 0;
+}
+
+void
+_exit (n)
+     int n;
+{
+  asm ("ldi:8  %0, r0" :: "i" (SYS_exit) : "r0");
+  asm ("int    #10");
+}
+
+
+caddr_t
+_sbrk (incr)
+     int incr;
+{
+  extern char   end asm ("_end");	/* Defined by the linker */
+  extern int    __stack;                /* Defined by linker script.  */
+  static char * heap_end;
+  char *        prev_heap_end;
+
+  if (heap_end == NULL)
+    heap_end = & end;
+  
+  prev_heap_end = heap_end;
+#if 0  
+  if (heap_end + incr > __stack)
+    {
+      _write ( 1, "_sbrk: Heap and stack collision\n", 32);
+      abort ();
+    }
+#endif
+  heap_end += incr;
+
+  return (caddr_t) prev_heap_end;
+}
+
+int
+_fstat (file, st)
+     int file;
+     struct stat * st;
+{
+  st->st_mode = S_IFCHR;
+  return 0;
+}
+
+int
+_unlink ()
+{
+  return -1;
+}
+
+int
+isatty (fd)
+     int fd;
+{
+  return 0;
+}
+
+int
+_raise ()
+{
+  return 0;
+}
+
+int
+_times ()
+{
+  return 0;
+}
+
+int
+_kill (pid, sig)
+     int pid;
+     int sig;
+{
+  return 0;
+}
+
+int
+_getpid (void)
+{
+  return 0;
+}