From 1bce6b0f9f8cd614038a6e7fc21fb984724204a4 Mon Sep 17 00:00:00 2001 From: xleroy Date: Mon, 29 Dec 2008 13:12:08 +0000 Subject: Extract Coq lists to Caml lists. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@929 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- caml/Coloringaux.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'caml/Coloringaux.ml') diff --git a/caml/Coloringaux.ml b/caml/Coloringaux.ml index 984fbb34..f11738df 100644 --- a/caml/Coloringaux.ml +++ b/caml/Coloringaux.ml @@ -278,13 +278,13 @@ let class_of_type = function Tint -> 0 | Tfloat -> 1 let num_register_classes = 2 let caller_save_registers = [| - array_of_coqlist Conventions.int_caller_save_regs; - array_of_coqlist Conventions.float_caller_save_regs + Array.of_list Conventions.int_caller_save_regs; + Array.of_list Conventions.float_caller_save_regs |] let callee_save_registers = [| - array_of_coqlist Conventions.int_callee_save_regs; - array_of_coqlist Conventions.float_callee_save_regs + Array.of_list Conventions.int_callee_save_regs; + Array.of_list Conventions.float_callee_save_regs |] let num_available_registers = -- cgit