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