From 375a47bab8395695a4f74e19691854d2d0248045 Mon Sep 17 00:00:00 2001 From: Maxime Dénès Date: Fri, 23 Feb 2018 23:28:44 +0100 Subject: [VM] Remove projection names from structured constants. It was actually a hack since those names are never used to represent values, only to be passed as arguments to bytecode instructions. So instead of reusing the structured_constant type, we follow the same pattern as switch annotations. --- dev/vm_printers.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'dev') diff --git a/dev/vm_printers.ml b/dev/vm_printers.ml index 16917586f..7589e5348 100644 --- a/dev/vm_printers.ml +++ b/dev/vm_printers.ml @@ -15,7 +15,10 @@ let ppripos (ri,pos) = | Reloc_const _ -> print_string "structured constant\n" | Reloc_getglobal kn -> - print_string ("getglob "^(Constant.to_string kn)^"\n")); + print_string ("getglob "^(Constant.to_string kn)^"\n") + | Reloc_proj_name p -> + print_string ("proj "^(Constant.to_string p)^"\n") + ); print_flush () let print_vfix () = print_string "vfix" -- cgit v1.2.3