diff options
Diffstat (limited to 'gcc/ada/s-htable.adb')
| -rw-r--r-- | gcc/ada/s-htable.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/s-htable.adb b/gcc/ada/s-htable.adb index 68a4ac3..7b5ee03 100644 --- a/gcc/ada/s-htable.adb +++ b/gcc/ada/s-htable.adb @@ -195,16 +195,16 @@ package body System.HTable is ------------------------ function Set_If_Not_Present (E : Elmt_Ptr) return Boolean is - K : constant Key := Get_Key (E); + K : constant Key := Get_Key (E); Index : constant Header_Num := Hash (K); - Elmt : Elmt_Ptr := Table (Index); + Elmt : Elmt_Ptr; begin + Elmt := Table (Index); loop if Elmt = Null_Ptr then Set_Next (E, Table (Index)); Table (Index) := E; - return True; elsif Equal (Get_Key (Elmt), K) then |