work/bootstrap/gepp1.c
T0* GE_new98(T6 a1, T1 initialize)
{
	T0* R;
	R = (T0*)GE_alloc_atomic(sizeof(T98)+(a1>1?(a1-1):0)*sizeof(T11));
	if (initialize) {
		*(T98*)R = GE_default98;
		((T98*)(R))->z1 = a1;
#ifndef GE_alloc_atomic_cleared
		memset(((T98*)(R))->z2,0,a1*sizeof(T11));
#endif
	}
	return R;
}
/* New instance of type SPECIAL [NATURAL_64] */
New instance of type SPECIAL [NATURAL_64]
New instance of type SPECIAL [ NATURAL_64 ]
T0* GE_new98(T6 a1, T1 initialize)
{
	T0* R;
	R = (T0*)GE_alloc_atomic(sizeof(T98)+(a1>1?(a1-1):0)*sizeof(T11));
	if (initialize) {
		*(T98*)R = GE_default98;
		((T98*)(R))->z1 = a1;
#ifndef GE_alloc_atomic_cleared
		memset(((T98*)(R))->z2,0,a1*sizeof(T11));
#endif
	}
	return R;
}
T0 * GE_new98 ( T6 a1 , T1 initialize ) { T0 * R ; R = ( T0 * ) GE_alloc_atomic ( sizeof ( T98 ) + ( a1 > 1 ? ( a1 - 1 ) : 0 ) * sizeof ( T11 ) ) ; if ( initialize ) { * ( T98 * ) R = GE_default98 ; ( ( T98 * ) ( R ) ) -> z1 = a1 ; #ifndef GE_alloc_atomic_cleared memset ( ( ( T98 * ) ( R ) ) -> z2 , 0 , a1 * sizeof ( T11 ) ) ; #endif } return R ; }
New instance of type SPECIAL [NATURAL_64]
New instance of type SPECIAL [ NATURAL_64 ]