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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [d10v/] [trap.S] - Blame information for rev 40

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


#include "sys/syscall.h"
 
#define SYSCALL(name) \
        .global name    ; \
name:                   ; \
        ldi     r4, SYS ## name ; \
        bra     __trap0
 
        .text
        .stabs  "trap.S",100,0,0,__trap0
        .stabs  "int:t(0,1)=r(0,1);-65536;65535;",128,0,0,0
        .stabs  "long int:t(0,2)=r(0,1);0020000000000;0017777777777;",128,0,0,0
        .stabs  "_trap0:F(0,1)",36,0,1,__trap0
        .stabs  "arg1:P(0,1)",64,0,1,0
        .stabs  "arg2:P(0,1)",64,0,1,1
        .stabs  "arg3:P(0,1)",64,0,1,2
        .stabs  "arg4:P(0,1)",64,0,1,3
        .stabs  "number:P(0,1)",64,0,1,4
        .global __trap0
        .type   __trap0,@function
__trap0:
        trap    15                      /* trap 15 returns result in r0, error code in r4 */
        cmpeqi  r4,0                    /* is error code zero? */
        brf0t   ret                     /* yes, skip setting errno */
#if __INT__==32
        st      r4,@(errno+2,r14)       /* no, set errno */
        srai    r4,15                   /* sign extend high word */
        st      r4,@(errno,r14)
#else
        st      r4,@(errno,r14) /* no, set errno */
#endif
 
ret:
        jmp     r13             /* return to caller */
.Ltrap0:
        .size   __trap0,.Ltrap0-__trap0
        .stabs  "",36,0,0,.Ltrap0-__trap0
 
#define CONCAT(a,b) a ## b
#define STRING(a) #a
#define XSTRING(a) STRING(a)
#define XSTRING2(a,b) XSTRING(CONCAT(a,b))
 
#if __INT__==32
#define _read _read16
#define _lseek _lseek16
#define _write _write16
#define _close _close16
#define _open _open16
#define _creat _creat16
#define _exit _exit16
#define _stat _stat16
#define _chmod _chmod16
#define _chown _chown16
#define _fork _fork16
#define _wait _wait16
#define _execve _execve16
#define _execv _execv16
#define _pipe _pipe16
#define _kill _kill16
#define _getpid _getpid16
#endif
 
/* Until the assembler allows semicolon as a statement separator, */
/* we cannot use the SYSCALL macro.  So expand it manually for now. */
 
/* #SYSCALL(_read) */
/* #SYSCALL(_lseek) */
/* #SYSCALL(_write) */
/* #SYSCALL(_close) */
/* #SYSCALL(_open) */
/* #SYSCALL(_creat) */
/* #SYSCALL(_exit) */
/* #SYSCALL(_stat) */
/* #SYSCALL(_chmod) */
/* #SYSCALL(_chown) */
/* #SYSCALL(_fork) */
/* #SYSCALL(_wait) */
/* #SYSCALL(_execve) */
/* #SYSCALL(_execv) */
/* #SYSCALL(_pipe) */
/* #SYSCALL(_getpid) */
/* #SYSCALL(_kill) */
 
        .global _read
        .type   _read,@function
        .stabs  XSTRING2(_read,:F(0,1)),36,0,2,_read
        .stabs  "fd:P(0,1)",64,0,1,0
        .stabs  "ptr:P(0,1)",64,0,1,1
        .stabs  "len:P(0,1)",64,0,1,2
_read:
        ldi     r4, SYS_read
        bra     __trap0
.Lread:
        .size   _read,.-_read
        .stabs  "",36,0,0,.Lread-_read
 
        .global _lseek
        .type   _lseek,@function
        .stabs  XSTRING2(_lseek,:F(0,1)),36,0,3,_lseek
        .stabs  "fd:P(0,1)",64,0,1,0
        .stabs  "offset:P(0,1)",64,0,1,2
        .stabs  "whence:p(0,1)",160,0,1,0
