diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2003-05-12 09:34:05 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2003-05-12 09:34:05 +0000 |
| commit | e11c636eaf5df16ebb4535586e0d7ce6c1b2706b (patch) | |
| tree | d00e7ef37f5aeb824e19fb3526a99d91af7b3889 /driver/compile.ml | |
| parent | 04b293fe2e9973d0954064a3c3aadfbc3811c01d (diff) | |
| download | ocaml-e11c636eaf5df16ebb4535586e0d7ce6c1b2706b.tar.gz | |
Reinitialiser le gensym de Ident entre 2 compilations (PR#1618)
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5547 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'driver/compile.ml')
| -rw-r--r-- | driver/compile.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/driver/compile.ml b/driver/compile.ml index 6be13ba40b..99bc318756 100644 --- a/driver/compile.ml +++ b/driver/compile.ml @@ -38,6 +38,8 @@ let init_path () = (* Return the initial environment in which compilation proceeds. *) let initial_env () = + init_path(); + Ident.reinit(); try if !Clflags.nopervasives then Env.initial @@ -48,7 +50,6 @@ let initial_env () = (* Compile a .mli file *) let interface ppf sourcefile = - init_path(); let prefixname = chop_extension_if_any sourcefile in let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = Pparse.preprocess sourcefile in @@ -76,7 +77,6 @@ let print_if ppf flag printer arg = let (++) x f = f x let implementation ppf sourcefile = - init_path(); let prefixname = chop_extension_if_any sourcefile in let modulename = String.capitalize(Filename.basename prefixname) in let inputfile = Pparse.preprocess sourcefile in |