diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-02-04 11:14:28 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-02-04 11:14:28 +0100 |
commit | abb704f93055a572a5078e04c5212ff051309730 (patch) | |
tree | 3ac874eec5ff46eeada45cde71b6e6f4fcceeeb7 | |
parent | 932305f71062fd4f3d108ba866b5e1c8b5b4a94c (diff) | |
download | compcert-abb704f93055a572a5078e04c5212ff051309730.tar.gz compcert-abb704f93055a572a5078e04c5212ff051309730.zip |
Also print braces around the registers.
-rw-r--r-- | powerpc/AsmToJSON.ml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml index 724f8753..75a629c5 100644 --- a/powerpc/AsmToJSON.ml +++ b/powerpc/AsmToJSON.ml @@ -55,7 +55,9 @@ let p_ireg oc reg = | GPR29 -> 29 | GPR30 -> 30 | GPR31 -> 31 - in p_jmember oc "Register" (fun oc d -> p_jstring oc ("r"^(string_of_int d))) num + in output_string oc "{"; + p_jmember oc "Register" (fun oc d -> p_jstring oc ("r"^(string_of_int d))) num; + output_string oc "}" let p_freg oc reg = let num = match reg with @@ -91,7 +93,10 @@ let p_freg oc reg = | FPR29 -> 29 | FPR30 -> 30 | FPR31 -> 31 - in p_jmember oc "Register" (fun oc d -> p_jstring oc ("f"^(string_of_int d))) num + in output_string oc "{"; + p_jmember oc "Register" (fun oc d -> p_jstring oc ("f"^(string_of_int d))) num; + output_string oc "}" + let p_preg oc = function | IR ir -> p_ireg oc ir |