Revision 2fdbc781
Added by Pierre-Loïc Garoche about 8 years ago
| src/backends/C/c_backend_mauve.ml | ||
|---|---|---|
| 41 | 41 |
(* -------------------------------------------------- *) |
| 42 | 42 |
|
| 43 | 43 |
let mauve_default_value v = |
| 44 |
let v_name = v.var_id in |
|
| 44 |
(* let v_name = v.var_id in *) |
|
| 45 |
|
|
| 45 | 46 |
let v_type = (Types.repr v.var_type).Types.tdesc in |
| 46 | 47 |
match v_type with |
| 47 | 48 |
| Types.Tbool -> "false" |
Also available in: Unified diff
Cleaning output:
- no more classic display for ocamlc
- compilation warnings removed