diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-16 18:39:43 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-16 18:39:43 +0100 |
commit | bda5ee25ac991c38f5541a234936f1f6e2226072 (patch) | |
tree | c26b8de4fac8a9e747f73a08adf25707786619fd /backend/Tailcall.v | |
parent | ef4334c5b3984277a0844ba94f6b3945152e3637 (diff) | |
download | compcert-kvx-bda5ee25ac991c38f5541a234936f1f6e2226072.tar.gz compcert-kvx-bda5ee25ac991c38f5541a234936f1f6e2226072.zip |
Add flags to control individual optimization passes + flag -O0 for turning them off.
Diffstat (limited to 'backend/Tailcall.v')
-rw-r--r-- | backend/Tailcall.v | 3 |
1 files changed, 1 insertions, 2 deletions
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. |