diff options
author | Son Ho | 2021-11-30 12:31:35 +0100 |
---|---|---|
committer | Son Ho | 2021-11-30 12:31:35 +0100 |
commit | 460cbabc7beee811d09cc6fd9481bcd3a7ab0e57 (patch) | |
tree | a39fa2cf2d35b4314f5241e697368b5b293eeb50 /src/Print.ml | |
parent | a64dfa5f21beec47706c614f4fe1c426f9c9a0c8 (diff) |
Fix more bugs
Diffstat (limited to 'src/Print.ml')
-rw-r--r-- | src/Print.ml | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Print.ml b/src/Print.ml index 9cc7a34c..3c5fd71c 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -934,6 +934,10 @@ module EvalCtxCfimAst = struct let fmt = PC.eval_ctx_to_ctx_formatter ctx in PV.typed_value_to_string fmt v + let place_to_string (ctx : C.eval_ctx) (op : E.place) : string = + let fmt = PA.eval_ctx_to_ast_formatter ctx in + PA.place_to_string fmt op + let operand_to_string (ctx : C.eval_ctx) (op : E.operand) : string = let fmt = PA.eval_ctx_to_ast_formatter ctx in PA.operand_to_string fmt op |