From 8b3dc3b0cca7bbd38a97c18b65f386d0ae0d5bf1 Mon Sep 17 00:00:00 2001 From: John van Groningen Date: Fri, 19 Jun 2020 13:58:54 +0200 Subject: [PATCH] fix state in unboxed_list_symbols and unboxed_maybe_symbols for packed arrays --- backendC/CleanCompilerSources/backend.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c index af833e4d..ed8665e2 100644 --- a/backendC/CleanCompilerSources/backend.c +++ b/backendC/CleanCompilerSources/backend.c @@ -3427,7 +3427,7 @@ BEArg (CleanString arg) #if STRICT_LISTS static void init_unboxed_list_symbols (void) { - StateP array_state_p,strict_array_state_p,unboxed_array_state_p; + StateP array_state_p,strict_array_state_p,unboxed_array_state_p,packed_array_state_p; int i; for (i=0; istate_type = ArrayState; + packed_array_state_p->state_arity = 1; + packed_array_state_p->state_array_arguments = ConvertAllocType (StateS); + packed_array_state_p->state_mark |= STATE_PACKED_ARRAY_MASK; + packed_array_state_p->state_array_arguments [0] = StrictState; + + unboxed_list_symbols[packed_array_type][0].symb_state_p=packed_array_state_p; + unboxed_list_symbols[packed_array_type][1].symb_state_p=packed_array_state_p; + unboxed_maybe_symbols[packed_array_type].symb_state_p=packed_array_state_p; } #endif -- GitLab