Utiliser . pour separer le nom du module dans les noms de fonctions

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1662 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

asmcomp/closure.ml

@@ -355,7 +355,7 @@ and close_functions fenv cenv fun_defs =
       (function
           (id, (Lfunction(kind, params, body) as def)) ->
             let label =
-              Compilenv.current_unit_name() ^ "_" ^ Ident.unique_name id in
+              Compilenv.current_unit_name() ^ "." ^ Ident.unique_name id in
             let arity = List.length params in
             let fundesc =
               {fun_label = label;

asmcomp/emitaux.ml

@@ -32,6 +32,8 @@ let emit_symbol esc s =
     match c with
       'A'..'Z' | 'a'..'z' | '0'..'9' | '_' ->
         output_char !output_channel c
+    | '.' ->
+        output_char !output_channel '_'
     | _ ->
         Printf.fprintf !output_channel "%c%02x" esc (Char.code c)
   done