Loading...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 | /* * Copyright (c) 1999 Apple Computer, Inc. All rights reserved. * * @APPLE_LICENSE_HEADER_START@ * * The contents of this file constitute Original Code as defined in and * are subject to the Apple Public Source License Version 1.1 (the * "License"). You may not use this file except in compliance with the * License. Please obtain a copy of the License at * http://www.apple.com/publicsource and read it before using this file. * * This Original Code and all software distributed under the License are * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES, * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT. Please see the * License for the specific language governing rights and limitations * under the License. * * @APPLE_LICENSE_HEADER_END@ */ /* Copyright (c) 1992 NeXT Computer, Inc. All rights reserved. * * File: libc/ppc/sys/fork.s * * HISTORY * 18-Nov-92 Ben Fathi (benf@next.com) * Created from M88K sources * * 11-Jan-92 Peter King (king@next.com) * Created from M68K sources */ #import <sys/syscall.h> #import <architecture/ppc/asm_help.h> #import <architecture/ppc/pseudo_inst.h> #import <mach/ppc/syscall_sw.h> /* We use 8 bytes for LOCAL_VAR(1) and LOCAL_VAR(2) */ NESTED(_fork, 8, 0, 0, 0) CALL_EXTERN(__cthread_fork_prepare) #if defined(__DYNAMIC__) .cstring LC1: .ascii "__dyld_fork_prepare\0" .text .align 2 mflr r0 bl 1f 1: mflr r3 mtlr r0 addis r3,r3,ha16(LC1-1b) addi r3,r3,lo16(LC1-1b) addi r4,r1,LOCAL_VAR(1) bl __dyld_func_lookup lwz r3,LOCAL_VAR(1)(r1) mtspr ctr,r3 bctrl #endif li r0,SYS_fork sc b Lbotch // error return cmpwi r4,0 beq Lparent // parent, since a1 == 0 in parent, // 1 in child #if defined(__DYNAMIC__) .cstring LC3: .ascii "__dyld_fork_child\0" .text .align 2 mflr r0 bl 1f 1: mflr r3 mtlr r0 addis r3,r3,ha16(LC3-1b) addi r3,r3,lo16(LC3-1b) addi r4,r1,LOCAL_VAR(1) bl __dyld_func_lookup lwz r3,LOCAL_VAR(1)(r1) mtspr ctr,r3 bctrl #endif li r3,0x0 // clear cached pid in child REG_TO_EXTERN(r3,__current_pid) CALL_EXTERN(_fork_mach_init) CALL_EXTERN(__cthread_fork_child) #if defined(__DYNAMIC__) .cstring LC4: .ascii "__dyld_fork_child_final\0" .text .align 2 mflr r0 bl 1f 1: mflr r3 mtlr r0 addis r3,r3,ha16(LC4-1b) addi r3,r3,lo16(LC4-1b) addi r4,r1,LOCAL_VAR(1) bl __dyld_func_lookup lwz r3,LOCAL_VAR(1)(r1) mtspr ctr,r3 bctrl #endif li r3,0 b Lreturn Lparent: #if defined(__DYNAMIC__) stw r3,LOCAL_VAR(2)(r1) // save child pid mflr r0 bl 1f 1: mflr r3 mtlr r0 addis r3,r3,ha16(LC2-1b) addi r3,r3,lo16(LC2-1b) addi r4,r1,LOCAL_VAR(1) bl __dyld_func_lookup lwz r3,LOCAL_VAR(1)(r1) mtspr ctr,r3 bctrl #endif CALL_EXTERN(__cthread_fork_parent) #if defined(__DYNAMIC__) lwz r3,LOCAL_VAR(2)(r1) #endif b Lreturn Lbotch: #if defined(__DYNAMIC__) .cstring LC2: .ascii "__dyld_fork_parent\0" .text .align 2 stw r3,LOCAL_VAR(2)(r1) // save error value mflr r0 bl 1f 1: mflr r3 mtlr r0 addis r3,r3,ha16(LC2-1b) addi r3,r3,lo16(LC2-1b) addi r4,r1,LOCAL_VAR(1) bl __dyld_func_lookup lwz r3,LOCAL_VAR(1)(r1) mtspr ctr,r3 bctrl lwz r3,LOCAL_VAR(2)(r1) // restore error value for cerror #endif CALL_EXTERN(cerror) /* * We use cthread_fork_parent() to clean up after a fork error * (unlock cthreads and mailloc packages) so the parent * process can Malloc() after fork() errors without * deadlocking. */ CALL_EXTERN_AGAIN(__cthread_fork_parent) li32 r3,-1 // error return Lreturn: RETURN END(_fork) |