diff options
| author | Guillaume Melquiond | 2020-08-30 11:05:46 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2020-11-13 15:13:23 +0100 |
| commit | 4e2bd77d2c6a6d0791c2b30a1b7cb3524a148800 (patch) | |
| tree | 2d2252831ea476a8fd137d7f7675c98fe5ea4f3d /kernel/vmbytecodes.ml | |
| parent | 2d3e012cce7ca41893d670196d3c90e7e315403e (diff) | |
Turn Ksequence into a unary opcode, as its binary structure was never used.
Diffstat (limited to 'kernel/vmbytecodes.ml')
| -rw-r--r-- | kernel/vmbytecodes.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/vmbytecodes.ml b/kernel/vmbytecodes.ml index 2cef6e3359..4977aec00a 100644 --- a/kernel/vmbytecodes.ml +++ b/kernel/vmbytecodes.ml @@ -56,7 +56,7 @@ type instruction = | Kfield of int | Ksetfield of int | Kstop - | Ksequence of bytecodes * bytecodes + | Ksequence of bytecodes | Kproj of Projection.Repr.t | Kensurestackcapacity of int | Kbranch of Label.t (* jump to label *) @@ -157,7 +157,7 @@ and pp_bytecodes c = | Klabel lbl :: c -> str "L" ++ int lbl ++ str ":" ++ fnl () ++ pp_bytecodes c - | Ksequence (l1, l2) :: c -> - pp_bytecodes l1 ++ pp_bytecodes l2 ++ pp_bytecodes c + | Ksequence l :: c -> + pp_bytecodes l ++ pp_bytecodes c | i :: c -> pp_instr i ++ fnl () ++ pp_bytecodes c |