Function array_lock

src/simulate/runtime_array.cpp:27–44

    }

    void array_lock ( Context & context, Array & arr, LineInfo * at ) {
        if ( arr.shared || arr.hopeless ) return;
        if ( arr.lock==0 ) {
            if ( arr.magic != 0 ) {
                context.throw_error_at(at, "array magic mismatch on first lock, was it moved or overwritten?");
            }
            arr.lock = 1;
            arr.magic = DAS_ARRAY_MAGIC;
        } else {
            if ( arr.magic != DAS_ARRAY_MAGIC ) {
                context.throw_error_at(at, "array magic mismatch on lock, was it moved or overwritten?");
            }
            arr.lock ++;
            if ( arr.lock==0 ) {
                context.throw_error_at(at, "array lock overflow, was it moved or overwritten?");
            }
        }
    }

    void array_unlock ( Context & context, Array & arr, LineInfo * at ) {
        if ( arr.shared || arr.hopeless ) return;