From c576f6d8e87e27b8b1e910581ad57d7f792562b7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Laurent=20Th=C3=A9venoux?= Date: Thu, 25 Jul 2024 12:32:58 +0200 Subject: [PATCH] Adapt to gpr2 changes --- extensions/src/libadalang-helpers.adb | 4 +++- testsuite/tests/ada_api/gpr2_context/main.adb | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/extensions/src/libadalang-helpers.adb b/extensions/src/libadalang-helpers.adb index 55a98905a..90445dfd8 100644 --- a/extensions/src/libadalang-helpers.adb +++ b/extensions/src/libadalang-helpers.adb @@ -871,7 +871,9 @@ package body Libadalang.Helpers is end if; Error := not Project.Load - (Options, Absent_Dir_Error => Absent_Dir_Error); + (Options, + With_Runtime => True, + Absent_Dir_Error => Absent_Dir_Error); exception when Exc : GPR2.Project_Error => Error := True; diff --git a/testsuite/tests/ada_api/gpr2_context/main.adb b/testsuite/tests/ada_api/gpr2_context/main.adb index 0d8f677ad..5f4445bfa 100644 --- a/testsuite/tests/ada_api/gpr2_context/main.adb +++ b/testsuite/tests/ada_api/gpr2_context/main.adb @@ -51,7 +51,7 @@ procedure Main is -- Load the requested tree and fetch the requested project (if any) Options.Add_Switch (GPR2.Options.P, Root_Project); - if not Tree.Load (Options) then + if not Tree.Load (Options, With_Runtime => True) then raise Program_Error; elsif Tree.Has_Messages then Tree.Log_Messages.Output_Messages (Information => False);