blob: 68205a03364caa444c8683bc77e36bf21ef0d750 [file] [log] [blame]
Linus Torvalds1da177e2005-04-16 15:20:36 -07001/*
2 * Copyright 2003 PathScale, Inc.
3 *
4 * Licensed under the GPL
5 */
6
7#include "linux/linkage.h"
8#include "linux/slab.h"
9#include "linux/shm.h"
10#include "asm/uaccess.h"
11#define __FRAME_OFFSETS
12#include "asm/ptrace.h"
13#include "asm/unistd.h"
14#include "asm/prctl.h" /* XXX This should get the constants from libc */
15#include "choose-mode.h"
16
17asmlinkage long wrap_sys_shmat(int shmid, char __user *shmaddr, int shmflg)
18{
19 unsigned long raddr;
20
21 return do_shmat(shmid, shmaddr, shmflg, &raddr) ?: (long) raddr;
22}
23
24#ifdef CONFIG_MODE_TT
25extern int modify_ldt(int func, void *ptr, unsigned long bytecount);
26
27long sys_modify_ldt_tt(int func, void *ptr, unsigned long bytecount)
28{
29 /* XXX This should check VERIFY_WRITE depending on func, check this
30 * in i386 as well.
31 */
32 if (!access_ok(VERIFY_READ, ptr, bytecount))
33 return -EFAULT;
34 return(modify_ldt(func, ptr, bytecount));
35}
36#endif
37
38#ifdef CONFIG_MODE_SKAS
39extern int userspace_pid[];
40
41long sys_modify_ldt_skas(int func, void *ptr, unsigned long bytecount)
42{
43 struct ptrace_ldt ldt;
44 void *buf;
45 int res, n;
46
47 buf = kmalloc(bytecount, GFP_KERNEL);
48 if(buf == NULL)
49 return(-ENOMEM);
50
51 res = 0;
52
53 switch(func){
54 case 1:
55 case 0x11:
56 res = copy_from_user(buf, ptr, bytecount);
57 break;
58 }
59
60 if(res != 0){
61 res = -EFAULT;
62 goto out;
63 }
64
65 ldt = ((struct ptrace_ldt) { .func = func,
66 .ptr = buf,
67 .bytecount = bytecount });
68#warning Need to look up userspace_pid by cpu
69 res = ptrace(PTRACE_LDT, userspace_pid[0], 0, (unsigned long) &ldt);
70 if(res < 0)
71 goto out;
72
73 switch(func){
74 case 0:
75 case 2:
76 n = res;
77 res = copy_to_user(ptr, buf, n);
78 if(res != 0)
79 res = -EFAULT;
80 else
81 res = n;
82 break;
83 }
84
85 out:
86 kfree(buf);
87 return(res);
88}
89#endif
90
91long sys_modify_ldt(int func, void *ptr, unsigned long bytecount)
92{
93 return(CHOOSE_MODE_PROC(sys_modify_ldt_tt, sys_modify_ldt_skas, func,
94 ptr, bytecount));
95}
96
97#ifdef CONFIG_MODE_TT
98extern long arch_prctl(int code, unsigned long addr);
99
100static long arch_prctl_tt(int code, unsigned long addr)
101{
102 unsigned long tmp;
103 long ret;
104
105 switch(code){
106 case ARCH_SET_GS:
107 case ARCH_SET_FS:
108 ret = arch_prctl(code, addr);
109 break;
110 case ARCH_GET_FS:
111 case ARCH_GET_GS:
112 ret = arch_prctl(code, (unsigned long) &tmp);
113 if(!ret)
114 ret = put_user(tmp, &addr);
115 break;
116 default:
117 ret = -EINVAL;
118 break;
119 }
120
121 return(ret);
122}
123#endif
124
125#ifdef CONFIG_MODE_SKAS
126
127static long arch_prctl_skas(int code, unsigned long addr)
128{
129 long ret = 0;
130
131 switch(code){
132 case ARCH_SET_GS:
133 current->thread.regs.regs.skas.regs[GS_BASE / sizeof(unsigned long)] = addr;
134 break;
135 case ARCH_SET_FS:
136 current->thread.regs.regs.skas.regs[FS_BASE / sizeof(unsigned long)] = addr;
137 break;
138 case ARCH_GET_FS:
139 ret = put_user(current->thread.regs.regs.skas.regs[GS / sizeof(unsigned long)], &addr);
140 break;
141 case ARCH_GET_GS:
142 ret = put_user(current->thread.regs.regs.skas.regs[FS / sizeof(unsigned \
143long)], &addr);
144 break;
145 default:
146 ret = -EINVAL;
147 break;
148 }
149
150 return(ret);
151}
152#endif
153
154long sys_arch_prctl(int code, unsigned long addr)
155{
156 return(CHOOSE_MODE_PROC(arch_prctl_tt, arch_prctl_skas, code, addr));
157}
158
159long sys_clone(unsigned long clone_flags, unsigned long newsp,
160 void __user *parent_tid, void __user *child_tid)
161{
162 long ret;
163
164 /* XXX: normal arch do here this pass, and also pass the regs to
165 * do_fork, instead of NULL. Currently the arch-independent code
166 * ignores these values, while the UML code (actually it's
167 * copy_thread) does the right thing. But this should change,
168 probably. */
169 /*if (!newsp)
170 newsp = UPT_SP(current->thread.regs);*/
171 current->thread.forking = 1;
172 ret = do_fork(clone_flags, newsp, NULL, 0, parent_tid, child_tid);
173 current->thread.forking = 0;
174 return(ret);
175}
176
177/*
178 * Overrides for Emacs so that we follow Linus's tabbing style.
179 * Emacs will notice this stuff at the end of the file and automatically
180 * adjust the settings for this buffer only. This must remain at the end
181 * of the file.
182 * ---------------------------------------------------------------------------
183 * Local variables:
184 * c-file-style: "linux"
185 * End:
186 */