1. Calascibetta Romain
  2. TyLLVM

Commits

Calascibetta Romain  committed 222d939 Merge

Merge branch 'master' of bitbucket.org:dinosaure/tyllvm

  • Participants
  • Parent commits 38331f2, d8518a5
  • Branches master

Comments (0)

Files changed (1)

File src/LLVM_types.ml

View file
  • Ignore whitespace
   (Array (n, t), "[" ^ String.concat ", " (List.map value_to_string value) ^ "]")
 let pointer t value = (Pointer t, to_string value)
 
-let string n value = (Array (n, Int eight), "\"" ^ String.escaped value ^ "\\00\"")
+let string n value = (Array (n, Int eight), "c\"" ^ String.escaped value ^ "\\00\"")