diff options
author | Ludovic Courtès <ludo@gnu.org> | 2020-03-09 15:09:26 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-09 15:22:53 +0100 |
commit | 7c17655cd3d859bf0c5a86d9782a7788205fc05a (patch) | |
tree | a524e4ea89a1f20588fa5e47820b35f7251063ad | |
parent | c01a81e8a24c45c6b7a99e34a9c5afb5be014d6d (diff) | |
download | guile-7c17655cd3d859bf0c5a86d9782a7788205fc05a.tar.gz |
Fix incorrect allocation size in 'make-vtable-vtable'.
Fixes <https://bugs.gnu.org/39266>.
Thanks to <https://rr-project.org/> for its help!
* libguile/struct.c (set_vtable_access_fields): Fix first argument to
'scm_gc_malloc_pointerless'.
-rw-r--r-- | libguile/struct.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/libguile/struct.c b/libguile/struct.c index 3dbcc71d4..68dcc0070 100644 --- a/libguile/struct.c +++ b/libguile/struct.c @@ -1,4 +1,4 @@ -/* Copyright 1996-2001,2003-2004,2006-2013,2015,2017-2018 +/* Copyright 1996-2001,2003-2004,2006-2013,2015,2017-2018,2020 Free Software Foundation, Inc. This file is part of Guile. @@ -139,8 +139,10 @@ set_vtable_access_fields (SCM vtable) nfields = len / 2; bitmask_size = (nfields + 31U) / 32U; - unboxed_fields = scm_gc_malloc_pointerless (bitmask_size, "unboxed fields"); - memset (unboxed_fields, 0, bitmask_size * sizeof(*unboxed_fields)); + unboxed_fields = + scm_gc_malloc_pointerless (bitmask_size * sizeof (*unboxed_fields), + "unboxed fields"); + memset (unboxed_fields, 0, bitmask_size * sizeof (*unboxed_fields)); /* Update FLAGS according to LAYOUT. */ for (field = 0; field < nfields; field++) |