]> git.ipfire.org Git - thirdparty/gcc.git/commit
projects / thirdparty / gcc.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: 62c126d) | patch
Ada: Fix internal error on incomplete private tagged type
authorEric Botcazou <ebotcazou@adacore.com>
Thu, 11 Dec 2025 19:08:54 +0000 (20:08 +0100)
committerEric Botcazou <ebotcazou@adacore.com>
Thu, 11 Dec 2025 19:14:20 +0000 (20:14 +0100)
commitb0365ca040bdba4de17d72f45bfc18912fca36ac
tree22c9d26e75542478dddb013f7aba79a9a0126f8btree
parent62c126db6b6017011dcbe6945aab371ab48f8dedcommit | diff
Ada: Fix internal error on incomplete private tagged type

The code expects the partial view but gets the incomplete view instead.

gcc/ada/
PR ada/123096
* exp_put_image.adb (Build_Record_Put_Image_Procedure): Call
Incomplete_Or_Partial_View with Partial_Only set to True.

gcc/testsuite/
* gnat.dg/specs/put_image2.ads: New test.
gcc/ada/exp_put_image.adb diff | blob | blame | history
gcc/testsuite/gnat.dg/specs/put_image2.ads [new file with mode: 0644] blob
Mirror of https://gcc.gnu.org/git/gcc.git