2.9BSD - /usr/src/ucb/pascal/pi/putn.c

   1: /*	@(#)putn.c	2.2	SCCS id keyword	*/
   2: /* Copyright (c) 1979 Regents of the University of California */
   3:     /*
   4:      *	put[1234]
   5:      *	these sort of replace the assembler code
   6:      *	which used to mung the stack inserting 1, 2, 3, or 4 and then
   7:      *	jmp ( not jsr ) to put.  these are more portable,
   8:      *	but since they can only receive integer arguments,  calls
   9:      *	to one of these with long or real arguments must be changed
  10:      *	to call put directly.
  11:      */
  12: 
  13:     /*
  14:      *	is there some reason why these aren't #defined?
  15:      */
  16: 
  17: put1 ( arg1 )
  18:     int     arg1;
  19:     {
  20:     return ( put ( 1 , arg1 ) );
  21:     }
  22: 
  23: put2 ( arg1 , arg2 )
  24:     int     arg1 , arg2;
  25:     {
  26:     return ( put ( 2 , arg1 , arg2 ) );
  27:     }
  28: 
  29: put3 ( arg1 , arg2 , arg3 )
  30:     int     arg1 , arg2 , arg3;
  31:     {
  32:     return ( put ( 3 , arg1 , arg2 , arg3 ) );
  33:     }
  34: 
  35: put4 ( arg1 , arg2 , arg3 , arg4 )
  36:     int     arg1 , arg2 , arg3 , arg4;
  37:     {
  38:     return ( put ( 4 , arg1 , arg2 , arg3 , arg4 ) );
  39:     }

Defined functions