Return to callg.c CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / ucb / lisp / franz / tahoe

Annotation of 43BSDTahoe/ucb/lisp/franz/tahoe/callg.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * callg_ - call with 'general' argument list for CCI `tahoe'
                      3:  *
                      4:  * by P. S. Housel 04/30/86
                      5:  *
                      6:  */
                      7: 
                      8: callg_(funct, arglist)
                      9: register int (*funct)();               /* r12 */
                     10: register int *arglist;                 /* r11 */
                     11: {
                     12:  register int *argptr, n;              /* r10, r9 */
                     13: 
                     14:  n = (*arglist + 1) * 4;
                     15: 
                     16:  argptr = arglist + *arglist;
                     17: 
                     18:  while(argptr > arglist)
                     19:       {asm("pushl      (r10)");
                     20:        argptr--;
                     21:       }
                     22:  
                     23:  asm(" calls   r9,(r12)");
                     24: }

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