Also call mkl_sycl_destructor before deleting SYCL queue (#420)

Author: pengtu

deps/src/onemkl.cpp

@@ -4320,9 +4320,10 @@ extern "C" int onemklXsparse_matmat(syclQueue_t device_queue, matrix_handle_t A,
 
 // oneMKL keeps a cache of SYCL queues and tries to destroy them when unloading the library.
 // that is incompatible with oneAPI.jl destroying queues before that, so call mkl_free_buffers
-// to manually wipe the device cache when we're destroying queues.
+// and mkl_sycl_destructor to manually cleanup oneMKL cache when we're destroying queues.
 
 extern "C" int onemklDestroy() {
     mkl_free_buffers();
+    mkl_sycl_destructor();
     return 0;
 }

deps/src/onemkl.h

@@ -2572,6 +2572,7 @@ int onemklXsparse_matmat(syclQueue_t device_queue, matrix_handle_t A, matrix_han
                          matrix_handle_t C, onemklMatmatRequest req, matmat_descr_t
                          descr, int64_t *sizeTempBuffer, void *tempBuffer);
 
+void mkl_sycl_destructor(void);
 int onemklDestroy(void);
 #ifdef __cplusplus
 }