diff options
| author | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-04 10:41:23 +0000 |
|---|---|---|
| committer | fx <fx@138bc75d-0d04-0410-961f-82ee72b054a4> | 1998-06-04 10:41:23 +0000 |
| commit | f308b426efac8d96947cd68b786e3b6a558ac3a8 (patch) | |
| tree | 61d49e5c61994c0545ddeebea225f27e1bc925a0 /gcc/f/global.c | |
| parent | 37ae241ce40ec867eccba7781a945675e7af78d0 (diff) | |
| download | ppe42-gcc-f308b426efac8d96947cd68b786e3b6a558ac3a8.tar.gz ppe42-gcc-f308b426efac8d96947cd68b786e3b6a558ac3a8.zip | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@20225 138bc75d-0d04-0410-961f-82ee72b054a4
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 a2251b7ecce..932a9d83387 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 = "???"; |
