This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Fortran Frontend Patch for Complex Division
- To: egcs-patches at egcs dot cygnus dot com
- Subject: Fortran Frontend Patch for Complex Division
- From: toon at moene dot indiv dot nluug dot nl
- Date: Fri, 16 Apr 1999 17:17:19 +0200
L.S.,
The Fortran Front End patch accompanying the Complex Division Patch.
-----------------------------------------------------------------------
*** com.c.orig Fri Apr 16 17:16:10 1999
--- com.c Fri Apr 16 13:29:10 1999
*************** ffecom_tree_divide_ (tree tree_type, tre
*** 9861,9894 ****
right);
- case COMPLEX_TYPE:
- {
- ffecomGfrt ix;
-
- if (TREE_TYPE (tree_type)
- == ffecom_tree_type [FFEINFO_basictypeREAL][FFEINFO_kindtypeREAL1])
- ix = FFECOM_gfrtDIV_CC; /* Overlapping result okay. */
- else
- ix = FFECOM_gfrtDIV_ZZ; /* Overlapping result okay. */
-
- left = ffecom_1 (ADDR_EXPR,
- build_pointer_type (TREE_TYPE (left)),
- left);
- left = build_tree_list (NULL_TREE, left);
- right = ffecom_1 (ADDR_EXPR,
- build_pointer_type (TREE_TYPE (right)),
- right);
- right = build_tree_list (NULL_TREE, right);
- TREE_CHAIN (left) = right;
-
- return ffecom_call_ (ffecom_gfrt_tree_ (ix),
- ffecom_gfrt_kindtype (ix),
- ffe_is_f2c_library (),
- tree_type,
- left,
- dest_tree, dest, dest_used,
- NULL_TREE, TRUE);
- }
- break;
-
case RECORD_TYPE:
{
--- 9861,9864 ----
------------------------------------------------------------------
Toon Moene (toon@moene.indiv.nluug.nl)
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
Phone: +31 346 214290; Fax: +31 346 214286
g77 Support: fortran@gnu.org; egcs: egcs-bugs@cygnus.com