godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trying to check more of an expression, giving some more sophisticated error messages,and be less wasteful with space for subranges

Browse Source
This commit is contained in:
ceriel
1986-11-17 11:41:28 +00:00
parent 6f6380329d
commit ad86f01119
21 changed files with 280 additions and 240 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lang/m2/comp/LLlex.c
View File

@@ -76,10 +76,12 @@ GetString(upto)
/* Read a Modula-2 string, delimited by the character "upto".
*/
register int ch;
register struct string *str = (struct string *) Malloc(sizeof(struct string));
register struct string *str = (struct string *)
Malloc((unsigned) sizeof(struct string));
register char *p;
register int len;
str->s_length = ISTRSIZE;
len = ISTRSIZE;
str->s_str = p = Malloc((unsigned int) ISTRSIZE);
while (LoadChar(ch), ch != upto) {
if (class(ch) == STNL) {
@@ -95,15 +97,18 @@ GetString(upto)
break;
}
*p++ = ch;
if (p - str->s_str == str->s_length) {
if (p - str->s_str == len) {
str->s_str = Srealloc(str->s_str,
(unsigned int) str->s_length + RSTRSIZE);
p = str->s_str + str->s_length;
str->s_length += RSTRSIZE;
(unsigned int) len + RSTRSIZE);
p = str->s_str + len;
len += RSTRSIZE;
}
}
*p = '\0';
str->s_length = p - str->s_str;
while (p - str->s_str < len) *p++ = '\0';
if (str->s_length == 0) str->s_length = 1; /* ??? string length
at least 1 ???
*/
return str;
}
@@ -172,7 +177,7 @@ linedirective() {
* Remember the file name
*/
if (!eofseen && strcmp(FileName,buf)) {
FileName = Salloc(buf,strlen(buf) + 1);
FileName = Salloc(buf,(unsigned) strlen(buf) + 1);
}
}
if (eofseen) {