From 2ae43be7b9d4118335c9d2cef6e098f9b9f807fe Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Thu, 9 Feb 2006 14:55:48 +0000
Subject: Initial import of compcert

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 caml/Allocationaux.ml | 39 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 39 insertions(+)
 create mode 100644 caml/Allocationaux.ml

(limited to 'caml/Allocationaux.ml')

diff --git a/caml/Allocationaux.ml b/caml/Allocationaux.ml
new file mode 100644
index 00000000..8e4f3284
--- /dev/null
+++ b/caml/Allocationaux.ml
@@ -0,0 +1,39 @@
+open Camlcoq
+open Datatypes
+open List
+open AST
+open Locations
+
+type status = To_move | Being_moved | Moved
+
+let parallel_move_order lsrc ldst =
+  let src = array_of_coqlist lsrc
+  and dst = array_of_coqlist ldst in
+  let n = Array.length src in
+  let status = Array.make n To_move in
+  let moves = ref Coq_nil in
+  let rec move_one i =
+    if src.(i) <> dst.(i) then begin
+      status.(i) <- Being_moved;
+      for j = 0 to n - 1 do
+        if src.(j) = dst.(i) then
+          match status.(j) with
+            To_move ->
+              move_one j
+          | Being_moved ->
+              let tmp =
+                match Loc.coq_type src.(j) with
+                | Tint -> R IT2
+                | Tfloat -> R FT2 in
+              moves := Coq_cons (Coq_pair(src.(j), tmp), !moves);
+              src.(j) <- tmp
+          | Moved ->
+              ()
+      done;
+      moves := Coq_cons(Coq_pair(src.(i), dst.(i)), !moves);
+      status.(i) <- Moved
+    end in
+  for i = 0 to n - 1 do
+    if status.(i) = To_move then move_one i
+  done;
+  List.rev !moves
-- 
cgit