diff options
| author | Craig Burley <burley@gnu.org> | 1998-06-04 06:41:23 -0400 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-06-04 10:41:23 +0000 |
| commit | a835e351374fc5a3c9f0758ba98ab8ea44763e21 (patch) | |
| tree | 61d49e5c61994c0545ddeebea225f27e1bc925a0 /gcc/f/expr.c | |
| parent | e69bc5b0b3dbd0ddd2fec59d37c0603b5007450d (diff) | |
| download | gcc-a835e351374fc5a3c9f0758ba98ab8ea44763e21.zip gcc-a835e351374fc5a3c9f0758ba98ab8ea44763e21.tar.gz gcc-a835e351374fc5a3c9f0758ba98ab8ea44763e21.tar.bz2 | |
com.c (ffecom_init_0): Fix setup of INTEGER(KIND=7) pointer type.
Mon Jun 1 19:37:42 1998 Craig Burley <burley@gnu.org>
* com.c (ffecom_init_0): Fix setup of INTEGER(KIND=7)
pointer type.
* info.c (ffeinfo_type): Don't crash on null type.
* expr.c (ffeexpr_fulfill_call_): Don't special-case
%LOC(expr) or LOC(expr).
Delete FFEGLOBAL_argsummaryPTR.
* global.c, global.h: Delete FFEGLOBAL_argsummaryPTR.
From-SVN: r20225
Diffstat (limited to 'gcc/f/expr.c')
| -rw-r--r-- | gcc/f/expr.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/f/expr.c b/gcc/f/expr.c index 847904f..e118780 100644 --- a/gcc/f/expr.c +++ b/gcc/f/expr.c @@ -9385,9 +9385,13 @@ ffeexpr_fulfill_call_ (ffebld *expr, ffelexToken t) as = FFEGLOBAL_argsummaryALTRTN; break; +#if 0 + /* No, %LOC(foo) is just like any INTEGER(KIND=7) + expression, so don't treat it specially. */ case FFEBLD_opPERCENT_LOC: as = FFEGLOBAL_argsummaryPTR; break; +#endif case FFEBLD_opPERCENT_VAL: as = FFEGLOBAL_argsummaryVAL; @@ -9402,6 +9406,9 @@ ffeexpr_fulfill_call_ (ffebld *expr, ffelexToken t) break; case FFEBLD_opFUNCREF: +#if 0 + /* No, LOC(foo) is just like any INTEGER(KIND=7) + expression, so don't treat it specially. */ if ((ffebld_op (ffebld_left (item)) == FFEBLD_opSYMTER) && (ffesymbol_specific (ffebld_symter (ffebld_left (item))) == FFEINTRIN_specLOC)) @@ -9409,6 +9416,7 @@ ffeexpr_fulfill_call_ (ffebld *expr, ffelexToken t) as = FFEGLOBAL_argsummaryPTR; break; } +#endif /* Fall through. */ default: if (ffebld_op (item) == FFEBLD_opSYMTER) |