Apple-2-SW/apple2a
1
0
Fork 0
mirror of https://github.com/bradgrantham/apple2a.git synced 2024-11-27 03:49:31 +00:00
Code Issues Projects Releases Wiki Activity

Slightly improve performance of NEXT.

Browse Source
This commit is contained in:
Lawrence Kesteloot 2018-08-05 17:07:25 -07:00
parent 5569b9f58c
commit 8fa3789ade
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
runtime.c
View File

@ -381,13 +381,16 @@ static ForInfo *find_for_info(uint16_t var_address) {
int i;
ForInfo *f;
for (i = 0; i < g_for_count; i++) {
f = &g_for_info[i];
// Work backwards through the stack, since the variable we're looking
// for is likely to be the most recent one.
f = &g_for_info[g_for_count - 1];
for (i = g_for_count - 1; i >= 0; i--) {
if (f->var_address == var_address) {
// Found it.
return f;
}
f -= 1;
}
return 0;