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

Bug correction: java code generation for "~-."

Browse source 
Bug correction: handling of unary float "~-."
This commit is contained in:
Gwenal Delaval 2013-08-02 13:56:04 +02:00
parent 971f622ea3
commit ee7ef158e7
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
compiler/obc/java/java_printer.ml
View file

@ -42,7 +42,7 @@ let print_qualname ff ({ Names.name = n } as qn) =
let print_shortname ff ({ Names.name = n } as qn) =
Global_printer.print_shortname ff { qn with Names.name = jname_of_name n }
let java_print_string ff s =
pp_print_string ff (jname_of_name s)
@ -166,7 +166,7 @@ and op ff (f, e_l) =
| "not" ->
let e = Misc.assert_1 e_l in
fprintf ff "!%a" exp e
| "~-" ->
| "~-" | "~-." ->
let e = Misc.assert_1 e_l in
fprintf ff "-%a" exp e
| "assert" ->
@ -204,10 +204,10 @@ and act ff = function
| Aexp e -> fprintf ff "@[%a@];" exp e
| Aswitch (e, c_b_l) ->
let pcb ff (c,b) =
let print_case ff c =
match c with
| Senum c -> bare_constructor_name ff c
| Sexp e -> exp ff e in
let print_case ff c =
match c with
| Senum c -> bare_constructor_name ff c
| Sexp e -> exp ff e in
fprintf ff "@[<v4>case %a:@ %a@ break;@]" print_case c block b in
(* let switch_hack ff c_b_l = (* TODO java : better thing to do ? *)
fprintf ff "@[<2>default ://Dead code. Hack to prevent \