summaryrefslogtreecommitdiff
path: root/libguile/loader.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-01-08 23:41:12 +0100
committerAndy Wingo <wingo@pobox.com>2017-01-08 23:41:12 +0100
commit81d8ff9e451649d7c53210bff78bad6b65077910 (patch)
treec47b1de58557e165e95eff75d52f18015ecf3db5 /libguile/loader.c
parentc391ab8c9085226d0dd51424d427fa48c3e26881 (diff)
downloadguile-81d8ff9e451649d7c53210bff78bad6b65077910.tar.gz
Fix alloc_aligned for high allocations
* libguile/loader.c (alloc_aligned): Widen alignment. Thanks to Matt Wette for the report and the fix!
Diffstat (limited to 'libguile/loader.c')
-rw-r--r--libguile/loader.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/loader.c b/libguile/loader.c
index 191e4c157..a4c3e884b 100644
--- a/libguile/loader.c
+++ b/libguile/loader.c
@@ -212,7 +212,7 @@ alloc_aligned (size_t len, unsigned alignment)
ret = malloc (len + alignment - 1);
if (!ret)
abort ();
- ret = (char *) ALIGN ((scm_t_uintptr) ret, alignment);
+ ret = (char *) ALIGN ((scm_t_uintptr) ret, (scm_t_uintptr) alignment);
}
return ret;