diff options
Diffstat (limited to 'libguile/vm-i-loader.c')
-rw-r--r-- | libguile/vm-i-loader.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/vm-i-loader.c b/libguile/vm-i-loader.c index 50569e01a..e5bb35e6e 100644 --- a/libguile/vm-i-loader.c +++ b/libguile/vm-i-loader.c @@ -24,13 +24,13 @@ VM_DEFINE_LOADER (59, load_unsigned_integer, "load-unsigned-integer") size_t len; FETCH_LENGTH (len); - if (SCM_LIKELY (len <= 4)) + if (SCM_LIKELY (len <= 8)) { - unsigned int val = 0; + scm_t_uint64 val = 0; while (len-- > 0) val = (val << 8U) + FETCH (); SYNC_REGISTER (); - PUSH (scm_from_uint (val)); + PUSH (scm_from_uint64 (val)); NEXT; } else |