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);