我有一个程序，其中一个QJSEngine对象与几个不同的线程一起使用。应该没有并发访问--创建一个线程，调用或评估某个东西，然后删除这个线程。
然而，在使用QJSEngine时，程序会随机崩溃。所有崩溃都发生在与分配或释放内存相关的私有QJSEngine函数中。示例：

// QV4::PersistentValueStorage::allocate() (qv4persistent.cpp):

Value *PersistentValueStorage::allocate()
{
    Page *p = static_cast<Page *>(firstPage);
    while (p) {
        if (p->header.freeList != -1)
            break;
        p = p->header.next;
    }
    if (!p)
        p = allocatePage(this);

    Value *v = p->values + p->header.freeList;
    p->header.freeList = v->int_32();   // !!! Get SEGFAULT here

    // ....
}

我发现了一个与我的问题类似的bugreport。报告者提供了重现该问题的最小代码：

#include <QCoreApplication>
#include <QJSEngine>
#include <QThread>
#include <QTimer>

int main(int argc, char** argv)
{
    QCoreApplication app(argc, argv);
    QJSEngine engine;
    engine.installExtensions(QJSEngine::ConsoleExtension);
    engine.evaluate("var iteration = 0;");

    auto function = engine.evaluate(R"((
        function()
        {
            if (++iteration % 100 == 0)
                console.log(iteration);
        }
    ))");

    QThread thread;
    thread.start();

    QTimer timer;
    QObject::connect(&timer, &QTimer::timeout, &engine, [&]{function.call();}, Qt::DirectConnection);
    timer.moveToThread(&thread); // Comment it if you want to test QJSEngine in the main thread
    QMetaObject::invokeMethod(&timer, "start", Q_ARG(int, 0));

    return app.exec();
}

在主线程（创建QJSEngine的线程）中执行同样的操作不会使程序崩溃。
你能告诉我如何使QJSEngine线程安全的这种情况吗？报告提供了模板函数safeEngineCall()来 Package 阻塞队列中的引擎调用，但我不知道如何使用它。
先谢谢你。

**UPD：**我有一个想法，将QJSValue::call() Package 到一个线程安全的函数中，通过使用QMetaObject::invokeMethod()：
线程安全引擎.h

class ThreadSafeQJSEngine : public QObject
{
    Q_OBJECT

    QJSEngine* m_engine;

public:
    ThreadSafeQJSEngine(QObject *parent = Q_NULLPTR);
    virtual ~ThreadSafeQJSEngine();

    // ...

    QJSValue call(QJSValue value, const QJSValueList& args);

    // ...

private slots:
    inline QJSValue call_imp(QJSValue value, const QJSValueList& args) {
        return value.engine() == m_engine ? value.call(args) : QJSValue();
    }
    // ...
};

线程安全引擎.cpp

ThreadSafeQJSEngine::ThreadSafeQJSEngine(QObject *parent)
    : QObject(parent)
{
    m_engine = new QJSEngine;
}

ThreadSafeQJSEngine::~ThreadSafeQJSEngine()
{
    delete m_engine;
}

QJSValue ThreadSafeQJSEngine::call(QJSValue value, const QJSValueList &args)
{
    if (QThread::currentThread() != this->thread())
    {
        QJSValue result;
        QMetaObject::invokeMethod(this,
                                  "call_imp",
                                  Qt::BlockingQueuedConnection,
                                  Q_RETURN_ARG(QJSValue, result),
                                  Q_ARG(QJSValue, value),
                                  Q_ARG(const QJSValueList&, args)
                                  );

        return result;

    }
    else
    {
        return call_imp(value, args);
    }
}

// ...

主文件.cpp

int main(int argc, char** argv)
{
    QCoreApplication app(argc, argv);
    ThreadSafeQJSEngine engine;

    // The same as before 
    // ...

    QObject::connect(&timer, &QTimer::timeout, &engine, [&]{engine.call(function);}, Qt::DirectConnection);
    
    // The same as before 
    // ...  
}

但问题并没有消失，它像往常一样崩溃，我做错了什么？