Return to udiv.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / lib / libc / tahoe / gen

Annotation of cci/usr/src/lib/libc/tahoe/gen/udiv.s, revision 1.1

1.1     ! root        1: .globl udiv                    #  unsigned divide
        !             2: .text                          #  4(fp) = dividend
        !             3: udiv:.word     0xC             #  8(fp) = divisor
        !             4: bitl   $-2147483648,8(fp)      #  if (divisor & 0x80000000){
        !             5: jeql   L16                       
        !             6: cmpl   8(fp),4(fp)             #  if (divisor > dividend )
        !             7: jlequ  L17
        !             8: clrl   r0                      #      return(0);
        !             9: ret#1
        !            10: L17:                           #  else
        !            11: movl   $1,r0                   #      return(1);}
        !            12: ret#1
        !            13: L16:
        !            14: clrl   r0                      #  return(dividend/divisor);
        !            15: movl   4(fp),r1
        !            16: ediv   8(fp),r0,r2,r3
        !            17: movl   r2,r0
        !            18: ret#1

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