From 71b915f4a3ffbecfbc3ba57f0f4ddcba32f2147c Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Tue, 23 Jun 2009 00:21:07 +0000 Subject: [PATCH] 2009-06-23 02:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg * Restored HB_COMPILE() first parameter. This time it's 'harbour' instead of empty string. --- harbour/ChangeLog | 5 +++++ harbour/utils/hbmk2/hbmk2.prg | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c398f35bbd..920acb7d68 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-06-23 02:19 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * utils/hbmk2/hbmk2.prg + * Restored HB_COMPILE() first parameter. This time it's 'harbour' + instead of empty string. + 2009-06-23 02:15 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/source/compiler/hbcmplib.c * removed automatically set 1-st parameter in hb_compile*() functions diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 476b4a3114..831db76896 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -3121,9 +3121,9 @@ FUNCTION hbmk( aArgs, /* @ */ lPause, /* @ */ lUTF8 ) IF ! hbmk[ _HBMK_lDONTEXEC ] IF hb_mtvm() - AAdd( aThreads, { hb_threadStart( @hb_compile(), aCommand ), aCommand } ) + AAdd( aThreads, { hb_threadStart( @hb_compile(), "harbour", aCommand ), aCommand } ) ELSE - IF ( tmp := hb_compile( aCommand ) ) != 0 + IF ( tmp := hb_compile( "harbour", aCommand ) ) != 0 hbmk_OutErr( hbmk, hb_StrFormat( I_( "Error: Running Harbour compiler. %1$s" ), hb_ntos( tmp ) ) ) IF ! hbmk[ _HBMK_lQuiet ] OutErr( FN_Escape( DirAddPathSep( PathSepToSelf( l_cHB_BIN_INSTALL ) ) + cBin_CompPRG + cBinExt, nOpt_Esc ) +;