aerscript/Aer
0
5
Bifurcation 0
Code Tickets 6 Demandes d'ajout Publications 2 Wiki Activité

Implement '$base' construction.
Tous les contrôles ont réussi
The build was successful.
Détails

Parcourir la source
Cette révision appartient à :
Rafal Kupiec 2019-05-21 21:41:16 +02:00
Parent d8db20e9bd
révision 5b2f300fe4
Signé par: belliash
ID de la clé GPG: 4E829243E0CFE6B4
1 fichiers modifiés avec 10 ajouts et 1 suppressions
Voir les Statistiques Télécharger le Fichier Patch Télécharger le Fichier des Différences Développer tous les fichiers Réduire tous les fichiers

11
engine/vm.c
Voir le fichier

@ -4570,7 +4570,7 @@ static sxi32 VmByteCodeExec(
if(pTarget->nType & MEMOBJ_OBJ) { if(pTarget->nType & MEMOBJ_OBJ) {
/* Instance already loaded */ /* Instance already loaded */
pThis = (ph7_class_instance *)pTarget->x.pOther; pThis = (ph7_class_instance *)pTarget->x.pOther;
pThis->iRef += 2; pThis->iRef += 3;
pClass = pThis->pClass; pClass = pThis->pClass;
if(pTarget->iFlags == MEMOBJ_PARENTOBJ) { if(pTarget->iFlags == MEMOBJ_PARENTOBJ) {
/* Parent called */ /* Parent called */
@ -4643,6 +4643,15 @@ static sxi32 VmByteCodeExec(
PH7_VmMemoryError(&(*pVm)); PH7_VmMemoryError(&(*pVm));
} }
if(pVmFunc->iFlags & VM_FUNC_CLASS_METHOD) { if(pVmFunc->iFlags & VM_FUNC_CLASS_METHOD) {
/* Install the '$base' variable */
static const SyString sBase = { "base", sizeof("base") - 1 };
pObj = VmCreateMemObj(&(*pVm), &sBase, TRUE);
if(pObj) {
/* Reflect the change */
pObj->iFlags = MEMOBJ_BASEOBJ;
pObj->x.pOther = pThis;
MemObjSetType(pObj, MEMOBJ_OBJ);
}
/* Install the '$parent' variable */ /* Install the '$parent' variable */
static const SyString sParent = { "parent", sizeof("parent") - 1 }; static const SyString sParent = { "parent", sizeof("parent") - 1 };
pObj = VmCreateMemObj(&(*pVm), &sParent, TRUE); pObj = VmCreateMemObj(&(*pVm), &sParent, TRUE);