an BGInt64( signed_64 value, type_def *tipe )
/************************************************/
{
name *cname;
if( tipe->attr & TYPE_SIGNED ) {
cname = AllocS64Const( value.u._32[I64LO32],value.u._32[I64HI32] );
} else {
cname = AllocU64Const( value.u._32[I64LO32],value.u._32[I64HI32] );
}
return( AddrName( cname, tipe ) );
}
extern an PassProcParm( an rtn ) {
/**************************************/
name *op;
name *reg;
op = AllocTemp( XX );
op->n.size = TypePtr->length + SizeDisplayReg();
reg = AllocRegName( DisplayReg() );
AddIns( MakeMove( GenIns( rtn ),
TempOffset( op, 0, ClassPointer ),
ClassPointer ) );
AddIns( MakeMove( reg, TempOffset( op, TypePtr->length,
reg->n.name_class ),
reg->n.name_class ) );
return( AddrName( op, TypeProcParm ) );
}
static an FlowOut( an node, type_def *tipe ) {
/**************************************************/
name *temp;
label_handle lbl;
lbl = AskForNewLabel();
temp = BGGlobalTemp( tipe );
AddIns( MakeMove( AllocIntConst( FETrue() ), temp, temp->n.type_class ) );
*(node->u.b.t) = CurrBlock->label;
GenBlock( BLK_JUMP, 1 );
AddTarget( lbl, false );
EnLink( AskForNewLabel(), true );
AddIns( MakeMove( AllocIntConst( 0 ), temp, temp->n.type_class ) );
*(node->u.b.f) = CurrBlock->label;
GenBlock( BLK_JUMP, 1 );
AddTarget( lbl, false );
EnLink( lbl, true );
NamesCrossBlocks();
AddrFree( node );
return( AddrName( temp, tipe ) );
}
