Author: dgilmore
Date: 2011-01-10 17:46:27 -0500 (Mon, 10 Jan 2011)
New Revision: 3451
Modified:
trunk/osprey/crayf90/fe90/s_call.c
Log:
Backout some (incomplete) changes associated with the cleanup of
building the FFE with debugging/tracing enabled (currently input Make
files need to be patched to do this, see bug 720).
Approved by Michael Lai.
Modified: trunk/osprey/crayf90/fe90/s_call.c
===================================================================
--- trunk/osprey/crayf90/fe90/s_call.c 2011-01-10 20:27:23 UTC (rev 3450)
+++ trunk/osprey/crayf90/fe90/s_call.c 2011-01-10 22:46:27 UTC (rev 3451)
@@ -2202,10 +2202,7 @@
# ifdef _DEBUG
if (ATD_FLD(attr_idx) != IR_Tbl_Idx) {
- /* Demoted this assertion, since we haven't seen a situation
- * where it does not trigger.
- */
- PRINTMSG(line, 626, Dev_Warning, col,
+ PRINTMSG(line, 626, Internal, col,
"ATD_FLD(attr_idx) == IR_Tbl_Idx", "check_for_elementals");
}
# endif
@@ -2217,10 +2214,8 @@
if (IR_FLD_R(asg_idx) != IR_Tbl_Idx ||
IR_OPR(IR_IDX_R(asg_idx)) != Call_Opr ||
! ATP_ELEMENTAL(IR_IDX_L(IR_IDX_R(asg_idx)))) {
- /* Demoted this assertion, since we haven't seen a situation
- * where it does not trigger.
- */
- PRINTMSG(line, 626, Dev_Warning, col,
+
+ PRINTMSG(line, 626, Internal, col,
"elemental function", "check_for_elementals");
}
# endif
------------------------------------------------------------------------------
Gaining the trust of online customers is vital for the success of any company
that requires sensitive data to be transmitted over the Web. Learn how to
best implement a security strategy that keeps consumers' information secure
and instills the confidence they need to proceed with transactions.
http://p.sf.net/sfu/oracle-sfdevnl
_______________________________________________
Open64-devel mailing list
Open64-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open64-devel
