Project

General

Profile

« Previous | Next » 

Revision 4b269e3f

Added by Pierre-Loïc Garoche over 6 years ago

  • ID 4b269e3fdcf485280e512b248ac2be8b61e6b032
  • Parent 355b543d

Revert to good old uppercase function compatible with 4.02

View differences:

src/backends/C/c_backend_header.ml
290 290
(********************************************************************************************)
291 291
let print_header header_fmt basename prog machines dependencies =
292 292
  (* Include once: start *)
293
  let baseNAME = String.uppercase_ascii basename in
293
  let baseNAME = String.uppercase basename in
294 294
  let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in
295 295
  begin
296 296
    (* Print the svn version number and the supported C standard (C90 or C99) *)
......
329 329

  
330 330
let print_alloc_header header_fmt basename prog machines dependencies =
331 331
  (* Include once: start *)
332
  let baseNAME = String.uppercase_ascii basename in
332
  let baseNAME = String.uppercase basename in
333 333
  let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in
334 334
  begin
335 335
    (* Print the svn version number and the supported C standard (C90 or C99) *)
......
362 362
   header. *)
363 363
let print_header_from_header header_fmt basename header =
364 364
  (* Include once: start *)
365
  let baseNAME = String.uppercase_ascii basename in
365
  let baseNAME = String.uppercase basename in
366 366
  let baseNAME = Str.global_replace (Str.regexp "\\.\\|\\ ") "_" baseNAME in
367 367
  let types = get_typedefs header in
368 368
  let consts = get_consts header in

Also available in: Unified diff