_lseek:
        ldi     r4, SYS_lseek
        bra     __trap0
.Llseek:
        .size   _lseek,.Llseek-_lseek
        .stabs  "",36,0,0,.Llseek-_lseek
 
        .global _write
        .type   _write,@function
        .stabs  XSTRING2(_write,:F(0,1)),36,0,4,_write
        .stabs  "fd:P(0,1)",64,0,1,0
        .stabs  "ptr:P(0,1)",64,0,1,1
        .stabs  "len:P(0,1)",64,0,1,2
_write:
        ldi     r4, SYS_write
        bra     __trap0
.Lwrite:
        .size   _write,.Lwrite-_write
        .stabs  "",36,0,0,.Lwrite-_write
 
        .global _close
        .type   _close,@function
        .stabs  XSTRING2(_close,:F(0,1)),36,0,5,_close
        .stabs  "fd:P(0,1)",64,0,1,0
_close:
        ldi     r4, SYS_close
        bra     __trap0
.Lclose:
        .size   _close,.Lclose-_close
        .stabs  "",36,0,0,.Lclose-_close
 
        .global _open
        .type   _open,@function
        .stabs  XSTRING2(_open,:F(0,1)),36,0,6,_open
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "flags:P(0,1)",64,0,1,1
        .stabs  "mode:P(0,1)",64,0,1,2
_open:
        ldi     r4, SYS_open
        bra     __trap0
.Lopen:
        .size   _open,.Lopen-_open
        .stabs  "",36,0,0,.Lopen-_open
 
        .global _creat
        .type   _creat,@function
        .stabs  XSTRING2(_creat,:F(0,1)),36,0,7,_creat
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "mode:P(0,1)",64,0,1,1
_creat:
        ldi     r4, SYS_creat
        bra     __trap0
.Lcreat:
        .size   _creat,.Lcreat-_creat
        .stabs  "",36,0,0,.Lcreat-_creat
 
        .global _exit
        .type   _exit,@function
        .stabs  XSTRING2(_exit,:F(0,1)),36,0,8,_exit
        .stabs  "status:P(0,1)",64,0,1,0
_exit:
        ldi     r4, SYS_exit
        bra     __trap0
.Lexit:
        .size   _exit,.Lexit-_exit
        .stabs  "",36,0,0,.Lexit-_exit
 
        .global _stat
        .type   _stat,@function
        .stabs  XSTRING2(_stat,:F(0,1)),36,0,9,_stat
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "packet:P(0,1)",64,0,1,1
_stat:
        ldi     r4, SYS_stat
        bra     __trap0
.Lstat:
        .size   _stat,.Lstat-_stat
        .stabs  "",36,0,0,.Lstat-_stat
 
        .global _chmod
        .type   _chmod,@function
        .stabs  XSTRING2(_chmod,:F(0,1)),36,0,10,_chmod
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "mode:P(0,1)",64,0,1,1
_chmod:
        ldi     r4, SYS_chmod
        bra     __trap0
.Lchmod:
        .size   _chmod,.Lchmod-_chmod
        .stabs  "",36,0,0,.Lchmod-_chmod
 
        .global _chown
        .type   _chown,@function
        .stabs  XSTRING2(_chown,:F(0,1)),36,0,11,_chown
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "uid:P(0,1)",64,0,1,1
        .stabs  "gid:P(0,1)",64,0,1,2
_chown:
        ldi     r4, SYS_chown
        bra     __trap0
.Lchown:
        .size   _chown,.Lchown-_chown
        .stabs  "",36,0,0,.Lchown-_chown
 
        .global _fork
        .type   _fork,@function
        .stabs  XSTRING2(_fork,:F(0,1)),36,0,12,_fork
_fork:
        ldi     r4, SYS_fork
        bra     __trap0
.Lfork:
        .size   _fork,.Lfork-_fork
        .stabs  "",36,0,0,.Lfork-_fork
 
        .global _wait
        .type   _wait,@function
        .stabs  "status:P(0,1)",64,0,1,0
        .stabs  XSTRING2(_wait,:F(0,1)),36,0,13,_wait
