xref: /csrg-svn/lib/libc/tahoe/sys/execle.s (revision 42648)
129450Ssam/*
229450Ssam * Copyright (c) 1983 Regents of the University of California.
334389Sbostic * All rights reserved.
434389Sbostic *
5*42648Sbostic * %sccs.include.redist.c%
629450Ssam */
729450Ssam
834389Sbostic#if defined(SYSLIBC_SCCS) && !defined(lint)
9*42648Sbostic	.asciz "@(#)execle.s	5.4 (Berkeley) 06/01/90"
1034389Sbostic#endif /* SYSLIBC_SCCS and not lint */
1129450Ssam
1229450Ssam#include "SYS.h"
1329450Ssam
1429450SsamENTRY(execle)
1529450Ssam	movw	-2(fp),r0	# removed word.
1629450Ssam	subw2	$4,r0
1729450Ssam	shar	$2,r0,r0	# num. of args.
1829450Ssam	pushl	(fp)[r0]
1929450Ssam	pushab	8(fp)
2029450Ssam	pushl	4(fp)
2129450Ssam	calls	$16,_execve
2229450Ssam	ret		# execle(file, arg1, arg2, ..., env);
23