[Ada] Fix source location in bug box

[Arnaud Charlet <charlet at adacore dot com>]

Tested on i686-linux, committed on trunk

Recent back-ends are moving away from the statement-at-a-time compilation
scheme to make it easier to perform global optimizations on the IL. They
operate either in function-at-a-time mode or even in unit-at-a-time mode.
The front-end (Gigi) cannot track the source location pointer within a
subprogram once its translation has been completed and it has been handed
down to the back-end. It is therefore necessary to rely past this point
on the source location pointer tracking done in the back-end in order to
print a meaningful, albeit sometimes imprecise, location information.

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.

Attachment: difs
Description: Text document