etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-30 17:53:01 +00:00
Code Issues Projects Releases Wiki Activity

Relative labels should not incr references to parent label

Browse source
This commit is contained in:
neauoire 2021-09-25 09:39:27 -07:00
parent 51c6e90754
commit 2b80b85baf
1 changed files with 12 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/uxnasm.c
View file

@ -185,14 +185,16 @@ makelabel(char *name)
} }
static int static int
addref(Label *l) addref(Label *l, Uint8 rel)
{ {
if(rel) {
int pos = cpos(l->name, '/'); int pos = cpos(l->name, '/');
if(pos != -1) { if(pos != -1) {
char root[64]; char root[64];
Label *rl = findlabel(scpy(l->name, root, pos)); Label *rl = findlabel(scpy(l->name, root, pos));
++rl->refs; ++rl->refs;
} }
}
return ++l->refs; return ++l->refs;
} }
@ -244,19 +246,19 @@ parsetoken(char *w)
if(l->addr > 0xff) if(l->addr > 0xff)
return error("Address is not in zero page", w); return error("Address is not in zero page", w);
pushbyte(l->addr, 1); pushbyte(l->addr, 1);
return addref(l); return addref(l, 1);
} else if(w[0] == ',' && (l = findlabel(w + 1))) { /* relative */ } else if(w[0] == ',' && (l = findlabel(w + 1))) { /* relative */
int off = l->addr - p.ptr - 3; int off = l->addr - p.ptr - 3;
if(off < -126 || off > 126) if(off < -126 || off > 126)
return error("Address is too far", w); return error("Address is too far", w);
pushbyte((Sint8)off, 1); pushbyte((Sint8)off, 1);
return addref(l); return addref(l, 0);
} else if(w[0] == ':' && (l = findlabel(w + 1))) { /* raw */ } else if(w[0] == ':' && (l = findlabel(w + 1))) { /* raw */
pushshort(l->addr, 0); pushshort(l->addr, 0);
return addref(l); return addref(l, 1);
} else if(w[0] == ';' && (l = findlabel(w + 1))) { /* absolute */ } else if(w[0] == ';' && (l = findlabel(w + 1))) { /* absolute */
pushshort(l->addr, 1); pushshort(l->addr, 1);
return addref(l); return addref(l, 1);
} else if(findopcode(w) || scmp(w, "BRK", 4)) { /* opcode */ } else if(findopcode(w) || scmp(w, "BRK", 4)) { /* opcode */
pushbyte(findopcode(w), 0); pushbyte(findopcode(w), 0);
return 1; return 1;