URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [z8ksim/] [glue.c] - Blame information for rev 1765

Details | Compare with Previous | View Log


#include "sys/syscall.h"
#include <sys/types.h>
#include <sys/stat.h>
#include <_ansi.h>
#include <errno.h>
 
extern char _start_heap;
extern char _end_heap;
extern char _start_bss;
extern char _end_bss;
 
 
static int argl(long value)
{
  asm("ld r0,%H0" : : "r" (value));
  asm("ld r1,%I0" : : "r" (value));
  asm("sc %0" : : "i" (SYS_ARG));
}
 
 
static int argw(value)
{
  asm("ld r1,%H0" : : "r" ( value));
  asm("ld  r0,#0");
  asm("sc %0" : : "i" (SYS_ARG));
}
 
static int argp(void *value)
{
#ifdef __Z8001__  
  asm("ld r0,%H0" : : "r" (value));
  asm("ld r1,%I0" : : "r" (value));
#else
  asm("ld r1,%H0" : : "r" ( value));
  asm("ld  r0,#0");
#endif
  asm("sc %0" : : "i" (SYS_ARG));
 
}
 
 
 
#define ARGL(n, value)  argl(value)
#define ARGW(n, value)  argw(value)
#define ARGP(n, value) argp(value)
 
#define MACRO(n) asm("sc %0" : : "i" (n));
 
int _read (int fd, char *buf,size_t nbytes)
{
  ARGW(0,fd);
  ARGP(1,buf);
  ARGP(2,(void *)(nbytes));
  MACRO(SYS_read);
}
 
int _write (int fd, char *buf, size_t nbytes)
{
  ARGW(0,fd);
  ARGP(1,buf);
  ARGP(2,(void *)(nbytes));
  MACRO(SYS_write);
}
 
int _open (const char *buf, int flags, int mode)
{
  ARGP(0, buf);
  ARGW(1, flags);
  ARGW(2, mode);
  MACRO(SYS_open);
}
 
int _close (int fd)
{
  ARGW(0,fd);
  MACRO(SYS_close );
}
 
/*
 * sbrk -- changes heap size size. Get nbytes more
 *         RAM. We just increment a pointer in what's
 *         left of memory on the board.
 */
caddr_t _sbrk (size_t nbytes)
{
  static char* heap_ptr = NULL;
  caddr_t        base;
 
  if (heap_ptr == NULL) {
    heap_ptr = (caddr_t)&_start_heap;
  }
 
  if (heap_ptr + nbytes < &_end_heap) {
    base = heap_ptr;
    heap_ptr += nbytes;
    return (heap_ptr);
  } else {
    errno = ENOMEM;
    return ((caddr_t)-1);
  }
}
 
int isatty (int fd)
{
  ARGW(0,fd);
  MACRO(SYS_isatty);
}
 
off_t _lseek (int fd,  off_t offset, int whence)
{
  ARGW(0,fd);
  ARGL(1,offset);
  ARGW(2, whence);
  MACRO(SYS_lseek);
}
 
int _fstat (int fd, struct stat *buf)
{
  ARGW(0,fd);
  ARGP(1,buf);
  MACRO(SYS_fstat);
}
 
 
 
 
int
_exit(int val)
{
  ARGW(0,val);
  MACRO(SYS_exit);
}
 
time_t _time(time_t *timer)
{
  ARGP(0,timer);
  MACRO(SYS_time);
}
 
int
_creat (const char *path, int mode)
{
  ARGP(0, path);
  ARGW(1, mode);
  MACRO(SYS_creat);
}
 
_kill(int pid, int val)
{
  _exit(val);
}
 
_getpid()
{
  return 1;
}