_wait:
        ldi     r4, SYS_wait
        bra     __trap0
.Lwait:
        .size   _wait,.Lwait-_wait
        .stabs  "",36,0,0,.Lwait-_wait
 
        .global _execve
        .type   _execve,@function
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "argv:P(0,1)",64,0,1,1
        .stabs  "envp:P(0,1)",64,0,1,2
        .stabs  XSTRING2(_execve,:F(0,1)),36,0,14,_execve
_execve:
        ldi     r4, SYS_execve
        bra     __trap0
.Lexecve:
        .size   _execve,.Lexecve-_execve
        .stabs  "",36,0,0,.Lexecve-_execve
 
        .global _execv
        .type   _execv,@function
        .stabs  XSTRING2(_execv,:F(0,1)),36,0,15,_execv
        .stabs  "name:P(0,1)",64,0,1,0
        .stabs  "argv:P(0,1)",64,0,1,1
_execv:
        ldi     r4, SYS_execv
        bra     __trap0
.Lexecv:
        .size   _execv,.Lexecv-_execv
        .stabs  "",36,0,0,.Lexecv-_execv
 
        .global _pipe
        .type   _pipe,@function
        .stabs  XSTRING2(_pipe,:F(0,1)),36,0,16,_pipe
        .stabs  "fds:P(0,1)",64,0,1,0
_pipe:
        ldi     r4, SYS_pipe
        bra     __trap0
.Lpipe:
        .size   _pipe,.Lpipe-_pipe
        .stabs  "",36,0,0,.Lpipe-_pipe
 
        .global time
        .type   time,@function
        .stabs  XSTRING2(time,:F(0,1)),36,0,17,time
        .stabs  "ptr:P(0,1)",64,0,1,0
time:
        ldi     r4, SYS_time
        bra     __trap0
.Ltime:
        .size   time,.Ltime-time
        .stabs  "",36,0,0,.Ltime-time
 
        .global _kill
        .type   _kill,@function
        .stabs  XSTRING2(_kill,:F(0,1)),36,0,18,_kill
        .stabs  "pid:P(0,1)",64,0,1,0
        .stabs  "sig:P(0,1)",64,0,1,1
_kill:
        ldi     r4, SYS_kill
        bra     __trap0
.Lkill:
        .size   _kill,.Lkill-_kill
        .stabs  "",36,0,0,.Lkill-_kill
 
        .global _getpid
        .type   _getpid,@function
        .stabs  XSTRING2(_getpid,:F(0,1)),36,0,19,_getpid
_getpid:
        ldi     r4, SYS_getpid
        bra     __trap0
.Lgetpid:
        .size   _getpid,.Lgetpid-_getpid
        .stabs  "",36,0,0,.Lgetpid-_getpid

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib/] [newlib/] [libc/] [sys/] [d10v/] [trap.S] - Blame information for rev 40

