mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

fix make-long-immediate, make-long-long-immediate for dst >= 256

Browse source 
* libguile/vm-engine.c (make-long-immediate, make-long-long-immediate):
  Fix declaration of "dst" variable.
This commit is contained in:
Andy Wingo 2013-11-05 19:22:26 +01:00
parent 0d0465135d
commit da60ba8062
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-engine.c
View file

@ -2020,7 +2020,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
*/ */
VM_DEFINE_OP (50, make_long_immediate, "make-long-immediate", OP2 (U8_U24, I32)) VM_DEFINE_OP (50, make_long_immediate, "make-long-immediate", OP2 (U8_U24, I32))
{ {
scm_t_uint8 dst; scm_t_uint32 dst;
scm_t_bits val; scm_t_bits val;
SCM_UNPACK_RTL_24 (op, dst); SCM_UNPACK_RTL_24 (op, dst);
@ -2035,7 +2035,7 @@ RTL_VM_NAME (SCM vm, SCM program, SCM *argv, size_t nargs_)
*/ */
VM_DEFINE_OP (51, make_long_long_immediate, "make-long-long-immediate", OP3 (U8_U24, A32, B32) | OP_DST) VM_DEFINE_OP (51, make_long_long_immediate, "make-long-long-immediate", OP3 (U8_U24, A32, B32) | OP_DST)
{ {
scm_t_uint8 dst; scm_t_uint32 dst;
scm_t_bits val; scm_t_bits val;
SCM_UNPACK_RTL_24 (op, dst); SCM_UNPACK_RTL_24 (op, dst);