work/bootstrap/gelex2.c
GE_weak_pointer* GE_new_weak_pointer(EIF_REFERENCE object) {
	GE_weak_pointer* wp;

	if (object == 0) {
		return (GE_weak_pointer*) 0;
	} else {
		wp = (GE_weak_pointer*) GE_malloc_atomic(sizeof(GE_weak_pointer));
		wp->object = object;
#ifdef EIF_BOEHM_GC
		GC_GENERAL_REGISTER_DISAPPEARING_LINK(&wp->object, GC_base(object));
#endif
		return wp;
	}
}
/*
 * Create a new weak pointer to `object'.
 */
Create a new weak pointer to `object'.
Create a new weak pointer to ` object ' .
GE_weak_pointer* GE_new_weak_pointer(EIF_REFERENCE object) {
	GE_weak_pointer* wp;
	if (object == 0) {
		return (GE_weak_pointer*) 0;
	} else {
		wp = (GE_weak_pointer*) GE_malloc_atomic(sizeof(GE_weak_pointer));
		wp->object = object;
#ifdef EIF_BOEHM_GC
		GC_GENERAL_REGISTER_DISAPPEARING_LINK(&wp->object, GC_base(object));
#endif
		return wp;
	}
}
GE_weak_pointer * GE_new_weak_pointer ( EIF_REFERENCE object ) { GE_weak_pointer * wp ; if ( object == 0 ) { return ( GE_weak_pointer * ) 0 ; } else { wp = ( GE_weak_pointer * ) GE_malloc_atomic ( sizeof ( GE_weak_pointer ) ) ; wp -> object = object ; #ifdef EIF_BOEHM_GC GC_GENERAL_REGISTER_DISAPPEARING_LINK ( & wp -> object , GC_base ( object ) ) ; #endif return wp ; } }
Create a new weak pointer to `object'.
Create a new weak pointer to ` object ' .