Author: dgilmore
Date: 2010-10-12 13:14:29 -0400 (Tue, 12 Oct 2010)
New Revision: 3371
Modified:
trunk/osprey/crayf90/fe90/s_intrin.c
Log:
Fix FFE bug associated with C_LOC intrinsic (bug 674).
Approved by: Sun Chan
Modified: trunk/osprey/crayf90/fe90/s_intrin.c
===================================================================
--- trunk/osprey/crayf90/fe90/s_intrin.c 2010-10-12 08:34:52 UTC (rev
3370)
+++ trunk/osprey/crayf90/fe90/s_intrin.c 2010-10-12 17:14:29 UTC (rev
3371)
@@ -1,4 +1,8 @@
/*
+ * Copyright (C) 2010 Advanced Micro Devices, Inc. All Rights Reserved.
+ */
+
+/*
* Copyright (C) 2008. PathScale, LLC. All Rights Reserved.
*/
/*
@@ -5873,20 +5877,6 @@
IR_RANK(ir_idx) = res_exp_desc->rank;
-# ifdef _TARGET32
- if (arg_info_list[info_idx1].ed.linear_type == Integer_8 ||
- arg_info_list[info_idx1].ed.linear_type == Real_8 ||
- arg_info_list[info_idx1].ed.linear_type == Logical_8) {
-
- CLEAR_TBL_NTRY(type_tbl, TYP_WORK_IDX);
- TYP_TYPE(TYP_WORK_IDX) = CRI_Ptr;
- TYP_LINEAR(TYP_WORK_IDX) = CRI_Ptr_8;
- TYP_PTR_INCREMENT(TYP_WORK_IDX) = 64;
- ATD_TYPE_IDX(ATP_RSLT_IDX(*spec_idx)) = ntr_type_tbl();
- IR_TYPE_IDX(ir_idx) = ATD_TYPE_IDX(ATP_RSLT_IDX(*spec_idx));
- }
-# endif
-
# ifdef _TARGET_OS_MAX
if (arg_info_list[info_idx1].ed.linear_type == Integer_4 ||
arg_info_list[info_idx1].ed.linear_type == Real_4 ||
------------------------------------------------------------------------------
Beautiful is writing same markup. Internet Explorer 9 supports
standards for HTML5, CSS3, SVG 1.1, ECMAScript5, and DOM L2 & L3.
Spend less time writing and rewriting code and more time creating great
experiences on the web. Be a part of the beta today.
http://p.sf.net/sfu/beautyoftheweb
_______________________________________________
Open64-devel mailing list
Open64-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/open64-devel
