diff options
| author | Craig Burley <craig@jcb-sc.com> | 1999-04-17 10:58:35 +0000 |
|---|---|---|
| committer | Craig Burley <burley@gcc.gnu.org> | 1999-04-17 06:58:35 -0400 |
| commit | c7e4ee3a6dfe2e2e57eecdb752693a417382eade (patch) | |
| tree | 08f47fe7d69580b7de218fc0af24e86c990f2ceb /gcc/f/bld.c | |
| parent | fc5045f3a7573f7c432de2ae6428913c27162406 (diff) | |
| download | gcc-c7e4ee3a6dfe2e2e57eecdb752693a417382eade.zip gcc-c7e4ee3a6dfe2e2e57eecdb752693a417382eade.tar.gz gcc-c7e4ee3a6dfe2e2e57eecdb752693a417382eade.tar.bz2 | |
rewrite to use block/scope structure of GBE
From-SVN: r26515
Diffstat (limited to 'gcc/f/bld.c')
| -rw-r--r-- | gcc/f/bld.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/gcc/f/bld.c b/gcc/f/bld.c index 6ef559e..15cadf1 100644 --- a/gcc/f/bld.c +++ b/gcc/f/bld.c @@ -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; } |