diff options
Diffstat (limited to 'gcc/ada/prj-env.adb')
| -rw-r--r-- | gcc/ada/prj-env.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/prj-env.adb b/gcc/ada/prj-env.adb index 15a443698fa..f2c8500f9ee 100644 --- a/gcc/ada/prj-env.adb +++ b/gcc/ada/prj-env.adb @@ -1281,7 +1281,7 @@ package body Prj.Env is -- If there are Ada sources, call action with the name of every -- source directory. - if Has_Ada_Sources (Project) then + if Has_Ada_Sources (Prj) then while Current /= Nil_String loop The_String := In_Tree.Shared.String_Elements.Table (Current); Action (Get_Name_String (The_String.Display_Value)); |