jeltz/heptagon
1
0
Fork 0
Code Issues Pull requests Releases Activity

small java module fix

Browse source
This commit is contained in:
Léonard Gérard 2011-04-19 18:55:49 +02:00
parent 2757e7c1bf
commit 73abbad1f9
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
compiler/obc/java/obc2java.ml
View file

@ -43,13 +43,14 @@ let fresh_for size body =
(* current module is not translated to keep track, (* current module is not translated to keep track,
there is no issue since printed without the qualifier *) there is no issue since printed without the qualifier *)
let rec translate_modul m = match m with let rec translate_modul m = m (*match m with
| Pervasives | Pervasives
| LocalModule -> m | LocalModule -> m
| _ when m = g_env.current_mod -> m | _ when m = g_env.current_mod -> m
| Module n -> Module (String.lowercase n) | Module n -> Module (String.lowercase n)
| QualModule { qual = q; name = n} -> | QualModule { qual = q; name = n} ->
QualModule { qual = translate_modul q; name = String.lowercase n } QualModule { qual = translate_modul q; name = String.lowercase n }
*)
(** a [Module.const] becomes a [module.CONSTANTES.CONST] *) (** a [Module.const] becomes a [module.CONSTANTES.CONST] *)
let translate_const_name { qual = m; name = n } = let translate_const_name { qual = m; name = n } =