OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [newlib-1.18.0/] [newlib/] [libc/] [sys/] [h8500hms/] [syscalls.c] - Rev 308

Go to most recent revision | Compare with Previous | Blame | View Log

 
#include <_ansi.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
 
int 
_read (file, ptr, len)
     int file;
     char *ptr;
     size_t len;
 
{
  return 0;
}
 
 
int 
_lseek (file, ptr, dir)
     int file;
     int ptr;
     int dir;
 
{
  return 0;
 
}
 
static 
writechar (c)
     char c;
 
 
{
  register int n asm ("r3");
  n = c;
asm ("clr.w	r1;mov.w %0,r0; mov.w #6,r3; trapa #15": :"g" (n) : "r3","r1","r0");
}
 
 
 
int 
_write (file, ptr, len)
     int file;
     char *ptr;
     size_t len;
{
 
  int todo;
 
  for (todo = 0; todo < len; todo++)
    {
      writechar (*ptr++);
    }
  return len;
 
}
 
 
 
int 
_close (file)
     int file;
{
 
  return -1;
}
 
 
 
caddr_t
_sbrk (incr)
     size_t incr;
{
  extern char end;		/* Defined by the linker */
  static char *heap_end;
  char *prev_heap_end;
 
  if (heap_end == 0)
    {
      heap_end = &end;
    }
  prev_heap_end = heap_end;
  if (heap_end + incr > stack_ptr)
    {
      _write (1, "Heap and stack collision\n", 25);
      abort ();
    }
  heap_end += incr;
  return (caddr_t) prev_heap_end;
}
 
 
 
int 
_isatty (file)
     int file;
{
  return 1;
}
 
 
 
int 
_fstat (file, stat)
     int file;
     struct stat *stat;
 
{
  stat->st_mode = S_IFCHR;
  return 0;
}
 
int 
_open (path, flags)
     const char *path;
     int flags;
 
{
  return 0;
}
 
 
void 
_exit (status)
     int status;
{
  asm (" mov.w #33,r3; trapa #15");
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.