From bda5ee25ac991c38f5541a234936f1f6e2226072 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Sun, 16 Nov 2014 18:39:43 +0100 Subject: Add flags to control individual optimization passes + flag -O0 for turning them off. --- backend/Tailcall.v | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'backend/Tailcall.v') diff --git a/backend/Tailcall.v b/backend/Tailcall.v index 25da531c..db246fec 100644 --- a/backend/Tailcall.v +++ b/backend/Tailcall.v @@ -14,7 +14,6 @@ Require Import Coqlib. Require Import Maps. -Require Import Compopts. Require Import AST. Require Import Registers. Require Import Op. @@ -100,7 +99,7 @@ Definition transf_instr (f: function) (pc: node) (instr: instruction) := using a compilation option. *) Definition transf_function (f: function) : function := - if zeq f.(fn_stacksize) 0 && eliminate_tailcalls tt + if zeq f.(fn_stacksize) 0 then RTL.transf_function (transf_instr f) f else f. -- cgit