/spare/repo/netdev-2.6 branch 'e100'
[linux-2.6] / arch / xtensa / kernel / syscalls.c
1 /*
2  * arch/xtensa/kernel/syscall.c
3  *
4  * This file is subject to the terms and conditions of the GNU General Public
5  * License.  See the file "COPYING" in the main directory of this archive
6  * for more details.
7  *
8  * Copyright (C) 2001 - 2005 Tensilica Inc.
9  * Copyright (C) 2000 Silicon Graphics, Inc.
10  * Copyright (C) 1995 - 2000 by Ralf Baechle
11  *
12  * Joe Taylor <joe@tensilica.com, joetylr@yahoo.com>
13  * Marc Gauthier <marc@tensilica.com, marc@alumni.uwaterloo.ca>
14  * Chris Zankel <chris@zankel.net>
15  * Kevin Chea
16  *
17  */
18
19 #define DEBUG   0
20
21 #include <linux/config.h>
22 #include <linux/linkage.h>
23 #include <linux/mm.h>
24 #include <linux/smp.h>
25 #include <linux/smp_lock.h>
26 #include <linux/mman.h>
27 #include <linux/sched.h>
28 #include <linux/file.h>
29 #include <linux/slab.h>
30 #include <linux/utsname.h>
31 #include <linux/unistd.h>
32 #include <linux/stringify.h>
33 #include <linux/syscalls.h>
34 #include <linux/sem.h>
35 #include <linux/msg.h>
36 #include <linux/shm.h>
37 #include <linux/errno.h>
38 #include <asm/ptrace.h>
39 #include <asm/signal.h>
40 #include <asm/uaccess.h>
41 #include <asm/hardirq.h>
42 #include <asm/mman.h>
43 #include <asm/shmparam.h>
44 #include <asm/page.h>
45
46 extern void do_syscall_trace(void);
47 typedef int (*syscall_t)(void *a0,...);
48 extern syscall_t sys_call_table[];
49 extern unsigned char sys_narg_table[];
50
51 /*
52  * sys_pipe() is the normal C calling standard for creating a pipe. It's not
53  * the way unix traditional does this, though.
54  */
55
56 int sys_pipe(int __user *userfds)
57 {
58         int fd[2];
59         int error;
60
61         error = do_pipe(fd);
62         if (!error) {
63                 if (copy_to_user(userfds, fd, 2 * sizeof(int)))
64                         error = -EFAULT;
65         }
66         return error;
67 }
68
69 /*
70  * Common code for old and new mmaps.
71  */
72 long sys_mmap(unsigned long addr, unsigned long len, unsigned long prot,
73               unsigned long flags, unsigned long fd, unsigned long pgoff)
74 {
75         int error = -EBADF;
76         struct file * file = NULL;
77
78         flags &= ~(MAP_EXECUTABLE | MAP_DENYWRITE);
79         if (!(flags & MAP_ANONYMOUS)) {
80                 file = fget(fd);
81                 if (!file)
82                         goto out;
83         }
84
85         down_write(&current->mm->mmap_sem);
86         error = do_mmap_pgoff(file, addr, len, prot, flags, pgoff);
87         up_write(&current->mm->mmap_sem);
88
89         if (file)
90                 fput(file);
91 out:
92         return error;
93 }
94
95 int sys_clone(struct pt_regs *regs)
96 {
97         unsigned long clone_flags;
98         unsigned long newsp;
99         int __user *parent_tidptr, *child_tidptr;
100         clone_flags = regs->areg[4];
101         newsp = regs->areg[3];
102         parent_tidptr = (int __user *)regs->areg[5];
103         child_tidptr = (int __user *)regs->areg[6];
104         if (!newsp)
105                 newsp = regs->areg[1];
106         return do_fork(clone_flags,newsp,regs,0,parent_tidptr,child_tidptr);
107 }
108
109 /*
110  * sys_execve() executes a new program.
111  */
112
113 int sys_execve(struct pt_regs *regs)
114 {
115         int error;
116         char * filename;
117
118         filename = getname((char *) (long)regs->areg[5]);
119         error = PTR_ERR(filename);
120         if (IS_ERR(filename))
121                 goto out;
122         error = do_execve(filename, (char **) (long)regs->areg[3],
123                           (char **) (long)regs->areg[4], regs);
124         putname(filename);
125
126 out:
127         return error;
128 }
129
130 int sys_uname(struct old_utsname * name)
131 {
132         if (name && !copy_to_user(name, &system_utsname, sizeof (*name)))
133                 return 0;
134         return -EFAULT;
135 }
136
137 /*
138  * Build the string table for the builtin "poor man's strace".
139  */
140
141 #if DEBUG
142 #define SYSCALL(fun, narg) #fun,
143 static char *sfnames[] = {
144 #include "syscalls.h"
145 };
146 #undef SYS
147 #endif
148
149 void system_call (struct pt_regs *regs)
150 {
151         syscall_t syscall;
152         unsigned long parm0, parm1, parm2, parm3, parm4, parm5;
153         int nargs, res;
154         unsigned int syscallnr;
155         int ps;
156
157 #if DEBUG
158         int i;
159         unsigned long parms[6];
160         char *sysname;
161 #endif
162
163         regs->syscall = regs->areg[2];
164
165         do_syscall_trace();
166
167         /* Have to load after syscall_trace because strace
168          * sometimes changes regs->syscall.
169          */
170         syscallnr = regs->syscall;
171
172         parm0 = parm1 = parm2 = parm3 = parm4 = parm5 = 0;
173
174         /* Restore interrupt level to syscall invoker's.
175          * If this were in assembly, we wouldn't disable
176          * interrupts in the first place:
177          */
178         local_save_flags (ps);
179         local_irq_restore((ps & ~XCHAL_PS_INTLEVEL_MASK) |
180                           (regs->ps & XCHAL_PS_INTLEVEL_MASK) );
181
182         if (syscallnr > __NR_Linux_syscalls) {
183                 regs->areg[2] = -ENOSYS;
184                 return;
185         }
186
187         syscall = sys_call_table[syscallnr];
188         nargs = sys_narg_table[syscallnr];
189
190         if (syscall == NULL) {
191                 regs->areg[2] = -ENOSYS;
192                 return;
193         }
194
195         /* There shouldn't be more than six arguments in the table! */
196
197         if (nargs > 6)
198                 panic("Internal error - too many syscall arguments (%d)!\n",
199                       nargs);
200
201         /* Linux takes system-call arguments in registers.  The ABI
202          * and Xtensa software conventions require the system-call
203          * number in a2.  If an argument exists in a2, we move it to
204          * the next available register.  Note that for improved
205          * efficiency, we do NOT shift all parameters down one
206          * register to maintain the original order.
207          *
208          * At best case (zero arguments), we just write the syscall
209          * number to a2.  At worst case (1 to 6 arguments), we move
210          * the argument in a2 to the next available register, then
211          * write the syscall number to a2.
212          *
213          * For clarity, the following truth table enumerates all
214          * possibilities.
215          *
216          * arguments    syscall number  arg0, arg1, arg2, arg3, arg4, arg5
217          * ---------    --------------  ----------------------------------
218          *      0             a2
219          *      1             a2        a3
220          *      2             a2        a4,   a3
221          *      3             a2        a5,   a3,   a4
222          *      4             a2        a6,   a3,   a4,   a5
223          *      5             a2        a7,   a3,   a4,   a5,   a6
224          *      6             a2        a8,   a3,   a4,   a5,   a6,   a7
225          */
226         if (nargs) {
227                 parm0 = regs->areg[nargs+2];
228                 parm1 = regs->areg[3];
229                 parm2 = regs->areg[4];
230                 parm3 = regs->areg[5];
231                 parm4 = regs->areg[6];
232                 parm5 = regs->areg[7];
233         } else /* nargs == 0 */
234                 parm0 = (unsigned long) regs;
235
236 #if DEBUG
237         parms[0] = parm0;
238         parms[1] = parm1;
239         parms[2] = parm2;
240         parms[3] = parm3;
241         parms[4] = parm4;
242         parms[5] = parm5;
243
244         sysname = sfnames[syscallnr];
245         if (strncmp(sysname, "sys_", 4) == 0)
246                 sysname = sysname + 4;
247
248         printk("\017SYSCALL:I:%x:%d:%s  %s(", regs->pc, current->pid,
249                current->comm, sysname);
250         for (i = 0; i < nargs; i++)
251                 printk((i>0) ? ", %#lx" : "%#lx", parms[i]);
252         printk(")\n");
253 #endif
254
255         res = syscall((void *)parm0, parm1, parm2, parm3, parm4, parm5);
256
257 #if DEBUG
258         printk("\017SYSCALL:O:%d:%s  %s(",current->pid, current->comm, sysname);
259         for (i = 0; i < nargs; i++)
260                 printk((i>0) ? ", %#lx" : "%#lx", parms[i]);
261         if (res < 4096)
262                 printk(") = %d\n", res);
263         else
264                 printk(") = %#x\n", res);
265 #endif /* DEBUG */
266
267         regs->areg[2] = res;
268         do_syscall_trace();
269 }