diff --git a/harbour/ChangeLog b/harbour/ChangeLog index ce1d4d8e08..62fd9d8189 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to these authors: Viktor Szakats. */ +2009-04-30 01:03 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/source/compiler/hbdbginf.c + ! generate debugger break point line info also for very large blocks + (HB_P_PUSHBLOCKLARGE) + 2009-04-29 20:26 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * utils/hbmk2/hbmk2.prg ! Refixed -map option for *nix non-darwin systems. Well, diff --git a/harbour/source/compiler/hbdbginf.c b/harbour/source/compiler/hbdbginf.c index 58828b6a8e..19e22abca6 100644 --- a/harbour/source/compiler/hbdbginf.c +++ b/harbour/source/compiler/hbdbginf.c @@ -85,6 +85,10 @@ PHB_DEBUGINFO hb_compGetDebugInfo( HB_COMP_DECL ) * if it's not necessary then simply remove the * code below. [druzus] */ + case HB_P_PUSHBLOCKLARGE: + ulSkip = 8 + HB_PCODE_MKUSHORT( &pFunc->pCode[ ulPos + 6 ] ) * 2; + break; + case HB_P_PUSHBLOCK: ulSkip = 7 + HB_PCODE_MKUSHORT( &pFunc->pCode[ ulPos + 5 ] ) * 2; break;