[gcc r16-7014] a68: build a68 type nodes before targetm.init_builtins [PR algol68/123785]

[Jose E. Marchesi]

https://gcc.gnu.org/g:5435dfc71c3d08abad47269b3cad5a99a345b800

commit r16-7014-g5435dfc71c3d08abad47269b3cad5a99a345b800
Author: Jose E. Marchesi <jemarch@gnu.org>
Date:   Sat Jan 24 16:58:51 2026 +0100

    a68: build a68 type nodes before targetm.init_builtins [PR algol68/123785]
    
    The alpha target calls type_for_mode in init_builtins.  The algol68
    implementation of type_for_mode uses modes created by
    a68_build_a68_type_nodes.  This patch makes sure that the later is
    called before the init_builtins target hook.
    
    Signed-off-by: Jose E. Marchesi <jemarch@gnu.org>
    
    gcc/algol68/ChangeLog
    
            PR algol68/123785
            * a68-lang.cc (a68_init): Call a68_build_a68_type_nodes abefore
            targetm.init_builtins.

Diff:
---
 gcc/algol68/a68-lang.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/algol68/a68-lang.cc b/gcc/algol68/a68-lang.cc
index 482ae39d25c7..df9ef0abf119 100644
--- a/gcc/algol68/a68-lang.cc
+++ b/gcc/algol68/a68-lang.cc
@@ -223,8 +223,8 @@ static bool
 a68_init (void)
 {
   build_common_tree_nodes (false);
-  targetm.init_builtins ();
   a68_build_a68_type_nodes ();
+  targetm.init_builtins ();
   build_common_builtin_nodes ();
   a68_install_builtins ();