summaryrefslogtreecommitdiff
path: root/libguile/vm-i-loader.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/vm-i-loader.c')
-rw-r--r--libguile/vm-i-loader.c6
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