From c0ff75a787c9b56699722fa672e76c97acfe93b5 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 13 Mar 2010 08:30:06 +0000 Subject: Bug in multidimensional read-only arrays git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1290 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- cfrontend/C2Clight.ml | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'cfrontend') diff --git a/cfrontend/C2Clight.ml b/cfrontend/C2Clight.ml index fb939a40..1be7aaea 100644 --- a/cfrontend/C2Clight.ml +++ b/cfrontend/C2Clight.ml @@ -764,13 +764,14 @@ let convertProgram p = (** ** Extracting information about global variables from their atom *) -let type_is_readonly env t = - let a1 = Cutil.attributes_of_type env t in - let a = - match Cutil.unroll env t with - | C.TArray(ty, _, _) -> a1 @ Cutil.attributes_of_type env ty - | _ -> a1 in - List.mem C.AConst a && not (List.mem C.AVolatile a) +let rec type_is_readonly env t = + let a = Cutil.attributes_of_type env t in + if List.mem C.AVolatile a then false else + if List.mem C.AConst a then true else + match Cutil.unroll env t with + | C.TArray(t', _, _) -> type_is_readonly env t' + | _ -> false + end let atom_is_static a = try -- cgit