diff options
| author | Gaëtan Gilbert | 2020-07-23 11:13:59 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2020-07-23 11:13:59 +0200 |
| commit | 58df19e952f23ce9376c67f21d09e515a861db0c (patch) | |
| tree | 8950a7d1a8049a78b00748fd074ab9c5a0c63ddd /dev | |
| parent | b8962b4d7d4c23c01b03713fcd9a0816edad3f40 (diff) | |
| parent | 675b23dcf824d8a851881171a5628b239aad2201 (diff) | |
Merge PR #12679: Remove redundant data from VM case switch.
Reviewed-by: SkySkimmer
Ack-by: silene
Diffstat (limited to 'dev')
| -rw-r--r-- | dev/vm_printers.ml | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/dev/vm_printers.ml b/dev/vm_printers.ml index aa650fbdc8..ac4972ed0d 100644 --- a/dev/vm_printers.ml +++ b/dev/vm_printers.ml @@ -1,6 +1,5 @@ open Format open Term -open Constr open Names open Cemitcodes open Vmvalues @@ -8,9 +7,7 @@ open Vmvalues let ppripos (ri,pos) = (match ri with | Reloc_annot a -> - let sp,i = a.ci.ci_ind in - print_string - ("annot : MutInd("^(MutInd.to_string sp)^","^(string_of_int i)^")\n") + print_string "switch\n" | Reloc_const _ -> print_string "structured constant\n" | Reloc_getglobal kn -> |