[unix-history] / usr / src / lib / libcompat / 4.3 / tahoe / nargs.s

/*
 * Copyright (c) 1988 Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Computer Consoles Inc.
 *
 * Redistribution and use in source and binary forms are permitted
 * provided that this notice is preserved and that due credit is given
 * to the University of California at Berkeley. The name of the University
 * may not be used to endorse or promote products derived from this
 * software without specific prior written permission. This software
 * is provided ``as is'' without express or implied warranty.
 */

#if defined(LIBC_SCCS) && !defined(lint)
_sccsid:.asciz	"@(#)nargs.s	1.2 (Berkeley) %G%"
#endif /* LIBC_SCCS and not lint */

/* C library -- nargs */

#include "DEFS.h"

ENTRY(nargs, 0)
	movw	-2(fp),r0  #  removed word
	subw2	$4,r0
	shar	$2,r0,r0  #  no. of arguments
	ret
Commit	Line	Data
f15e832d KB	1	/*
	2	* Copyright (c) 1988 Regents of the University of California.
	3	* All rights reserved.
	4	*
	5	* This code is derived from software contributed to Berkeley by
	6	* Computer Consoles Inc.
	7	*
	8	* Redistribution and use in source and binary forms are permitted
	9	* provided that this notice is preserved and that due credit is given
	10	* to the University of California at Berkeley. The name of the University
	11	* may not be used to endorse or promote products derived from this
	12	* software without specific prior written permission. This software
	13	* is provided ``as is'' without express or implied warranty.
	14	*/
	15
	16	#if defined(LIBC_SCCS) && !defined(lint)
	17	_sccsid:.asciz "@(#)nargs.s 1.2 (Berkeley) %G%"
	18	#endif /* LIBC_SCCS and not lint */
a47a140d SL	19
	20	/* C library -- nargs */
	21
	22	#include "DEFS.h"
	23
	24	ENTRY(nargs, 0)
	25	movw -2(fp),r0 # removed word
	26	subw2 $4,r0
	27	shar $2,r0,r0 # no. of arguments
	28	ret