Modified escaping for llvm assembly

This commit is contained in:
Roman Venediktov 2024-06-28 00:22:44 +02:00
parent 60f1f7d024
commit 670bb2d242

View file

@ -1156,11 +1156,12 @@ class env prg =
let buf = Buffer.create (n * 2) in let buf = Buffer.create (n * 2) in
let rec iterate i = let rec iterate i =
if i < n then ( if i < n then (
(match x.[i] with match x.[i] with
| '"' -> Buffer.add_string buf "\\\"" | '"' -> Buffer.add_string buf "\\\""
| '\n' -> Buffer.add_string buf "\n" | '\n' -> Buffer.add_string buf "\\n"
| '\t' -> Buffer.add_string buf "\t" | '\t' -> Buffer.add_string buf "\\t"
| c -> Buffer.add_char buf c); | '\\' -> Buffer.add_string buf "\\\\"
| c -> Buffer.add_char buf c;
iterate (i + 1)) iterate (i + 1))
in in
iterate 0; iterate 0;