diff options
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) |