xref: /csrg-svn/sys/tahoe/align/Apusha.c (revision 45760)
1*45760Sbostic /*-
2*45760Sbostic  * Copyright (c) 1986 The Regents of the University of California.
3*45760Sbostic  * All rights reserved.
4*45760Sbostic  *
5*45760Sbostic  * This code is derived from software contributed to Berkeley by
6*45760Sbostic  * Computer Consoles Inc.
7*45760Sbostic  *
8*45760Sbostic  * %sccs.include.redist.c%
9*45760Sbostic  *
10*45760Sbostic  *	@(#)Apusha.c	7.1 (Berkeley) 12/06/90
11*45760Sbostic  */
1229627Ssam 
1345699Sbostic #include "align.h"
pusha(infop)1429627Ssam pusha(infop)	process_info *infop;
1529627Ssam /*
1629627Ssam /*	Push address of the operand
1729627Ssam /*
1829627Ssam /**************************************/
1929627Ssam {
2029627Ssam 	register long new_address;
2129627Ssam 
2229627Ssam 	new_address = operand(infop,0)->address;
2329627Ssam 	if (new_address < 0) negative_1; else negative_0;
2429627Ssam 	if (new_address == 0) zero_1; else zero_0;
2529627Ssam 	overflow_0; carry_1;
2629627Ssam 	push (infop, new_address);
2729627Ssam }
28