The routine findpath did not work. It used the same static buffer for

several calls. Now it uses alloc.
This commit is contained in:
ceriel 1984-10-09 11:43:19 +00:00
parent 94e069fde1
commit a33d4cdbba

View file

@ -59,11 +59,16 @@ string
libpath(s) string s; {
/* Must deliver a full pathname to the library file "s" */
static char buf[100];
register string p;
register length;
p_mem alloc();
string strcpy(), strcat();
static string subdir = "/lib/LLgen/";
strcpy(buf,EM_DIR);
strcat(buf,"/lib/LLgen/");
strcat(buf,s);
return buf;
length = strlen(EM_DIR) + strlen(subdir) + strlen(s) + 1;
p = (string) alloc((unsigned) length);
strcpy(p,EM_DIR);
strcat(p,subdir);
strcat(p,s);
return p;
}