diff options
author | Mark H Weaver <mhw@netris.org> | 2013-08-12 13:47:35 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2013-08-12 13:50:19 -0400 |
commit | 062888f7bbb192f758cd7179a4c0c3898e805371 (patch) | |
tree | b1a593276a3dd614ba4257912b204826b4dabcb3 | |
parent | 1160e2d94e6a53e4509f81ff08798655db9cae26 (diff) | |
download | guile-062888f7bbb192f758cd7179a4c0c3898e805371.tar.gz |
RTL VM: Fix SCM_PACK_RTL_* macros.
* libguile/instructions.h (SCM_PACK_RTL_8_8_8): Fix typo.
(SCM_PACK_RTL_16_8): Fix erroneous shift offset.
-rw-r--r-- | libguile/instructions.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/libguile/instructions.h b/libguile/instructions.h index bf27afa6c..81e757269 100644 --- a/libguile/instructions.h +++ b/libguile/instructions.h @@ -29,9 +29,9 @@ enum scm_rtl_opcode #undef ENUM }; -#define SCM_PACK_RTL_8_8_8(op,a,b,c) ((op) | ((a) << 8) | ((b) << 16) | ((d) << 24)) +#define SCM_PACK_RTL_8_8_8(op,a,b,c) ((op) | ((a) << 8) | ((b) << 16) | ((c) << 24)) #define SCM_PACK_RTL_8_16(op,a,b) ((op) | ((a) << 8) | ((b) << 16)) -#define SCM_PACK_RTL_16_8(op,a,b) ((op) | ((a) << 16) | ((b) << 24)) +#define SCM_PACK_RTL_16_8(op,a,b) ((op) | ((a) << 8) | ((b) << 24)) #define SCM_PACK_RTL_24(op,a) ((op) | ((a) << 8)) #define SCM_UNPACK_RTL_8_8_8(op,a,b,c) \ |