… | |
… | |
182 | |
182 | |
183 | attachable *obj = mortals [i]; |
183 | attachable *obj = mortals [i]; |
184 | |
184 | |
185 | obj->refcnt_chk (); // unborrow from perl, if necessary |
185 | obj->refcnt_chk (); // unborrow from perl, if necessary |
186 | |
186 | |
187 | if (obj->refcnt > 0 || obj->self) |
187 | //if (obj->refcnt > 0 || obj->self) |
|
|
188 | if (obj->refcnt || obj->self) |
188 | { |
189 | { |
189 | //printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D |
190 | //printf ("%p rc %d\n", obj, obj->refcnt_cnt ());//D |
190 | ++i; // further delay freeing |
191 | ++i; // further delay freeing |
191 | |
192 | |
192 | if (!(i & 0x3ff)) |
193 | if (!(i & 0x3ff)) |