Apple-2-SW/apple2a
1
0
Fork 0
mirror of https://github.com/bradgrantham/apple2a.git synced 2024-06-12 07:29:29 +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; int i;
ForInfo *f; ForInfo *f;
for (i = 0; i < g_for_count; i++) { // Work backwards through the stack, since the variable we're looking
f = &g_for_info[i]; // 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) { if (f->var_address == var_address) {
// Found it. // Found it.
return f; return f;
} }
f -= 1;
} }
return 0; return 0;