From 7b2b9db0174d25867de78857af6ea392abd2cc5c Mon Sep 17 00:00:00 2001
From: Frej Drejhammar <frej.drejhammar@gmail.com>
Date: Wed, 31 Jul 2024 12:39:59 +0200
Subject: [PATCH] DEBUG: Try to figure out which step that is failing

---
 lib/compiler/test/compilation_SUITE.erl | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/lib/compiler/test/compilation_SUITE.erl b/lib/compiler/test/compilation_SUITE.erl
index f84b48e71fcb..6bc98144d875 100644
--- a/lib/compiler/test/compilation_SUITE.erl
+++ b/lib/compiler/test/compilation_SUITE.erl
@@ -312,11 +312,13 @@ compile_load(Module, Dir, Conf) ->
     ok.
 
 self_compile(Config) when is_list(Config) ->
+    ct:pal(?HI_IMPORTANCE, "Starting self_compile~n"),
     self_compile_1(Config, "new", [inline]).
 
 self_compile_old_inliner(Config) when is_list(Config) ->
     %% The old inliner is useful for testing that sys_core_fold does not
     %% introduce name capture problems.
+    ct:pal(?HI_IMPORTANCE, "Starting self_compile_old_inliner~n"),
     self_compile_1(Config, "old", [verbose,{inline,500}]).
 
 self_compile_1(Config, Prefix, Opts) ->
@@ -328,15 +330,17 @@ self_compile_1(Config, Prefix, Opts) ->
     %% Compile the compiler. (In this node to get better coverage.)
     CompA = make_compiler_dir(Priv, Prefix++"compiler_a"),
     VsnA = Version ++ ".0",
+    ct:pal(?HI_IMPORTANCE, "self_compile_1: 0~n"),
     compile_compiler(compiler_src(), CompA, VsnA, Opts),
-
+    ct:pal(?HI_IMPORTANCE, "self_compile_1: 1~n"),
     %% Compile the compiler again using the newly compiled compiler.
     %% (In another node because reloading the compiler would disturb cover.)
     CompilerB = Prefix++"compiler_b",
     CompB = make_compiler_dir(Priv, CompilerB),
     VsnB = VsnA ++ ".0",
+    ct:pal(?HI_IMPORTANCE, "self_compile_1: 2~n"),
     self_compile_node(CompA, CompB, VsnB, Opts),
-
+    ct:pal(?HI_IMPORTANCE, "self_compile_1: 3~n"),
     %% Compare compiler directories. The compiler directories should
     %% be equal (except for beam_asm that contains the compiler version).
     compare_compilers(CompA, CompB),
@@ -373,8 +377,12 @@ compile_compiler(Files, OutDir, Version, InlineOpts) ->
 	    {i,filename:join(code:lib_dir(stdlib), "include")}|InlineOpts],
     test_lib:p_run(fun(File) ->
 			   case compile:file(File, Opts) of
-			       {ok,_} -> ok;
-			       _ -> error
+			       {ok,_} ->
+                                   ok;
+			       E ->
+                                   ct:pal(?HI_IMPORTANCE, "!! ~s: error: ~p~n",
+                                          [File, E]),
+                                   error
 			   end
 		   end, Files).