From c5cc4fca02a172ab146029d3dfd83cc2ef5e1d53 Mon Sep 17 00:00:00 2001
From: Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr>
Date: May 09 2014 12:22:35 +0000
Subject: small re-ordering of declarations, to match comments


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14771 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

---

diff --git a/asmcomp/closure.ml b/asmcomp/closure.ml
index 14429c0..5ad945f 100644
--- a/asmcomp/closure.ml
+++ b/asmcomp/closure.ml
@@ -1279,12 +1279,12 @@ let collect_exported_structured_constants a =
   in
   approx a
 
-(* The entry point *)
-
 let reset () =
   global_approx := [||];
   function_nesting_depth := 0
 
+(* The entry point *)
+
 let intro size lam =
   reset ();
   let id = Compilenv.make_symbol None in
diff --git a/asmcomp/closure.mli b/asmcomp/closure.mli
index 4e9ffb5..2db6e16 100644
--- a/asmcomp/closure.mli
+++ b/asmcomp/closure.mli
@@ -12,5 +12,5 @@
 
 (* Introduction of closures, uncurrying, recognition of direct calls *)
 
-val reset : unit -> unit
 val intro: int -> Lambda.lambda -> Clambda.ulambda
+val reset : unit -> unit
diff --git a/asmcomp/spill.mli b/asmcomp/spill.mli
index acba343..598a175 100644
--- a/asmcomp/spill.mli
+++ b/asmcomp/spill.mli
@@ -13,5 +13,5 @@
 (* Insertion of moves to suggest possible spilling / reloading points
    before register allocation. *)
 
-val reset : unit -> unit
 val fundecl: Mach.fundecl -> Mach.fundecl
+val reset : unit -> unit