/*
- * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
+ * Copyright (c) 1999-2003 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 file contains Original Code and/or Modifications of Original Code
+ * as defined in and that are subject to the Apple Public Source License
+ * Version 2.0 (the 'License'). You may not use this file except in
+ * compliance with the License. Please obtain a copy of the License at
+ * http://www.opensource.apple.com/apsl/ 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
+ * The 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.
+ * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
+ * Please see the License for the specific language governing rights and
+ * limitations under the License.
*
* @APPLE_LICENSE_HEADER_END@
*/
*/
#include "SYS.h"
-#if 0
-LEAF(_vfork, 0)
- CALL_EXTERN(__cthread_fork_prepare)
#if defined(__DYNAMIC__)
-// Just like __cthread_fork_prepare we need to prevent threads on the child's
-// side from doing a mach call in the dynamic linker until __dyld_fork_child
-// is run (see below). So we call __dyld_fork_prepare which takes out the dyld
-// lock to prevent all other threads but this one from entering dyld.
-.cstring
-LC1:
- .ascii "__dyld_fork_prepare\0"
-.text
- subl $4,%esp // allocate space for the address parameter
- leal 0(%esp),%eax // get the address of the allocated space
- pushl %eax // push the address of the allocated space
- call 1f
-1: popl %eax
- leal LC1-1b(%eax),%eax
- pushl %eax // push the name of the function to look up
- call __dyld_func_lookup
- addl $8,%esp // remove parameters to __dyld_func_lookup
- movl 0(%esp),%eax // move the value returned in address parameter
- addl $4,%esp // deallocate the space for the address param
- call *%eax // call __dyld_fork_prepare indirectly
-#endif
-
- movl $ SYS_vfork,%eax; // code for vfork -> eax
- UNIX_SYSCALL_TRAP; // do the system call
- jnc L1 // jump if CF==0
-
-#if defined(__DYNAMIC__)
-// __dyld_fork_parent() is called by the parent process after a vfork syscall.
-// This releases the dyld lock acquired by __dyld_fork_prepare(). In this case
-// we just use it to clean up after a vfork error so the parent process can
-// dyld after vfork() errors without deadlocking.
-.cstring
-LC2:
- .ascii "__dyld_fork_parent\0"
-.text
- pushl %eax // save the return value (errno)
- subl $4,%esp // allocate space for the address parameter
- leal 0(%esp),%eax // get the address of the allocated space
- pushl %eax // push the address of the allocated space
- call 1f
-1: popl %eax
- leal LC2-1b(%eax),%eax
- pushl %eax // push the name of the function to look up
- call __dyld_func_lookup
- addl $8,%esp // remove parameters to __dyld_func_lookup
- movl 0(%esp),%eax // move the value returned in address parameter
- addl $4,%esp // deallocate the space for the address param
- call *%eax // call __dyld_fork_parent indirectly
- popl %eax // restore the return value (errno)
-#endif
- CALL_EXTERN(cerror)
- CALL_EXTERN(__cthread_fork_parent)
- movl $-1,%eax
- ret
-
-L1:
- orl %edx,%edx // CF=OF=0, ZF set if zero result
- jz L2 // parent, since r1 == 0 in parent, 1 in child
-
- //child here...
-#if defined(__DYNAMIC__)
-// Here on the child side of the vfork we need to tell the dynamic linker that
-// we have vforked. To do this we call __dyld_fork_child in the dyanmic
-// linker. But since we can't dynamicly bind anything until this is done we
-// do this by using the private extern __dyld_func_lookup() function to get the
-// address of __dyld_fork_child (the 'C' code equivlent):
-//
-// _dyld_func_lookup("__dyld_fork_child", &address);
-// address();
-//
-.cstring
-LC0:
- .ascii "__dyld_fork_child\0"
-
-.text
- subl $4,%esp // allocate space for the address parameter
- leal 0(%esp),%eax // get the address of the allocated space
- pushl %eax // push the address of the allocated space
- call 1f
-1: popl %eax
- leal LC0-1b(%eax),%eax
- pushl %eax // push the name of the function to look up
- call __dyld_func_lookup
- addl $8,%esp // remove parameters to __dyld_func_lookup
- movl 0(%esp),%eax // move the value returned in address parameter
- addl $4,%esp // deallocate the space for the address param
- call *%eax // call __dyld_fork_child indirectly
-#endif
- CALL_EXTERN(_fork_mach_init)
- CALL_EXTERN(__cthread_fork_child)
-#if defined(__DYNAMIC__)
-.cstring
-LC10:
- .ascii "__dyld_fork_child_final\0"
+#define GET_CURRENT_PID PICIFY(__current_pid)
-.text
- subl $4,%esp // allocate space for the address parameter
- leal 0(%esp),%eax // get the address of the allocated space
- pushl %eax // push the address of the allocated space
- call 1f
-1: popl %eax
- leal LC10-1b(%eax),%eax
- pushl %eax // push the name of the function to look up
- call __dyld_func_lookup
- addl $8,%esp // remove parameters to __dyld_func_lookup
- movl 0(%esp),%eax // move the value returned in address parameter
- addl $4,%esp // deallocate the space for the address param
- call *%eax // call __dyld_fork_child_final indirectly
+ NON_LAZY_STUB(__current_pid)
+#define __current_pid (%edx)
+#else
+#define GET_CURRENT_PID
#endif
- xorl %eax,%eax // zero eax
- ret
- //parent here...
-L2:
- push %eax // save pid
-#if defined(__DYNAMIC__)
-// __dyld_fork_parent() is called by the parent process after a vfork syscall.
-// This releases the dyld lock acquired by __dyld_fork_prepare().
- subl $4,%esp // allocate space for the address parameter
- leal 0(%esp),%eax // get the address of the allocated space
- pushl %eax // push the address of the allocated space
- call 1f
-1: popl %eax
- leal LC2-1b(%eax),%eax
- pushl %eax // push the name of the function to look up
- call __dyld_func_lookup
- addl $8,%esp // remove parameters to __dyld_func_lookup
- movl 0(%esp),%eax // move the value returned in address parameter
- addl $4,%esp // deallocate the space for the address param
- call *%eax // call __dyld_fork_parent indirectly
-#endif
- CALL_EXTERN_AGAIN(__cthread_fork_parent)
- pop %eax
- ret
-#else
+/*
+ * If __current_pid >= 0, we want to put a -1 in there
+ * otherwise we just decrement it
+ */
LEAF(_vfork, 0)
- popl %ecx
- movl $ SYS_vfork,%eax; // code for vfork -> eax
- UNIX_SYSCALL_TRAP; // do the system call
- jnb L1 // jump if CF==0
- pushl %ecx
- BRANCH_EXTERN(cerror)
+ GET_CURRENT_PID
+ movl __current_pid, %eax
+0:
+ xorl %ecx, %ecx
+ testl %eax, %eax
+ cmovs %eax, %ecx
+ decl %ecx
+ lock
+ cmpxchgl %ecx, __current_pid
+ jne 0b
+ popl %ecx
+ movl $(SYS_vfork), %eax // code for vfork -> eax
+ UNIX_SYSCALL_TRAP // do the system call
+ jnb L1 // jump if CF==0
+ GET_CURRENT_PID
+ lock
+ incl __current_pid
+ pushl %ecx
+ BRANCH_EXTERN(cerror)
L1:
- orl %edx,%edx // CF=OF=0, ZF set if zero result
- jz L2 // parent, since r1 == 0 in parent, 1 in child
- xorl %eax,%eax // zero eax
- jmp *%ecx
+ testl %edx, %edx // CF=OF=0, ZF set if zero result
+ jz L2 // parent, since r1 == 0 in parent, 1 in child
+ xorl %eax, %eax // zero eax
+ jmp *%ecx
L2:
- jmp *%ecx
-
-#endif
-
+ GET_CURRENT_PID
+ lock
+ incl __current_pid
+ jmp *%ecx
projects / apple / libc.git / blobdiff