Project

General

Profile

Revision 042dc586 src/backends/C/c_backend_common.ml

View differences:

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