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