Subversion Repositories or1k

#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