diff options
Diffstat (limited to 'contrib/gcc/f/bld.c')
| -rw-r--r-- | contrib/gcc/f/bld.c | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/contrib/gcc/f/bld.c b/contrib/gcc/f/bld.c index 6e75692..15cadf1 100644 --- a/contrib/gcc/f/bld.c +++ b/contrib/gcc/f/bld.c @@ -1,6 +1,6 @@ /* bld.c -- Implementation File (module.c template V1.0) Copyright (C) 1995, 1996 Free Software Foundation, Inc. - Contributed by James Craig Burley (burley@gnu.org). + Contributed by James Craig Burley. This file is part of GNU Fortran. @@ -203,7 +203,7 @@ static ffebldConstant ffebld_constant_hollerith_; static ffebldConstant ffebld_constant_typeless_[FFEBLD_constTYPELESS_LAST - FFEBLD_constTYPELESS_FIRST + 1]; -static char *ffebld_op_string_[] +static const char *ffebld_op_string_[] = { #define FFEBLD_OP(KWD,NAME,ARITY) NAME, @@ -5573,6 +5573,9 @@ ffebld_new_item (ffebld head, ffebld trail) x->op = FFEBLD_opITEM; x->u.item.head = head; x->u.item.trail = trail; +#ifdef FFECOM_itemHOOK + x->u.item.hook = FFECOM_itemNULL; +#endif return x; } @@ -5655,6 +5658,9 @@ ffebld_new_one (ffebldOp o, ffebld left) #endif x->op = o; x->u.nonter.left = left; +#ifdef FFECOM_nonterHOOK + x->u.nonter.hook = FFECOM_nonterNULL; +#endif return x; } @@ -5703,6 +5709,9 @@ ffebld_new_two (ffebldOp o, ffebld left, ffebld right) x->op = o; x->u.nonter.left = left; x->u.nonter.right = right; +#ifdef FFECOM_nonterHOOK + x->u.nonter.hook = FFECOM_nonterNULL; +#endif return x; } @@ -5745,7 +5754,7 @@ ffebld_pool_push (mallocPool pool) Returns a short string (uppercase) containing the name of the op. */ -char * +const char * ffebld_op_string (ffebldOp o) { if (o >= ARRAY_SIZE (ffebld_op_string_)) |
