Merge master.kernel.org:/home/rmk/linux-2.6-serial
[linux-2.6] / arch / parisc / kernel / sys_parisc32.c
1 /*
2  * sys_parisc32.c: Conversion between 32bit and 64bit native syscalls.
3  *
4  * Copyright (C) 2000-2001 Hewlett Packard Company
5  * Copyright (C) 2000 John Marvin
6  * Copyright (C) 2001 Matthew Wilcox
7  *
8  * These routines maintain argument size conversion between 32bit and 64bit
9  * environment. Based heavily on sys_ia32.c and sys_sparc32.c.
10  */
11
12 #include <linux/config.h>
13 #include <linux/compat.h>
14 #include <linux/kernel.h>
15 #include <linux/sched.h>
16 #include <linux/fs.h> 
17 #include <linux/mm.h> 
18 #include <linux/file.h> 
19 #include <linux/signal.h>
20 #include <linux/resource.h>
21 #include <linux/times.h>
22 #include <linux/utsname.h>
23 #include <linux/time.h>
24 #include <linux/smp.h>
25 #include <linux/smp_lock.h>
26 #include <linux/sem.h>
27 #include <linux/msg.h>
28 #include <linux/shm.h>
29 #include <linux/slab.h>
30 #include <linux/uio.h>
31 #include <linux/nfs_fs.h>
32 #include <linux/ncp_fs.h>
33 #include <linux/sunrpc/svc.h>
34 #include <linux/nfsd/nfsd.h>
35 #include <linux/nfsd/cache.h>
36 #include <linux/nfsd/xdr.h>
37 #include <linux/nfsd/syscall.h>
38 #include <linux/poll.h>
39 #include <linux/personality.h>
40 #include <linux/stat.h>
41 #include <linux/highmem.h>
42 #include <linux/highuid.h>
43 #include <linux/mman.h>
44 #include <linux/binfmts.h>
45 #include <linux/namei.h>
46 #include <linux/vfs.h>
47 #include <linux/ptrace.h>
48 #include <linux/swap.h>
49 #include <linux/syscalls.h>
50
51 #include <asm/types.h>
52 #include <asm/uaccess.h>
53 #include <asm/semaphore.h>
54 #include <asm/mmu_context.h>
55
56 #include "sys32.h"
57
58 #undef DEBUG
59
60 #ifdef DEBUG
61 #define DBG(x)  printk x
62 #else
63 #define DBG(x)
64 #endif
65
66 /*
67  * sys32_execve() executes a new program.
68  */
69
70 asmlinkage int sys32_execve(struct pt_regs *regs)
71 {
72         int error;
73         char *filename;
74
75         DBG(("sys32_execve(%p) r26 = 0x%lx\n", regs, regs->gr[26]));
76         filename = getname((const char __user *) regs->gr[26]);
77         error = PTR_ERR(filename);
78         if (IS_ERR(filename))
79                 goto out;
80         error = compat_do_execve(filename, compat_ptr(regs->gr[25]),
81                                  compat_ptr(regs->gr[24]), regs);
82         if (error == 0) {
83                 task_lock(current);
84                 current->ptrace &= ~PT_DTRACE;
85                 task_unlock(current);
86         }
87         putname(filename);
88 out:
89
90         return error;
91 }
92
93 asmlinkage long sys32_unimplemented(int r26, int r25, int r24, int r23,
94         int r22, int r21, int r20)
95 {
96     printk(KERN_ERR "%s(%d): Unimplemented 32 on 64 syscall #%d!\n", 
97         current->comm, current->pid, r20);
98     return -ENOSYS;
99 }
100
101 #ifdef CONFIG_SYSCTL
102
103 struct __sysctl_args32 {
104         u32 name;
105         int nlen;
106         u32 oldval;
107         u32 oldlenp;
108         u32 newval;
109         u32 newlen;
110         u32 __unused[4];
111 };
112
113 asmlinkage long sys32_sysctl(struct __sysctl_args32 __user *args)
114 {
115         struct __sysctl_args32 tmp;
116         int error;
117         unsigned int oldlen32;
118         size_t oldlen, *oldlenp = NULL;
119         unsigned long addr = (((long __force)&args->__unused[0]) + 7) & ~7;
120         extern int do_sysctl(int *name, int nlen, void *oldval, size_t *oldlenp,
121                void *newval, size_t newlen);
122
123         DBG(("sysctl32(%p)\n", args));
124
125         if (copy_from_user(&tmp, args, sizeof(tmp)))
126                 return -EFAULT;
127
128         if (tmp.oldval && tmp.oldlenp) {
129                 /* Duh, this is ugly and might not work if sysctl_args
130                    is in read-only memory, but do_sysctl does indirectly
131                    a lot of uaccess in both directions and we'd have to
132                    basically copy the whole sysctl.c here, and
133                    glibc's __sysctl uses rw memory for the structure
134                    anyway.  */
135                 /* a possibly better hack than this, which will avoid the
136                  * problem if the struct is read only, is to push the
137                  * 'oldlen' value out to the user's stack instead. -PB
138                  */
139                 if (get_user(oldlen32, (u32 *)(u64)tmp.oldlenp))
140                         return -EFAULT;
141                 oldlen = oldlen32;
142                 if (put_user(oldlen, (size_t *)addr))
143                         return -EFAULT;
144                 oldlenp = (size_t *)addr;
145         }
146
147         lock_kernel();
148         error = do_sysctl((int *)(u64)tmp.name, tmp.nlen, (void *)(u64)tmp.oldval,
149                           oldlenp, (void *)(u64)tmp.newval, tmp.newlen);
150         unlock_kernel();
151         if (oldlenp) {
152                 if (!error) {
153                         if (get_user(oldlen, (size_t *)addr)) {
154                                 error = -EFAULT;
155                         } else {
156                                 oldlen32 = oldlen;
157                                 if (put_user(oldlen32, (u32 *)(u64)tmp.oldlenp))
158                                         error = -EFAULT;
159                         }
160                 }
161                 if (copy_to_user(&args->__unused[0], tmp.__unused, sizeof(tmp.__unused)))
162                         error = -EFAULT;
163         }
164         return error;
165 }
166
167 #endif /* CONFIG_SYSCTL */
168
169 asmlinkage long sys32_sched_rr_get_interval(pid_t pid,
170         struct compat_timespec __user *interval)
171 {
172         struct timespec t;
173         int ret;
174
175         KERNEL_SYSCALL(ret, sys_sched_rr_get_interval, pid, (struct timespec __user *)&t);
176         if (put_compat_timespec(&t, interval))
177                 return -EFAULT;
178         return ret;
179 }
180
181 static int
182 put_compat_timeval(struct compat_timeval __user *u, struct timeval *t)
183 {
184         struct compat_timeval t32;
185         t32.tv_sec = t->tv_sec;
186         t32.tv_usec = t->tv_usec;
187         return copy_to_user(u, &t32, sizeof t32);
188 }
189
190 static inline long get_ts32(struct timespec *o, struct compat_timeval __user *i)
191 {
192         long usec;
193
194         if (__get_user(o->tv_sec, &i->tv_sec))
195                 return -EFAULT;
196         if (__get_user(usec, &i->tv_usec))
197                 return -EFAULT;
198         o->tv_nsec = usec * 1000;
199         return 0;
200 }
201
202 asmlinkage int
203 sys32_gettimeofday(struct compat_timeval __user *tv, struct timezone __user *tz)
204 {
205     extern void do_gettimeofday(struct timeval *tv);
206
207     if (tv) {
208             struct timeval ktv;
209             do_gettimeofday(&ktv);
210             if (put_compat_timeval(tv, &ktv))
211                     return -EFAULT;
212     }
213     if (tz) {
214             extern struct timezone sys_tz;
215             if (copy_to_user(tz, &sys_tz, sizeof(sys_tz)))
216                     return -EFAULT;
217     }
218     return 0;
219 }
220
221 asmlinkage 
222 int sys32_settimeofday(struct compat_timeval __user *tv, struct timezone __user *tz)
223 {
224         struct timespec kts;
225         struct timezone ktz;
226
227         if (tv) {
228                 if (get_ts32(&kts, tv))
229                         return -EFAULT;
230         }
231         if (tz) {
232                 if (copy_from_user(&ktz, tz, sizeof(ktz)))
233                         return -EFAULT;
234         }
235
236         return do_sys_settimeofday(tv ? &kts : NULL, tz ? &ktz : NULL);
237 }
238
239 int cp_compat_stat(struct kstat *stat, struct compat_stat __user *statbuf)
240 {
241         int err;
242
243         if (stat->size > MAX_NON_LFS || !new_valid_dev(stat->dev) ||
244             !new_valid_dev(stat->rdev))
245                 return -EOVERFLOW;
246
247         err  = put_user(new_encode_dev(stat->dev), &statbuf->st_dev);
248         err |= put_user(stat->ino, &statbuf->st_ino);
249         err |= put_user(stat->mode, &statbuf->st_mode);
250         err |= put_user(stat->nlink, &statbuf->st_nlink);
251         err |= put_user(0, &statbuf->st_reserved1);
252         err |= put_user(0, &statbuf->st_reserved2);
253         err |= put_user(new_encode_dev(stat->rdev), &statbuf->st_rdev);
254         err |= put_user(stat->size, &statbuf->st_size);
255         err |= put_user(stat->atime.tv_sec, &statbuf->st_atime);
256         err |= put_user(stat->atime.tv_nsec, &statbuf->st_atime_nsec);
257         err |= put_user(stat->mtime.tv_sec, &statbuf->st_mtime);
258         err |= put_user(stat->mtime.tv_nsec, &statbuf->st_mtime_nsec);
259         err |= put_user(stat->ctime.tv_sec, &statbuf->st_ctime);
260         err |= put_user(stat->ctime.tv_nsec, &statbuf->st_ctime_nsec);
261         err |= put_user(stat->blksize, &statbuf->st_blksize);
262         err |= put_user(stat->blocks, &statbuf->st_blocks);
263         err |= put_user(0, &statbuf->__unused1);
264         err |= put_user(0, &statbuf->__unused2);
265         err |= put_user(0, &statbuf->__unused3);
266         err |= put_user(0, &statbuf->__unused4);
267         err |= put_user(0, &statbuf->__unused5);
268         err |= put_user(0, &statbuf->st_fstype); /* not avail */
269         err |= put_user(0, &statbuf->st_realdev); /* not avail */
270         err |= put_user(0, &statbuf->st_basemode); /* not avail */
271         err |= put_user(0, &statbuf->st_spareshort);
272         err |= put_user(stat->uid, &statbuf->st_uid);
273         err |= put_user(stat->gid, &statbuf->st_gid);
274         err |= put_user(0, &statbuf->st_spare4[0]);
275         err |= put_user(0, &statbuf->st_spare4[1]);
276         err |= put_user(0, &statbuf->st_spare4[2]);
277
278         return err;
279 }
280
281 struct linux32_dirent {
282         u32             d_ino;
283         compat_off_t    d_off;
284         u16             d_reclen;
285         char            d_name[1];
286 };
287
288 struct old_linux32_dirent {
289         u32     d_ino;
290         u32     d_offset;
291         u16     d_namlen;
292         char    d_name[1];
293 };
294
295 struct getdents32_callback {
296         struct linux32_dirent __user * current_dir;
297         struct linux32_dirent __user * previous;
298         int count;
299         int error;
300 };
301
302 struct readdir32_callback {
303         struct old_linux32_dirent __user * dirent;
304         int count;
305 };
306
307 #define ROUND_UP(x,a)   ((__typeof__(x))(((unsigned long)(x) + ((a) - 1)) & ~((a) - 1)))
308 #define NAME_OFFSET(de) ((int) ((de)->d_name - (char __user *) (de)))
309 static int
310 filldir32 (void *__buf, const char *name, int namlen, loff_t offset, ino_t ino,
311            unsigned int d_type)
312 {
313         struct linux32_dirent __user * dirent;
314         struct getdents32_callback * buf = (struct getdents32_callback *) __buf;
315         int reclen = ROUND_UP(NAME_OFFSET(dirent) + namlen + 1, 4);
316
317         buf->error = -EINVAL;   /* only used if we fail.. */
318         if (reclen > buf->count)
319                 return -EINVAL;
320         dirent = buf->previous;
321         if (dirent)
322                 put_user(offset, &dirent->d_off);
323         dirent = buf->current_dir;
324         buf->previous = dirent;
325         put_user(ino, &dirent->d_ino);
326         put_user(reclen, &dirent->d_reclen);
327         copy_to_user(dirent->d_name, name, namlen);
328         put_user(0, dirent->d_name + namlen);
329         dirent = ((void __user *)dirent) + reclen;
330         buf->current_dir = dirent;
331         buf->count -= reclen;
332         return 0;
333 }
334
335 asmlinkage long
336 sys32_getdents (unsigned int fd, void __user * dirent, unsigned int count)
337 {
338         struct file * file;
339         struct linux32_dirent __user * lastdirent;
340         struct getdents32_callback buf;
341         int error;
342
343         error = -EBADF;
344         file = fget(fd);
345         if (!file)
346                 goto out;
347
348         buf.current_dir = (struct linux32_dirent __user *) dirent;
349         buf.previous = NULL;
350         buf.count = count;
351         buf.error = 0;
352
353         error = vfs_readdir(file, filldir32, &buf);
354         if (error < 0)
355                 goto out_putf;
356         error = buf.error;
357         lastdirent = buf.previous;
358         if (lastdirent) {
359                 put_user(file->f_pos, &lastdirent->d_off);
360                 error = count - buf.count;
361         }
362
363 out_putf:
364         fput(file);
365 out:
366         return error;
367 }
368
369 static int
370 fillonedir32 (void * __buf, const char * name, int namlen, loff_t offset, ino_t ino,
371               unsigned int d_type)
372 {
373         struct readdir32_callback * buf = (struct readdir32_callback *) __buf;
374         struct old_linux32_dirent __user * dirent;
375
376         if (buf->count)
377                 return -EINVAL;
378         buf->count++;
379         dirent = buf->dirent;
380         put_user(ino, &dirent->d_ino);
381         put_user(offset, &dirent->d_offset);
382         put_user(namlen, &dirent->d_namlen);
383         copy_to_user(dirent->d_name, name, namlen);
384         put_user(0, dirent->d_name + namlen);
385         return 0;
386 }
387
388 asmlinkage long
389 sys32_readdir (unsigned int fd, void __user * dirent, unsigned int count)
390 {
391         int error;
392         struct file * file;
393         struct readdir32_callback buf;
394
395         error = -EBADF;
396         file = fget(fd);
397         if (!file)
398                 goto out;
399
400         buf.count = 0;
401         buf.dirent = dirent;
402
403         error = vfs_readdir(file, fillonedir32, &buf);
404         if (error >= 0)
405                 error = buf.count;
406         fput(file);
407 out:
408         return error;
409 }
410
411 /*** copied from mips64 ***/
412 /*
413  * Ooo, nasty.  We need here to frob 32-bit unsigned longs to
414  * 64-bit unsigned longs.
415  */
416
417 static inline int
418 get_fd_set32(unsigned long n, u32 *ufdset, unsigned long *fdset)
419 {
420         n = (n + 8*sizeof(u32) - 1) / (8*sizeof(u32));
421         if (ufdset) {
422                 unsigned long odd;
423
424                 if (!access_ok(VERIFY_WRITE, ufdset, n*sizeof(u32)))
425                         return -EFAULT;
426
427                 odd = n & 1UL;
428                 n &= ~1UL;
429                 while (n) {
430                         unsigned long h, l;
431                         __get_user(l, ufdset);
432                         __get_user(h, ufdset+1);
433                         ufdset += 2;
434                         *fdset++ = h << 32 | l;
435                         n -= 2;
436                 }
437                 if (odd)
438                         __get_user(*fdset, ufdset);
439         } else {
440                 /* Tricky, must clear full unsigned long in the
441                  * kernel fdset at the end, this makes sure that
442                  * actually happens.
443                  */
444                 memset(fdset, 0, ((n + 1) & ~1)*sizeof(u32));
445         }
446         return 0;
447 }
448
449 static inline void
450 set_fd_set32(unsigned long n, u32 *ufdset, unsigned long *fdset)
451 {
452         unsigned long odd;
453         n = (n + 8*sizeof(u32) - 1) / (8*sizeof(u32));
454
455         if (!ufdset)
456                 return;
457
458         odd = n & 1UL;
459         n &= ~1UL;
460         while (n) {
461                 unsigned long h, l;
462                 l = *fdset++;
463                 h = l >> 32;
464                 __put_user(l, ufdset);
465                 __put_user(h, ufdset+1);
466                 ufdset += 2;
467                 n -= 2;
468         }
469         if (odd)
470                 __put_user(*fdset, ufdset);
471 }
472
473 struct msgbuf32 {
474     int mtype;
475     char mtext[1];
476 };
477
478 asmlinkage long sys32_msgsnd(int msqid,
479                                 struct msgbuf32 __user *umsgp32,
480                                 size_t msgsz, int msgflg)
481 {
482         struct msgbuf *mb;
483         struct msgbuf32 mb32;
484         int err;
485
486         if ((mb = kmalloc(msgsz + sizeof *mb + 4, GFP_KERNEL)) == NULL)
487                 return -ENOMEM;
488
489         err = get_user(mb32.mtype, &umsgp32->mtype);
490         mb->mtype = mb32.mtype;
491         err |= copy_from_user(mb->mtext, &umsgp32->mtext, msgsz);
492
493         if (err)
494                 err = -EFAULT;
495         else
496                 KERNEL_SYSCALL(err, sys_msgsnd, msqid, (struct msgbuf __user *)mb, msgsz, msgflg);
497
498         kfree(mb);
499         return err;
500 }
501
502 asmlinkage long sys32_msgrcv(int msqid,
503                                 struct msgbuf32 __user *umsgp32,
504                                 size_t msgsz, long msgtyp, int msgflg)
505 {
506         struct msgbuf *mb;
507         struct msgbuf32 mb32;
508         int err, len;
509
510         if ((mb = kmalloc(msgsz + sizeof *mb + 4, GFP_KERNEL)) == NULL)
511                 return -ENOMEM;
512
513         KERNEL_SYSCALL(err, sys_msgrcv, msqid, (struct msgbuf __user *)mb, msgsz, msgtyp, msgflg);
514
515         if (err >= 0) {
516                 len = err;
517                 mb32.mtype = mb->mtype;
518                 err = put_user(mb32.mtype, &umsgp32->mtype);
519                 err |= copy_to_user(&umsgp32->mtext, mb->mtext, len);
520                 if (err)
521                         err = -EFAULT;
522                 else
523                         err = len;
524         }
525
526         kfree(mb);
527         return err;
528 }
529
530 asmlinkage int sys32_sendfile(int out_fd, int in_fd, compat_off_t __user *offset, s32 count)
531 {
532         mm_segment_t old_fs = get_fs();
533         int ret;
534         off_t of;
535
536         if (offset && get_user(of, offset))
537                 return -EFAULT;
538
539         set_fs(KERNEL_DS);
540         ret = sys_sendfile(out_fd, in_fd, offset ? (off_t __user *)&of : NULL, count);
541         set_fs(old_fs);
542
543         if (offset && put_user(of, offset))
544                 return -EFAULT;
545
546         return ret;
547 }
548
549 asmlinkage int sys32_sendfile64(int out_fd, int in_fd, compat_loff_t __user *offset, s32 count)
550 {
551         mm_segment_t old_fs = get_fs();
552         int ret;
553         loff_t lof;
554         
555         if (offset && get_user(lof, offset))
556                 return -EFAULT;
557                 
558         set_fs(KERNEL_DS);
559         ret = sys_sendfile64(out_fd, in_fd, offset ? (loff_t __user *)&lof : NULL, count);
560         set_fs(old_fs);
561         
562         if (offset && put_user(lof, offset))
563                 return -EFAULT;
564                 
565         return ret;
566 }
567
568
569 struct sysinfo32 {
570         s32 uptime;
571         u32 loads[3];
572         u32 totalram;
573         u32 freeram;
574         u32 sharedram;
575         u32 bufferram;
576         u32 totalswap;
577         u32 freeswap;
578         unsigned short procs;
579         u32 totalhigh;
580         u32 freehigh;
581         u32 mem_unit;
582         char _f[12];
583 };
584
585 /* We used to call sys_sysinfo and translate the result.  But sys_sysinfo
586  * undoes the good work done elsewhere, and rather than undoing the
587  * damage, I decided to just duplicate the code from sys_sysinfo here.
588  */
589
590 asmlinkage int sys32_sysinfo(struct sysinfo32 __user *info)
591 {
592         struct sysinfo val;
593         int err;
594         unsigned long seq;
595
596         /* We don't need a memset here because we copy the
597          * struct to userspace once element at a time.
598          */
599
600         do {
601                 seq = read_seqbegin(&xtime_lock);
602                 val.uptime = jiffies / HZ;
603
604                 val.loads[0] = avenrun[0] << (SI_LOAD_SHIFT - FSHIFT);
605                 val.loads[1] = avenrun[1] << (SI_LOAD_SHIFT - FSHIFT);
606                 val.loads[2] = avenrun[2] << (SI_LOAD_SHIFT - FSHIFT);
607
608                 val.procs = nr_threads;
609         } while (read_seqretry(&xtime_lock, seq));
610
611
612         si_meminfo(&val);
613         si_swapinfo(&val);
614         
615         err = put_user (val.uptime, &info->uptime);
616         err |= __put_user (val.loads[0], &info->loads[0]);
617         err |= __put_user (val.loads[1], &info->loads[1]);
618         err |= __put_user (val.loads[2], &info->loads[2]);
619         err |= __put_user (val.totalram, &info->totalram);
620         err |= __put_user (val.freeram, &info->freeram);
621         err |= __put_user (val.sharedram, &info->sharedram);
622         err |= __put_user (val.bufferram, &info->bufferram);
623         err |= __put_user (val.totalswap, &info->totalswap);
624         err |= __put_user (val.freeswap, &info->freeswap);
625         err |= __put_user (val.procs, &info->procs);
626         err |= __put_user (val.totalhigh, &info->totalhigh);
627         err |= __put_user (val.freehigh, &info->freehigh);
628         err |= __put_user (val.mem_unit, &info->mem_unit);
629         return err ? -EFAULT : 0;
630 }
631
632
633 /* lseek() needs a wrapper because 'offset' can be negative, but the top
634  * half of the argument has been zeroed by syscall.S.
635  */
636
637 asmlinkage int sys32_lseek(unsigned int fd, int offset, unsigned int origin)
638 {
639         return sys_lseek(fd, offset, origin);
640 }
641
642 asmlinkage long sys32_semctl(int semid, int semnum, int cmd, union semun arg)
643 {
644         union semun u;
645         
646         if (cmd == SETVAL) {
647                 /* Ugh.  arg is a union of int,ptr,ptr,ptr, so is 8 bytes.
648                  * The int should be in the first 4, but our argument
649                  * frobbing has left it in the last 4.
650                  */
651                 u.val = *((int *)&arg + 1);
652                 return sys_semctl (semid, semnum, cmd, u);
653         }
654         return sys_semctl (semid, semnum, cmd, arg);
655 }
656
657 long sys32_lookup_dcookie(u32 cookie_high, u32 cookie_low, char __user *buf,
658                           size_t len)
659 {
660         return sys_lookup_dcookie((u64)cookie_high << 32 | cookie_low,
661                                   buf, len);
662 }