Fix build warning

Author: pedrovgs

Sources/Matft/library/lapack.swift

@@ -1128,8 +1128,34 @@ internal typealias lapack_LU<T> = (UnsafeMutablePointer<__CLPK_integer>, UnsafeM
 
 internal typealias lapack_inv<T> = (UnsafeMutablePointer<__CLPK_integer>, UnsafeMutablePointer<T>, UnsafeMutablePointer<__CLPK_integer>, UnsafeMutablePointer<__CLPK_integer>, UnsafeMutablePointer<T>, UnsafeMutablePointer<__CLPK_integer>, UnsafeMutablePointer<__CLPK_integer>) -> Int32
 
+// MARK: - Direct CLAPACK bindings
+// The CLAPACK header declares these functions as returning int, but the actual
+// compiled WASM functions return void (Fortran subroutines). We need to declare
+// them with the correct signature to avoid WASM signature mismatch errors.
+// Parameters use CLong (long int) which is 32-bit on wasm32.
+
+@_silgen_name("dgetrf_")
+private func clapack_dgetrf(
+    _ m: UnsafeMutablePointer<CLong>,
+    _ n: UnsafeMutablePointer<CLong>,
+    _ a: UnsafeMutablePointer<Double>,
+    _ lda: UnsafeMutablePointer<CLong>,
+    _ ipiv: UnsafeMutablePointer<CLong>,
+    _ info: UnsafeMutablePointer<CLong>
+)
+
+@_silgen_name("dgetri_")
+private func clapack_dgetri(
+    _ n: UnsafeMutablePointer<CLong>,
+    _ a: UnsafeMutablePointer<Double>,
+    _ lda: UnsafeMutablePointer<CLong>,
+    _ ipiv: UnsafeMutablePointer<CLong>,
+    _ work: UnsafeMutablePointer<Double>,
+    _ lwork: UnsafeMutablePointer<CLong>,
+    _ info: UnsafeMutablePointer<CLong>
+)
+
 // MARK: - CLAPACK Wrapper Functions for WASI
-// dgetrf_ and dgetri_ are called directly from the CLAPACK C module
 // dgeev_ is implemented in pure Swift (swiftEigenDecomposition) above
 // Note: CLAPACK uses "integer" = long int, which on wasm32 is 32-bit (CLong)
 
@@ -1160,8 +1186,8 @@ internal func dgetrf_(_ m: UnsafeMutablePointer<__CLPK_integer>, _ n: UnsafeMuta
     let minMN = min(Int(m.pointee), Int(n.pointee))
     var ipivLong = Array<CLong>(repeating: 0, count: minMN)
 
-    // Call CLAPACK's dgetrf_ directly through C interop
-    let _ = CLAPACK.dgetrf_(&mLong, &nLong, a, &ldaLong, &ipivLong, &infoLong)
+    // Call our direct binding with correct void-returning signature
+    clapack_dgetrf(&mLong, &nLong, a, &ldaLong, &ipivLong, &infoLong)
 
     for i in 0..<minMN {
         ipiv[i] = __CLPK_integer(ipivLong[i])
@@ -1190,8 +1216,8 @@ internal func dgetri_(_ n: UnsafeMutablePointer<__CLPK_integer>, _ a: UnsafeMuta
         ipivLong[i] = CLong(ipiv[i])
     }
 
-    // Call CLAPACK's dgetri_ directly through C interop
-    let _ = CLAPACK.dgetri_(&nLong, a, &ldaLong, &ipivLong, work, &lworkLong, &infoLong)
+    // Call our direct binding with correct void-returning signature
+    clapack_dgetri(&nLong, a, &ldaLong, &ipivLong, work, &lworkLong, &infoLong)
 
     info.pointee = __CLPK_integer(infoLong)
     return Int32(infoLong)