Return to rol.c CVS log

Up to [Research Unix] / researchv9 / jerq / src / lib / j

Annotation of researchv9/jerq/src/lib/j/rol.c, revision 1.1.1.1

1.1       root        1: 
                      2: /*    text
                      3:  *    global rol
                      4:  *    rol:
                      5:  *     mov.w   4(%sp), %d0
                      6:  *     mov.w   6(%sp), %d1
                      7:  *     rol.w   %d1, %d0
                      8:  *     rts
                      9:  *    
                     10:  *    global ror
                     11:  *    ror:
                     12:  *     mov.w   4(%sp), %d0
                     13:  *     mov.w   6(%sp), %d1
                     14:  *     ror.w   %d1, %d0
                     15:  *     rts
                     16:  */
                     17: rol(rodata,sftcnt)
                     18: int rodata,sftcnt;
                     19: {
                     20:        sftcnt %= (8 * sizeof(int));
                     21:        return((rodata<<sftcnt)|(rodata>>((8 * sizeof(int))-sftcnt)));
                     22: }
                     23: ror(rodata,sftcnt)
                     24: int rodata,sftcnt;
                     25: {
                     26:        sftcnt %= (8 * sizeof(int));
                     27:        return((rodata>>sftcnt)|(rodata<<((8 * sizeof(int))-sftcnt)));
                     28: }

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