[Ada] Minor change to version string support

[Richard Guenther]

On Fri, Sep 10, 2010 at 12:13 PM, Arnaud Charlet <charlet@adacore.com> wrote:
> This is a small internal change to factor out the prefix of the version string
> generated by the binder and make it more explicit that it is cross-referenced
> in the runtime unit GNAT.Compiler_Version.
>
> No functional change.
>
> Tested on x86_64-pc-linux-gnu, committed on trunk

One of your patch yesterday broke bootstrap with Ada enabled on at
least x86_64-linux.  I now get

make[3]: Entering directory `/home/abuild/rguenther/obj/gcc/ada/tools'
../../gnatmake -c -b -I../rts -I. -I/space/rguenther/src/svn/trunk/gcc/ada \
          --GNATBIND="../../gnatbind" --GCC="../../xgcc -B../../ -g
-O2  -gnatpg -gnata" \
          gnatchop gnatcmd gnatkr gnatls gnatprep gnatxref gnatfind gnatname \
          gnatclean -bargs -I../rts -I.
-I/space/rguenther/src/svn/trunk/gcc/ada -static -x
../../xgcc -c -I./ -I../rts -I.
-I/space/rguenther/src/svn/trunk/gcc/ada -B../../ -g -O2 -gnatpg
-gnata -I- /home/space/rguenther/src/svn/trunk/gcc/ada/gnatchop.adb
../../gnatbind -I../rts -I. -I/space/rguenther/src/svn/trunk/gcc/ada
-I../rts -I. -I/space/rguenther/src/svn/trunk/gcc/ada -static -x -x
gnatchop.ali
../../xgcc -c -I./ -I../rts -I.
-I/space/rguenther/src/svn/trunk/gcc/ada -B../../ -g -O2 -gnatpg
-gnata -I- /home/space/rguenther/src/svn/trunk/gcc/ada/gnatcmd.adb
gnatcmd.adb:50:06: file "vms_cmds.ads" not found
gnatcmd.adb:50:06: "Gnatcmd (body)" depends on "Vms_Conv (spec)"
gnatcmd.adb:50:06: "Vms_Conv (spec)" depends on "Vms_Cmds (spec)"
gnatmake: "/home/space/rguenther/src/svn/trunk/gcc/ada/gnatcmd.adb"
compilation error
make[3]: *** [common-tools] Error 4
make[3]: Leaving directory `/home/abuild/rguenther/obj/gcc/ada/tools'
make[2]: *** [gnattools-native] Error 2
make[2]: Leaving directory `/home/abuild/rguenther/obj/gnattools'
make[1]: *** [all-gnattools] Error 2
make[1]: Leaving directory `/home/abuild/rguenther/obj'
make: *** [all] Error 2

Richard.

> 2010-09-10  Eric Botcazou  <ebotcazou@adacore.com>
>
>        * gnatvsn.ads (Ver_Prefix): New constant string.
>        * bindgen.adb (Gen_Output_File_Ada): Use it in lieu of hardcoded value.
>        (Gen_Output_File_C): Likewise.
>        * g-comver.adb (Ver_Prefix): Add cross-reference to Gnatvsn.Ver_Prefix
>        in comment.
>
>