work/bootstrap/gelex2.c
void GE_object_id_free(EIF_INTEGER_32 id) {
	GE_weak_pointer** id_object_chunk;
	GE_weak_pointer* wp;
	EIF_REFERENCE object;
	EIF_INTEGER_32 i;

	i = id / GE_ID_OBJECT_CHUNK_SIZE;
	if (i < GE_id_objects_capacity) {
		id_object_chunk = GE_id_objects[i];
		if (id_object_chunk != 0) {
			i = id % GE_ID_OBJECT_CHUNK_SIZE;
			wp = id_object_chunk[i];
			if (wp != 0) {
				object = GE_weak_pointer_object(wp);
				if (object != 0) {
#ifdef EIF_BOEHM_GC
					GC_unregister_disappearing_link(&wp->object);
#endif
				}
				id_object_chunk[i] = (GE_weak_pointer*) 0;
				GE_free(wp);
			}
		}
	}
}
/*
 * Remove the object associated with `id' from the stack.
 */
Remove the object associated with `id' from the stack.
Remove the object associated with ` id ' from the stack .
void GE_object_id_free(EIF_INTEGER_32 id) {
	GE_weak_pointer** id_object_chunk;
	GE_weak_pointer* wp;
	EIF_REFERENCE object;
	EIF_INTEGER_32 i;
	i = id / GE_ID_OBJECT_CHUNK_SIZE;
	if (i < GE_id_objects_capacity) {
		id_object_chunk = GE_id_objects[i];
		if (id_object_chunk != 0) {
			i = id % GE_ID_OBJECT_CHUNK_SIZE;
			wp = id_object_chunk[i];
			if (wp != 0) {
				object = GE_weak_pointer_object(wp);
				if (object != 0) {
#ifdef EIF_BOEHM_GC
					GC_unregister_disappearing_link(&wp->object);
#endif
				}
				id_object_chunk[i] = (GE_weak_pointer*) 0;
				GE_free(wp);
			}
		}
	}
}
void GE_object_id_free ( EIF_INTEGER_32 id ) { GE_weak_pointer * * id_object_chunk ; GE_weak_pointer * wp ; EIF_REFERENCE object ; EIF_INTEGER_32 i ; i = id / GE_ID_OBJECT_CHUNK_SIZE ; if ( i < GE_id_objects_capacity ) { id_object_chunk = GE_id_objects [ i ] ; if ( id_object_chunk != 0 ) { i = id % GE_ID_OBJECT_CHUNK_SIZE ; wp = id_object_chunk [ i ] ; if ( wp != 0 ) { object = GE_weak_pointer_object ( wp ) ; if ( object != 0 ) { #ifdef EIF_BOEHM_GC GC_unregister_disappearing_link ( & wp -> object ) ; #endif } id_object_chunk [ i ] = ( GE_weak_pointer * ) 0 ; GE_free ( wp ) ; } } } }
Remove the object associated with `id' from the stack.
Remove the object associated with ` id ' from the stack .