diff --git a/backendC/CleanCompilerSources/backend.c b/backendC/CleanCompilerSources/backend.c index af833e4d051bf8d255771942f0d0d200667949a5..ed8665e220bac83064c977e8856a19c2ef758474 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