Merge pull request #363 from lailton/main

Fixed issue HB_SCAN for LOGICAL value
harbour · Dec 3, 2024 · 93d6749 · 93d6749
2 parents 4ae5151 + ccbf3a7
commit 93d6749
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 1 deletion.
diff --git a/ChangeLog.txt b/ChangeLog.txt
@@ -7,6 +7,11 @@
    Entries may not always be in chronological/commit order.
    See license at the end of file. */
 
+2024-12-03 01:27 UTC-0300 Lailton Fernando Mariano (lailton/at/paysoft.com.br)
+  * src/vm/hashfunc.c
+    ! fixed issue hb_scan when we are looking for a logical value as true.
+      Many thanks to Marcos Gambeta who found the problem.
+
 2024-10-28 16:57 UTC+0100 Aleksander Czajczynski (hb fki.pl)
   * src/rdd/dbf1.c
     ! reading varchar binary field ("Q:B") from a .dbf

diff --git a/src/vm/hashfunc.c b/src/vm/hashfunc.c
@@ -610,7 +610,7 @@ HB_FUNC( HB_HSCAN )
       }
       else if( HB_IS_LOGICAL( pValue ) )
       {
-         HB_BOOL fValue = hb_itemGetDL( pValue );
+         HB_BOOL fValue = hb_itemGetL( pValue );
          while( nCount-- )
          {
             PHB_ITEM pItem = hb_hashGetValueAt( pHash, nStart );