1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
* libguile/vm-engine.c (BR_F64_ARITHMETIC): Fix type.
This commit is contained in:
Daniel Llorens 2017-02-07 12:14:15 +01:00
parent 498f3f9568
commit a0028723da

View file

@ -361,7 +361,7 @@
#define BR_F64_ARITHMETIC(crel) \ #define BR_F64_ARITHMETIC(crel) \
{ \ { \
scm_t_uint32 a, b; \ scm_t_uint32 a, b; \
scm_t_uint64 x, y; \ double x, y; \
UNPACK_24 (op, a); \ UNPACK_24 (op, a); \
UNPACK_24 (ip[1], b); \ UNPACK_24 (ip[1], b); \
x = SP_REF_F64 (a); \ x = SP_REF_F64 (a); \