| … | |
… | |
| 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)) |
