construcor/destructor calls optimized

Rev: src/object.c:1.10
Rev: src/object.h:1.6

src/object.c

@@ -103,9 +103,9 @@ struct object *clone(struct program *p, int args)
     o->refs++;
   }
 
-  apply(o,"__INIT",0);
+  apply_lfun(o,LFUN___INIT,0);
   pop_stack();
-  apply(o,"create",args);
+  apply_lfun(o,LFUN_CREATE,args);
   pop_stack();
 
   return o;
@@ -163,8 +163,11 @@ void destruct(struct object *o)
 
   o->refs++;
 
-  safe_apply(o, "destroy", 0);
+  if(o->prog->lfuns[LFUN_DESTROY] != -1)
+  {
+    safe_apply_low(o, o->prog->lfuns[LFUN_DESTROY], 0);
     pop_stack();
+  }
 
   /* destructed in destroy() */
   if(!o->prog)

src/object.h

@@ -29,6 +29,8 @@ extern struct object *first_object;
 #define GET_GLOBAL(O,I) LOW_GET_GLOBAL(O,I,ID_FROM_INT((O)->prog,I))
 #define GLOBAL_FROM_INT(I) GET_GLOBAL(fp->current_object, I)
 
+#define this_object() (fp->current_object->refs++,fp->current_object)
+
 /* Prototypes begin here */
 void setup_fake_object();
 struct object *clone(struct program *p, int args);