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 /kernel/byterun/coq_interp.c | |
| 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 'kernel/byterun/coq_interp.c')
| -rw-r--r-- | kernel/byterun/coq_interp.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/kernel/byterun/coq_interp.c b/kernel/byterun/coq_interp.c index 9921208e04..15cc451ea8 100644 --- a/kernel/byterun/coq_interp.c +++ b/kernel/byterun/coq_interp.c @@ -1187,7 +1187,7 @@ value coq_interprete if (sz == 0) accu = Atom(0); else { Alloc_small(accu, sz, Default_tag); - if (Field(*sp, 2) == Val_true) { + if (Is_tailrec_switch(*sp)) { for (i = 0; i < sz; i++) Field(accu, i) = sp[i+2]; }else{ for (i = 0; i < sz; i++) Field(accu, i) = sp[i+5]; |