OpenAD-docs-20140315/htmlOpenADFortTkPlain/wn2xaif_8i_source.html

00001 // -*-Mode: C++;-*-
00002 // $Header: /m_home/m_utkej/Argonne/cvs2svn/cvs/OpenADFortTk/src/whirl2xaif/wn2xaif.i,v 1.4 2007-10-08 18:28:34 utke Exp $
00003
00004 #ifndef wn2xaif_i
00005 #define wn2xaif_i
00006
00007 #include "Open64IRInterface/Open64BasicTypes.h"
00008
00009 #include "whirl2xaif.h"
00010 #include "XlationContext.h"
00011 #include "xmlostream.h"
00012 #include "IntrinsicXlationTable.h"
00013
00014
00015 //***************************************************************************
00016 // Function entry handlers
00017 //***************************************************************************
00018
00019 namespace whirl2xaif {
00020
00021   extern void
00022   xlate_FUNC_ENTRY(xml::ostream& xos, WN *wn, XlationContext& ctxt);
00023
00024   extern void
00025   xlate_ALTENTRY(xml::ostream& xos, WN *wn, XlationContext& ctxt);
00026
00027   extern void
00028   xlate_ignore(xml::ostream& xos, WN *wn, XlationContext& ctxt);
00029
00030   extern void
00031   xlate_unknown(xml::ostream& xos, WN *wn, XlationContext& ctxt);
00032
00033
00034 // REMOVE/FIXME: convert to operation (from opcode)
00035 #define WN2F_expr_has_boolean_arg(opc) \
00036    ((opc) == OPC_BLNOT || (opc) == OPC_BLAND || (opc) == OPC_BLIOR || \
00037     (opc) == OPC_I4LNOT || (opc) == OPC_I4LAND || (opc) == OPC_I4LIOR)
00038
00039
00040 }; /* namespace whirl2xaif */
00041
00042 #endif /* wn2xaif_i */