sys/src/ape/lib/9/arm/getfcr.s

   1 /* for VFP */
   2 #define VMRS(fp, cpu) WORD $(0xeef00a10 | (fp)<<16 | (cpu)<<12) /* FP → arm */
   3 #define VMSR(cpu, fp) WORD $(0xeee00a10 | (fp)<<16 | (cpu)<<12) /* arm → FP */
   4
   5 #define Fpscr 1
   6
   7 TEXT    setfcr(SB), $0
   8         VMSR(0, Fpscr)
   9         RET
  10
  11 TEXT    getfcr(SB), $0
  12         VMRS(Fpscr, 0)
  13         RET
  14
  15 TEXT    getfsr(SB), $0
  16         VMSR(0, Fpscr)
  17         RET
  18
  19 TEXT    setfsr(SB), $0
  20         VMRS(Fpscr, 0)
  21         RET