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

*** empty log message ***

Browse Source
This commit is contained in:
Paul Tucker
1999-08-17 19:49:47 +00:00
parent 5af71905ad
commit f3a291bcea
2 changed files with 9 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,8 +1,12 @@
19990817-15:36 EDT Paul Tucker <ptucker@sympatico.ca>
* source/debug/tbrwtext.prg
* modified to with with cr/lf or just lf
19990817-21:10 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/rtl/errorsys.prg
* public getlist := {} uncommented.
19990816-12:26 EDT Paul Tucker <ptucker@sympatico.ca>
19990817-14:26 EDT Paul Tucker <ptucker@sympatico.ca>
* source/debug/Makefile
+ tbrwtext.prg

8
harbour/source/debug/tbrwtext.prg
View File

@@ -107,7 +107,8 @@ static function FReadLn( nHandle, cBuffer )
nSaveFPos = FSeek( nHandle, 0, FS_RELATIVE )
nRead = FRead( nHandle, @cBuffer, MAX_LINE_LEN )
if ( nEOL := At( Chr( 13 ) + Chr( 10 ), SubStr( cBuffer, 1, nRead ) ) ) == 0
if ( nEOL := At( Chr( 13 ) + Chr( 10 ), SubStr( cBuffer, 1, nRead ) ) ) == 0 .and. ;
( nEOL := At( Chr( 10 ), SubStr( cBuffer, 1, nRead ) ) ) == 0
// Line overflow or eof
// ::cLine has the line we need
else
@@ -146,9 +147,8 @@ static function GoPrevLine( nHandle, cLine, nFileSize )
cBuff := Space( nMaxRead )
nNewPos := FSeek( nHandle, -nMaxRead, FS_RELATIVE )
FRead( nHandle, @cBuff, nMaxRead )
nWhereCrLf := RAt( Chr( 13 ) + Chr( 10 ), cBuff )
if nWhereCrLf == 0
if (nWhereCrLf := RAt( Chr( 13 ) + Chr( 10 ), cBuff ) ) == 0 .and. ;
(nWhereCrLf := RAt( Chr( 10 ), cBuff ) ) == 0
nPrev := nNewPos
cLine = cBuff
else