From b4a13cb8312d5cde4e4d3886d03397e7d64ed487 Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Sat, 5 Jun 2021 03:13:39 +0200
Subject: [PATCH] Reset the internal Qt5 thread pool before forking.

[GB.QT5]
* BUG: Reset the internal Qt5 thread pool before forking.
---
 gb.qt5/src/main.cpp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/gb.qt5/src/main.cpp b/gb.qt5/src/main.cpp
index 8613dedc5..1b2604334 100644
--- a/gb.qt5/src/main.cpp
+++ b/gb.qt5/src/main.cpp
@@ -52,6 +52,7 @@
 #include <QDesktopWidget>
 #include <QPaintDevice>
 #include <QLibraryInfo>
+#include <QThreadPool>
 
 #include "gb.image.h"
 #include "gb.form.font.h"
@@ -1262,6 +1263,11 @@ int EXPORT GB_INFO(const char *key, void **value)
 }
 #endif
 
+void EXPORT GB_FORK(void)
+{
+	delete QThreadPool::globalInstance();
+}
+
 /*#ifndef NO_X_WINDOW
 extern Time	qt_x_time;
 #endif*/