Author: dgilmore
Date: 2011-01-10 15:27:23 -0500 (Mon, 10 Jan 2011)
New Revision: 3450
Modified:
trunk/osprey/wgen/wgen_stmt.cxx
Log:
Fixed bug 703 (compile time problem in wgen).
Reviewed and approved by Jian-Xin.
Modified: trunk/osprey/wgen/wgen_stmt.cxx
===================================================================
--- trunk/osprey/wgen/wgen_stmt.cxx 2011-01-07 18:14:58 UTC (rev 3449)
+++ trunk/osprey/wgen/wgen_stmt.cxx 2011-01-10 20:27:23 UTC (rev 3450)
@@ -2557,6 +2557,7 @@
#ifdef KEY
case GS_STATEMENT_LIST: {
gs_t stmt_list = gs_statement_list_elts(stmt);
+ gs_t list;
BOOL new_scope = FALSE;
// bug 11869: This example shows there may be a label statement
// without an explicit scope. In such a scenario, a jump to such
@@ -2570,14 +2571,10 @@
Push_Scope(stmt);
new_scope = TRUE;
}
-#ifdef FE_GNU_4_2_0
- for (int i=0; i < gs_length(stmt_list); i++)
- Mark_Scopes_And_Labels(gs_index(stmt_list, i));
-#else
- gs_t list;
+
for (list = stmt_list; gs_code(list)!=EMPTY; list = gs_operand(list,1))
Mark_Scopes_And_Labels(gs_operand(list,0));
-#endif
+
if (new_scope) // End scope
--scope_i;
}
@@ -4293,14 +4290,9 @@
case GS_STATEMENT_LIST: {
gs_t stmt_list = gs_statement_list_elts(stmt);
-#ifdef FE_GNU_4_2_0
- for (int i=0; i < gs_length(stmt_list); i++)
- WGEN_Expand_Stmt(gs_index(stmt_list, i), target_wn);
-#else
gs_t list;
for (list = stmt_list; gs_code(list)!=EMPTY; list = gs_operand(list,1))
WGEN_Expand_Stmt(gs_operand(list,0), target_wn);
-#endif
}
break;
------------------------------------------------------------------------------
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
