Revision 4dc6ecde
Added by Xavier Thirioux about 5 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 basename in |
|
| 27 |
let baseNAME = String.uppercase_ascii basename in
|
|
| 28 | 28 |
let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in |
| 29 | 29 |
baseNAME |
| 30 | 30 |
|
Also available in: Unified diff
Deprecated function changed for compatibility with ocaml 4.04