Function invoke

include/daScript/simulate/simulate.h:673–709

#endif

        DAS_EVAL_ABI __forceinline vec4f invoke(const Block &block, vec4f * args, void * cmres, LineInfo * line ) {
            char * EP, *SP;
            vec4f * TBA = nullptr;
            char * STB = stack.bottom();
#if DAS_ENABLE_STACK_WALK
            if (!stack.push_invoke(sizeof(Prologue), block.stackOffset, EP, SP)) {
                throw_error_at(line, "stack overflow during invoke");
            }
            Prologue * pp = (Prologue *)stack.ap();
            pp->block = (Block *)(intptr_t(&block) | 1);
            pp->arguments = args;
            pp->cmres = cmres;
            pp->line = line;
#else
            stack.invoke(block.stackOffset, EP, SP);
#endif
            BlockArguments * __restrict ba = nullptr;
            BlockArguments saveArguments;
            if ( block.argumentsOffset || cmres ) {
                ba = (BlockArguments *) ( STB + block.argumentsOffset );
                saveArguments = *ba;
                ba->arguments = args;
                ba->copyOrMoveResult = (char *) cmres;
                TBA = abiThisBlockArg;
                abiThisBlockArg = args;
            }
            vec4f * __restrict saveFunctionArguments = abiArg;
            abiArg = block.functionArguments;
            vec4f block_result = block.body->eval(*this);
            abiArg = saveFunctionArguments;
            if ( ba ) {
                *ba = saveArguments;
                abiThisBlockArg = TBA;
            }
            stack.pop(EP, SP);
            return block_result;
        }
#ifdef _MSC_VER
#pragma warning(pop)
#endif