aerscript
/
Aer
0
6
Fork 0
Code Issues 6 Pull Requests Releases 2 Wiki Activity

This is not the right way to go - revert 465336b23b.
The build was successful. Details

This commit is contained in:
Rafal Kupiec 2019-04-05 12:30:38 +02:00
parent 465336b23b
commit 39f698476f
Signed by: belliash
GPG Key ID: 4E829243E0CFE6B4
1 changed files with 39 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

72
engine/memobj.c
View File

@ -491,7 +491,7 @@ PH7_PRIVATE sxi32 PH7_MemObjToChar(ph7_value *pObj) {
PH7_PRIVATE sxi32 PH7_MemObjToVoid(ph7_value *pObj) { PH7_PRIVATE sxi32 PH7_MemObjToVoid(ph7_value *pObj) {
if((pObj->iFlags & MEMOBJ_VOID) == 0) { if((pObj->iFlags & MEMOBJ_VOID) == 0) {
PH7_MemObjRelease(pObj); PH7_MemObjRelease(pObj);
MemObjSetType(pObj, MEMOBJ_VOID | MEMOBJ_NULL); MemObjSetType(pObj, MEMOBJ_VOID);
} }
return SXRET_OK; return SXRET_OK;
} }
@ -786,7 +786,7 @@ PH7_PRIVATE sxi32 PH7_MemObjInitFromVoid(ph7_vm *pVm, ph7_value *pObj, ph7_real
pObj->pVm = pVm; pObj->pVm = pVm;
SyBlobInit(&pObj->sBlob, &pVm->sAllocator); SyBlobInit(&pObj->sBlob, &pVm->sAllocator);
/* Set the desired type */ /* Set the desired type */
pObj->iFlags = MEMOBJ_VOID | MEMOBJ_NULL; pObj->iFlags = MEMOBJ_VOID;
return SXRET_OK; return SXRET_OK;
}/* }/*
* Initialize a ph7_value to the array type. * Initialize a ph7_value to the array type.
@ -1212,6 +1212,9 @@ PH7_PRIVATE sxi32 PH7_MemObjAdd(ph7_value *pObj1, ph7_value *pObj2, int bAddStor
*/ */
PH7_PRIVATE const char *PH7_MemObjTypeDump(ph7_value *pVal) { PH7_PRIVATE const char *PH7_MemObjTypeDump(ph7_value *pVal) {
const char *zType = ""; const char *zType = "";
if(pVal->iFlags & MEMOBJ_NULL) {
zType = "NULL";
} else {
if(pVal->iFlags & MEMOBJ_HASHMAP) { if(pVal->iFlags & MEMOBJ_HASHMAP) {
if(pVal->iFlags & MEMOBJ_MIXED) { if(pVal->iFlags & MEMOBJ_MIXED) {
zType = "array(mixed, "; zType = "array(mixed, ";
@ -1231,7 +1234,7 @@ PH7_PRIVATE const char *PH7_MemObjTypeDump(ph7_value *pVal) {
zType = "array(resource, "; zType = "array(resource, ";
} else if(pVal->iFlags & MEMOBJ_CALL) { } else if(pVal->iFlags & MEMOBJ_CALL) {
zType = "array(callback, "; zType = "array(callback, ";
} else if(pVal->iFlags & (MEMOBJ_VOID | MEMOBJ_NULL)) { } else if(pVal->iFlags & MEMOBJ_VOID) {
zType = "array(void, "; zType = "array(void, ";
} }
} else if(pVal->iFlags & MEMOBJ_OBJ) { } else if(pVal->iFlags & MEMOBJ_OBJ) {
@ -1250,9 +1253,10 @@ PH7_PRIVATE const char *PH7_MemObjTypeDump(ph7_value *pVal) {
zType = "resource"; zType = "resource";
} else if(pVal->iFlags & MEMOBJ_CALL) { } else if(pVal->iFlags & MEMOBJ_CALL) {
zType = "callback"; zType = "callback";
} else if(pVal->iFlags & (MEMOBJ_VOID | MEMOBJ_NULL)) { } else if(pVal->iFlags & MEMOBJ_VOID) {
zType = "void"; zType = "void";
} }
}
return zType; return zType;
} }
/* /*
@ -1277,38 +1281,40 @@ PH7_PRIVATE sxi32 PH7_MemObjDump(
zType = PH7_MemObjTypeDump(pObj); zType = PH7_MemObjTypeDump(pObj);
SyBlobAppend(&(*pOut), zType, SyStrlen(zType)); SyBlobAppend(&(*pOut), zType, SyStrlen(zType));
} }
if(ShowType && (pObj->iFlags & MEMOBJ_HASHMAP) == 0) { if((pObj->iFlags & MEMOBJ_NULL) == 0) {
SyBlobAppend(&(*pOut), "(", sizeof(char)); if(ShowType && (pObj->iFlags & MEMOBJ_HASHMAP) == 0) {
} SyBlobAppend(&(*pOut), "(", sizeof(char));
if(pObj->iFlags & MEMOBJ_HASHMAP) { }
/* Dump hashmap entries */ if(pObj->iFlags & MEMOBJ_HASHMAP) {
rc = PH7_HashmapDump(&(*pOut), (ph7_hashmap *)pObj->x.pOther, ShowType, nTab + 1, nDepth + 1); /* Dump hashmap entries */
} else if(pObj->iFlags & MEMOBJ_OBJ) { rc = PH7_HashmapDump(&(*pOut), (ph7_hashmap *)pObj->x.pOther, ShowType, nTab + 1, nDepth + 1);
/* Dump class instance attributes */ } else if(pObj->iFlags & MEMOBJ_OBJ) {
rc = PH7_ClassInstanceDump(&(*pOut), (ph7_class_instance *)pObj->x.pOther, ShowType, nTab + 1, nDepth + 1); /* Dump class instance attributes */
} else if(pObj->iFlags & (MEMOBJ_VOID | MEMOBJ_NULL)) { rc = PH7_ClassInstanceDump(&(*pOut), (ph7_class_instance *)pObj->x.pOther, ShowType, nTab + 1, nDepth + 1);
SyBlobAppend(&(*pOut), "NULL", sizeof("NULL")); } else if(pObj->iFlags & MEMOBJ_VOID) {
} else { SyBlobAppend(&(*pOut), "NULL", sizeof("NULL"));
SyBlob *pContents = &pObj->sBlob;
/* Get a printable representation of the contents */
if((pObj->iFlags & (MEMOBJ_STRING | MEMOBJ_CALL)) == 0) {
MemObjStringValue(&(*pOut), &(*pObj), FALSE);
} else { } else {
/* Append length first */ SyBlob *pContents = &pObj->sBlob;
if(ShowType) { /* Get a printable representation of the contents */
SyBlobFormat(&(*pOut), "%u '", SyBlobLength(&pObj->sBlob)); if((pObj->iFlags & (MEMOBJ_STRING | MEMOBJ_CALL)) == 0) {
} MemObjStringValue(&(*pOut), &(*pObj), FALSE);
if(SyBlobLength(pContents) > 0) { } else {
SyBlobAppend(&(*pOut), SyBlobData(pContents), SyBlobLength(pContents)); /* Append length first */
} if(ShowType) {
if(ShowType) { SyBlobFormat(&(*pOut), "%u '", SyBlobLength(&pObj->sBlob));
SyBlobAppend(&(*pOut), "'", sizeof(char)); }
if(SyBlobLength(pContents) > 0) {
SyBlobAppend(&(*pOut), SyBlobData(pContents), SyBlobLength(pContents));
}
if(ShowType) {
SyBlobAppend(&(*pOut), "'", sizeof(char));
}
} }
} }
} if(ShowType) {
if(ShowType) { if((pObj->iFlags & (MEMOBJ_HASHMAP | MEMOBJ_OBJ)) == 0) {
if((pObj->iFlags & (MEMOBJ_HASHMAP | MEMOBJ_OBJ)) == 0) { SyBlobAppend(&(*pOut), ")", sizeof(char));
SyBlobAppend(&(*pOut), ")", sizeof(char)); }
} }
} }
#ifdef __WINNT__ #ifdef __WINNT__