smarter caching

src/cobj.c

@@ -211,6 +211,7 @@ CObjString *cosmoO_takeString(CState *state, char *str, size_t sz) {
 
 CObjString *cosmoO_allocateString(CState *state, const char *str, size_t sz, uint32_t hash) {
     CObjString *strObj = (CObjString*)cosmoO_allocateBase(state, sizeof(CObjString), COBJ_STRING);
+    strObj->isIString = false;
     strObj->str = (char*)str;
     strObj->length = sz;
     strObj->hash = hash;
@@ -254,7 +255,10 @@ void cosmoO_setObject(CState *state, CObjObject *object, CValue key, CValue val)
         return;
     }
 
+    // if the key is an IString, we need to reset the cache
+    if (IS_STRING(key) && ((CObjString*)cosmoV_readObj(key))->isIString)
         object->istringFlags = 0; // reset cache
+
     if (IS_NIL(val)) { // if we're setting an index to nil, we can safely mark that as a tombstone
         cosmoT_remove(state, &object->tbl, key);
     } else {

src/cobj.h

@@ -37,6 +37,7 @@ typedef struct CObj {
 
 typedef struct CObjString {
     CommonHeader; // "is a" CObj
+    bool isIString;
     int length;
     char *str;
     uint32_t hash; // for hashtable lookup

src/cstate.c

@@ -49,6 +49,10 @@ CState *cosmoV_newState() {
     state->iStrings[ISTRING_GETTER] = cosmoO_copyString(state, "__getter", 8);
     state->iStrings[ISTRING_SETTER] = cosmoO_copyString(state, "__setter", 8);
 
+    // set the IString flags
+    for (int i = 0; i < ISTRING_MAX; i++)
+        state->iStrings[i]->isIString = true;
+
     return state;
 }
 

src/cstate.h

@@ -14,7 +14,6 @@ typedef struct CCallFrame {
 
 typedef enum IStringEnum {
     ISTRING_INIT, // __init
-    ISTRING_EQUAL, // __equal
     ISTRING_INDEX, // __index
     ISTRING_NEWINDEX, // __newindex
     ISTRING_GETTER, // __getter