Return to putn.c CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / pc0

Annotation of 40BSD/cmd/pc0/putn.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.