diff options
Diffstat (limited to 'backend/XTL.ml')
-rw-r--r-- | backend/XTL.ml | 5 |
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 |