gnatvsn.ads, [...] (Get_Gnat_build_Type): Renamed Build_Type and made constant.
authorArnaud Charlet <charlet@gcc.gnu.org>
Fri, 6 Apr 2007 09:41:46 +0000 (11:41 +0200)
committerArnaud Charlet <charlet@gcc.gnu.org>
Fri, 6 Apr 2007 09:41:46 +0000 (11:41 +0200)
commit8405d93cb85e88f95daae9de30039cc9745f507d
treec6f6dd10e9c3e6978354a61ce48fdb5c9e6a3be9
parent737053d61e42154666df468ddc9caacfd173eaab
gnatvsn.ads, [...] (Get_Gnat_build_Type): Renamed Build_Type and made constant.

2007-04-06  Arnaud Charlet  <charlet@adacore.com>
    Eric Botcazou <botcazou@adacore.com>

* gnatvsn.ads, comperr.adb (Get_Gnat_build_Type): Renamed Build_Type
and made constant.

* comperr.ads, comperr.adb (Compiler_Abort): Add third parameter
Fallback_Loc. Use it as the sloc info when Current_Error_Node doesn't
carry any.

* fe.h (Compiler_Abort): Add third parameter.

* misc.c (internal_error_function): Build third argument from current
input location and pass it to Compiler_Abort.

From-SVN: r123610
gcc/ada/comperr.adb
gcc/ada/comperr.ads
gcc/ada/fe.h
gcc/ada/gnatvsn.ads
gcc/ada/misc.c