sysdeps/unix/bsd/vax/vfork.S

   1 /* Copyright (C) 1991, 1992, 1995, 1997 Free Software Foundation, Inc.
   2    This file is part of the GNU C Library.
   3
   4    The GNU C Library is free software; you can redistribute it and/or
   5    modify it under the terms of the GNU Library General Public License as
   6    published by the Free Software Foundation; either version 2 of the
   7    License, or (at your option) any later version.
   8
   9    The GNU C Library is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12    Library General Public License for more details.
  13
  14    You should have received a copy of the GNU Library General Public
  15    License along with the GNU C Library; see the file COPYING.LIB.  If not,
  16    write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17    Boston, MA 02111-1307, USA.  */
  18
  19 #include <sysdep.h>
  20
  21 #ifndef SYS_vfork
  22 #define SYS_vfork       66
  23 #endif
  24
  25 /* Clone the calling process, but without copying the whole address space.
  26    The the calling process is suspended until the the new process exits or is
  27    replaced by a call to `execve'.  Return -1 for errors, 0 to the new process,
  28    and the process ID of the new process to the old process.  */
  29 .globl ___vfork
  30 ___vfork:
  31         .word 0
  32         /* Save our return address in R2, and return to code below.  */
  33         movl 16(fp), r2
  34         movab unwind, 16(fp)
  35         ret
  36 unwind:
  37         /* Do the system call.  */
  38         chmk $SYS_vfork
  39         bcs error
  40
  41         tstl r1
  42         beq parent
  43
  44         /* We are the child.  Return zero.  */
  45         clrl r0
  46
  47         /* Return to the saved address.  */
  48 parent: jmp (r2)
  49
  50 .globl  _errno
  51 error:
  52         movl r0, _errno
  53         mnegl $1, r0
  54         jmp (r2)
  55
  56 weak_alias (__vfork, vfork)