Fix kdtree: jump-to-next-node for flagmatch

Flags was implemented poorly in RangeQueries, smacked some gotos on there to jump ahead to next node. We cant exit here!

Author: slackydev

Source/simba.container_kdtree.pas

@@ -496,6 +496,8 @@ function TKDTree.RangeQuery(Low, High: TSingleArray; Setting: TTreeSettings = []
     This: PKDNode;
     Axis: Integer;
     i: Integer;
+  label
+    NextNode;
   begin
     if Node = NONE then Exit;
 
@@ -509,11 +511,11 @@ function TKDTree.RangeQuery(Low, High: TSingleArray; Setting: TTreeSettings = []
 
       if i = Self.Dimensions - 1 then // completed = within range
       begin
-        if (tsIgnoreHidden in Setting) and This^.Hidden then
-          Exit;
+        if (not(tsIgnoreHidden in Setting)) and This^.Hidden then
+          goto NextNode;
 
         if (tsRefSensitive in Setting) and (This^.Split.Ref <> WorkingRef) then
-          Exit;
+          goto NextNode;
 
         if ResultSize = Length(Result) then
           SetLength(Result, Length(Result) * 2);
@@ -526,6 +528,8 @@ function TKDTree.RangeQuery(Low, High: TSingleArray; Setting: TTreeSettings = []
       end;
     end;
 
+  NextNode:
+
     if (Low[Axis] <= This^.Split.Vector[Axis]) then
     begin
       if (High[Axis] < This^.Split.Vector[Axis]) then
@@ -590,6 +594,8 @@ function TKDTree.RangeQueryEx(Center: TSingleArray; Radii: TSingleArray; Setting
   var
     This: PKDNode;
     Axis: Integer;
+  label
+    NextNode;
   begin
     if Node = NONE then Exit;
 
@@ -598,11 +604,11 @@ function TKDTree.RangeQueryEx(Center: TSingleArray; Radii: TSingleArray; Setting
 
     if Fits(This^.Split.Vector, Center) then
     begin
-      if (tsIgnoreHidden in Setting) and This^.Hidden then
-        Exit;
+      if (not(tsIgnoreHidden in Setting)) and This^.Hidden then
+        goto NextNode;
 
       if (tsRefSensitive in Setting) and (This^.Split.Ref <> WorkingRef) then
-        Exit;
+        goto NextNode;
 
       if ResultSize = Length(Result) then
         SetLength(Result, Length(Result) * 2);
@@ -614,6 +620,7 @@ function TKDTree.RangeQueryEx(Center: TSingleArray; Radii: TSingleArray; Setting
         This^.Hidden := True;
     end;
 
+  NextNode:
     if (Center[Axis] - Radii[Axis] <= This^.Split.Vector[Axis]) then
         Query(This^.L, Depth + 1);