- Duke: fixed parsing of overlong CON identifiers.

This commit is contained in:
Christoph Oelckers 2020-11-15 07:35:39 +01:00
parent 07eeba88fa
commit 9a43886be6

View file

@ -607,11 +607,11 @@ int ConCompiler::transword(void)
l = 0; l = 0;
while (isaltok(*(textptr + l)) && !(*(textptr + l) == '.')) while (isaltok(*(textptr + l)) && !(*(textptr + l) == '.'))
{ {
if (l < 31) if (l < 1023)
{ {
parsebuf[l] = textptr[l]; parsebuf[l] = textptr[l];
l++;
} }
l++;
} }
parsebuf[l] = 0; parsebuf[l] = 0;
@ -665,11 +665,11 @@ int ConCompiler::transnum(int type)
l = 0; l = 0;
while (isaltok(*(textptr + l))) while (isaltok(*(textptr + l)))
{ {
if (l < 31) if (l < 1023)
{ {
parsebuf[l] = textptr[l]; parsebuf[l] = textptr[l];
l++;
} }
l++;
} }
parsebuf[l] = 0; parsebuf[l] = 0;