fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

FRead() fix for dynamic strings use with more than one holder

Browse Source
This commit is contained in:
Antonio Linares
2002-10-19 10:16:04 +00:00
parent 87471c0897
commit 283dd53b82
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
harbour/source/rtl/philes.c
View File

@@ -96,7 +96,8 @@ HB_FUNC( FREAD )
{
PHB_ITEM pItem = hb_itemUnRef( hb_stackItemFromBase( 2 ) );
if( pItem->item.asString.bStatic == TRUE )
if( pItem->item.asString.bStatic == TRUE ||
( * pItem->item.asString.puiHolders ) > 1 )
hb_itemPutC( pItem, hb_parc( 2 ) );
ulRead = hb_parnl( 3 );