From c6e41bf2bacb5faac26a134cf02c000521121e13 Mon Sep 17 00:00:00 2001 From: "Alexander S.Kresin" Date: Wed, 3 Jun 2009 08:31:57 +0000 Subject: [PATCH] 2009-06-03 12:30 UTC+0300 Alexander Kresin * utils/hbformat/hbformat.prg ! Warning fixed. --- 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 408277e709..4021d9c603 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to these authors: Viktor Szakats. */ +2009-06-03 12:30 UTC+0300 Alexander Kresin + * utils/hbformat/hbformat.prg + ! Warning fixed. + 2009-06-03 11:25 UTC+0300 Alexander Kresin * utils/hbformat/hbformat.prg ! Bug fixed. diff --git a/harbour/utils/hbformat/hbformat.prg b/harbour/utils/hbformat/hbformat.prg index 4475e23a04..e93c14d793 100644 --- a/harbour/utils/hbformat/hbformat.prg +++ b/harbour/utils/hbformat/hbformat.prg @@ -352,7 +352,7 @@ METHOD Reformat( aFile ) CLASS CODEFORMAT LOCAL i, iDelta := 0, nLen := Len( aFile ), cToken1, cToken2, nLenToken, nPos LOCAL nPosSep, cLine, cLineAll, nLineSegment LOCAL nContrState, nIndent, nDeep := 0, aDeep := {} - LOCAL lPragmaDump := .F. , lClass := .F. , lComment := .F. , nPosComment := 0, lContinue := .F. + LOCAL lPragmaDump := .F. , lClass := .F. , lComment := .F. , nPosComment, lContinue := .F. LOCAL nStatePrev, nState := 0 PRIVATE cFunctions := Upper( ::cFunctions )