Line No.	Rev	Author	Line
1	39	lampret	`#include "sys/syscall.h"`
2
3			`#define SYSCALL(name) \`
4			`.global name ; \`
5			`name: ; \`
6			`ldi r4, SYS ## name ; \`
7			`bra __trap0`
8
9			`.text`
10			`.stabs "trap.S",100,0,0,__trap0`
11			`.stabs "int:t(0,1)=r(0,1);-65536;65535;",128,0,0,0`
12			`.stabs "long int:t(0,2)=r(0,1);0020000000000;0017777777777;",128,0,0,0`
13			`.stabs "_trap0:F(0,1)",36,0,1,__trap0`
14			`.stabs "arg1:P(0,1)",64,0,1,0`
15			`.stabs "arg2:P(0,1)",64,0,1,1`
16			`.stabs "arg3:P(0,1)",64,0,1,2`
17			`.stabs "arg4:P(0,1)",64,0,1,3`
18			`.stabs "number:P(0,1)",64,0,1,4`
19			`.global __trap0`
20			`.type __trap0,@function`
21			`__trap0:`
22			`trap 15 /* trap 15 returns result in r0, error code in r4 */`
23			`cmpeqi r4,0 /* is error code zero? */`
24			`brf0t ret /* yes, skip setting errno */`
25			`#if __INT__==32`
26			`st r4,@(errno+2,r14) /* no, set errno */`
27			`srai r4,15 /* sign extend high word */`
28			`st r4,@(errno,r14)`
29			`#else`
30			`st r4,@(errno,r14) /* no, set errno */`
31			`#endif`
32
33			`ret:`
34			`jmp r13 /* return to caller */`
35			`.Ltrap0:`
36			`.size __trap0,.Ltrap0-__trap0`
37			`.stabs "",36,0,0,.Ltrap0-__trap0`
38
39			`#define CONCAT(a,b) a ## b`
40			`#define STRING(a) #a`
41			`#define XSTRING(a) STRING(a)`
42			`#define XSTRING2(a,b) XSTRING(CONCAT(a,b))`
43
44			`#if __INT__==32`
45			`#define _read _read16`
46			`#define _lseek _lseek16`
47			`#define _write _write16`
48			`#define _close _close16`
49			`#define _open _open16`
50			`#define _creat _creat16`
51			`#define _exit _exit16`
52			`#define _stat _stat16`
53			`#define _chmod _chmod16`
54			`#define _chown _chown16`
55			`#define _fork _fork16`
56			`#define _wait _wait16`
57			`#define _execve _execve16`
58			`#define _execv _execv16`
59			`#define _pipe _pipe16`
60			`#define _kill _kill16`
61			`#define _getpid _getpid16`
62			`#endif`
63
64			`/* Until the assembler allows semicolon as a statement separator, */`
65			`/* we cannot use the SYSCALL macro. So expand it manually for now. */`
66
67			`/* #SYSCALL(_read) */`
68			`/* #SYSCALL(_lseek) */`
69			`/* #SYSCALL(_write) */`
70			`/* #SYSCALL(_close) */`
71			`/* #SYSCALL(_open) */`
72			`/* #SYSCALL(_creat) */`
73			`/* #SYSCALL(_exit) */`
74			`/* #SYSCALL(_stat) */`
75			`/* #SYSCALL(_chmod) */`
76			`/* #SYSCALL(_chown) */`
77			`/* #SYSCALL(_fork) */`
78			`/* #SYSCALL(_wait) */`
79			`/* #SYSCALL(_execve) */`
80			`/* #SYSCALL(_execv) */`
81			`/* #SYSCALL(_pipe) */`
82			`/* #SYSCALL(_getpid) */`
83			`/* #SYSCALL(_kill) */`
84
85			`.global _read`
86			`.type _read,@function`
87			`.stabs XSTRING2(_read,:F(0,1)),36,0,2,_read`
88			`.stabs "fd:P(0,1)",64,0,1,0`
89			`.stabs "ptr:P(0,1)",64,0,1,1`
90			`.stabs "len:P(0,1)",64,0,1,2`
91			`_read:`
92			`ldi r4, SYS_read`
93			`bra __trap0`
94			`.Lread:`
95			`.size _read,.-_read`
96			`.stabs "",36,0,0,.Lread-_read`
97
98			`.global _lseek`
99			`.type _lseek,@function`
100			`.stabs XSTRING2(_lseek,:F(0,1)),36,0,3,_lseek`
101			`.stabs "fd:P(0,1)",64,0,1,0`
102			`.stabs "offset:P(0,1)",64,0,1,2`
103			`.stabs "whence:p(0,1)",160,0,1,0`
104			`_lseek:`
105			`ldi r4, SYS_lseek`
106			`bra __trap0`
107			`.Llseek:`
108			`.size _lseek,.Llseek-_lseek`
109			`.stabs "",36,0,0,.Llseek-_lseek`
110
111			`.global _write`
112			`.type _write,@function`
113			`.stabs XSTRING2(_write,:F(0,1)),36,0,4,_write`
114			`.stabs "fd:P(0,1)",64,0,1,0`
115			`.stabs "ptr:P(0,1)",64,0,1,1`
116			`.stabs "len:P(0,1)",64,0,1,2`
117			`_write:`
118			`ldi r4, SYS_write`
119			`bra __trap0`
120			`.Lwrite:`
121			`.size _write,.Lwrite-_write`
122			`.stabs "",36,0,0,.Lwrite-_write`
123
124			`.global _close`
125			`.type _close,@function`
126			`.stabs XSTRING2(_close,:F(0,1)),36,0,5,_close`
127			`.stabs "fd:P(0,1)",64,0,1,0`
128			`_close:`
129			`ldi r4, SYS_close`
130			`bra __trap0`
131			`.Lclose:`
132			`.size _close,.Lclose-_close`
133			`.stabs "",36,0,0,.Lclose-_close`
134
135			`.global _open`
136			`.type _open,@function`
137			`.stabs XSTRING2(_open,:F(0,1)),36,0,6,_open`
138			`.stabs "name:P(0,1)",64,0,1,0`
139			`.stabs "flags:P(0,1)",64,0,1,1`
140			`.stabs "mode:P(0,1)",64,0,1,2`
141			`_open:`
142			`ldi r4, SYS_open`
143			`bra __trap0`
144			`.Lopen:`
145			`.size _open,.Lopen-_open`
146			`.stabs "",36,0,0,.Lopen-_open`
147
148			`.global _creat`
149			`.type _creat,@function`
150			`.stabs XSTRING2(_creat,:F(0,1)),36,0,7,_creat`
151			`.stabs "name:P(0,1)",64,0,1,0`
152			`.stabs "mode:P(0,1)",64,0,1,1`
153			`_creat:`
154			`ldi r4, SYS_creat`
155			`bra __trap0`
156			`.Lcreat:`
157			`.size _creat,.Lcreat-_creat`
158			`.stabs "",36,0,0,.Lcreat-_creat`
159
160			`.global _exit`
161			`.type _exit,@function`
162			`.stabs XSTRING2(_exit,:F(0,1)),36,0,8,_exit`
163			`.stabs "status:P(0,1)",64,0,1,0`
164			`_exit:`
165			`ldi r4, SYS_exit`
166			`bra __trap0`
167			`.Lexit:`
168			`.size _exit,.Lexit-_exit`
169			`.stabs "",36,0,0,.Lexit-_exit`
170
171			`.global _stat`
172			`.type _stat,@function`
173			`.stabs XSTRING2(_stat,:F(0,1)),36,0,9,_stat`
174			`.stabs "name:P(0,1)",64,0,1,0`
175			`.stabs "packet:P(0,1)",64,0,1,1`
176			`_stat:`
177			`ldi r4, SYS_stat`
178			`bra __trap0`
179			`.Lstat:`
180			`.size _stat,.Lstat-_stat`
181			`.stabs "",36,0,0,.Lstat-_stat`
182
183			`.global _chmod`
184			`.type _chmod,@function`
185			`.stabs XSTRING2(_chmod,:F(0,1)),36,0,10,_chmod`
186			`.stabs "name:P(0,1)",64,0,1,0`
187			`.stabs "mode:P(0,1)",64,0,1,1`
188			`_chmod:`
189			`ldi r4, SYS_chmod`
190			`bra __trap0`
191			`.Lchmod:`
192			`.size _chmod,.Lchmod-_chmod`
193			`.stabs "",36,0,0,.Lchmod-_chmod`
194
195			`.global _chown`
196			`.type _chown,@function`
197			`.stabs XSTRING2(_chown,:F(0,1)),36,0,11,_chown`
198			`.stabs "name:P(0,1)",64,0,1,0`
199			`.stabs "uid:P(0,1)",64,0,1,1`
200			`.stabs "gid:P(0,1)",64,0,1,2`
201			`_chown:`
202			`ldi r4, SYS_chown`
203			`bra __trap0`
204			`.Lchown:`
205			`.size _chown,.Lchown-_chown`
206			`.stabs "",36,0,0,.Lchown-_chown`
207
208			`.global _fork`
209			`.type _fork,@function`
210			`.stabs XSTRING2(_fork,:F(0,1)),36,0,12,_fork`
211			`_fork:`
212			`ldi r4, SYS_fork`
213			`bra __trap0`
214			`.Lfork:`
215			`.size _fork,.Lfork-_fork`
216			`.stabs "",36,0,0,.Lfork-_fork`
217
218			`.global _wait`
219			`.type _wait,@function`
220			`.stabs "status:P(0,1)",64,0,1,0`
221			`.stabs XSTRING2(_wait,:F(0,1)),36,0,13,_wait`
222			`_wait:`
223			`ldi r4, SYS_wait`
224			`bra __trap0`
225			`.Lwait:`
226			`.size _wait,.Lwait-_wait`
227			`.stabs "",36,0,0,.Lwait-_wait`
228
229			`.global _execve`
230			`.type _execve,@function`
231			`.stabs "name:P(0,1)",64,0,1,0`
232			`.stabs "argv:P(0,1)",64,0,1,1`
233			`.stabs "envp:P(0,1)",64,0,1,2`
234			`.stabs XSTRING2(_execve,:F(0,1)),36,0,14,_execve`
235			`_execve:`
236			`ldi r4, SYS_execve`
237			`bra __trap0`
238			`.Lexecve:`
239			`.size _execve,.Lexecve-_execve`
240			`.stabs "",36,0,0,.Lexecve-_execve`
241
242			`.global _execv`
243			`.type _execv,@function`
244			`.stabs XSTRING2(_execv,:F(0,1)),36,0,15,_execv`
245			`.stabs "name:P(0,1)",64,0,1,0`
246			`.stabs "argv:P(0,1)",64,0,1,1`
247			`_execv:`
248			`ldi r4, SYS_execv`
249			`bra __trap0`
250			`.Lexecv:`
251			`.size _execv,.Lexecv-_execv`
252			`.stabs "",36,0,0,.Lexecv-_execv`
253
254			`.global _pipe`
255			`.type _pipe,@function`
256			`.stabs XSTRING2(_pipe,:F(0,1)),36,0,16,_pipe`
257			`.stabs "fds:P(0,1)",64,0,1,0`
258			`_pipe:`
259			`ldi r4, SYS_pipe`
260			`bra __trap0`
261			`.Lpipe:`
262			`.size _pipe,.Lpipe-_pipe`
263			`.stabs "",36,0,0,.Lpipe-_pipe`
264
265			`.global time`
266			`.type time,@function`
267			`.stabs XSTRING2(time,:F(0,1)),36,0,17,time`
268			`.stabs "ptr:P(0,1)",64,0,1,0`
269			`time:`
270			`ldi r4, SYS_time`
271			`bra __trap0`
272			`.Ltime:`
273			`.size time,.Ltime-time`
274			`.stabs "",36,0,0,.Ltime-time`
275
276			`.global _kill`
277			`.type _kill,@function`
278			`.stabs XSTRING2(_kill,:F(0,1)),36,0,18,_kill`
279			`.stabs "pid:P(0,1)",64,0,1,0`
280			`.stabs "sig:P(0,1)",64,0,1,1`
281			`_kill:`
282			`ldi r4, SYS_kill`
283			`bra __trap0`
284			`.Lkill:`
285			`.size _kill,.Lkill-_kill`
286			`.stabs "",36,0,0,.Lkill-_kill`
287
288			`.global _getpid`
289			`.type _getpid,@function`
290			`.stabs XSTRING2(_getpid,:F(0,1)),36,0,19,_getpid`
291			`_getpid:`
292			`ldi r4, SYS_getpid`
293			`bra __trap0`
294			`.Lgetpid:`
295			`.size _getpid,.Lgetpid-_getpid`
296			`.stabs "",36,0,0,.Lgetpid-_getpid`