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

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.