dyn_tables: minor refactoring.

1 files changed, 13 insertions, 13 deletions

diff --git a/src/dyn_tables.adb b/src/dyn_tables.adb
index 9af097702..c7fcc41e8 100644
--- a/src/dyn_tables.adb
+++ b/src/dyn_tables.adb
@@ -49,21 +49,21 @@ package body Dyn_Tables is
       --  Check if need to reallocate.
       if T.Priv.Last_Pos < T.Priv.Length then
          return;
-      else
-         --  Double the length.
-         loop
-            New_Len := T.Priv.Length * 2;
-
-            --  Check overflow.
-            if New_Len < T.Priv.Length then
-               raise Constraint_Error;
-            end if;
-
-            T.Priv.Length := New_Len;
-            exit when New_Len > T.Priv.Last_Pos;
-         end loop;
       end if;
 
+      --  Double the length.
+      loop
+         New_Len := T.Priv.Length * 2;
+
+         --  Check overflow.
+         if New_Len < T.Priv.Length then
+            raise Constraint_Error;
+         end if;
+
+         T.Priv.Length := New_Len;
+         exit when New_Len > T.Priv.Last_Pos;
+      end loop;
+
       --  Realloc and check result.
       if size_t (T.Priv.Length) > size_t'Last / El_Size then
          raise Constraint_Error;