Revision c80e92d1
Added by Pierre-Loïc Garoche almost 6 years ago
| src/backends/C/c_backend_common.ml | ||
|---|---|---|
| 24 | 24 |
(if !Options.mpfr then "MPFR multi-precision" else "(double) floating-point") |
| 25 | 25 |
|
| 26 | 26 |
let file_to_module_name basename = |
| 27 |
let baseNAME = String.uppercase_ascii basename in
|
|
| 27 |
let baseNAME = Ocaml_utils.uppercase basename in
|
|
| 28 | 28 |
let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in |
| 29 | 29 |
baseNAME |
| 30 | 30 |
|
Also available in: Unified diff
Solving a warning with ocaml 4.04 and uppercase_ascii. Provides backward compatibility for 4.02