etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-10-31 19:42:39 +00:00
Code Issues Projects Releases Wiki Activity

Added tail-call optimization

Browse source
This commit is contained in:
Devine Lu Linvega 2022-05-26 20:26:21 -07:00
parent e00e74b9d0
commit 5a0e0c56aa
1 changed files with 18 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/uxnasm.c
View file

@ -45,6 +45,7 @@ typedef struct {
Program p;
static int litlast = 0;
static int jsrlast = 0;
/* clang-format off */
@ -199,9 +200,25 @@ writebyte(Uint8 b)
p.data[p.ptr++] = b;
p.length = p.ptr;
litlast = 0;
jsrlast = 0;
return 1;
}
static int
writeopcode(char *w)
{
Uint8 res;
if(jsrlast && scmp(w, "JMP2r", 5)) { /* combine JSR2 JMP2r */
p.data[p.ptr - 1] = findopcode("JMP2");
jsrlast = 0;
return 1;
}
res = writebyte(findopcode(w));
if(scmp(w, "JSR2", 4))
jsrlast = 1;
return res;
}
static int
writeshort(Uint16 s, int lit)
{
@ -329,7 +346,7 @@ parse(char *w, FILE *f)
default:
/* opcode */
if(findopcode(w) || scmp(w, "BRK", 4)) {
if(!writebyte(findopcode(w))) return 0;
if(!writeopcode(w)) return 0;
}
/* raw byte */
else if(sihx(w) && slen(w) == 2) {