From 86b6fe60ea9563001a08e6401fe0af3339e9ad0d Mon Sep 17 00:00:00 2001 From: ceriel Date: Thu, 20 Aug 1987 13:12:43 +0000 Subject: [PATCH] corrected option handling --- lang/m2/comp/statement.g | 1 + lang/m2/comp/walk.c | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lang/m2/comp/statement.g b/lang/m2/comp/statement.g index fcfb3ce3c..600b126fa 100644 --- a/lang/m2/comp/statement.g +++ b/lang/m2/comp/statement.g @@ -41,6 +41,7 @@ statement(register struct node **pnd;) Roption = options['R']; nd = dot2leaf(Option); nd->nd_symb = 'R'; + nd->nd_INT = Roption; *pnd = nd = dot2node(Link, nd, NULLNODE); nd->nd_symb = ';'; diff --git a/lang/m2/comp/walk.c b/lang/m2/comp/walk.c index 2480f3ba8..66e4fc7f3 100644 --- a/lang/m2/comp/walk.c +++ b/lang/m2/comp/walk.c @@ -630,10 +630,10 @@ STATIC WalkOption(nd) struct node *nd; { - /* Toggle option indicated by node "nd" + /* Set option indicated by node "nd" */ - options[nd->nd_symb] = ! options[nd->nd_symb]; + options[nd->nd_symb] = nd->nd_INT; } int (*WalkTable[])() = { -- 2.34.1