Method serializeProgram

src/builtin/module_builtin_ast_serialize.cpp:2588–2698

Used in eden

    // Used in eden
    void AstSerializer::serializeProgram ( ProgramPtr program, ModuleGroup & libGroup ) noexcept {
        auto & ser = *this;
        // Bump epoch so reused pointer addresses across program boundaries
        // get distinct SerializeNodeIds on this persistent serializer.
        ser.epoch++;

        ser << program->thisNamespace << program->thisModuleName;

        ser << program->totalFunctions      << program->totalVariables << program->newLambdaIndex;
        ser << program->globalInitStackSize << program->globalStringHeapSize;
        ser << program->flags;

        ser << program->options << program->policies;

        if ( writing ) {
            TopSort ts(program->library.getModules());
            auto modules = ts.getDependecyOrdered(program->thisModule.get());

            uint64_t size = modules.size(); *this << size;

            for ( auto & m : modules ) {
                bool builtin = m->builtIn, promoted = m->promoted;
                *this << builtin << promoted;
                *this << m->name;

                if ( m->builtIn && !m->promoted ) {
                    *this << m->cumulativeHash;
                    continue;
                }

                bool isNew = writingReadyModules.count(m) == 0;
                *this << isNew;
                if ( isNew ) {
                    writingReadyModules.insert(m);
                    *this << *m;
                }
            }
        } else {
            uint64_t size = 0; ser << size;

            program->library.reset();
            program->thisModule.release();
            moduleLibrary = &program->library;

            for ( uint64_t i = 0; i < size; i++ ) {
                bool builtin = false, promoted = false;
                ser << builtin << promoted;
                string name; ser << name;

                if ( builtin && !promoted ) {
                    auto m = Module::require(name);
                    uint64_t savedHash = 0, moduleHash = m->cumulativeHash;
                    *this << savedHash;

                    if ( moduleHash != savedHash ) {
                        LOG(LogLevel::warning) << "das: serialize: cumulative hash for module '" << m->name
                                               << "' differs" << " (" << moduleHash << " vs " << savedHash << ") ";
                        program->failToCompile = true;