[Bug ada/124226] Protected procedure access with implicit dereference gets invalid address

[liam at liampwll dot com via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=124226

--- Comment #1 from Liam Powell <liam at liampwll dot com> ---
gnatG output makes the cause very obvious but I don't have time to dig through
the codegen for this tonight:

   a : example__x := (
      P16b => fallback_hit_counter.all'address,
      S15b => example__fallback_hit_counter_type__handlerP'access);
   b : example__x := (
      P16b => fallback_hit_counter'address, --  !!!!! Missing .all
      S15b => example__fallback_hit_counter_type__handlerP'access);