[Ada] Fix spurious use of trampolines with interface types
commit4c132238a51d407e1ab2388eaf8c6bce2fe5637f
authorEric Botcazou <ebotcazou@adacore.com>
Wed, 18 May 2022 09:05:33 +0000 (18 11:05 +0200)
committerPierre-Marie de Rodat <derodat@adacore.com>
Thu, 2 Jun 2022 09:06:43 +0000 (2 09:06 +0000)
tree0bb40dcad5373f7a5ec8b10aaf10e132dbb4c3b0
parent8575c72f04019a5ffc6be359e1d513bb2e1fb2d8
[Ada] Fix spurious use of trampolines with interface types

Function pointers must always be built with '[Unrestricted_]Access.

gcc/ada/

* exp_ch3.adb (Init_Secondary_Tags.Initialize_Tag): Initialize the
Offset_Func component by means of 'Unrestricted_Access.
gcc/ada/exp_ch3.adb