FRead() bug fixed, introduced cause 1 byte length strings optimization

2003-07-12 11:01:41 +00:00
parent 40ac1bbb20
commit 44993f2a6e
1 changed files with 3 additions and 1 deletions
--- a/harbour/source/rtl/philes.c
+++ b/harbour/source/rtl/philes.c
@@ -98,7 +98,9 @@ HB_FUNC( FREAD )

      if( pItem->item.asString.bStatic ||
          ( * pItem->item.asString.u.puiHolders ) > 1 )
-         hb_itemPutC( pItem, hb_parc( 2 ) );
+         // Warning: Don't use hb_itemPutC() here, as it fails if 1 byte buffer used
+         // cause 1 byte length strings optimization
+         hb_itemPutCPtr( pItem, hb_strdup( hb_parc( 2 ) ), hb_parclen( 2 ) );

      ulRead = hb_parnl( 3 );