- -- "PUBLIC "
- -- GNAT Public version. This is a public version of GNAT, released
- -- by Ada Core Technologies and intended for educational use.
- -- The binder will output informational messages, and the bug box
- -- generated by the package Comperr will give appropriate bug
- -- submission instructions that do not reference customer number etc.
- --
- -- These are the only allowable settings for this string
+ -- GPL
+ -- GNAT GPL Edition. This is a special version of GNAT, released by
+ -- Ada Core Technologies and intended for academic users, and free
+ -- software developers. The bug box generated by the package Comperr
+ -- gives appropriate bug submission instructions that do not reference
+ -- customer number etc.
+
+ function Gnat_Free_Software return String;
+ -- Text to be displayed by the different GNAT tools when switch --version
+ -- is used. This text depends on the GNAT build type.
+
+ function Copyright_Holder return String;
+ -- Return the name of the Copyright holder to be displayed by the different
+ -- GNAT tools when switch --version is used.