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

2002-03-12 11:40 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>

Browse Source
This commit is contained in:
Alexander S.Kresin
2002-03-12 08:35:24 +00:00
parent f46098b2d2
commit 6796d6d6c2
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -7,6 +7,11 @@
For example:
2002-12-01 23:12 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
* source/compiler/harbour.sly
! Correted minor bug in GetA
2002-03-13 18:53 UTC+0300 Alexander Kresin <alex@belacy.belgorod.su>
* source/pp/ppcomp.c
* bug fixed, related to 'ENDTEXT' position

8
harbour/source/rtl/dbsdf.prg
View File

@@ -221,13 +221,13 @@ STATIC FUNCTION ExportFixed( handle, xField )
RETURN .T.
STATIC FUNCTION ImportFixed( handle, index, aStruct )
LOCAL cBuffer := Space(aStruct[ index,3 ]), pos, res := .T.
LOCAL cBuffer := Space(aStruct[ index,3 ]), pos, res := .T., nRead
LOCAL vres
FREAD( handle, @cBuffer, aStruct[ index,3 ] )
IF ( pos := At( CHR(13),cBuffer ) ) > 0
nRead := FREAD( handle, @cBuffer, aStruct[ index,3 ] )
IF ( pos := At( CHR(13),cBuffer ) ) > 0 .AND. pos <= nRead
res := .F.
FSEEK( handle, -( aStruct[ index,3 ] - pos + 1 ), FS_RELATIVE )
FSEEK( handle, -( nRead - pos + 1 ), FS_RELATIVE )
IF pos > 1
cBuffer := Left( cBuffer,pos-1 )
ELSE