hare

[hare] The Hare programming language
git clone https://git.torresjrjr.com/hare.git
Log | Files | Refs | README | LICENSE

fenv.s (806B)


      1 .section ".text.rt.feclearexcept","ax"
      2 .global rt.feclearexcept
      3 .type rt.feclearexcept,@function
      4 rt.feclearexcept:
      5 	and a0, a0, 0x1f
      6 	# fflags = fflags & ~a0
      7 	frcsr t0
      8 	not a0, a0
      9 	and t0, t0, a0
     10 	fscsr t0
     11 	ret
     12 
     13 .section ".text.rt.feraiseexcept","ax"
     14 .global rt.feraiseexcept
     15 .type rt.feraiseexcept,@function
     16 rt.feraiseexcept:
     17 	and a0, a0, 0x1f
     18 	# fflags = fflags | a0
     19 	frcsr t0
     20 	or t0, t0, a0
     21 	fscsr t0
     22 	ret
     23 
     24 .section ".text.rt.fesetround","ax"
     25 .global rt.fesetround
     26 .type rt.fesetround,@function
     27 rt.fesetround:
     28 	fsrm a0
     29 	ret
     30 
     31 .section ".text.rt.fegetround","ax"
     32 .global rt.fegetround
     33 .type rt.fegetround,@function
     34 rt.fegetround:
     35 	frrm a0
     36 	ret
     37 
     38 .section ".text.rt.fetestexcept","ax"
     39 .global rt.fetestexcept
     40 .type rt.fetestexcept,@function
     41 rt.fetestexcept:
     42 	and a0, a0, 0x1f
     43 	frcsr t0
     44 	and a0, a0, t0
     45 	ret