Commits

Calascibetta Romain committed 222d939 Merge

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

Comments (0)

Files changed (1)

src/LLVM_types.ml

   (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\"")