1 files changed, 5 insertions, 0 deletions
diff --git a/backend/XTL.ml b/backend/XTL.ml
index 2ddbc50a..a1b7f23b 100644
--- a/backend/XTL.ml
+++ b/backend/XTL.ml
@@ -64,6 +64,11 @@ let vlocs ll = List.map vloc ll
 let vmreg mr = L(R mr)
 let vmregs mrl = List.map vmreg mrl
 
+let rec vlocpairs = function
+  | [] -> []
+  | One l :: ll -> L l :: vlocpairs ll
+  | Twolong(l1, l2) :: ll -> L l1 :: L l2 :: vlocpairs ll
+
 (* Tests over variables *)
 
 let is_stack_reg = function