Skip to content

Commit

Permalink
Remove GNAT bug OB03-009 workaround
Browse files Browse the repository at this point in the history
GNAT Community 2021 does not have this defect already.

TN: U430-004
Change-Id: Ib10b9d209a866daae7eb684f08a79b26d774dc83
  • Loading branch information
anisimkov committed Jun 20, 2021
1 parent 4472972 commit c752340
Showing 1 changed file with 1 addition and 9 deletions.
10 changes: 1 addition & 9 deletions sql/gnatcoll-sql_impl.adb
Original file line number Diff line number Diff line change
Expand Up @@ -191,15 +191,7 @@ package body GNATCOLL.SQL_Impl is
is
begin
if not Self.Data.Is_Null then
-- !!! Could not use Element call result in the
-- Append_If_Not_Aggregate parameter because of GNAT bug OB03-009

declare
FC : constant access SQL_Field_Internal'Class :=
Self.Data.Get.Element;
begin
Append_If_Not_Aggregate (FC, To, Is_Aggregate);
end;
Append_If_Not_Aggregate (Self.Data.Get.Element, To, Is_Aggregate);
end if;
end Append_If_Not_Aggregate;
end Data_Fields;
Expand Down

0 comments on commit c752340

Please sign in to comment.