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

2001-08-14 23:53 GMT+1 Patrick Mast <harbour@PatrickMast.com>

Browse Source 
* contrib/tprepro/tprepro.prg
     * Bug fix in TranslateFile() method
This commit is contained in:
Patrick Mast
2001-08-14 21:54:10 +00:00
parent a0d25ebc80
commit b01ee41aff
2 changed files with 6 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-08-14 23:53 GMT+1 Patrick Mast <harbour@PatrickMast.com>
* contrib/tprepro/tprepro.prg
* Bug fix in TranslateFile() method
2001-08-13 23:18 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
* source/vm/mainwin.c
* added hInstance assignment to hb_hInstance

11
harbour/contrib/tprepro/tprepro.prg
View File

@@ -149,7 +149,6 @@ return cResult
METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreprocessor
local cStr, cByte, hPPO, cExt, cPP
@@ -206,14 +205,10 @@ METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreproce
if lWasteNoSpace
if !Empty( cPP )
cResult+= LTrim( cPP )
cResult+= LTrim( cPP ) + Replicate(CRLF,nPuntComma)
endif
else
if Empty( cPP )
cResult+= Replicate(CRLF,nPuntComma)
else
cResult+=cPP + Replicate(CRLF,nPuntComma)
endif
cResult+=cPP + Replicate(CRLF,nPuntComma)
endif
enddo
@@ -239,6 +234,4 @@ METHOD TranslateFile( cFile, lWritePPO, cPPOExt, lWasteNoSpace ) CLASS TPreproce
endif
::cPreProcessed := cResult
return cResult