/* * Linux/PARISC Project (http://www.parisc-linux.org/) * * HP-UX System Call Wrapper routines and System Call Return Path * * Copyright (C) 2000 Hewlett-Packard (John Marvin) * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2, or (at your option) * any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ #ifdef __LP64__ #warning PA64 support needs more work...did first cut #endif #include #include #include #ifdef __LP64__ .level 2.0w #else .level 1.1 #endif .text /* These should probably go in a header file somewhere. * They are duplicated in kernel/wrappers.S * Possibly we should consider consolidating these * register save/restore macros. */ .macro reg_save regs #ifdef __LP64__ #warning NEEDS WORK for 64-bit #endif STREG %r3, PT_GR3(\regs) STREG %r4, PT_GR4(\regs) STREG %r5, PT_GR5(\regs) STREG %r6, PT_GR6(\regs) STREG %r7, PT_GR7(\regs) STREG %r8, PT_GR8(\regs) STREG %r9, PT_GR9(\regs) STREG %r10,PT_GR10(\regs) STREG %r11,PT_GR11(\regs) STREG %r12,PT_GR12(\regs) STREG %r13,PT_GR13(\regs) STREG %r14,PT_GR14(\regs) STREG %r15,PT_GR15(\regs) STREG %r16,PT_GR16(\regs) STREG %r17,PT_GR17(\regs) STREG %r18,PT_GR18(\regs) .endm .macro reg_restore regs LDREG PT_GR3(\regs), %r3 LDREG PT_GR4(\regs), %r4 LDREG PT_GR5(\regs), %r5 LDREG PT_GR6(\regs), %r6 LDREG PT_GR7(\regs), %r7 LDREG PT_GR8(\regs), %r8 LDREG PT_GR9(\regs), %r9 LDREG PT_GR10(\regs),%r10 LDREG PT_GR11(\regs),%r11 LDREG PT_GR12(\regs),%r12 LDREG PT_GR13(\regs),%r13 LDREG PT_GR14(\regs),%r14 LDREG PT_GR15(\regs),%r15 LDREG PT_GR16(\regs),%r16 LDREG PT_GR17(\regs),%r17 LDREG PT_GR18(\regs),%r18 .endm .export hpux_fork_wrapper .export hpux_child_return .import sys_fork hpux_fork_wrapper: ldo TASK_REGS-TASK_SZ_ALGN-64(%r30),%r1 ;! get pt regs ;! pointer in task reg_save %r1 STREG %r2,-20(%r30) ldo 64(%r30),%r30 STREG %r2,PT_GR19(%r1) ;! save for child STREG %r30,PT_GR21(%r1) ;! save for child LDREG PT_GR30(%r1),%r25 mtctl %r25,%cr29 copy %r1,%r24 bl sys_clone,%r2 ldi SIGCHLD,%r26 LDREG -84(%r30),%r2 fork_return: ldo -64(%r30),%r30 ldo TASK_REGS-TASK_SZ_ALGN-64(%r30),%r1 ;! get pt regs reg_restore %r1 /* * HP-UX wants pid (child gets parent pid, parent gets child pid) * in r28 and a flag in r29 (r29 == 1 for child, 0 for parent). * Linux fork returns 0 for child, pid for parent. Since HP-UX * libc stub throws away parent pid and returns 0 for child, * we'll just return 0 for parent pid now. Only applications * that jump directly to the gateway page (not supported) will * know the difference. We can fix this later if necessary. */ ldo -1024(%r0),%r1 comb,>>=,n %r28,%r1,fork_exit /* just let the syscall exit handle it */ or,= %r28,%r0,%r0 or,tr %r0,%r0,%r29 /* r28 <> 0, we are parent, set r29 to 0 */ ldo 1(%r0),%r29 /* r28 == 0, we are child, set r29 to 1 */ fork_exit: bv %r0(%r2) nop /* Set the return value for the child */ hpux_child_return: #if defined(CONFIG_SMP) || defined(CONFIG_PREEMPT) bl schedule_tail, %r2 nop #endif LDREG TASK_PT_GR19-TASK_SZ_ALGN-128(%r30),%r2 b fork_return copy %r0,%r28 .export hpux_execve_wrapper .export hpux_execv_wrapper .import hpux_execve hpux_execv_wrapper: copy %r0,%r24 /* NULL environment */ hpux_execve_wrapper: ldo TASK_REGS-TASK_SZ_ALGN-64(%r30),%r1 ;! get pt regs /* * Do we need to save/restore r3-r18 here? * I don't think so. why would new thread need old * threads registers? */ /* Store arg0, arg1 and arg2 so that hpux_execve will find them */ STREG %r26,PT_GR26(%r1) STREG %r25,PT_GR25(%r1) STREG %r24,PT_GR24(%r1) STREG %r2,-20(%r30) ldo 64(%r30),%r30 bl hpux_execve,%r2 copy %r1,%arg0 ldo -64(%r30),%r30 LDREG -20(%r30),%r2 /* If exec succeeded we need to load the args */ ldo -1024(%r0),%r1 comb,>>= %r28,%r1,exec_error copy %r2,%r19 ldo -TASK_SZ_ALGN-64(%r30),%r1 ;! get task ptr LDREG TASK_PT_GR26(%r1),%r26 LDREG TASK_PT_GR25(%r1),%r25 LDREG TASK_PT_GR24(%r1),%r24 LDREG TASK_PT_GR23(%r1),%r23 copy %r0,%r2 /* Flag to syscall_exit not to clear args */ exec_error: bv %r0(%r19) nop .export hpux_pipe_wrapper .import hpux_pipe /* HP-UX expects pipefd's returned in r28 & r29 */ hpux_pipe_wrapper: STREG %r2,-20(%r30) ldo 64(%r30),%r30 bl hpux_pipe,%r2 ldo -56(%r30),%r26 /* pass local array to hpux_pipe */ ldo -1024(%r0),%r1 comb,>>= %r28,%r1,pipe_exit /* let syscall exit handle it */ LDREG -84(%r30),%r2 /* if success, load fd's from stack array */ LDREG -56(%r30),%r28 LDREG -52(%r30),%r29 pipe_exit: bv %r0(%r2) ldo -64(%r30),%r30 .export hpux_syscall_exit .import syscall_exit hpux_syscall_exit: /* * * HP-UX call return conventions: * * if error: * r22 = 1 * r28 = errno value * r29 = secondary return value * else * r22 = 0 * r28 = return value * r29 = secondary return value * * For now, we'll just check to see if r28 is < (unsigned long)-1024 * (to handle addresses > 2 Gb) and if so set r22 to zero. If not, * we'll complement r28 and set r22 to 1. Wrappers will be * needed for syscalls that care about the secondary return value. * The wrapper may also need a way of avoiding the following code, * but we'll deal with that when it becomes necessary. */ ldo -1024(%r0),%r1 comb,<< %r28,%r1,no_error copy %r0,%r22 subi 0,%r28,%r28 ldo 1(%r0),%r22 no_error: b syscall_exit nop .export hpux_unimplemented_wrapper .import hpux_unimplemented hpux_unimplemented_wrapper: b hpux_unimplemented STREG %r22,-64(%r30) /* overwrite arg8 with syscall number */