/* Copyright (C) 1991, 92, 94, 95, 97, 99 Free Software Foundation, Inc.
   This file is part of the GNU C Library.

   The GNU C Library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Lesser General Public
   License as published by the Free Software Foundation; either
   version 2.1 of the License, or (at your option) any later version.

   The GNU C Library 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
   Lesser General Public License for more details.

   You should have received a copy of the GNU Lesser General Public
   License along with the GNU C Library; if not, write to the Free
   Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
   02111-1307 USA.  */

#include <sysdep.h>

.text;  
.global    fork;
.align 4;      
fork: ;
.type   fork  ,@function; ;      

	mov	2, %g1 ; 
	ta	0x10;
	bcc,a 9000f;
	nop;
	save    %sp,-96,%sp;
	call __errno_location;
	nop;    
	st	%i0,[%o0];
	jmpl    %i7+8,%g0;
	restore %g0,-1,%o0; ;
	9000:;

	/* %o1 is now 0 for the parent and 1 for the child.  Decrement it to
	   make it -1 (all bits set) for the parent, and 0 (no bits set)
	   for the child.  Then AND it with %o0, so the parent gets
	   %o0&-1==pid, and the child gets %o0&0==0.  */
	sub %o1, 1, %o1
	retl
	and %o0, %o1, %o0