From 26fcc4dbd92f367ecb20f4457cdf887eea0b6568 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Thu, 29 Jan 2009 09:13:53 +0000
Subject: Conflict between extraction/CList and cil/obj/xxx/clist on
 case-insensitive file systems.  Replaced CList by CoqList and likewise for
 CString and CInt.  Removed useless references to CList in hand-written Caml
 code.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@951 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 powerpc/PrintAsm.ml | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'powerpc/PrintAsm.ml')

diff --git a/powerpc/PrintAsm.ml b/powerpc/PrintAsm.ml
index 352da05a..b75d135c 100644
--- a/powerpc/PrintAsm.ml
+++ b/powerpc/PrintAsm.ml
@@ -14,7 +14,6 @@
 
 open Printf
 open Datatypes
-open CList
 open Camlcoq
 open AST
 open Asm
@@ -461,9 +460,9 @@ module Stubs_MacOS = struct
 let variadic_stub oc stub_name fun_name ty_args =
   (* Compute total size of arguments *)
   let arg_size =
-    CList.fold_left
+    List.fold_left
      (fun sz ty -> match ty with Tint -> sz + 4 | Tfloat -> sz + 8)
-     ty_args 0 in
+     0 ty_args in
   (* Stack size is linkage area + argument size, with a minimum of 56 bytes *)
   let frame_size = max 56 (24 + arg_size) in
   fprintf oc "	mflr	r0\n";
-- 
cgit