From 5fefc6fcd3315d2bdd433a49df8f259215ca7f86 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 12 Jul 2003 11:04:26 +0000
Subject: [PATCH] 2003-07-12 13:02 UTC+0100

---
 harbour/ChangeLog | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index d849076e5d..4ef9080101 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,22 @@
    2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
 */
 
+2003-07-12 13:02 UTC+0100 Antonio Linares <alinares@fivetechsoft.com>
+  * source/rtl/philes.c
+  ! FRead() bug fixed, introduced cause 1 byte length strings optimization
+
+  Bug described by Guy Roussin:
+
+  function main( cFile )
+     local nH
+     local cBuf:=" "
+     local cBlock := "{|| Alert( 'test' ) }"
+     nH:=fopen(cFile,0)
+     while fread(nH,@cBuf,1)>0 ; end
+     fclose(nH)
+     eval( &( cBlock ) )
+  return(NIL)
+
 2003-07-12 10:06 UTC+0100 Antonio Linares <alinares@fivetechsoft.com>
   * source/debug/debugger.prg
   * source/rtl/philes.c