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

2006-08-27 20:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/vm/classes.c
    ! fixed bug in super casting introduced in my last commit
This commit is contained in:
Przemyslaw Czerpak
2006-08-27 18:55:41 +00:00
parent 4dc8d459d6
commit 61b4f5ac8e
2 changed files with 13 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2006-08-27 20:54 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/vm/classes.c
! fixed bug in super casting introduced in my last commit
2006-08-24 10:02 UTC+0300 Chen Kedem <niki@actcom.co.il>
* TODO
+ Add three known issues to the To-Fix list

22
harbour/source/vm/classes.c
View File

@@ -818,15 +818,11 @@ char * hb_objGetRealClsName( PHB_ITEM pObject, char * szName )
static void hb_objRevertSuperCast( PHB_ITEM pObject )
{
PHB_BASEARRAY pObjBase;
PHB_ITEM pRealObj;
pObjBase = pObject->item.asArray.value;
pRealObj = hb_itemNew( pObjBase->pItems );
/* and take back the good pObjBase */
pObjBase = pRealObj->item.asArray.value;
pRealObj = hb_itemNew( pObject->item.asArray.value->pItems );
/* Now I should exchnage it with the current stacked value */
hb_itemSwap( pObject, pRealObj );
hb_itemMove( pObject, pRealObj );
/* and release the fake one */
hb_itemRelease( pRealObj );
}
@@ -2397,7 +2393,7 @@ static HARBOUR hb___msgClsParent( void )
static HARBOUR hb___msgEvalInline( void )
{
PCLASS pClass = s_pClasses +
hb_stackSelfItem()->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
USHORT uiPCount = hb_pcount();
@@ -2502,7 +2498,7 @@ static HARBOUR hb___msgSuper( void )
static HARBOUR hb___msgGetClsData( void )
{
PCLASS pClass = s_pClasses +
hb_stackSelfItem()->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
@@ -2518,7 +2514,7 @@ static HARBOUR hb___msgGetClsData( void )
static HARBOUR hb___msgSetClsData( void )
{
PCLASS pClass = s_pClasses +
hb_stackSelfItem()->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
PHB_ITEM pReturn = hb_stackItemFromBase( 1 );
@@ -2535,7 +2531,7 @@ static HARBOUR hb___msgSetClsData( void )
static HARBOUR hb___msgGetShrData( void )
{
PCLASS pClass = s_pClasses +
hb_stackSelfItem()->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
USHORT uiSprCls = pMethod->uiSprClass;
@@ -2555,7 +2551,7 @@ static HARBOUR hb___msgGetShrData( void )
static HARBOUR hb___msgSetShrData( void )
{
PCLASS pClass = s_pClasses +
hb_stackSelfItem()->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
USHORT uiSprCls = pMethod->uiSprClass;
@@ -2580,7 +2576,7 @@ static HARBOUR hb___msgGetData( void )
{
PHB_ITEM pObject = hb_stackSelfItem();
PCLASS pClass = s_pClasses +
pObject->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
ULONG ulIndex = pMethod->uiData;
@@ -2606,7 +2602,7 @@ static HARBOUR hb___msgSetData( void )
PHB_ITEM pReturn = hb_stackItemFromBase( 1 );
PHB_ITEM pObject = hb_stackSelfItem();
PCLASS pClass = s_pClasses +
pObject->item.asArray.value->uiClass - 1;
hb_stackBaseItem()->item.asSymbol.stackstate->uiClass - 1;
PMETHOD pMethod = pClass->pMethods +
hb_stackBaseItem()->item.asSymbol.stackstate->uiMethod;
ULONG ulIndex = pMethod->uiData;