diff options
Diffstat (limited to 'backend/CleanupLabels.v')
-rw-r--r-- | backend/CleanupLabels.v | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/backend/CleanupLabels.v b/backend/CleanupLabels.v index 8db871e9..5eaa81e6 100644 --- a/backend/CleanupLabels.v +++ b/backend/CleanupLabels.v @@ -16,15 +16,15 @@ control-flow graph. Many of these labels are never branched to, which can complicate further optimizations over linearized code. (There are no such optimizations yet.) In preparation for these - further optimizations, and to make the generated LTLin code + further optimizations, and to make the generated Linear code better-looking, the present pass removes labels that cannot be branched to. *) -Require Import Coqlib. -Require Import Ordered. Require Import FSets. Require FSetAVL. -Require Import LTLin. +Require Import Coqlib. +Require Import Ordered. +Require Import Linear. Module Labelset := FSetAVL.Make(OrderedPositive). @@ -63,7 +63,6 @@ Definition cleanup_labels (c: code) := Definition transf_function (f: function) : function := mkfunction (fn_sig f) - (fn_params f) (fn_stacksize f) (cleanup_labels (fn_code f)). |