Merge remote-tracking branch 'origin/main' into frontendtestinggh-1479

1 files changed, 10 insertions, 3 deletions

diff --git a/lib/compilers/ada.js b/lib/compilers/ada.js
index 6a93249de..daa6d538e 100644
--- a/lib/compilers/ada.js
+++ b/lib/compilers/ada.js
@@ -35,7 +35,9 @@ export class AdaCompiler extends BaseCompiler {
         this.compiler.supportsGccDump = true;
         this.compiler.removeEmptyGccDump = true;
         this.compiler.supportsIntel = true;
-        this.compiler.supportsGnatDebugView = true;
+
+        // used for all GNAT related panes (Expanded code, Tree)
+        this.compiler.supportsGnatDebugViews = true;
     }
 
     getExecutableFilename(dirPath) {
@@ -50,8 +52,13 @@ export class AdaCompiler extends BaseCompiler {
         // super is needed as it handles the GCC Dump files.
         const opts = super.optionsForBackend (backendOptions, outputFilename);
 
-        if (backendOptions.produceGnatDebug && this.compiler.supportsGnatDebugView)
-            opts.push('-gnatDGL');
+        if (backendOptions.produceGnatDebug && this.compiler.supportsGnatDebugViews)
+            // This is using stdout
+            opts.push('-gnatGL');
+
+        if (backendOptions.produceGnatDebugTree && this.compiler.supportsGnatDebugViews)
+            // This is also using stdout
+            opts.push('-gnatdt');
 
         return opts;
     }