Return to ARegister.c CVS log

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

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

1.1       root        1: #include "../machine/alignment.h"
                      2: 
                      3: /*
                      4:  * Return the specified register from the big structure.
                      5:  */
                      6: 
                      7: long
                      8: Register (infop, number)
                      9: process_info   *infop;
                     10: long           number;
                     11: {
                     12: 
                     13:        switch (number) {
                     14:                case 0: return (r0);
                     15:                case 1: return (r1);
                     16:                case 2: return (r2);
                     17:                case 3: return (r3);
                     18:                case 4: return (r4);
                     19:                case 5: return (r5);
                     20:                case 6: return (r6);
                     21:                case 7: return (r7);
                     22:                case 8: return (r8);
                     23:                case 9: return (r9);
                     24:                case 10:        return (r10);
                     25:                case 11:        return (r11);
                     26:                case 12:        return (r12);
                     27:                case 13:        return (fp);
                     28:                case 14:        return (sp);
                     29:                case 15:        return (pc);
                     30:        }
                     31: }
                     32: 
                     33: 
                     34: /*
                     35:  * Replace a given register with the given value.
                     36:  */
                     37: Replace (infop,number, newvalue)
                     38: process_info   *infop;
                     39: long           number;
                     40: long           newvalue;
                     41: {
                     42: 
                     43:        switch (number) {
                     44:                case 0: r0 = newvalue; return;
                     45:                case 1: r1 = newvalue; return;
                     46:                case 2: r2 = newvalue; return;
                     47:                case 3: r3 = newvalue; return;
                     48:                case 4: r4 = newvalue; return;
                     49:                case 5: r5 = newvalue; return;
                     50:                case 6: r6 = newvalue; return;
                     51:                case 7: r7 = newvalue; return;
                     52:                case 8: r8 = newvalue; return;
                     53:                case 9: r9 = newvalue; return;
                     54:                case 10:        r10 = newvalue; return;
                     55:                case 11:        r11 = newvalue; return;
                     56:                case 12:        r12 = newvalue; return;
                     57:                case 13:        fp = newvalue; return;
                     58:                case 14:        sp = newvalue & ~3; return;
                     59:                case 15:        pc = newvalue; return;
                     60:        }
                     61: }

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