suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Use Windows path separator character when finding boot files on Windows.

Browse Source 
original commit: 553ac1ae4df56d547051fff5dbbaf82b979ea5e1
This commit is contained in:
Bob Burger 2018-05-14 11:59:55 -04:00
parent 137342a80f
commit 486792e042
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
LOG
View File

@ -935,3 +935,5 @@
Mf-install.in, wininstall/*nt.wxs
- Windows install now sets HeapSearchPath in the registry
wininstall/product.wxs
- Use Windows path separator character when finding boot files on Windows.
scheme.c

4
c/scheme.c
View File

@ -429,6 +429,7 @@ static const char *path_last(p) const char *p; {
#define DEFAULT_HEAP_PATH "%x;%x\\..\\..\\boot\\%m"
#endif
#define SEARCHPATHSEP ';'
#define PATHSEP '\\'
static char *get_defaultheapdirs() {
char *result;
@ -441,6 +442,7 @@ static char *get_defaultheapdirs() {
}
#else /* not WIN32: */
#define SEARCHPATHSEP ':'
#define PATHSEP '/'
#ifndef DEFAULT_HEAP_PATH
#define DEFAULT_HEAP_PATH "/usr/lib/csv%v/%m:/usr/local/lib/csv%v/%m"
#endif
@ -516,7 +518,7 @@ static IBOOL next_path(path, name, ext, sp, dsp) char *path; const char *name, *
/* unless entry was null, append name and ext onto path and return true with
* updated path, sp, and possibly dsp */
if (s != *sp) {
if (!DIRMARKERP(*(p - 1))) { setp('/'); }
if (!DIRMARKERP(*(p - 1))) { setp(PATHSEP); }
t = name;
while (*t != 0) setp(*t++);
t = ext;