2 * Copyright (C) 2004 - 2007 Jeff Dike (jdike@{addtoit,linux.intel}.com)
3 * Licensed under the GPL
6 #include <linux/ptrace.h>
7 #include <asm/unistd.h>
8 #include <asm/uaccess.h>
9 #include <asm/ucontext.h>
10 #include "frame_kern.h"
14 * FPU tag word conversions.
17 static inline unsigned short twd_i387_to_fxsr(unsigned short twd
)
19 unsigned int tmp
; /* to avoid 16 bit prefixes in the code */
21 /* Transform each pair of bits into 01 (valid) or 00 (empty) */
23 tmp
= (tmp
| (tmp
>>1)) & 0x5555; /* 0V0V0V0V0V0V0V0V */
24 /* and move the valid bits to the lower byte. */
25 tmp
= (tmp
| (tmp
>> 1)) & 0x3333; /* 00VV00VV00VV00VV */
26 tmp
= (tmp
| (tmp
>> 2)) & 0x0f0f; /* 0000VVVV0000VVVV */
27 tmp
= (tmp
| (tmp
>> 4)) & 0x00ff; /* 00000000VVVVVVVV */
31 static inline unsigned long twd_fxsr_to_i387(struct user_fxsr_struct
*fxsave
)
33 struct _fpxreg
*st
= NULL
;
34 unsigned long twd
= (unsigned long) fxsave
->twd
;
36 unsigned long ret
= 0xffff0000;
39 #define FPREG_ADDR(f, n) ((char *)&(f)->st_space + (n) * 16)
41 for (i
= 0; i
< 8; i
++) {
43 st
= (struct _fpxreg
*) FPREG_ADDR(fxsave
, i
);
45 switch (st
->exponent
& 0x7fff) {
47 tag
= 2; /* Special */
50 if ( !st
->significand
[0] &&
51 !st
->significand
[1] &&
52 !st
->significand
[2] &&
53 !st
->significand
[3] ) {
56 tag
= 2; /* Special */
60 if (st
->significand
[3] & 0x8000) {
63 tag
= 2; /* Special */
70 ret
|= (tag
<< (2 * i
));
76 static int convert_fxsr_to_user(struct _fpstate __user
*buf
,
77 struct user_fxsr_struct
*fxsave
)
80 struct _fpreg __user
*to
;
84 env
[0] = (unsigned long)fxsave
->cwd
| 0xffff0000ul
;
85 env
[1] = (unsigned long)fxsave
->swd
| 0xffff0000ul
;
86 env
[2] = twd_fxsr_to_i387(fxsave
);
88 env
[4] = fxsave
->fcs
| ((unsigned long)fxsave
->fop
<< 16);
92 if (__copy_to_user(buf
, env
, 7 * sizeof(unsigned long)))
96 from
= (struct _fpxreg
*) &fxsave
->st_space
[0];
97 for (i
= 0; i
< 8; i
++, to
++, from
++) {
98 unsigned long __user
*t
= (unsigned long __user
*)to
;
99 unsigned long *f
= (unsigned long *)from
;
101 if (__put_user(*f
, t
) ||
102 __put_user(*(f
+ 1), t
+ 1) ||
103 __put_user(from
->exponent
, &to
->exponent
))
109 static int convert_fxsr_from_user(struct user_fxsr_struct
*fxsave
,
110 struct _fpstate __user
*buf
)
112 unsigned long env
[7];
114 struct _fpreg __user
*from
;
117 if (copy_from_user( env
, buf
, 7 * sizeof(long)))
120 fxsave
->cwd
= (unsigned short)(env
[0] & 0xffff);
121 fxsave
->swd
= (unsigned short)(env
[1] & 0xffff);
122 fxsave
->twd
= twd_i387_to_fxsr((unsigned short)(env
[2] & 0xffff));
123 fxsave
->fip
= env
[3];
124 fxsave
->fop
= (unsigned short)((env
[4] & 0xffff0000ul
) >> 16);
125 fxsave
->fcs
= (env
[4] & 0xffff);
126 fxsave
->foo
= env
[5];
127 fxsave
->fos
= env
[6];
129 to
= (struct _fpxreg
*) &fxsave
->st_space
[0];
131 for (i
= 0; i
< 8; i
++, to
++, from
++) {
132 unsigned long *t
= (unsigned long *)to
;
133 unsigned long __user
*f
= (unsigned long __user
*)from
;
135 if (__get_user(*t
, f
) ||
136 __get_user(*(t
+ 1), f
+ 1) ||
137 __get_user(to
->exponent
, &from
->exponent
))
143 extern int have_fpx_regs
;
145 static int copy_sc_from_user(struct pt_regs
*regs
,
146 struct sigcontext __user
*from
)
148 struct sigcontext sc
;
151 err
= copy_from_user(&sc
, from
, sizeof(sc
));
155 pid
= userspace_pid
[current_thread_info()->cpu
];
157 #define GETREG(regno, regname) regs->regs.gp[HOST_##regno] = sc.regname
173 GETREG(EFLAGS
, flags
);
178 struct user_fxsr_struct fpx
;
180 err
= copy_from_user(&fpx
,
181 &((struct _fpstate __user
*)sc
.fpstate
)->_fxsr_env
[0],
182 sizeof(struct user_fxsr_struct
));
186 err
= convert_fxsr_from_user(&fpx
, sc
.fpstate
);
190 err
= restore_fpx_registers(pid
, (unsigned long *) &fpx
);
192 printk(KERN_ERR
"copy_sc_from_user - "
193 "restore_fpx_registers failed, errno = %d\n",
198 struct user_i387_struct fp
;
200 err
= copy_from_user(&fp
, sc
.fpstate
,
201 sizeof(struct user_i387_struct
));
205 err
= restore_fp_registers(pid
, (unsigned long *) &fp
);
207 printk(KERN_ERR
"copy_sc_from_user - "
208 "restore_fp_registers failed, errno = %d\n",
217 static int copy_sc_to_user(struct sigcontext __user
*to
,
218 struct _fpstate __user
*to_fp
, struct pt_regs
*regs
)
220 struct sigcontext sc
;
221 struct faultinfo
* fi
= ¤t
->thread
.arch
.faultinfo
;
223 memset(&sc
, 0, sizeof(struct sigcontext
));
225 sc
.gs
= REGS_GS(regs
->regs
.gp
);
226 sc
.fs
= REGS_FS(regs
->regs
.gp
);
227 sc
.es
= REGS_ES(regs
->regs
.gp
);
228 sc
.ds
= REGS_DS(regs
->regs
.gp
);
229 sc
.di
= REGS_EDI(regs
->regs
.gp
);
230 sc
.si
= REGS_ESI(regs
->regs
.gp
);
231 sc
.bp
= REGS_EBP(regs
->regs
.gp
);
232 sc
.sp
= REGS_SP(regs
->regs
.gp
);
233 sc
.bx
= REGS_EBX(regs
->regs
.gp
);
234 sc
.dx
= REGS_EDX(regs
->regs
.gp
);
235 sc
.cx
= REGS_ECX(regs
->regs
.gp
);
236 sc
.ax
= REGS_EAX(regs
->regs
.gp
);
237 sc
.ip
= REGS_IP(regs
->regs
.gp
);
238 sc
.cs
= REGS_CS(regs
->regs
.gp
);
239 sc
.flags
= REGS_EFLAGS(regs
->regs
.gp
);
240 sc
.sp_at_signal
= regs
->regs
.gp
[UESP
];
241 sc
.ss
= regs
->regs
.gp
[SS
];
243 sc
.err
= fi
->error_code
;
244 sc
.trapno
= fi
->trap_no
;
246 to_fp
= (to_fp
? to_fp
: (struct _fpstate __user
*) (to
+ 1));
249 pid
= userspace_pid
[current_thread_info()->cpu
];
251 struct user_fxsr_struct fpx
;
253 err
= save_fpx_registers(pid
, (unsigned long *) &fpx
);
255 printk(KERN_ERR
"copy_sc_to_user - save_fpx_registers "
256 "failed, errno = %d\n", err
);
260 err
= convert_fxsr_to_user(to_fp
, &fpx
);
264 err
|= __put_user(fpx
.swd
, &to_fp
->status
);
265 err
|= __put_user(X86_FXSR_MAGIC
, &to_fp
->magic
);
269 if (copy_to_user(&to_fp
->_fxsr_env
[0], &fpx
,
270 sizeof(struct user_fxsr_struct
)))
274 struct user_i387_struct fp
;
276 err
= save_fp_registers(pid
, (unsigned long *) &fp
);
277 if (copy_to_user(to_fp
, &fp
, sizeof(struct user_i387_struct
)))
281 return copy_to_user(to
, &sc
, sizeof(sc
));
284 static int copy_ucontext_to_user(struct ucontext __user
*uc
,
285 struct _fpstate __user
*fp
, sigset_t
*set
,
290 err
|= put_user(current
->sas_ss_sp
, &uc
->uc_stack
.ss_sp
);
291 err
|= put_user(sas_ss_flags(sp
), &uc
->uc_stack
.ss_flags
);
292 err
|= put_user(current
->sas_ss_size
, &uc
->uc_stack
.ss_size
);
293 err
|= copy_sc_to_user(&uc
->uc_mcontext
, fp
, ¤t
->thread
.regs
);
294 err
|= copy_to_user(&uc
->uc_sigmask
, set
, sizeof(*set
));
300 char __user
*pretcode
;
302 struct sigcontext sc
;
303 struct _fpstate fpstate
;
304 unsigned long extramask
[_NSIG_WORDS
-1];
310 char __user
*pretcode
;
312 struct siginfo __user
*pinfo
;
316 struct _fpstate fpstate
;
320 int setup_signal_stack_sc(unsigned long stack_top
, int sig
,
321 struct k_sigaction
*ka
, struct pt_regs
*regs
,
324 struct sigframe __user
*frame
;
325 void __user
*restorer
;
328 /* This is the same calculation as i386 - ((sp + 4) & 15) == 0 */
329 stack_top
= ((stack_top
+ 4) & -16UL) - 4;
330 frame
= (struct sigframe __user
*) stack_top
- 1;
331 if (!access_ok(VERIFY_WRITE
, frame
, sizeof(*frame
)))
334 restorer
= frame
->retcode
;
335 if (ka
->sa
.sa_flags
& SA_RESTORER
)
336 restorer
= ka
->sa
.sa_restorer
;
338 err
|= __put_user(restorer
, &frame
->pretcode
);
339 err
|= __put_user(sig
, &frame
->sig
);
340 err
|= copy_sc_to_user(&frame
->sc
, NULL
, regs
);
341 err
|= __put_user(mask
->sig
[0], &frame
->sc
.oldmask
);
343 err
|= __copy_to_user(&frame
->extramask
, &mask
->sig
[1],
344 sizeof(frame
->extramask
));
347 * This is popl %eax ; movl $,%eax ; int $0x80
349 * WE DO NOT USE IT ANY MORE! It's only left here for historical
350 * reasons and because gdb uses it as a signature to notice
351 * signal handler stack frames.
353 err
|= __put_user(0xb858, (short __user
*)(frame
->retcode
+0));
354 err
|= __put_user(__NR_sigreturn
, (int __user
*)(frame
->retcode
+2));
355 err
|= __put_user(0x80cd, (short __user
*)(frame
->retcode
+6));
360 PT_REGS_SP(regs
) = (unsigned long) frame
;
361 PT_REGS_IP(regs
) = (unsigned long) ka
->sa
.sa_handler
;
362 PT_REGS_EAX(regs
) = (unsigned long) sig
;
363 PT_REGS_EDX(regs
) = (unsigned long) 0;
364 PT_REGS_ECX(regs
) = (unsigned long) 0;
366 if ((current
->ptrace
& PT_DTRACE
) && (current
->ptrace
& PT_PTRACED
))
367 ptrace_notify(SIGTRAP
);
371 int setup_signal_stack_si(unsigned long stack_top
, int sig
,
372 struct k_sigaction
*ka
, struct pt_regs
*regs
,
373 siginfo_t
*info
, sigset_t
*mask
)
375 struct rt_sigframe __user
*frame
;
376 void __user
*restorer
;
380 frame
= (struct rt_sigframe __user
*) stack_top
- 1;
381 if (!access_ok(VERIFY_WRITE
, frame
, sizeof(*frame
)))
384 restorer
= frame
->retcode
;
385 if (ka
->sa
.sa_flags
& SA_RESTORER
)
386 restorer
= ka
->sa
.sa_restorer
;
388 err
|= __put_user(restorer
, &frame
->pretcode
);
389 err
|= __put_user(sig
, &frame
->sig
);
390 err
|= __put_user(&frame
->info
, &frame
->pinfo
);
391 err
|= __put_user(&frame
->uc
, &frame
->puc
);
392 err
|= copy_siginfo_to_user(&frame
->info
, info
);
393 err
|= copy_ucontext_to_user(&frame
->uc
, &frame
->fpstate
, mask
,
397 * This is movl $,%eax ; int $0x80
399 * WE DO NOT USE IT ANY MORE! It's only left here for historical
400 * reasons and because gdb uses it as a signature to notice
401 * signal handler stack frames.
403 err
|= __put_user(0xb8, (char __user
*)(frame
->retcode
+0));
404 err
|= __put_user(__NR_rt_sigreturn
, (int __user
*)(frame
->retcode
+1));
405 err
|= __put_user(0x80cd, (short __user
*)(frame
->retcode
+5));
410 PT_REGS_SP(regs
) = (unsigned long) frame
;
411 PT_REGS_IP(regs
) = (unsigned long) ka
->sa
.sa_handler
;
412 PT_REGS_EAX(regs
) = (unsigned long) sig
;
413 PT_REGS_EDX(regs
) = (unsigned long) &frame
->info
;
414 PT_REGS_ECX(regs
) = (unsigned long) &frame
->uc
;
416 if ((current
->ptrace
& PT_DTRACE
) && (current
->ptrace
& PT_PTRACED
))
417 ptrace_notify(SIGTRAP
);
421 long sys_sigreturn(struct pt_regs regs
)
423 unsigned long sp
= PT_REGS_SP(¤t
->thread
.regs
);
424 struct sigframe __user
*frame
= (struct sigframe __user
*)(sp
- 8);
426 struct sigcontext __user
*sc
= &frame
->sc
;
427 unsigned long __user
*oldmask
= &sc
->oldmask
;
428 unsigned long __user
*extramask
= frame
->extramask
;
429 int sig_size
= (_NSIG_WORDS
- 1) * sizeof(unsigned long);
431 if (copy_from_user(&set
.sig
[0], oldmask
, sizeof(set
.sig
[0])) ||
432 copy_from_user(&set
.sig
[1], extramask
, sig_size
))
435 sigdelsetmask(&set
, ~_BLOCKABLE
);
436 set_current_blocked(&set
);
438 if (copy_sc_from_user(¤t
->thread
.regs
, sc
))
441 /* Avoid ERESTART handling */
442 PT_REGS_SYSCALL_NR(¤t
->thread
.regs
) = -1;
443 return PT_REGS_SYSCALL_RET(¤t
->thread
.regs
);
446 force_sig(SIGSEGV
, current
);
450 long sys_rt_sigreturn(struct pt_regs regs
)
452 unsigned long sp
= PT_REGS_SP(¤t
->thread
.regs
);
453 struct rt_sigframe __user
*frame
=
454 (struct rt_sigframe __user
*) (sp
- 4);
456 struct ucontext __user
*uc
= &frame
->uc
;
457 int sig_size
= _NSIG_WORDS
* sizeof(unsigned long);
459 if (copy_from_user(&set
, &uc
->uc_sigmask
, sig_size
))
462 sigdelsetmask(&set
, ~_BLOCKABLE
);
463 set_current_blocked(&set
);
465 if (copy_sc_from_user(¤t
->thread
.regs
, &uc
->uc_mcontext
))
468 /* Avoid ERESTART handling */
469 PT_REGS_SYSCALL_NR(¤t
->thread
.regs
) = -1;
470 return PT_REGS_SYSCALL_RET(¤t
->thread
.regs
);
473 force_sig(SIGSEGV
, current
);