diff options
| -rw-r--r-- | bytecomp/bytegen.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/bytecomp/bytegen.ml b/bytecomp/bytegen.ml index a625f006f..6139d401d 100644 --- a/bytecomp/bytegen.ml +++ b/bytecomp/bytegen.ml @@ -86,6 +86,7 @@ let rec discard_dead_code = function let rec is_tailcall = function Kreturn _ :: _ -> true | Klabel _ :: c -> is_tailcall c + | Kpop _ :: c -> is_tailcall c | _ -> false (* Add a Kpop N instruction in front of a continuation *) |