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

2013-01-26 15:03 UTC+0100 Viktor Szakats (harbour syenar.net)

Browse Source 
* src/rdd/usrrdd/rdds/arrayrdd.prg
    ! more formatting fix to latest patch
    ; TOFIX: hbformat to uppercase 'NIL' and to add
      space between '!' operator and next token. Also to
      format #define code (old) and to not break with inline
      comments inside continued lines (old).
This commit is contained in:
Viktor Szakats
2013-01-26 14:05:16 +00:00
parent c84fb7507f
commit d784a20552
2 changed files with 11 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog.txt
View File

@@ -10,6 +10,14 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2013-01-26 15:03 UTC+0100 Viktor Szakats (harbour syenar.net)
* src/rdd/usrrdd/rdds/arrayrdd.prg
! more formatting fix to latest patch
; TOFIX: hbformat to uppercase 'NIL' and to add
space between '!' operator and next token. Also to
format #define code (old) and to not break with inline
comments inside continued lines (old).
2013-01-26 15:00 UTC+0100 Viktor Szakats (harbour syenar.net)
- contrib/hbhpdf/error.prg
+ contrib/hbhpdf/errstr.prg

6
harbour/src/rdd/usrrdd/rdds/arrayrdd.prg
View File

@@ -1469,16 +1469,16 @@ STATIC FUNCTION AR_LOCATE( nWA, lContinue )
IF lContinue
AR_SKIPRAW( nWA, 1 )
ENDIF
IF bWhile == nil
IF bWhile == NIL
bLocate := {|| ! Eval( bFor ) }
IF !lContinue .AND. aScopeInfo[ UR_SI_NEXT ] == nil .AND. aScopeInfo[ UR_SI_RECORD ] == nil .AND. !aScopeInfo[ UR_SI_REST ]
IF !lContinue .AND. aScopeInfo[ UR_SI_NEXT ] == NIL .AND. aScopeInfo[ UR_SI_RECORD ] == NIL .AND. !aScopeInfo[ UR_SI_REST ]
AR_GOTOP( nWA )
ENDIF
ELSE
bLocate := {|| ! Eval( bFor ) .AND. Eval( bWhile ) }
ENDIF
dbEval( {|| NIL },, bLocate, aScopeInfo[ UR_SI_NEXT ], aScopeInfo[ UR_SI_RECORD ], aScopeInfo[ UR_SI_REST ] .OR. lContinue )
aWAData[ WADATA_FOUND ] := !aWAData[ WADATA_EOF ] .AND. Eval( bFor )
aWAData[ WADATA_FOUND ] := ! aWAData[ WADATA_EOF ] .AND. Eval( bFor )
RETURN HB_SUCCESS