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

uxnasm errors-out if too many labels

This commit is contained in:
Claude Heiland-Allen 2021-10-26 16:59:04 +01:00 committed by neauoire
parent a3ee7ab982
commit a373939544
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/uxnasm.c
View File

@ -14,6 +14,8 @@ WITH REGARD TO THIS SOFTWARE.
#define TRIM 0x0100
#define LENGTH 0x10000
#define LABELS 512
typedef unsigned char Uint8;
typedef signed char Sint8;
typedef unsigned short Uint16;
@ -31,7 +33,7 @@ typedef struct {
typedef struct {
Uint8 data[LENGTH], mlen;
Uint16 ptr, length, llen;
Label labels[512];
Label labels[LABELS];
Macro macros[256];
} Program;
@ -178,6 +180,8 @@ makelabel(char *name)
return error("Label name is hex number", name);
if(findopcode(name) || scmp(name, "BRK", 4) || !slen(name))
return error("Label name is invalid", name);
if(p.llen == LABELS)
return error("Too many labels", name);
l = &p.labels[p.llen++];
l->addr = addr;
l->refs = 0;