static void CCCompare( int op ) { //=========================== // Complex/Complex compare. cg_cmplx x; cg_cmplx y; uint_16 typ_info; typ_info = GetU16(); XPopCmplx( &x, GetType1( typ_info ) ); XPopCmplx( &y, GetType2( typ_info ) ); CCCmp( op, x.realpart, x.imagpart, y.realpart, y.imagpart ); }
static void CXCompare( int op ) { //=================================== // Complex/Scalar compare. cg_name x; cg_cmplx z; uint_16 typ_info; cg_type typ2; typ_info = GetU16(); typ2 = GetType2( typ_info ); XPopCmplx( &z, GetType1( typ_info ) ); x = XPopValue( typ2 ); CCCmp( op, z.realpart, z.imagpart, x, CGInteger( 0, typ2 ) ); }
void XCCompare( int op ) { //=========================== // Scalar/Complex compare. cg_name x; cg_cmplx z; unsigned_16 typ_info; cg_type typ1; typ_info = GetU16(); typ1 = GetType1( typ_info ); x = XPopValue( typ1 ); XPopCmplx( &z, GetType2( typ_info ) ); CCCmp( op, x, CGInteger( 0, typ1 ), z.realpart, z.imagpart ); }