diff options
| author | ppedrot | 2013-03-21 14:22:36 +0000 |
|---|---|---|
| committer | ppedrot | 2013-03-21 14:22:36 +0000 |
| commit | f43d96aec71449e3b75e9fd732e87694cec5db8f (patch) | |
| tree | 593eff77bb330585bc5b604d3f7aba186204d55d /lib/system.ml | |
| parent | 7f3a79cd9426b009021e2096805f94c5641988da (diff) | |
Removing mandatory suffixes for library files.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16332 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/system.ml')
| -rw-r--r-- | lib/system.ml | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/system.ml b/lib/system.ml index a72958b99b..d2788de93f 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -123,12 +123,11 @@ let marshal_in filename ch = exception Bad_magic_number of string -let raw_extern_intern magic suffix = - let extern_state name = - let filename = CUnix.make_suffix name suffix in +let raw_extern_intern magic = + let extern_state filename = let channel = open_trapping_failure filename in output_binary_int channel magic; - filename,channel + filename, channel and intern_state filename = let channel = open_in_bin filename in if not (Int.equal (input_binary_int channel) magic) then @@ -137,8 +136,8 @@ let raw_extern_intern magic suffix = in (extern_state,intern_state) -let extern_intern ?(warn=true) magic suffix = - let (raw_extern,raw_intern) = raw_extern_intern magic suffix in +let extern_intern ?(warn=true) magic = + let (raw_extern,raw_intern) = raw_extern_intern magic in let extern_state name val_0 = try let (filename,channel) = raw_extern name in @@ -152,7 +151,7 @@ let extern_intern ?(warn=true) magic suffix = with Sys_error s -> error ("System error: " ^ s) and intern_state paths name = try - let _,filename = find_file_in_path ~warn paths (CUnix.make_suffix name suffix) in + let _,filename = find_file_in_path ~warn paths name in let channel = raw_intern filename in let v = marshal_in filename channel in close_in channel; |