d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

reversed a-option

Browse source
This commit is contained in:
ceriel 1989-05-10 10:19:22 +00:00
parent d20988a1cb
commit fdf26a7f06
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lang/pc/comp/LLlex.c
View file

@ -46,6 +46,7 @@ int tokenseen = 0; /* Some comment-options must precede any program text */
CommentOptions()
{
register int ch, ci;
int on_on_minus = 0;
/* Parse options inside comments */
do {
@ -73,20 +74,19 @@ CommentOptions()
case 'l': ci = 'L' ; /* for indexing */
/* fall through */
case 'a': /* assertions */
case 't': /* tracing */
case 'A': /* extra array range-checks */
case 'L': /* FIL & LIN instructions */
case 'R': /* range checks */
{
int on_on_minus = (ci == 'L' || ci == 'R');
case 'a': /* assertions */
on_on_minus = 1;
/* fall through */
case 't': /* tracing */
case 'A': /* extra array range-checks */
LoadChar(ch);
if( ch == '-' ) options[ci] = on_on_minus;
else if( ch == '+' ) options[ci] = !on_on_minus;
else PushBack();
on_on_minus = 0;
break;
}
case 'i':
{