From ae8e6cb6bfd4626e753c72c4f9a5673501e6184d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Wed, 14 Nov 2018 18:18:27 +0100 Subject: dyn_tables: minor refactoring. --- src/dyn_tables.adb | 26 +++++++++++++------------- 1 file changed, 13 insertions(+), 13 deletions(-) (limited to 'src/dyn_tables.adb') 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; -- cgit v1.2.3