From 7f0b086b6323ca208481f64c419c6b28d83efdc1 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Mon, 16 Jul 2018 11:20:47 -0300
Subject: [PATCH] Optimizes _INSTRREV - makes it use existing INSTR for
 searching backwards.

---
 internal/c/libqb.cpp | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/internal/c/libqb.cpp b/internal/c/libqb.cpp
index 7c68823d0..872ea16b9 100644
--- a/internal/c/libqb.cpp
+++ b/internal/c/libqb.cpp
@@ -6620,18 +6620,17 @@ int32 func__instrrev(int32 start,qbs *str,qbs *substr,int32 passed){
     if (!substr->len) return start-1;
     if ((start+substr->len-1)>str->len) start=str->len-substr->len+1;
 
-    firstc=substr->chr[0];
-    base=str->chr+start-1;
+    int32 searchForward=0,lastFound=0,result=0;
+    do {
+        searchForward=func_instr(searchForward+1,str,substr,1);
+        if (searchForward>0) {
+            lastFound=searchForward;
+            if (lastFound<=start) result=lastFound;
+            if (lastFound>start) break;
+        }
+    } while (searchForward>0);
 
-    prevchar:
-    thisc=base[0];
-    if (thisc!=firstc) {
-        if (base==str->chr) return 0;
-    }
-    if (!memcmp(base,substr->chr,substr->len)) return base-str->chr+1;
-    if (base==str->chr) return 0;
-    base--;
-    goto prevchar;
+    return result;
 }
 
 void sub_mid(qbs *dest,int32 start,int32 l,qbs* src,int32 passed){