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/global.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/global.c')
| -rw-r--r-- | gcc/f/global.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/f/global.c b/gcc/f/global.c index a2251b7e..932a9d8 100644 --- a/gcc/f/global.c +++ b/gcc/f/global.c @@ -616,9 +616,11 @@ ffeglobal_proc_def_arg (ffesymbol s, int argno, char *name, ffeglobalArgSummary defwhy = "an alternate-return label"; break; +#if 0 case FFEGLOBAL_argsummaryPTR: defwhy = "a pointer"; break; +#endif default: defwhy = "???"; @@ -868,6 +870,7 @@ ffeglobal_proc_ref_arg (ffesymbol s, int argno, ffeglobalArgSummary as, } break; +#if 0 case FFEGLOBAL_argsummaryPTR: if ((ai->as != FFEGLOBAL_argsummaryPTR) && (ai->as != FFEGLOBAL_argsummaryNONE)) @@ -876,6 +879,7 @@ ffeglobal_proc_ref_arg (ffesymbol s, int argno, ffeglobalArgSummary as, refwhy = "a pointer"; } break; +#endif default: break; @@ -919,9 +923,11 @@ ffeglobal_proc_ref_arg (ffesymbol s, int argno, ffeglobalArgSummary as, defwhy = "an alternate-return label"; break; +#if 0 case FFEGLOBAL_argsummaryPTR: defwhy = "a pointer"; break; +#endif default: defwhy = "???"; |