Merge pull request #363 from lailton/main

Fixed issue HB_SCAN for LOGICAL value

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

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 );