• Home
  • Line#
  • Scopes#
  • Navigate#
  • Raw
  • Download
1%default {"load":"LOAD64_F(fa0, fa0f, a3)"}
2    /*
3     * Generic 64bit-to-32bit floating-point unary operation.  Provide an "instr"
4     * line that specifies an instruction that performs "fv0 = op fa0".
5     *
6     * For: double-to-float
7     */
8    /* unop vA, vB */
9    GET_OPB(a3)                            #  a3 <- B
10    GET_OPA4(rOBJ)                         #  rOBJ <- A+
11    EAS2(a3, rFP, a3)                      #  a3 <- &fp[B]
12    $load
13    FETCH_ADVANCE_INST(1)                  #  advance rPC, load rINST
14    $instr
15    GET_INST_OPCODE(t0)                    #  extract opcode from rINST
16    SET_VREG_F_GOTO(fv0, rOBJ, t0)         #  vA <- fv0
17