[ViewVC] Diff of: cvs/deliantra/server/server/cfperl.xs

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.162 by root, Thu Feb 1 19:40:42 2007 UTC vs.
Revision 1.163 by root, Thu Feb 8 13:11:18 2007 UTC

 }
 void
 attachable::sever_self ()
 {
-  if (HV *self = this->self)
+  if (self)
     {
       // keep a refcount because sv_unmagic might call attachable_free,
       // which might clear self, causing sv_unmagic to crash on a now
       // invalid object.
       SvREFCNT_inc (self);
       hv_clear (self);
       sv_unmagic ((SV *)self, PERL_MAGIC_ext);
       SvREFCNT_dec (self);
       // self *must* be null now because thats sv_unmagic's job.
-      assert (!this->self);
+      assert (!self);
+      flags |= 0x80; // severed //D
     }
 }
 void
 attachable::optimise ()
 {
   if (self
       && SvREFCNT (self) == 1
       && !HvTOTALKEYS (self))
+    flags |= 0x40,//D
     sever_self ();
 }
 // check wether the object really is dead
 void
     }
   if (self)
     sever_self ();
+  flags |= 0x20; //D
   mortals.push_back (this);
 }
 void
 attachable::destroy ()
   if (!obj->self)
     {
       obj->self = newHV ();
       sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
+      obj->flags &= ~0xc0;//D
+      obj->flags |= 0x10;//D
       // now bless the object _once_
       return sv_bless (newRV_inc ((SV *)obj->self), stash);
     }
   else

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines