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     ! 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.