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

2009-05-25 15:00 UTC+0300 Alexander Kresin <alex at belacy.belgorod.su>

Browse Source 
* utils/hbformat/hbformat.prg
    ! Small fix
This commit is contained in:
Alexander S.Kresin
2009-05-25 11:01:28 +00:00
parent 08b7af7f05
commit 22c3e1c888
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to these authors: Viktor Szakats.
*/
2009-05-25 15:00 UTC+0300 Alexander Kresin <alex at belacy.belgorod.su>
* utils/hbformat/hbformat.prg
! Small fix
2009-05-25 12:30 UTC+0200 Viktor Szakats (harbour.01 syenar hu)
* make_gnu.bat
% Fixed to exclude external libs from dll phase of build.

2
harbour/utils/hbformat/hbformat.prg
View File

@@ -483,7 +483,7 @@ METHOD Reformat( aFile ) CLASS CODEFORMAT
cToken1 == "end"
IF nPos != 0 .AND. nDeep > 0 .AND. aDeep[nDeep] != nPos
DO WHILE ( nPos := Ascan( ::aContr, { |a|a[4] == cToken1 }, ;
nPos ) ) != 0 .AND. aDeep[nDeep] != nPos
nPos + 1 ) ) != 0 .AND. aDeep[nDeep] != nPos
ENDDO
ENDIF
IF nDeep > 0 .AND. aDeep[nDeep] == nPos .OR. cToken1 == "end"