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

2010-01-23 12:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbide/ideprojmanager.prg
    ! Don't delete temp .hbp file when creating PPO file, otherwise
      hbmk2 couldn't find it (at least on my system).
    * Changed temp .hbp name to have "_tmp.hbp" appended (instead of "._tmp.hbp").
This commit is contained in:
Viktor Szakats
2010-01-23 11:38:03 +00:00
parent 852785c988
commit 35e33d1ec5
2 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -17,6 +17,12 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-01-23 12:36 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbide/ideprojmanager.prg
! Don't delete temp .hbp file when creating PPO file, otherwise
hbmk2 couldn't find it (at least on my system).
* Changed temp .hbp name to have "_tmp.hbp" appended (instead of "._tmp.hbp").
2010-01-23 12:25 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* Typo in last ChangeLog entry.

8
harbour/contrib/hbide/ideprojmanager.prg
View File

@@ -947,7 +947,7 @@ METHOD IdeProjManager:buildProject( cProject, lLaunch, lRebuild, lPPO, lViaQt )
iif( empty( ::oProject:outputName ), "_temp", ::oProject:outputName ) )
//cHbpPath := cHbpFN + iif( ::lPPO, '.' + hb_md5( hb_ntos( seconds() ) ), "" ) + ".hbp"
cHbpPath := cHbpFN + iif( ::lPPO, '._tmp', "" ) + ".hbp"
cHbpPath := cHbpFN + iif( ::lPPO, '_tmp', "" ) + ".hbp"
IF !( ::lPPO )
IF ::oProject:type == "Lib"
@@ -1059,7 +1059,7 @@ METHOD IdeProjManager:buildProject( cProject, lLaunch, lRebuild, lPPO, lViaQt )
#endif
ELSE
cOutput := "" ; cErrors := ""
nResult := hb_processRun( ( ::oProject:hbmk2dir + "hbmk2 " + iif( ::lPPO, "-hbraw ", "" ) + cHbpPath ), , @cOutput, @cErrors )
nResult := hb_processRun( ::oProject:hbmk2dir + "hbmk2 " + iif( ::lPPO, "-hbraw ", "" ) + cHbpPath, , @cOutput, @cErrors )
cTmp := cOutput + CRLF
cTmp += IIF( empty( cErrors ), "", cErrors ) + CRLF
@@ -1082,10 +1082,6 @@ METHOD IdeProjManager:buildProject( cProject, lLaunch, lRebuild, lPPO, lViaQt )
ENDIF
IF ::lPPO
FErase( cHbpPath )
ENDIF
RETURN Self
/*----------------------------------------------------------------------*/