Changeset 427

Timestamp:

10/26/08 03:14:22 (2 months ago)

Author:

mooneer

Message:

More performance improvements, this time, by caching identifiers we've
dereferenced.

Location:

interpreter/trunk/vm

Files:

• kite_execute.c (modified) (5 diffs)
• kite_parser.y (modified) (4 diffs)
• kite_vm.h (modified) (2 diffs)

interpreter/trunk/vm/kite_execute.c

@@ -189 +189 @@
             res = kite_new_null(thd);
         }
+    } else if (((kite_funccall_info_t*)cur->obj)->last_deref &&
+        !strcmp(((kite_funccall_info_t*)cur->obj)->last_deref, ident_string)) {
+        found = ((kite_funccall_info_t*)cur->obj)->last_deref_obj;
+        kite_reference_object(found->value);
+        kite_push_stack(&thd->running_stack, TRUE, found);
+        return;
     } else {
         do {
@@ -264 +270 @@
         kite_push_stack(&thd->running_stack, TRUE, found);
         kite_dereference_object(ident);
+
+        stackentry->last_deref = ident_string;
+        stackentry->last_deref_obj = found;
+
         return;
     }
@@ -314 +324 @@
         found->value = kite_new_null(thd);
         kite_symtab_insert(thd, &stackentry->locals, found);
+        stackentry->last_deref = NULL;
+        stackentry->last_deref_obj = NULL;
     }
 
@@ -676 +688 @@
             (kite_funccall_info_t*)(thd->func_stack->stack[thd->func_stack->length - 1].obj);
         kite_symtab_insert(thd, &current->locals, propinfo);
-        
+        current->last_deref = NULL;
+        current->last_deref_obj = NULL;
+
         thd->exception = NULL;
         return ins->handler;
@@ -954 +968 @@
             (kite_funccall_info_t*)kite_top_stack(thd->func_stack);
         entry->this = this;
+        entry->last_deref = NULL;
+        entry->last_deref_obj = NULL;
     }
     

interpreter/trunk/vm/kite_parser.y

@@ -209 +209 @@
         fcall->line = @2.first_line;
         fcall->locals = NULL;
+        fcall->last_deref = NULL;
+        fcall->last_deref_obj = NULL;
         fcall->sys_or_user = 0;
         fcall->this = obj;
@@ -372 +374 @@
         fcall->sys_or_user = 0;
         fcall->this = obj;
+        fcall->last_deref = NULL;
+        fcall->last_deref_obj = NULL;
         kite_push_stack(&thd->func_stack, FALSE, fcall);
         
@@ -416 +420 @@
         fcall->line = @1.first_line;
         fcall->locals = NULL;
+        fcall->last_deref = NULL;
+        fcall->last_deref_obj = NULL;
         fcall->sys_or_user = 0;
         int idx = compiler->obj_created->length;
@@ -448 +454 @@
         fcall->line = @1.first_line;
         fcall->locals = NULL;
+        fcall->last_deref = NULL;
+        fcall->last_deref_obj = NULL;
         fcall->sys_or_user = 0;
         int idx = compiler->obj_created->length;

interpreter/trunk/vm/kite_vm.h

@@ -71 +71 @@
     struct kite_symtab_t *locals;
     struct kite_object_t *this;
+    char *last_deref;
+    struct kite_symtab_t *last_deref_obj;
 } kite_funccall_info_t;
     
@@ -211 +213 @@
      entry->file = ins->common.file; \
      entry->line = ins->common.line; \
+     entry->last_deref = NULL; \
+     entry->last_deref_obj = NULL; \
      entry->sys_or_user = 0; \
      kite_push_stack(&thd->func_stack, FALSE, entry); \