2012-04-10 02:57 UTC+0200 Viktor Szakats (harbour syenar.net)

* contrib/gtwvg/gtwvg.c
    ! HB_GTINFOEX(): fixed using object after freeing it
    ! renamed HB_GTINFOEX() -> WVG_GTINFOEX() to avoid occupying
      Harbour core namespace in non-core component. It also uses
      raw pointer to access internals.
      (if such functionality is to be ever implemented in core,
      it should probably be done by extending existing HB_GTINFO())
    ; INCOMPATIBLE. Update your function calls according to above.
This commit is contained in:
Viktor Szakats
2012-04-10 00:59:03 +00:00
parent 1d7c1fa33a
commit d47eb56ad7
2 changed files with 12 additions and 2 deletions

View File

@@ -16,6 +16,16 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-04-10 02:57 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/gtwvg/gtwvg.c
! HB_GTINFOEX(): fixed using object after freeing it
! renamed HB_GTINFOEX() -> WVG_GTINFOEX() to avoid occupying
Harbour core namespace in non-core component. It also uses
raw pointer to access internals.
(if such functionality is to be ever implemented in core,
it should probably be done by extending existing HB_GTINFO())
; INCOMPATIBLE. Update your function calls according to above.
2012-04-10 02:41 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/gtwvg/wvgclass.prg
* contrib/gtwvg/wvgpaint.prg

View File

@@ -4703,7 +4703,7 @@ PHB_GTWVT hb_wvt_gtGetWVT( void )
/*----------------------------------------------------------------------*/
HB_FUNC( HB_GTINFOEX )
HB_FUNC( WVG_GTINFOEX )
{
if( HB_ISPOINTER( 1 ) && HB_ISNUM( 2 ) )
{
@@ -4717,8 +4717,8 @@ HB_FUNC( HB_GTINFOEX )
gtInfo.pNewVal2 = hb_param( 4, HB_IT_ANY );
gtInfo.pResult = NULL;
hb_gt_BaseFree( pGT );
HB_GTSELF_INFO( pGT, hb_parni( 2 ), &gtInfo );
hb_gt_BaseFree( pGT );
if( gtInfo.pResult )
hb_itemReturnRelease( gtInfo.pResult );