diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-01 12:42:18 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-01 12:42:18 +0000 |
| commit | 6fda5ca60ce4600f1790373ff937fb767998caf3 (patch) | |
| tree | dd8a769f00ce25c717b21d31b2a1165f8743b85f | |
| parent | 51a3a69a47e3714ae13a73758d8ff2cccb1d7df2 (diff) | |
Amelioration de la tail recursion.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@912 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -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 *) |