From 0195650243cf9396ca96a9ae201c5e0d4aee165e Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 15 Nov 2025 21:33:25 +1300 Subject: GNAT bug workaround --- src/kompsos.ads | 2 +- test/pprint.adb | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/kompsos.ads b/src/kompsos.ads index 37533be..5a6af5f 100644 --- a/src/kompsos.ads +++ b/src/kompsos.ads @@ -433,7 +433,7 @@ private end record; type Term is tagged record - Actual : Term_Holders.Holder := Term_Holders.To_Holder (Term_Component'(Kind => Null_Term)); + Actual : Term_Holders.Holder; end record; Empty_Term : constant Term := diff --git a/test/pprint.adb b/test/pprint.adb index b34f255..c42b2c8 100644 --- a/test/pprint.adb +++ b/test/pprint.adb @@ -33,7 +33,7 @@ procedure PPrint is Term_One : constant Term := T (+"Hello"); Term_Two : constant Term := T (T (+"One") & T (+"Two") & T (+"Three")); Term_Three : constant Term := T (Term_One & Term_Two & T (+"World")); - Term_Four : constant Term := T (Null_Term & Null_Term); + Term_Four : constant Term := T (Empty_Term & Empty_Term); Term_Five : constant Term := T (T (+"Goodbye"), T (+"World")); begin -- cgit