diff mbox series

[COMMITTED] ada: Strip conversions for the implementation of storage models

Message ID 20221201135556.458319-1-poulhies@adacore.com
State Committed
Commit 798c08ca4bf3681444426093263e9e6746d1c32b
Headers
Series [COMMITTED] ada: Strip conversions for the implementation of storage models |

Commit Message

Marc Poulhiès Dec. 1, 2022, 1:55 p.m. UTC 
  From: Eric Botcazou <ebotcazou@adacore.com>

This is necessary for unconstrained allocators with qualified expression.

gcc/ada/

	* gcc-interface/trans.cc (get_storage_model_access): Strip any type
	conversion around the node before looking into it.

Tested on x86_64-pc-linux-gnu, committed on master.

---
 gcc/ada/gcc-interface/trans.cc | 5 +++++
 1 file changed, 5 insertions(+)
diff mbox series

Patch

diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc
index b9d7c015a73..a012271abf3 100644
--- a/gcc/ada/gcc-interface/trans.cc
+++ b/gcc/ada/gcc-interface/trans.cc
@@ -4400,6 +4400,11 @@  get_storage_model_access (Node_Id gnat_node, Entity_Id *gnat_smo)
       return;
     }
 
+  /* Now strip any type conversion from GNAT_NODE.  */
+  if (Nkind (gnat_node) == N_Type_Conversion
+      || Nkind (gnat_node) == N_Unchecked_Type_Conversion)
+    gnat_node = Expression (gnat_node);
+
   while (node_is_component (gnat_node))
     gnat_node = Prefix (gnat_node);