sysdeps/alpha/remlu.S

   1       /* This file is generated from divrem.m4; DO NOT EDIT! */
   2 /* For each N divided by D, we do:
   3       result = (double) N / (double) D
   4    Then, for each N mod D, we do:
   5       result = N - (D * divMODE (N, D))
   6
   7    FIXME:
   8    The q and qu versions won't deal with operands > 50 bits.  We also
   9    don't check for divide by zero.  */
  10
  11 #include "DEFS.h"
  12 #if 0
  13 /* We do not handle div by zero yet.  */
  14 #include <machine/pal.h>
  15 #endif
  16 #include <sysdep.h>
  17
  18 /* Avoid the definition of ret that we set in the alpha sysdep.h.  */
  19 #undef ret
  20
  21
  22
  23
  24
  25
  26 FUNC__(remlu)
  27         /* First set up the dividend.  */
  28                 zapnot t10, 0xf, t10
  29
  30         stq t10,0(sp)
  31         ldt $f10,0(sp)
  32         cvtqt $f10,$f10
  33
  34
  35         /* Then set up the divisor.  */
  36                 zapnot t11, 0xf, t11
  37
  38         stq t11,0(sp)
  39         ldt $f1,0(sp)
  40         cvtqt $f1,$f1
  41
  42
  43         /* Do the division.  */
  44         divt $f10,$f1,$f10
  45         cvttqc $f10,$f10
  46
  47         /* Put the result in t12.  */
  48         stt $f10,0(sp)
  49         ldq t12,0(sp)
  50                 sextl t12, t12
  51
  52
  53                 /* Compute the remainder.  */
  54         mull t11, t12, t11
  55         subl t10, t11, t12
  56
  57
  58         lda sp,16(sp)
  59         ret zero,(t9),1
  60         .end NAME__(remlu)