diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-01-29 09:13:53 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-01-29 09:13:53 +0000 |
commit | 26fcc4dbd92f367ecb20f4457cdf887eea0b6568 (patch) | |
tree | 0bec42a8bbb4c8d70e31d60e055409ef31e10da3 /powerpc | |
parent | f6ecbb948ccf7f8a4e156eb29e3a41e7f2953407 (diff) | |
download | compcert-26fcc4dbd92f367ecb20f4457cdf887eea0b6568.tar.gz compcert-26fcc4dbd92f367ecb20f4457cdf887eea0b6568.zip |
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
Diffstat (limited to 'powerpc')
-rw-r--r-- | powerpc/PrintAsm.ml | 5 |
1 files changed, 2 insertions, 3 deletions
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"; |