5114 |
char *pwd; |
char *pwd; |
5115 |
struct stat dotstat, pwdstat; |
struct stat dotstat, pwdstat; |
5116 |
Lisp_Object temp; |
Lisp_Object temp; |
5117 |
int rc; |
int len; |
5118 |
|
|
5119 |
#ifdef USE_MMAP_FOR_BUFFERS |
#ifdef USE_MMAP_FOR_BUFFERS |
5120 |
{ |
{ |
5141 |
#ifndef VMS |
#ifndef VMS |
5142 |
/* Maybe this should really use some standard subroutine |
/* Maybe this should really use some standard subroutine |
5143 |
whose definition is filename syntax dependent. */ |
whose definition is filename syntax dependent. */ |
5144 |
rc = strlen (pwd); |
len = strlen (pwd); |
5145 |
if (!(IS_DIRECTORY_SEP (pwd[rc - 1]))) |
if (!(IS_DIRECTORY_SEP (pwd[len - 1]))) |
5146 |
{ |
{ |
5147 |
/* Grow buffer to add directory separator and '\0'. */ |
/* Grow buffer to add directory separator and '\0'. */ |
5148 |
pwd = (char *) xrealloc (pwd, rc + 2); |
pwd = (char *) xrealloc (pwd, len + 2); |
5149 |
pwd[rc] = DIRECTORY_SEP; |
pwd[len] = DIRECTORY_SEP; |
5150 |
pwd[rc + 1] = '\0'; |
pwd[len + 1] = '\0'; |
5151 |
} |
} |
5152 |
#endif /* not VMS */ |
#endif /* not VMS */ |
5153 |
|
|