diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2003-12-29 22:15:02 +0000 |
| commit | 31943bac1db3351118c7f911db99bd567f02a883 (patch) | |
| tree | 053244070a0a7f612d637a0547f0d851a2dd024a /byterun/win32.c | |
| parent | dbf40e0b61af6f34d4a2736be1f0562ee5e8a52f (diff) | |
depollution suite (PR#1914 et PR#1956); byterun/weak.c: PR#1929 suite
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6041 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/win32.c')
| -rw-r--r-- | byterun/win32.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/byterun/win32.c b/byterun/win32.c index 095c40d2d..badcf63b3 100644 --- a/byterun/win32.c +++ b/byterun/win32.c @@ -48,7 +48,7 @@ char * decompose_path(struct ext_table * tbl, char * path) q = p; while (1) { for (n = 0; q[n] != 0 && q[n] != ';'; n++) /*nothing*/; - ext_table_add(tbl, q); + caml_ext_table_add(tbl, q); q = q + n; if (*q == 0) break; *q = 0; @@ -72,12 +72,12 @@ char * search_in_path(struct ext_table * path, char * name) strcpy(fullname, (char *)(path->contents[i])); strcat(fullname, "\\"); strcat(fullname, name); - gc_message(0x100, "Searching %s\n", (unsigned long) fullname); + caml_gc_message(0x100, "Searching %s\n", (unsigned long) fullname); if (stat(fullname, &st) == 0 && S_ISREG(st.st_mode)) return fullname; stat_free(fullname); } not_found: - gc_message(0x100, "%s not found in search path\n", (unsigned long) name); + caml_gc_message(0x100, "%s not found in search path\n", (unsigned long) name); fullname = stat_alloc(strlen(name) + 1); strcpy(fullname, name); return fullname; @@ -353,7 +353,7 @@ int caml_read_directory(char * dirname, struct ext_table * contents) if (strcmp(fileinfo.name, ".") != 0 && strcmp(fileinfo.name, "..") != 0) { p = stat_alloc(strlen(fileinfo.name) + 1); strcpy(p, fileinfo.name); - ext_table_add(contents, p); + caml_ext_table_add(contents, p); } } while (_findnext(h, &fileinfo) == 0); _findclose(h); |