diff options
| author | Mark Linimon <linimon@FreeBSD.org> | 2003-11-02 05:32:24 +0000 |
|---|---|---|
| committer | Mark Linimon <linimon@FreeBSD.org> | 2003-11-02 05:32:24 +0000 |
| commit | d6ce248fc88b58600e33174056c580af809df5ca (patch) | |
| tree | e322f5a4f8e80e756c2b05cf0c31b1d006d67aa5 /lang/rexx-imc/files/patch-util.c | |
| parent | maintainer to adam@redprince.net (diff) | |
Fix handling of UPPER tag. PR: ports/42281. Approved by: maintainer.
Notes
Notes:
svn path=/head/; revision=92824
Diffstat (limited to 'lang/rexx-imc/files/patch-util.c')
| -rw-r--r-- | lang/rexx-imc/files/patch-util.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lang/rexx-imc/files/patch-util.c b/lang/rexx-imc/files/patch-util.c new file mode 100644 index 000000000000..aec63e831648 --- /dev/null +++ b/lang/rexx-imc/files/patch-util.c @@ -0,0 +1,20 @@ +--- util.c Tue Feb 26 12:29:20 2002 ++++ util.c.new Thu Jun 20 14:50:03 2002 +@@ -1404,7 +1404,7 @@ + else token=0; + } + else if(token>=Command&&start){ /* at the start must be a "command" */ +- if(token==THEN); /* except THEN, PULL and ARG */ ++ if(token==THEN||token==UPPER); /* except THEN, UPPER, PULL and ARG */ + else if(token==ARG||token==PULL) + prgptr++[0]=PARSE, + prgptr++[0]=UPPER, +@@ -1415,7 +1415,7 @@ + if(!token); /* no need to check if there is no token */ + else if(token==VALUE)if(last==ADDRESS||last==FORM||last==TRACE + ||last==PARSE||last==SIGNAL);else token=0; +- else if(token==UPPER)if(last==PARSE);else token=0; ++ else if(token==UPPER)if(start||last==PARSE);else token=0; + else if(token>=PULL&&token<=LINEIN)if(last==PARSE);else token=0; + else if(token==WITH)if(first==VALUE);else token=0; + else if(token==ON||token==OFF)if(last==SIGNAL||last==CALL) |