diff options
Diffstat (limited to 'gcc/ada/rtsfind.adb')
| -rw-r--r-- | gcc/ada/rtsfind.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/rtsfind.adb b/gcc/ada/rtsfind.adb index 720ad257a83..b36ee59bed4 100644 --- a/gcc/ada/rtsfind.adb +++ b/gcc/ada/rtsfind.adb @@ -1052,9 +1052,9 @@ package body Rtsfind is function RTU_Loaded (U : RTU_Id) return Boolean is begin - return True and Present (RT_Unit_Table (U).Entity); - -- Temp kludge, return True, deals with bug of loading unit with - -- WITH not being registered as a proper rtsfind load ??? + return True or else Present (RT_Unit_Table (U).Entity); + -- Temporary kludge until we get proper interaction to ensure that + -- an explicit WITH of a unit is properly registered in rtsfind ??? end RTU_Loaded; -------------------- |