From 70f1e370e6468a62f2909a98774b846e7efc90ab Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Wed, 9 May 2012 21:40:19 +0000 Subject: [PATCH] 2012-05-09 14:35 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/idemain.prg ! Disabled: :destroy() calls before application quits. * Simplified: ambigous variable reference. ; NOTE: now hbIDE does not produces GPF on EXIT but throws 2 RTE the contents of them can be viewed in tracelog. . Error BASE/1301 Object destructor failure: Reference to freed block. --- harbour/ChangeLog | 10 ++++++++++ harbour/contrib/hbide/idemain.prg | 14 ++++++-------- 2 files changed, 16 insertions(+), 8 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c4737cfa0b..3221a174b3 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,16 @@ The license applies to all entries newer than 2009-04-28. */ +2012-05-09 14:35 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) + * contrib/hbide/idemain.prg + ! Disabled: :destroy() calls before application quits. + * Simplified: ambigous variable reference. + + ; NOTE: now hbIDE does not produces GPF on EXIT but throws + 2 RTE the contents of them can be viewed in tracelog. + . + Error BASE/1301 Object destructor failure: Reference to freed block. + 2012-05-09 12:15 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbqt/qtgui/hbqt_errorsys.prg + Added: HB_TRACE() call if HVM is closed and error message diff --git a/harbour/contrib/hbide/idemain.prg b/harbour/contrib/hbide/idemain.prg index c00ff490e7..dba47cb075 100644 --- a/harbour/contrib/hbide/idemain.prg +++ b/harbour/contrib/hbide/idemain.prg @@ -105,10 +105,7 @@ REQUEST ADS FUNCTION Main( ... ) LOCAL oTmp -#if 1 - LOCAL oIde -#endif - + #ifdef __HBDYNLOAD__RDDADS__ LOCAL hRDDADS, tmp #endif @@ -140,13 +137,14 @@ FUNCTION Main( ... ) QResource():registerResource_1( hbqtres_HbIde(), ":/resource" ) oTmp := HbIde():new( hb_aParams() ) -#if 1 - oIde := oTmp:create() - oIde:destroy() +#if 0 + oTmp:create() + oTmp:destroy() + oTmp := NIL #else oTmp:create() -#endif oTmp := NIL +#endif RETURN NIL