From 6cd9ba6be04540296eb9e41b4a580913147628a8 Mon Sep 17 00:00:00 2001
From: iDavi <odavi20527@gmail.com>
Date: Fri, 10 Jul 2026 11:31:23 -0300
Subject: [PATCH] Activate WAV loading fast path

---
 .github/workflows/ci.yml |  1 +
 package/Riff.bas         | 12 +++++++++++-
 2 files changed, 12 insertions(+), 1 deletion(-)

diff --git a/.github/workflows/ci.yml b/.github/workflows/ci.yml
index 785fdbd..1159a97 100644
--- a/.github/workflows/ci.yml
+++ b/.github/workflows/ci.yml
@@ -26,6 +26,7 @@ jobs:
           grep -q "Public Sub RiffClose" package/Riff.bas
           grep -q "Public Function RiffLoad" package/Riff.bas
           grep -q "Public Function RiffPlay" package/Riff.bas
+          sed -n '/^Public Function RiffLoad(/,/^End Function/p' package/Riff.bas | grep -q "RiffTryLoadWavFast"
 
       - name: Validate release asset workflow
         shell: bash
diff --git a/package/Riff.bas b/package/Riff.bas
index b30625a..1813b7c 100644
--- a/package/Riff.bas
+++ b/package/Riff.bas
@@ -4152,7 +4152,17 @@ Public Function RiffLoad(ByVal filePath As String) As Long
         RiffSetLastError RiffErrorFileNotFound
         Exit Function
     End If
-    
+
+    Dim wavResult As Long
+    wavResult = RiffTryLoadWavFast(filePath, slot)
+
+    If wavResult >= 0 Then
+        RiffLoad = wavResult
+        Exit Function
+    ElseIf wavResult = RIFF_FAST_WAV_FATAL Then
+        Exit Function
+    End If
+
     #If VBA7 Then
         Dim pReader As LongPtr
         Dim pPartialType As LongPtr