From 6bece6366fb66be3d1ac6d2586f3f8643fed97aa Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Wed, 28 Jun 2017 13:47:52 +0200 Subject: Formatted json printing. Instead of just dumping the json output it is now a little bit formatted for better reading. Furthermore the AsmToJson function for the non powerpc targets now prints the json value "null" sucht that the resulting json file is valid json. --- x86/AsmToJSON.ml | 4 ++-- x86/AsmToJSON.mli | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'x86') diff --git a/x86/AsmToJSON.ml b/x86/AsmToJSON.ml index 3214491f..ca18999a 100644 --- a/x86/AsmToJSON.ml +++ b/x86/AsmToJSON.ml @@ -13,5 +13,5 @@ (* Simple functions to serialize ia32 Asm to JSON *) (* Dummy function *) -let p_program oc prog = - () +let pp_program pp prog = + Format.fprintf pp "null" diff --git a/x86/AsmToJSON.mli b/x86/AsmToJSON.mli index 20bcba5e..e4d9c39a 100644 --- a/x86/AsmToJSON.mli +++ b/x86/AsmToJSON.mli @@ -10,4 +10,4 @@ (* *) (* *********************************************************************) -val p_program: out_channel -> (Asm.coq_function AST.fundef, 'a) AST.program -> unit +val pp_program: Format.formatter -> (Asm.coq_function AST.fundef, 'a) AST.program -> unit -- cgit