From fbdff974fe7d2040c25dee1d35781f7e70d87d6c Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Mon, 29 Apr 2013 07:51:00 +0000
Subject: Revert suppression of __builtin_{read,write}_reversed for x86 and
 ARM, for compatibility with earlier CompCert versions. But don't use them in
 PackedStructs.

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2216 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 cparser/PackedStructs.ml | 63 +++++++++++++++++++++++++++---------------------
 1 file changed, 35 insertions(+), 28 deletions(-)

(limited to 'cparser/PackedStructs.ml')

diff --git a/cparser/PackedStructs.ml b/cparser/PackedStructs.ml
index dbd5160..ebf210b 100644
--- a/cparser/PackedStructs.ml
+++ b/cparser/PackedStructs.ml
@@ -197,25 +197,31 @@ let arrow_packed_field base pf ty =
 (*  (ty) __builtin_readNN_reversed(&lval)
  or (ty) __builtin_bswapNN(lval) *)
 
+let use_reversed =
+  match !Machine.config.Machine.name with
+  | "powerpc" -> true
+  | _ -> false
+
 let bswap_read loc env lval =
   let ty = lval.etyp in
   let (bsize, aty) = accessor_type loc env ty in
   assert (bsize = 16 || bsize = 32);
   try
-    let (id, fty) =
-      lookup_function loc env (sprintf "__builtin_read%d_reversed" bsize) in
-    let fn = {edesc = EVar id; etyp = fty} in
-    let args = [ecast_opt env (TPtr(aty,[])) (eaddrof lval)] in
-    let call = {edesc = ECall(fn, args); etyp = aty} in
-    ecast_opt env ty call
-  with Env.Error _ ->
-  try
-    let (id, fty) =
-      lookup_function loc env (sprintf "__builtin_bswap%d" bsize) in
-    let fn = {edesc = EVar id; etyp = fty} in
-    let args = [ecast_opt env aty lval] in
-    let call = {edesc = ECall(fn, args); etyp = aty} in
-    ecast_opt env ty call
+    if use_reversed then begin
+      let (id, fty) =
+        lookup_function loc env (sprintf "__builtin_read%d_reversed" bsize) in
+      let fn = {edesc = EVar id; etyp = fty} in
+      let args = [ecast_opt env (TPtr(aty,[])) (eaddrof lval)] in
+      let call = {edesc = ECall(fn, args); etyp = aty} in
+      ecast_opt env ty call
+    end else begin
+      let (id, fty) =
+        lookup_function loc env (sprintf "__builtin_bswap%d" bsize) in
+      let fn = {edesc = EVar id; etyp = fty} in
+      let args = [ecast_opt env aty lval] in
+      let call = {edesc = ECall(fn, args); etyp = aty} in
+      ecast_opt env ty call
+    end
   with Env.Error msg ->
     fatal_error "%a: Error: %s" formatloc loc (Env.error_message msg)
 
@@ -228,20 +234,21 @@ let bswap_write loc env lhs rhs =
     accessor_type loc env ty in
   assert (bsize = 16 || bsize = 32);
   try
-    let (id, fty) =
-      lookup_function loc env (sprintf "__builtin_write%d_reversed" bsize) in
-    let fn = {edesc = EVar id; etyp = fty} in
-    let args = [ecast_opt env (TPtr(aty,[])) (eaddrof lhs); 
-                ecast_opt env aty rhs] in
-    {edesc = ECall(fn, args); etyp = TVoid[]}
-  with Env.Error _ ->
-  try
-    let (id, fty) =
-      lookup_function loc env (sprintf "__builtin_bswap%d" bsize) in
-    let fn = {edesc = EVar id; etyp = fty} in
-    let args = [ecast_opt env aty rhs] in
-    let call = {edesc = ECall(fn, args); etyp = aty} in
-    eassign lhs (ecast_opt env ty call)
+    if use_reversed then begin
+      let (id, fty) =
+        lookup_function loc env (sprintf "__builtin_write%d_reversed" bsize) in
+      let fn = {edesc = EVar id; etyp = fty} in
+      let args = [ecast_opt env (TPtr(aty,[])) (eaddrof lhs); 
+                  ecast_opt env aty rhs] in
+      {edesc = ECall(fn, args); etyp = TVoid[]}
+    end else begin
+      let (id, fty) =
+        lookup_function loc env (sprintf "__builtin_bswap%d" bsize) in
+      let fn = {edesc = EVar id; etyp = fty} in
+      let args = [ecast_opt env aty rhs] in
+      let call = {edesc = ECall(fn, args); etyp = aty} in
+      eassign lhs (ecast_opt env ty call)
+    end
   with Env.Error msg ->
     fatal_error "%a: Error: %s" formatloc loc (Env.error_message msg)
 
-- 
cgit v1.2.3