From 4c760c3b98fb4f0375b61b7b41e2c58bfca5fb59 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 21 Jul 2021 07:17:26 -0700 Subject: carray: add missing argument type checking. * ffi.c (carray_uint, carray_int): We must use ffi_type_struct_checked here, otherwise we are blindly assuming that the element type is a FFI type. --- ffi.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'ffi.c') diff --git a/ffi.c b/ffi.c index 4f8ec505..89547891 100644 --- a/ffi.c +++ b/ffi.c @@ -5922,7 +5922,7 @@ val carray_uint(val num, val eltype_in) { val self = lit("carray-uint"); val eltype = default_arg(eltype_in, ffi_type_compile(uchar_s)); - struct txr_ffi_type *tft = ffi_type_struct(eltype); + struct txr_ffi_type *tft = ffi_type_struct_checked(self, eltype); carray_elem_check(tft, self); @@ -5957,7 +5957,7 @@ val carray_int(val num, val eltype_in) { val self = lit("carray-int"); val eltype = default_arg(eltype_in, ffi_type_compile(uchar_s)); - struct txr_ffi_type *tft = ffi_type_struct(eltype); + struct txr_ffi_type *tft = ffi_type_struct_checked(self, eltype); carray_elem_check(tft, self); -- cgit v1.2.3