|
@@ -144,6 +144,7 @@ let dyn_value_field t =
|
|
|
| HUI8 -> "ui8"
|
|
|
| HUI16 -> "ui16"
|
|
|
| HI32 -> "i"
|
|
|
+ | HI64 -> "i64"
|
|
|
| HF32 -> "f"
|
|
|
| HF64 -> "d"
|
|
|
| HBool -> "b"
|
|
@@ -827,6 +828,8 @@ let generate_function ctx f =
|
|
|
(match rtype v with
|
|
|
| HUI8 | HUI16 | HI32 | HBool ->
|
|
|
sexpr "%s->v.i = %s" (reg r) (reg v)
|
|
|
+ | HI64 ->
|
|
|
+ sexpr "%s->v.i64 = %s" (reg r) (reg v)
|
|
|
| HF32 ->
|
|
|
sexpr "%s->v.f = %s" (reg r) (reg v)
|
|
|
| HF64 ->
|