From 22c3e1c888d01cfc41303acd977a144efd5107c4 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Mon, 25 May 2009 11:01:28 +0000 Subject: [PATCH] 2009-05-25 15:00 UTC+0300 Alexander Kresin * utils/hbformat/hbformat.prg ! Small fix --- harbour/ChangeLog | 4 ++++ harbour/utils/hbformat/hbformat.prg | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8a6a7a696b..70c091fbf2 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to these authors: Viktor Szakats. */ +2009-05-25 15:00 UTC+0300 Alexander Kresin + * 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. diff --git a/harbour/utils/hbformat/hbformat.prg b/harbour/utils/hbformat/hbformat.prg index 9182dcca78..338659e922 100644 --- a/harbour/utils/hbformat/hbformat.prg +++ b/harbour/utils/hbformat/hbformat.prg @@ -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"