からソースを入手したAdacoreので、動作するはずです。Adacore にも「問題」を残しましたが、解決に時間がかかる場合があります。私は何か間違ったことをしているかもしれないと思うのですが、何か提案はありますか?
問題は次のとおりです。
$ gnat make gnatcoll-json.adb
gcc -c gnatcoll-json.adb
gnatcoll-json.adb:33:23: missing body for "Prepend" declared at gnatcoll-json.ads:64
gnatcoll-json.adb:33:23: missing body for "Create" declared at gnatcoll-json.ads:99
gnatcoll-json.adb:33:23: missing body for "Set_Field" declared at gnatcoll-json.ads:144
gnatcoll-json.adb:33:23: missing body for "Get" declared at gnatcoll-json.ads:173
gnatcoll-json.adb:33:23: missing body for "Get" declared at gnatcoll-json.ads:206
gnatcoll-json.adb:454:63: prefix of dereference must be an access type
gnatcoll-json.adb:641:33: invalid operand types for operator "/=" gnatcoll-json.adb:641:33: left operand has private type "UTF8_Unbounded_String" defined at gnatcoll-json.ads:47
gnatcoll-json.adb:641:33: right operand has an access type
gnatcoll-json.adb:642:19: no candidate interpretations match the actuals:
gnatcoll-json.adb:642:28: expected type "Counter" defined at gnatcoll-json.ads:239
gnatcoll-json.adb:642:28: found private type "Ada.Strings.Unbounded.Unbounded_String"
gnatcoll-json.adb:642:28: ==> in call to "Free" at gnatcoll-json.ads:289
gnatcoll-json.adb:642:28: ==> in call to "Free" at gnatcoll-json.ads:287
gnatcoll-json.adb:642:28: ==> in call to "Free" at gnatcoll-json.ads:285
gnatcoll-json.adb:642:28: ==> in call to "Free" at a-strunb.ads:88
gnatcoll-json.adb:714:24: expected private type "Ada.Strings.Unbounded.Unbounded_String"
gnatcoll-json.adb:714:24: found type access to "UTF8_String" defined at line 714
gnatcoll-json.adb:841:28: prefix of dereference must be an access type
gnatmake: "gnatcoll-json.adb" compilation error
ファイル内の欠落している本文が最初の問題のようです。gnatcoll.adsたとえば、Prependgnatcoll.adbの本文がそのファイルにないことは確かに真実ですが、いずれにせよ、本文はファイルではなく、ファイルにあるはずだと思いましgnatcoll.adsた。