Return to Acall.c CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / sys / tahoe

Annotation of cci/sys/tahoe/Acall.c, revision 1.1.1.1

1.1       root        1: #include "../machine/alignment.h" 
                      2: call(infop)
                      3: process_info *infop;
                      4: /*
                      5: /*     Call a procedure with argument list on stack.
                      6: /*
                      7: /******************************************************/
                      8: {
                      9: 
                     10:        register long removed, mask, new_address, i, next, temp_fp;
                     11: 
                     12:        printf("entering call\n");
                     13:        removed = operand(infop, 0)->data & 0xffff ;
                     14:        printf("after first call to operand\n");
                     15:        new_address = operand(infop, 1)->address;
                     16:        printf("in call, removed = 0x%x , new_address=0x%x \n",removed, new_address);
                     17:        push (infop, fp);
                     18:        temp_fp = sp;
                     19:        mask = get_word (infop, new_address) & 0x1fff;  /* Only bits 12-0 */
                     20:        printf("in call, mask = 0x%x , pc=0x%x \n",mask,pc);
                     21:        push (infop, mask << 16 | removed);
                     22:        push (infop, pc);                               /* Next opcode address */
                     23:        next = 12;                              /* Register # to save */
                     24:        for (i = 0x1000; i != 0; i = i >> 1)
                     25:        { 
                     26:                if ( i & mask ) push (infop,  Register (infop, next));
                     27:                next--; 
                     28:        }
                     29:        fp = temp_fp;
                     30:        pc = new_address + 2;                   /* Transfer control */
                     31: }  

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