/[gcl]/gcl/o/fasldlsym.c
ViewVC logotype

Diff of /gcl/o/fasldlsym.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Wed Jul 31 22:48:44 2002 UTC revision 1.5 by camm, Fri Aug 9 23:48:04 2002 UTC
# Line 72  fasload(faslfile) Line 72  fasload(faslfile)
72    coerce_to_filename(truename(faslfile), filename);    coerce_to_filename(truename(faslfile), filename);
73    if (count == 0)    if (count == 0)
74      count = time(0);      count = time(0);
75    sprintf(buf,"/tmp/ufas%dxXXXXXX",count++);    snprintf(buf,sizeof(buf),"/tmp/ufas%dxXXXXXX",count++);
76    /* this is just to allow reloading in the same file twice.    /* this is just to allow reloading in the same file twice.
77     */     */
78    mktemp(buf);    mkstemp(buf);
79    symlink(filename,buf);    symlink(filename,buf);
80    { struct name_list *nl=    { struct name_list *nl=
81        (void *) malloc(strlen(buf)+sizeof(struct name_list));        (void *) malloc(strlen(buf)+sizeof(struct name_list));

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26