archives/open-adventure
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Goto elimination.

Browse source
This commit is contained in:
Eric S. Raymond 2017-06-12 07:58:24 -04:00
parent 696779d337
commit c04fa7e446
1 changed files with 8 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

17
main.c
View file

@ -824,8 +824,12 @@ L2607: game.foobar=(game.foobar>0 ? -game.foobar : 0);
if (game.trndex <= TRNVLS) if (game.trndex <= TRNVLS)
game.thresh=MOD(TRNVAL[game.trndex],100000)+1; game.thresh=MOD(TRNVAL[game.trndex],100000)+1;
} }
if (VERB == SAY && WD2 > 0)VERB=0; if (VERB == SAY && WD2 > 0)
if (VERB == SAY) goto L4090; VERB=0;
if (VERB == SAY) {
part=transitive;
goto Laction;
}
if (game.tally == 0 && INDEEP(game.loc) && game.loc != 33) if (game.tally == 0 && INDEEP(game.loc) && game.loc != 33)
--game.clock1; --game.clock1;
@ -1013,17 +1017,12 @@ L2630:
switch (KQ-1) switch (KQ-1)
{ {
case 0: goto L8; case 0: goto L8;
case 1: goto L5000; case 1: part=unknown; obj = KMOD; goto Laction;
case 2: goto L4000; case 2: part=intransitive; VERB = KMOD; goto Laction;
case 3: RSPEAK(KMOD); goto L2012; case 3: RSPEAK(KMOD); goto L2012;
} }
BUG(22); BUG(22);
/* Verb and object analysis moved to separate module. */
L4000: part=intransitive; VERB = KMOD; goto Laction;
L4090: part=transitive; goto Laction;
L5000: part=unknown; obj = KMOD;
Laction: Laction:
switch (action(cmdin, part, VERB, obj)) { switch (action(cmdin, part, VERB, obj)) {
case 2: return true; case 2: return true;