** If pointer 'p' points to 'o', move it to the next element. */
| 995 | ** If pointer 'p' points to 'o', move it to the next element. |
| 996 | */ |
| 997 | static void checkpointer (GCObject **p, GCObject *o) { |
| 998 | if (o == *p) |
| 999 | *p = o->next; |
| 1000 | } |
| 1001 | |
| 1002 | |
| 1003 | /* |