Function argument_list_pop

v2/engine/function.c:3123–3149

}

void argument_list_pop( struct arg_list * formal, int formal_count,
    FRAME * frame, STACK * s )
{
    int i;
    for ( i = formal_count - 1; i >= 0; --i )
    {
        int j;
        for ( j = formal[ i ].size - 1; j >= 0 ; --j )
        {
            struct argument * formal_arg = &formal[ i ].args[ j ];

            if ( formal_arg->flags == ARG_VARIADIC )
                continue;
            if ( formal_arg->index != -1 )
            {
                LIST * const old = stack_pop( s );
                LIST * * const pos = &frame->module->fixed_variables[
                    formal_arg->index ];
                list_free( *pos );
                *pos = old;
            }
            else
                var_set( frame->module, formal_arg->arg_name, stack_pop( s ),
                    VAR_SET );
        }
    }
}


struct argument_compiler