diff options
author | Son Ho | 2022-01-06 16:18:40 +0100 |
---|---|---|
committer | Son Ho | 2022-01-06 16:18:40 +0100 |
commit | 407474a35b7dd80116c8d358873d25e1a9b49048 (patch) | |
tree | 144db170be9a2a69984d5513eb12c0d8dc790e67 /src/Print.ml | |
parent | 12752a3e62a53c56753cb58f044cd6d277f19734 (diff) |
Fix some bugs
Diffstat (limited to '')
-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 e751d0a3..0b436f1a 100644 --- a/src/Print.ml +++ b/src/Print.ml @@ -981,6 +981,10 @@ module EvalCtxCfimAst = struct let fmt = PC.eval_ctx_to_ctx_formatter ctx in PV.typed_value_to_string fmt v + let typed_avalue_to_string (ctx : C.eval_ctx) (v : V.typed_avalue) : string = + let fmt = PC.eval_ctx_to_ctx_formatter ctx in + PV.typed_avalue_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 |