[COMMITTED] a68: build a68 type nodes before targetm.init_builtins [PR algol68/123785]

[Jose E. Marchesi]

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.
---
 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 482ae39d25c..df9ef0abf11 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 ();
 
-- 
2.39.5