diff options
| author | Niklas Hallqvist <niklas@cvs.openbsd.org> | 1998-03-03 21:37:38 +0000 |
|---|---|---|
| committer | Niklas Hallqvist <niklas@cvs.openbsd.org> | 1998-03-03 21:37:38 +0000 |
| commit | c826e751760901de543f4640467e3a08df7f49bf (patch) | |
| tree | 6a2323a78664ba45b78df1709ff3cc077db63ccd /gnu/usr.bin/gcc/f | |
| parent | a4511fe6a5dc69a771b5ffdf64ba574c959cf37d (diff) | |
GCC 2.8.0 merge
Diffstat (limited to 'gnu/usr.bin/gcc/f')
| -rw-r--r-- | gnu/usr.bin/gcc/f/Make-lang.in | 2 | ||||
| -rw-r--r-- | gnu/usr.bin/gcc/f/com.c | 3 | ||||
| -rw-r--r-- | gnu/usr.bin/gcc/f/rtl.j | 1 | ||||
| -rw-r--r-- | gnu/usr.bin/gcc/f/target.h | 12 |
4 files changed, 11 insertions, 7 deletions
diff --git a/gnu/usr.bin/gcc/f/Make-lang.in b/gnu/usr.bin/gcc/f/Make-lang.in index 92f2fa7b134..b5cf7fbc0c5 100644 --- a/gnu/usr.bin/gcc/f/Make-lang.in +++ b/gnu/usr.bin/gcc/f/Make-lang.in @@ -280,7 +280,7 @@ f/runtime/libF77/Makefile f/runtime/libI77/Makefile: \ $(srcdir)/f/com.h f/proj.h $(srcdir)/f/runtime/Makefile.in \ $(srcdir)/f/runtime/libF77/Makefile.in \ $(srcdir)/f/runtime/libI77/Makefile.in \ - $(GCC_PARTS) + $(GCC_PASSES) # The make "stage?" in compiler spec. is fully qualified as above top=`pwd`; \ src=`cd $(srcdir); pwd`; \ diff --git a/gnu/usr.bin/gcc/f/com.c b/gnu/usr.bin/gcc/f/com.c index e6661c6b53a..35ed60e472c 100644 --- a/gnu/usr.bin/gcc/f/com.c +++ b/gnu/usr.bin/gcc/f/com.c @@ -10006,7 +10006,7 @@ ffecom_constantunion (ffebldConstantUnion *cu, ffeinfoBasictype bt, case FFEINFO_kindtypeANY: return error_mark_node; } - item = build_complex (build_real (el_type, real), + item = build_complex (NULL_TREE, build_real (el_type, real), build_real (el_type, imag)); TREE_TYPE (item) = tree_type; } @@ -11791,7 +11791,6 @@ ffecom_ptr_to_expr (ffebld expr) || (TREE_CODE (item) == INDIRECT_REF) || (TREE_CODE (item) == ARRAY_REF) || (TREE_CODE (item) == COMPONENT_REF) - || (TREE_CODE (item) == OFFSET_REF) || (TREE_CODE (item) == BUFFER_REF) || (TREE_CODE (item) == REALPART_EXPR) || (TREE_CODE (item) == IMAGPART_EXPR)) diff --git a/gnu/usr.bin/gcc/f/rtl.j b/gnu/usr.bin/gcc/f/rtl.j index 646e1f6a404..5ea06ac2277 100644 --- a/gnu/usr.bin/gcc/f/rtl.j +++ b/gnu/usr.bin/gcc/f/rtl.j @@ -23,6 +23,7 @@ the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA #ifndef _J_f_rtl #define _J_f_rtl #include "config.j" +#include <stdio.h> #include "rtl.h" #endif #endif diff --git a/gnu/usr.bin/gcc/f/target.h b/gnu/usr.bin/gcc/f/target.h index d68f49235db..bd0e25a7a5b 100644 --- a/gnu/usr.bin/gcc/f/target.h +++ b/gnu/usr.bin/gcc/f/target.h @@ -940,7 +940,8 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_complex1_integer(res,l) \ ({ REAL_VALUE_TYPE resi, resr; \ ffetargetInteger1 lf = (l); \ - REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0)); \ + REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0), \ + XFmode); \ resi = dconst0; \ REAL_VALUE_TO_TARGET_SINGLE (resr, (res)->real); \ REAL_VALUE_TO_TARGET_SINGLE (resi, (res)->imaginary); \ @@ -992,7 +993,8 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_complex2_integer(res,l) \ ({ REAL_VALUE_TYPE resi, resr; \ ffetargetInteger1 lf = (l); \ - REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0)); \ + REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0), \ + XFmode); \ resi = dconst0; \ REAL_VALUE_TO_TARGET_DOUBLE (resr, (long *) &((res)->real.v[0])); \ REAL_VALUE_TO_TARGET_DOUBLE (resi, (long *) &((res)->imaginary.v[0])); \ @@ -1212,7 +1214,8 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_real1_integer1(res,l) \ ({ REAL_VALUE_TYPE resr; \ ffetargetInteger1 lf = (l); \ - REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0)); \ + REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0), \ + XFmode); \ REAL_VALUE_TO_TARGET_SINGLE (resr, *(res)); \ FFEBAD; }) #else @@ -1246,7 +1249,8 @@ void *ffetarget_memcpy_ (void *dst, void *src, size_t len); #define ffetarget_convert_real2_integer(res,l) \ ({ REAL_VALUE_TYPE resr; \ ffetargetInteger1 lf = (l); \ - REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0)); \ + REAL_VALUE_FROM_INT (resr, (long) lf, (long) ((lf < 0) ? -1 : 0), \ + XFmode); \ REAL_VALUE_TO_TARGET_DOUBLE (resr, (long *) &((res)->v[0])); \ FFEBAD; }) #define ffetarget_convert_real2_integer1 ffetarget_convert_real2_integer |