diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2005-09-22 14:21:50 +0000 |
| commit | 3de54dec267abf845ca32bd1f6026834cc04d853 (patch) | |
| tree | daa34de1fd38e86c2dd0c67896c3c5748511fe1c /byterun/win32.c | |
| parent | 11524e2578b62fa30620121873aa372b180c0a74 (diff) | |
Remplacement long/unsigned long par intnat/uintnat
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7064 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 335247108..2188c77e1 100644 --- a/byterun/win32.c +++ b/byterun/win32.c @@ -70,12 +70,12 @@ char * caml_search_in_path(struct ext_table * path, char * name) strcpy(fullname, (char *)(path->contents[i])); strcat(fullname, "\\"); strcat(fullname, name); - caml_gc_message(0x100, "Searching %s\n", (unsigned long) fullname); + caml_gc_message(0x100, "Searching %s\n", (uintnat) fullname); if (stat(fullname, &st) == 0 && S_ISREG(st.st_mode)) return fullname; caml_stat_free(fullname); } not_found: - caml_gc_message(0x100, "%s not found in search path\n", (unsigned long) name); + caml_gc_message(0x100, "%s not found in search path\n", (uintnat) name); fullname = caml_stat_alloc(strlen(name) + 1); strcpy(fullname, name); return fullname; @@ -98,7 +98,7 @@ CAMLexport char * caml_search_exe_in_path(char * name) &filepart); if (retcode == 0) { caml_gc_message(0x100, "%s not found in search path\n", - (unsigned long) name); + (uintnat) name); strcpy(fullname, name); break; } @@ -345,7 +345,7 @@ CAMLexport void caml_expand_command_line(int * argcp, char *** argvp) int caml_read_directory(char * dirname, struct ext_table * contents) { char * template; - long h; + intptr_t h; struct _finddata_t fileinfo; char * p; |