/* $NetBSD: svr4_machdep.c,v 1.3 1995/02/01 01:39:43 christos Exp $ */ /* * Copyright (c) 1994 Christos Zoulas * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. The name of the author may not be used to endorse or promote products * derived from this software without specific prior written permission * * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include extern int _ucodesel, _udatasel; void svr4_getcontext(p, uc, mask, oonstack) struct proc *p; struct svr4_ucontext *uc; int mask, oonstack; { struct trapframe *tf = (struct trapframe *)p->p_md.md_regs; struct sigacts *psp = p->p_sigacts; svr4_greg_t* r = uc->uc_mcontext.greg; svr4_stack_t *s = &uc->uc_stack; struct sigaltstack *sf = &psp->ps_sigstk; bzero(uc, sizeof(struct svr4_ucontext)); /* * Set the general purpose registers */ r[SVR4_X86_GS] = 0; r[SVR4_X86_FS] = 0; r[SVR4_X86_ES] = tf->tf_es; r[SVR4_X86_DS] = tf->tf_ds; r[SVR4_X86_EDI] = tf->tf_edi; r[SVR4_X86_ESI] = tf->tf_esi; r[SVR4_X86_EBP] = tf->tf_ebp; r[SVR4_X86_ESP] = tf->tf_esp; r[SVR4_X86_EBX] = tf->tf_ebx; r[SVR4_X86_EDX] = tf->tf_edx; r[SVR4_X86_ECX] = tf->tf_ecx; r[SVR4_X86_EAX] = tf->tf_eax; r[SVR4_X86_TRAPNO] = 0; r[SVR4_X86_ERR] = 0; r[SVR4_X86_EIP] = tf->tf_eip; r[SVR4_X86_CS] = tf->tf_cs; r[SVR4_X86_EFL] = tf->tf_eflags; r[SVR4_X86_UESP] = 0; r[SVR4_X86_SS] = tf->tf_ss; /* * Set the signal stack */ bsd_to_svr4_sigaltstack(sf, s); /* * Set the signal mask */ bsd_to_svr4_sigset_t(&mask, &uc->uc_sigmask); /* * Set the flags */ uc->uc_flags = SVR4_UC_ALL; } /* * Set to ucontext specified. * has been taken. Reset signal mask and * stack state from context. * Return to previous pc and psl as specified by * context left by sendsig. Check carefully to * make sure that the user has not modified the * psl to gain improper privileges or to cause * a machine fault. */ int svr4_setcontext(p, uc) struct proc *p; struct svr4_ucontext *uc; { struct sigcontext *scp, context; struct sigacts *psp = p->p_sigacts; register struct trapframe *tf; svr4_greg_t* r = uc->uc_mcontext.greg; svr4_stack_t *s = &uc->uc_stack; struct sigaltstack *sf = &psp->ps_sigstk; int mask; /* * XXX: * Should we check the value of flags to determine what to restore? * What to do with uc_link? * What to do with floating point stuff? * Should we bother with the rest of the registers that we * set to 0 right now? */ tf = (struct trapframe *)p->p_md.md_regs; /* * Check for security violations. */ if (((r[SVR4_X86_EFL] ^ tf->tf_eflags) & PSL_USERSTATIC) != 0 || ISPL(r[SVR4_X86_CS]) != SEL_UPL) return (EINVAL); /* * restore signal stack */ svr4_to_bsd_sigaltstack(s, sf); /* * restore signal mask */ svr4_to_bsd_sigset_t(&uc->uc_sigmask, &mask); p->p_sigmask = mask & ~sigcantmask; /* * Restore register context. */ tf->tf_es = r[SVR4_X86_ES]; tf->tf_ds = r[SVR4_X86_DS]; tf->tf_edi = r[SVR4_X86_EDI]; tf->tf_esi = r[SVR4_X86_ESI]; tf->tf_ebp = r[SVR4_X86_EBP]; tf->tf_ebx = r[SVR4_X86_EBX]; tf->tf_edx = r[SVR4_X86_EDX]; tf->tf_ecx = r[SVR4_X86_ECX]; tf->tf_eax = r[SVR4_X86_EAX]; tf->tf_eip = r[SVR4_X86_EIP]; tf->tf_cs = r[SVR4_X86_CS]; tf->tf_eflags = r[SVR4_X86_EFL]; tf->tf_ss = r[SVR4_X86_SS]; tf->tf_esp = r[SVR4_X86_ESP]; return EJUSTRETURN; } /* * Send an interrupt to process. * * Stack is set up to allow sigcode stored * in u. to call routine. After the handler is * done svr4 will call setcontext for us * with the user context we just set up, and we * will return to the user pc, psl. */ void svr4_sendsig(catcher, sig, mask, code) sig_t catcher; int sig, mask; u_long code; { register struct proc *p = curproc; register struct trapframe *tf; struct svr4_sigframe *fp, frame; struct sigacts *psp = p->p_sigacts; int oonstack; extern char sigcode[], esigcode[]; tf = (struct trapframe *)p->p_md.md_regs; oonstack = psp->ps_sigstk.ss_flags & SA_ONSTACK; /* * Allocate space for the signal handler context. */ if ((psp->ps_flags & SAS_ALTSTACK) && !oonstack && (psp->ps_sigonstack & sigmask(sig))) { fp = (struct svr4_sigframe *)(psp->ps_sigstk.ss_base + psp->ps_sigstk.ss_size - sizeof(struct svr4_sigframe)); psp->ps_sigstk.ss_flags |= SA_ONSTACK; } else { fp = (struct svr4_sigframe *)tf->tf_esp - 1; } /* * Build the argument list for the signal handler. */ frame.sf_signum = bsd_to_svr4_signum(sig); frame.sf_code = code; frame.sf_ucp = &fp->sf_uc; frame.sf_handler = catcher; svr4_getcontext(p, &frame.sf_uc, mask, oonstack); if (copyout(&frame, fp, sizeof(frame)) != 0) { /* * Process has trashed its stack; give it an illegal * instruction to halt it in its tracks. */ sigexit(p, SIGILL); /* NOTREACHED */ } /* * Build context to run handler in. */ tf->tf_esp = (int)fp; tf->tf_eip = (int)(((char *)PS_STRINGS) - (esigcode - sigcode)); tf->tf_eflags &= ~PSL_VM; tf->tf_cs = _ucodesel; tf->tf_ds = _udatasel; tf->tf_es = _udatasel; tf->tf_ss = _udatasel; } /* * sysi86 */ int svr4_sysarch(p, uap, retval) struct proc *p; struct svr4_sysarch_args *uap; register_t *retval; { caddr_t sg = stackgap_init(); int error; *retval = 0; /* XXX: What to do */ printf("op %d, a1 %x\n", SCARG(uap, op), SCARG(uap, a1)); switch (SCARG(uap, op)) { case SVR4_SYSARCH_FPHW: return 0; case SVR4_SYSARCH_DSCR: #ifdef USER_LDT { struct i386_set_ldt_args { int start; union descriptor *desc; int num; } sa, *sap; struct sysarch_args ua; struct svr4_ssd ssd; union descriptor bsd; if ((error = copyin(SCARG(uap, a1), &ssd, sizeof(ssd))) != 0) { printf("Cannot copy arg1\n"); return error; } printf("s=%x, b=%x, l=%x, a1=%x a2=%x\n", ssd.selector, ssd.base, ssd.limit, ssd.access1, ssd.access2); /* We can only set ldt's for now. */ if (!ISLDT(ssd.selector)) { printf("Not an ldt\n"); return EPERM; } /* Oh, well we don't cleanup either */ if (ssd.access1 == 0) return 0; bsd.sd.sd_lobase = ssd.base & 0xffffff; bsd.sd.sd_hibase = (ssd.base >> 24) & 0xff; bsd.sd.sd_lolimit = ssd.limit & 0xffff; bsd.sd.sd_hilimit = (ssd.limit >> 16) & 0xf; bsd.sd.sd_type = ssd.access1 & 0x1f; bsd.sd.sd_dpl = (ssd.access1 >> 5) & 0x3; bsd.sd.sd_p = (ssd.access1 >> 7) & 0x1; bsd.sd.sd_xx = ssd.access2 & 0x3; bsd.sd.sd_def32 = (ssd.access2 >> 2) & 0x1; bsd.sd.sd_gran = (ssd.access2 >> 3)& 0x1; sa.start = IDXSEL(ssd.selector); sa.desc = stackgap_alloc(&sg, sizeof(union descriptor)); sa.num = 1; sap = stackgap_alloc(&sg, sizeof(struct i386_set_ldt_args)); if ((error = copyout(&sa, sap, sizeof(sa))) != 0) { printf("Cannot copyout args\n"); return error; } SCARG(&ua, op) = I386_SET_LDT; SCARG(&ua, parms) = (char *) sap; if ((error = copyout(&bsd, sa.desc, sizeof(bsd))) != 0) { printf("Cannot copyout desc\n"); return error; } return sysarch(p, &ua, retval); } #endif default: printf("svr4_sysarch(%d)\n", SCARG(uap, op)); return 0; } }