Revision 042dc586
Added by Pierre-Loïc Garoche over 8 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 = String.uppercase basename in |
|
28 | 28 |
let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in |
29 | 29 |
baseNAME |
30 | 30 |
|
Also available in: Unified diff
Revert some ocaml code to ocaml 4.01 compatibility