diff options
| author | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-09-30 12:45:40 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bschommer@users.noreply.github.com> | 2015-09-30 12:45:40 +0200 |
| commit | e443d76ad1ee0182353404317ab45c26227a59ea (patch) | |
| tree | 1c110864431d8f6ba06c8746233397a3e221560e /powerpc/AsmToJSON.ml | |
| parent | c212ab7a8adea516db72f17d818393629dbde1b3 (diff) | |
| parent | ee76d81e0e7d8a76cd31bf0d01a532d248dca45a (diff) | |
| download | compcert-e443d76ad1ee0182353404317ab45c26227a59ea.tar.gz compcert-e443d76ad1ee0182353404317ab45c26227a59ea.zip | |
Merge pull request #56 from AbsInt/debug_locations
Debug locations
Diffstat (limited to 'powerpc/AsmToJSON.ml')
| -rw-r--r-- | powerpc/AsmToJSON.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml index a7e66701..5764aa8f 100644 --- a/powerpc/AsmToJSON.ml +++ b/powerpc/AsmToJSON.ml @@ -330,8 +330,9 @@ let p_section oc = function | 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_debug_info - | Section_debug_abbrev -> () (* There should be no info in the debug sections *) + | Section_debug_info _ + | Section_debug_abbrev + | Section_debug_loc -> () (* There should be no info in the debug sections *) let p_int_opt oc = function | None -> fprintf oc "0" |