fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2012-11-28 13:19 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)

Browse Source 
* harbour/src/vm/classes.c
    ! fixed passing be reference pseudo object variables which
      are not bound with real messages but are redirected to
      class error handler
This commit is contained in:
Przemyslaw Czerpak
2012-11-28 12:20:07 +00:00
parent ab15cacfa2
commit 95fc775be0
2 changed files with 9 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog.txt
View File

@@ -10,6 +10,12 @@
* Change, ! Fix, % Optimization, + Addition, - Removal, ; Comment
*/
2012-11-28 13:19 UTC+0100 Przemyslaw Czerpak (druzus/at/poczta.onet.pl)
* harbour/src/vm/classes.c
! fixed passing be reference pseudo object variables which
are not bound with real messages but are redirected to
class error handler
2012-11-28 01:16 UTC+0100 Viktor Szakats (harbour syenar.net)
* contrib/hbct/dummy.c
* contrib/hbmemio/memio.c

3
harbour/src/vm/classes.c
View File

@@ -2170,6 +2170,9 @@ HB_BOOL hb_objGetVarRef( PHB_ITEM pObject, PHB_SYMB pMessage,
PCLASS pClass = s_pClasses[ pStack->uiClass ];
PMETHOD pMethod = pClass->pMethods + pStack->uiMethod;
if( pMethod->pMessage == s___msgOnError.pDynSym )
return hb_vmMsgReference( pObject, pMessage->pDynSym, NULL );
if( ! pMethod->pAccMsg )
pMethod->pAccMsg = hb_dynsymGetCase( pMessage->szName + 1 );