diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-03-13 15:34:01 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2018-03-13 15:34:01 +0100 |
| commit | 3f83ae50789d44c49bec5db292d58db3f02d5f79 (patch) | |
| tree | 03d5dc83333f8bbb432a00c189900356cc3f7466 /backend/PrintAsm.ml | |
| parent | a50902cad6765f80fc394d08054a8516febf7600 (diff) | |
| download | compcert-kvx-3f83ae50789d44c49bec5db292d58db3f02d5f79.tar.gz compcert-kvx-3f83ae50789d44c49bec5db292d58db3f02d5f79.zip | |
Add newline directly on list in annot.
This should avoid cluttering the assembler output with .ascii "\n"
lines if the annotation ends with a string and make for a better
readability.
Bug 23169
Diffstat (limited to 'backend/PrintAsm.ml')
| -rw-r--r-- | backend/PrintAsm.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index 04ecbae3..92d465d5 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -162,8 +162,7 @@ module Printer(Target:TARGET) = print_addr oc Target.symbol symb | AisAnnot.String a -> fprintf oc " .ascii %S\n" a in let annot oc str = - List.iter (annot_part oc) str; - fprintf oc " .ascii \"\\n\"\n" + List.iter (annot_part oc) str in List.iter (annot oc) annots end |