etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-28 00:33:02 +00:00
Code Issues Projects Releases Wiki Activity

uxnasm errors-out if too many labels

Browse source
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;