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

Comparing deliantra/server/server/cfperl.xs (file contents):
Revision 1.195 by root, Tue Apr 24 00:42:02 2007 UTC vs.
Revision 1.196 by root, Fri Apr 27 02:23:07 2007 UTC

 unordered_vector<attachable *> attachable::mortals;
 attachable::~attachable ()
 {
-  flags |=0x3300;//D
   assert (!self);
   assert (!cb);
 }
 int
       sv_unmagic ((SV *)self, PERL_MAGIC_ext);
       SvREFCNT_dec (self);
       // self *must* be null now because thats sv_unmagic's job.
       assert (!this->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 ()
       attachable *obj = mortals [i];
       obj->refcnt_chk (); // unborrow from perl, if necessary
-      //if (obj->refcnt > 0 || obj->self)
       if (obj->refcnt || obj->self)
         {
-//printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D
           ++i; // further delay freeing
           if (!(i & 0x3ff))
             break;
         }
   if (!obj->self)
     {
       obj->self = newHV ();
       sv_magicext ((SV *)obj->self, 0, PERL_MAGIC_ext, &attachable::vtbl, (char *)obj, 0);
-      obj->flags |= (obj->flags & 0xc0) << 8;
-      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