xref: /original-bsd/lib/libc/tahoe/sys/execle.s (revision 3b6250d9)
1/*
2 * Copyright (c) 1983 Regents of the University of California.
3 * All rights reserved.
4 *
5 * %sccs.include.redist.c%
6 */
7
8#if defined(SYSLIBC_SCCS) && !defined(lint)
9	.asciz "@(#)execle.s	5.4 (Berkeley) 06/01/90"
10#endif /* SYSLIBC_SCCS and not lint */
11
12#include "SYS.h"
13
14ENTRY(execle)
15	movw	-2(fp),r0	# removed word.
16	subw2	$4,r0
17	shar	$2,r0,r0	# num. of args.
18	pushl	(fp)[r0]
19	pushab	8(fp)
20	pushl	4(fp)
21	calls	$16,_execve
22	ret		# execle(file, arg1, arg2, ..., env);
23