d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Improved identifier string allocation mechanism

Browse source
This commit is contained in:
ceriel 1991-01-30 11:25:25 +00:00
parent 48e0d9825a
commit e48822da7b
1 changed files with 27 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
lang/cem/cemcom.ansi/idf.c
View file

@ -49,6 +49,32 @@ struct idf *idf_hashtable[HASHSIZE];
(variable, selector, structure tag, etc.). (variable, selector, structure tag, etc.).
*/ */
static struct idf *
idf_new(tg, size)
register char *tg;
register int size;
{
#define IBUFSIZ 2048
static unsigned int icnt;
static char *ip;
register char *p;
register struct idf *id = new_idf();
if (size > icnt) {
icnt = size > IBUFSIZ ? size : IBUFSIZ;
p = malloc(icnt); /* yes, malloc, not Malloc */
if (! p) p = Malloc(size);
}
else p = ip;
icnt -= size;
id->id_text = p;
while (size--) {
*p++ = *tg++;
}
ip = p;
return id;
}
struct idf * struct idf *
idf_hashed(tg, size, hc) idf_hashed(tg, size, hc)
char *tg; char *tg;
@ -86,10 +112,9 @@ idf_hashed(tg, size, hc)
hook = &notch->next; hook = &notch->next;
} }
/* a new struct idf must be inserted at the hook */ /* a new struct idf must be inserted at the hook */
notch = new_idf(); notch = idf_new(tg, size);
notch->next = *hook; notch->next = *hook;
*hook = notch; /* hooked in */ *hook = notch; /* hooked in */
notch->id_text = Salloc(tg, (unsigned) size);
#ifndef NOPP #ifndef NOPP
/* notch->id_resmac = 0; */ /* notch->id_resmac = 0; */
#endif NOPP #endif NOPP