From b3e1419cf084f6bf14229544d04283ed4a706ebe Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Fri, 5 Jul 2002 09:35:17 +0000
Subject: [PATCH] FRead() bug fixed on constant strings use

---
 harbour/source/rtl/philes.c | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/harbour/source/rtl/philes.c b/harbour/source/rtl/philes.c
index e5621596b4..7ce1a6406a 100644
--- a/harbour/source/rtl/philes.c
+++ b/harbour/source/rtl/philes.c
@@ -92,6 +92,11 @@ HB_FUNC( FREAD )
 
    if( ISNUM( 1 ) && ISCHAR( 2 ) && ISBYREF( 2 ) && ISNUM( 3 ) )
    {
+      PHB_ITEM pItem = hb_stackItemFromBase( 2 );
+
+      if( pItem->item.asString.bStatic == TRUE )
+         hb_itemPutC( pItem, hb_parc( 2 ) );
+
       ulRead = hb_parnl( 3 );
 
       /* NOTE: CA-Clipper determines the maximum size by calling _parcsiz()
@@ -227,4 +232,4 @@ HB_FUNC( HB_F_EOF )
    }
 }
 
-#endif
+#endif
\ No newline at end of file