Line No.	Rev	Author	Line
1	39	lampret	`#include "sys/syscall.h"`
2			`#include <sys/types.h>`
3			`#include <sys/stat.h>`
4			`#include <_ansi.h>`
5			`#include <errno.h>`
6
7			`extern char _start_heap;`
8			`extern char _end_heap;`
9			`extern char _start_bss;`
10			`extern char _end_bss;`
11
12
13			`static int argl(long value)`
14			`{`
15			`asm("ld r0,%H0" : : "r" (value));`
16			`asm("ld r1,%I0" : : "r" (value));`
17			`asm("sc %0" : : "i" (SYS_ARG));`
18			`}`
19
20
21			`static int argw(value)`
22			`{`
23			`asm("ld r1,%H0" : : "r" ( value));`
24			`asm("ld r0,#0");`
25			`asm("sc %0" : : "i" (SYS_ARG));`
26			`}`
27
28			`static int argp(void *value)`
29			`{`
30			`#ifdef __Z8001__`
31			`asm("ld r0,%H0" : : "r" (value));`
32			`asm("ld r1,%I0" : : "r" (value));`
33			`#else`
34			`asm("ld r1,%H0" : : "r" ( value));`
35			`asm("ld r0,#0");`
36			`#endif`
37			`asm("sc %0" : : "i" (SYS_ARG));`
38
39			`}`
40
41
42
43			`#define ARGL(n, value) argl(value)`
44			`#define ARGW(n, value) argw(value)`
45			`#define ARGP(n, value) argp(value)`
46
47			`#define MACRO(n) asm("sc %0" : : "i" (n));`
48
49			`int _read (int fd, char *buf,size_t nbytes)`
50			`{`
51			`ARGW(0,fd);`
52			`ARGP(1,buf);`
53			`ARGP(2,(void *)(nbytes));`
54			`MACRO(SYS_read);`
55			`}`
56
57			`int _write (int fd, char *buf, size_t nbytes)`
58			`{`
59			`ARGW(0,fd);`
60			`ARGP(1,buf);`
61			`ARGP(2,(void *)(nbytes));`
62			`MACRO(SYS_write);`
63			`}`
64
65			`int _open (const char *buf, int flags, int mode)`
66			`{`
67			`ARGP(0, buf);`
68			`ARGW(1, flags);`
69			`ARGW(2, mode);`
70			`MACRO(SYS_open);`
71			`}`
72
73			`int _close (int fd)`
74			`{`
75			`ARGW(0,fd);`
76			`MACRO(SYS_close );`
77			`}`
78
79			`/*`
80			`* sbrk -- changes heap size size. Get nbytes more`
81			`* RAM. We just increment a pointer in what's`
82			`* left of memory on the board.`
83			`*/`
84			`caddr_t _sbrk (size_t nbytes)`
85			`{`
86			`static char* heap_ptr = NULL;`
87			`caddr_t base;`
88
89			`if (heap_ptr == NULL) {`
90			`heap_ptr = (caddr_t)&_start_heap;`
91			`}`
92
93			`if (heap_ptr + nbytes < &_end_heap) {`
94			`base = heap_ptr;`
95			`heap_ptr += nbytes;`
96			`return (heap_ptr);`
97			`} else {`
98			`errno = ENOMEM;`
99			`return ((caddr_t)-1);`
100			`}`
101			`}`
102
103			`int isatty (int fd)`
104			`{`
105			`ARGW(0,fd);`
106			`MACRO(SYS_isatty);`
107			`}`
108
109			`off_t _lseek (int fd, off_t offset, int whence)`
110			`{`
111			`ARGW(0,fd);`
112			`ARGL(1,offset);`
113			`ARGW(2, whence);`
114			`MACRO(SYS_lseek);`
115			`}`
116
117			`int _fstat (int fd, struct stat *buf)`
118			`{`
119			`ARGW(0,fd);`
120			`ARGP(1,buf);`
121			`MACRO(SYS_fstat);`
122			`}`
123
124
125
126
127			`int`
128			`_exit(int val)`
129			`{`
130			`ARGW(0,val);`
131			`MACRO(SYS_exit);`
132			`}`
133
134			`time_t _time(time_t *timer)`
135			`{`
136			`ARGP(0,timer);`
137			`MACRO(SYS_time);`
138			`}`
139
140			`int`
141			`_creat (const char *path, int mode)`
142			`{`
143			`ARGP(0, path);`
144			`ARGW(1, mode);`
145			`MACRO(SYS_creat);`
146			`}`
147
148			`_kill(int pid, int val)`
149			`{`
150			`_exit(val);`
151			`}`
152
153			`_getpid()`
154			`{`
155			`return 1;`
156			`}`

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [z8ksim/] [glue.c] - Blame information for rev 1765