diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-15 21:33:25 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-11-15 21:33:25 +1300 |
| commit | 0195650243cf9396ca96a9ae201c5e0d4aee165e (patch) | |
| tree | 7425608843f5d711fcca73a30a3c4caaa1e6bdee | |
| parent | 69514149fb1ddc17be744a883806e8bc3c8ebb7a (diff) | |
GNAT bug workaround
| -rw-r--r-- | src/kompsos.ads | 2 | ||||
| -rw-r--r-- | 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 |