From 6e5af48944f6ae61d3f37cbacf3dcafb8a93f088 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Thu, 6 Dec 2012 14:52:45 +0000 Subject: [PATCH] 2012-12-06 15:51 UTC+0100 Viktor Szakats (harbour syenar.net) * utils/hbmk2/hbmk2.prg * default .hbc version number changed to 1 (from 0) --- harbour/ChangeLog.txt | 4 ++++ harbour/utils/hbmk2/hbmk2.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog.txt b/harbour/ChangeLog.txt index 062f716ad1..8096b35db5 100644 --- a/harbour/ChangeLog.txt +++ b/harbour/ChangeLog.txt @@ -10,6 +10,10 @@ * Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment */ +2012-12-06 15:51 UTC+0100 Viktor Szakats (harbour syenar.net) + * utils/hbmk2/hbmk2.prg + * default .hbc version number changed to 1 (from 0) + 2012-12-06 15:19 UTC+0100 Viktor Szakats (harbour syenar.net) + extras/template/tests/hbstart.hb * extras/template/readme.txt diff --git a/harbour/utils/hbmk2/hbmk2.prg b/harbour/utils/hbmk2/hbmk2.prg index 2cbd3406a8..b1dffd3c92 100644 --- a/harbour/utils/hbmk2/hbmk2.prg +++ b/harbour/utils/hbmk2/hbmk2.prg @@ -9834,7 +9834,7 @@ STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel ) RETURN "" ENDIF - nVersion := 0 + nVersion := 1 AAddNew( hbmk[ _HBMK_aDEPTHBC ], { cFileName, nNestingLevel - 1 } ) @@ -10441,7 +10441,7 @@ STATIC FUNCTION HBC_ProcessOne( hbmk, cFileName, nNestingLevel ) ENDCASE NEXT - cVersion := iif( nVersion == 0, "0", "0x" + hb_NumToHex( nVersion, 6 ) ) + cVersion := iif( nVersion == 1, "1", "0x" + hb_NumToHex( nVersion, 6 ) ) AAddNew( hbmk[ _HBMK_aOPTPRG ], "-D" + hb_StrFormat( _HBMK_HAS_TPL_HBC, StrToDefine( hb_FNameName( cFileName ) ) ) + "=" + cVersion )