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 rec iterate i =
if i < n then (
(match x.[i] with
match x.[i] with
| '"' -> Buffer.add_string buf "\\\""
| '\n' -> Buffer.add_string buf "\n"
| '\t' -> Buffer.add_string buf "\t"
| c -> Buffer.add_char buf c);
| '\n' -> Buffer.add_string buf "\\n"
| '\t' -> Buffer.add_string buf "\\t"
| '\\' -> Buffer.add_string buf "\\\\"
| c -> Buffer.add_char buf c;
iterate (i + 1))
in
iterate 0;