diff options
| author | Gaëtan Gilbert | 2018-06-23 15:38:00 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert | 2018-07-24 13:49:17 +0200 |
| commit | 0108db19c96e1b46346f032964f2cca3f8149cb3 (patch) | |
| tree | 6414910c08328fceeb45c82414bea1ee0b601c91 /kernel/cbytecodes.ml | |
| parent | 7817af48a554573fb649028263ecfc0fabe400d8 (diff) | |
Projections use index representation
The upper layers still need a mapping constant -> projection, which is
provided by Recordops.
Diffstat (limited to 'kernel/cbytecodes.ml')
| -rw-r--r-- | kernel/cbytecodes.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/kernel/cbytecodes.ml b/kernel/cbytecodes.ml index 3095ce148b..8030060339 100644 --- a/kernel/cbytecodes.ml +++ b/kernel/cbytecodes.ml @@ -128,7 +128,7 @@ type instruction = | Ksetfield of int | Kstop | Ksequence of bytecodes * bytecodes - | Kproj of int * Constant.t (* index of the projected argument, + | Kproj of int * Projection.Repr.t (* index of the projected argument, name of projection *) | Kensurestackcapacity of int (* spiwack: instructions concerning integers *) @@ -311,7 +311,7 @@ let rec pp_instr i = | Kbranch lbl -> str "branch " ++ pp_lbl lbl - | Kproj(n,p) -> str "proj " ++ int n ++ str " " ++ Constant.print p + | Kproj(n,p) -> str "proj " ++ int n ++ str " " ++ Projection.Repr.print p | Kensurestackcapacity size -> str "growstack " ++ int size |