nsz Git - musl/blob - src/fenv/mips/fenv.s

   1 .set noreorder
   2
   3 .global feclearexcept
   4 .type  feclearexcept,@function
   5 feclearexcept:
   6         and     $4, $4, 0x7c
   7         cfc1    $5, $31
   8         or      $5, $5, $4
   9         xor     $5, $5, $4
  10         ctc1    $5, $31
  11         jr      $ra
  12         li      $2, 0
  13
  14 .global feraiseexcept
  15 .type  feraiseexcept,@function
  16 feraiseexcept:
  17         and     $4, $4, 0x7c
  18         cfc1    $5, $31
  19         or      $5, $5, $4
  20         ctc1    $5, $31
  21         jr      $ra
  22         li      $2, 0
  23
  24 .global fetestexcept
  25 .type  fetestexcept,@function
  26 fetestexcept:
  27         and     $4, $4, 0x7c
  28         cfc1    $2, $31
  29         jr      $ra
  30         and     $2, $2, $4
  31
  32 .global fegetround
  33 .type  fegetround,@function
  34 fegetround:
  35         cfc1    $2, $31
  36         jr      $ra
  37         andi    $2, $2, 3
  38
  39 .global __fesetround
  40 .type __fesetround,@function
  41 __fesetround:
  42         cfc1    $5, $31
  43         li      $6, -4
  44         and     $5, $5, $6
  45         or      $5, $5, $4
  46         ctc1    $5, $31
  47         jr      $ra
  48         li      $2, 0
  49
  50 .global fegetenv
  51 .type  fegetenv,@function
  52 fegetenv:
  53         cfc1    $5, $31
  54         sw      $5, 0($4)
  55         jr      $ra
  56         li      $2, 0
  57
  58 .global fesetenv
  59 .type  fesetenv,@function
  60 fesetenv:
  61         addiu   $5, $4, 1
  62         beq     $5, $0, 1f
  63          nop
  64         lw      $5, 0($4)
  65 1:      ctc1    $5, $31
  66         jr      $ra
  67         li      $2, 0