diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-05 13:51:11 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2006-05-05 13:51:11 +0000 |
| commit | e120ba1de7212c6d9948a39769f88a37f33e1a81 (patch) | |
| tree | acc9d2fad9fcc557f225935987d86ea35d49e70c | |
| parent | 5ec8a05157d810572fde19165b3c0bd827c3e0c6 (diff) | |
Renaming error
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7400 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | otherlibs/bigarray/mmap_win32.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/otherlibs/bigarray/mmap_win32.c b/otherlibs/bigarray/mmap_win32.c index 98a6940b1..35cbbe4d5 100644 --- a/otherlibs/bigarray/mmap_win32.c +++ b/otherlibs/bigarray/mmap_win32.c @@ -58,9 +58,9 @@ CAMLprim value caml_ba_map_file(value vfd, value vkind, value vlayout, } /* Determine file size */ currpos = SetFilePointer(fd, 0, NULL, FILE_CURRENT); - if (currpos == INVALID_SET_FILE_POINTER) bigarray_sys_error(); + if (currpos == INVALID_SET_FILE_POINTER) caml_ba_sys_error(); file_size = SetFilePointer(fd, 0, NULL, FILE_END); - if (file_size == INVALID_SET_FILE_POINTER) bigarray_sys_error(); + if (file_size == INVALID_SET_FILE_POINTER) caml_ba_sys_error(); /* Determine array size in bytes (or size of array without the major dimension if that dimension wasn't specified) */ array_size = bigarray_element_size[flags & BIGARRAY_KIND_MASK]; @@ -85,10 +85,10 @@ CAMLprim value caml_ba_map_file(value vfd, value vkind, value vlayout, mode = FILE_MAP_COPY; } fmap = CreateFileMapping(fd, NULL, perm, 0, array_size, NULL); - if (fmap == NULL) bigarray_sys_error(); + if (fmap == NULL) caml_ba_sys_error(); /* Map the mapping in memory */ addr = MapViewOfFile(fmap, mode, 0, 0, array_size); - if (addr == NULL) bigarray_sys_error(); + if (addr == NULL) caml_ba_sys_error(); /* Close the file mapping */ CloseHandle(fmap); /* Build and return the Caml bigarray */ |