diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-02 11:17:25 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-10-02 11:17:25 +0200 |
| commit | e005c477da2f9ac9b9490cc30e59412cc626b54d (patch) | |
| tree | b0e8c56573f73112a4aecbaa0a0a66e46464887f /powerpc/AsmToJSON.ml | |
| parent | 007ed4b93ac06e9cd5cf3107008f13df19f580f0 (diff) | |
| download | compcert-e005c477da2f9ac9b9490cc30e59412cc626b54d.tar.gz compcert-e005c477da2f9ac9b9490cc30e59412cc626b54d.zip | |
Quote the section names in the json files.
Diffstat (limited to 'powerpc/AsmToJSON.ml')
| -rw-r--r-- | powerpc/AsmToJSON.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml index 5764aa8f..b3464dc4 100644 --- a/powerpc/AsmToJSON.ml +++ b/powerpc/AsmToJSON.ml @@ -329,7 +329,7 @@ let p_section oc = function | Section_string -> fprintf oc "{\"Section Name\":\"String\"}" | Section_literal -> fprintf oc "{\"Section Name\":\"Literal\"}" | Section_jumptable -> fprintf oc "{\"Section Name\":\"Jumptable\"}" - | Section_user (s,w,e) -> fprintf oc "{\"Section Name\":%s,\"Writable\":%B,\"Executable\":%B}" s w e + | Section_user (s,w,e) -> fprintf oc "{\"Section Name\":\"%s\",\"Writable\":%B,\"Executable\":%B}" s w e | Section_debug_info _ | Section_debug_abbrev | Section_debug_loc -> () (* There should be no info in the debug sections *) |