summaryrefslogtreecommitdiff
path: root/backend/Tailcall.v
diff options
context:
space:
mode:
Diffstat (limited to 'backend/Tailcall.v')
-rw-r--r--backend/Tailcall.v3
1 files changed, 1 insertions, 2 deletions
diff --git a/backend/Tailcall.v b/backend/Tailcall.v
index 26beb34..25da531 100644
--- a/backend/Tailcall.v
+++ b/backend/Tailcall.v
@@ -14,6 +14,7 @@
Require Import Coqlib.
Require Import Maps.
+Require Import Compopts.
Require Import AST.
Require Import Registers.
Require Import Op.
@@ -98,8 +99,6 @@ Definition transf_instr (f: function) (pc: node) (instr: instruction) :=
as explained above. Moreover, we can turn tail calls off
using a compilation option. *)
-Parameter eliminate_tailcalls: unit -> bool.
-
Definition transf_function (f: function) : function :=
if zeq f.(fn_stacksize) 0 && eliminate_tailcalls tt
then RTL.transf_function (transf_instr f) f