etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

(uxnasm) Housekeeping

This commit is contained in:
Devine Lu Linvega 2024-03-27 16:48:56 -07:00
parent 632f9fc0fa
commit 652bff0a93
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/uxnasm.c
View File

@ -344,27 +344,25 @@ resolveref(Item *r)
*rom = (Sint8)(l->addr - r->addr - 2); *rom = (Sint8)(l->addr - r->addr - 2);
if((Sint8)data[r->addr] != (l->addr - r->addr - 2)) if((Sint8)data[r->addr] != (l->addr - r->addr - 2))
return error_top("Relative reference is too far", r->name); return error_top("Relative reference is too far", r->name);
l->refs++;
break; break;
case '-': case '-':
case '.': case '.':
*rom = l->addr; *rom = l->addr;
l->refs++;
break; break;
case ':': case ':':
case '=': case '=':
case ';': case ';':
*rom++ = l->addr >> 8, *rom = l->addr; *rom++ = l->addr >> 8, *rom = l->addr;
l->refs++;
break; break;
case '?': case '?':
case '!': case '!':
default: default:
a = l->addr - r->addr - 2; a = l->addr - r->addr - 2;
*rom++ = a >> 8, *rom = a; *rom++ = a >> 8, *rom = a;
l->refs++;
break; break;
} }
l->refs++;
return 1;
} }
static int static int