Changeset 618

Timestamp:

07/31/10 01:55:49 (18 months ago)

Author:

mooneer

Message:

Shrunk basic object size even further by removing unnecessary parent and owner_thread pointers. Now 16 bytes on amd64 and probably 12 on IA32 (unverified). Resulted in 100ms runtime reduction for "million iteration" basic loop on a Core i7 MacBook? Pro.

Location:

interpreter/trunk

Files:

• backend/kite-vm-1.0/kite_execute.c (modified) (1 diff)
• objs/kite_object.h (modified) (3 diffs)

interpreter/trunk/backend/kite-vm-1.0/kite_execute.c

@@ -1023 +1023 @@
         }
         kite_dereference_object(oldobj);
-        kite_dereference_object(oldobj->parent);
-        if (oldobj->type != OBJ_CLASS)
-            oldobj->parent = NULL;
+        if (oldobj->type != OBJ_BOOLEAN &&
+            oldobj->type != OBJ_INTEGER &&
+            oldobj->type != OBJ_FLOAT)
+        {
+            kite_dereference_object(oldobj->parent);
+            if (oldobj->type != OBJ_CLASS)
+                oldobj->parent = NULL;
+        }
         kite_dereference_object(kite_vm_pop(thd));
         return ins->common.next;

interpreter/trunk/objs/kite_object.h

@@ -164 +164 @@
  */
 typedef struct kite_basic_object_t {
-    kite_thread_t *owner_thread /*! Owner thread \private */;
-    struct kite_object_t *parent /*! Parent object. \private */;
     enum kite_object_type_t type /*! The object's type. */;
     int shareable /*! Can be shared with other threads. \private */;
@@ -185 +183 @@
     kite_list_t *gc_entry /*! GC entry (not intended to be used by user code) \private */;
 #endif /* HAVE_GC_H */
-    kite_thread_t *owner_thread /*! Owner thread \private */;
-    struct kite_object_t *parent /*! Parent object. \private */;
     enum kite_object_type_t type /*! The object's type. */;
     int shareable /*! Can be shared with other threads. \private */;
@@ -205 +201 @@
         FILE *filevalue /*! File value. \private */;
     } builtin_data;
+    kite_thread_t *owner_thread /*! Owner thread \private */;
+    struct kite_object_t *parent /*! Parent object. \private */;
     struct {
         char *name /*! Name of class. */;