diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-02-04 10:32:53 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-02-04 10:32:53 +0100 |
| commit | 932305f71062fd4f3d108ba866b5e1c8b5b4a94c (patch) | |
| tree | bdaae0e22f99c61135b59a78f74a3a783fc0c79b /powerpc/AsmToJSON.ml | |
| parent | fadf72ce0d252fc59890c1a2ffe95db14e4add88 (diff) | |
| download | compcert-kvx-932305f71062fd4f3d108ba866b5e1c8b5b4a94c.tar.gz compcert-kvx-932305f71062fd4f3d108ba866b5e1c8b5b4a94c.zip | |
Fixed missing \" in json printing for registers.
Diffstat (limited to 'powerpc/AsmToJSON.ml')
| -rw-r--r-- | powerpc/AsmToJSON.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/powerpc/AsmToJSON.ml b/powerpc/AsmToJSON.ml index 4f6a1864..724f8753 100644 --- a/powerpc/AsmToJSON.ml +++ b/powerpc/AsmToJSON.ml @@ -55,7 +55,7 @@ let p_ireg oc reg = | GPR29 -> 29 | GPR30 -> 30 | GPR31 -> 31 - in p_jmember oc "Register" (fun oc -> fprintf oc "r%d") num + in p_jmember oc "Register" (fun oc d -> p_jstring oc ("r"^(string_of_int d))) num let p_freg oc reg = let num = match reg with @@ -91,7 +91,7 @@ let p_freg oc reg = | FPR29 -> 29 | FPR30 -> 30 | FPR31 -> 31 - in p_jmember oc "Register" (fun oc -> fprintf oc "f%d") num + in p_jmember oc "Register" (fun oc d -> p_jstring oc ("f"^(string_of_int d))) num let p_preg oc = function | IR ir -> p_ireg oc ir |