mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 23:31:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

[multiple changes]

Browse Source 
2009-04-17  Nicolas Roche  <roche@adacore.com>

	* initialize.c (__gnat_initialize): remove MAX_PATH limitation on each
	argument length.

2009-04-17  Gary Dismukes  <dismukes@adacore.com>

	* sem_elim.adb (Eliminate_Error_Msg): Minor change to error message to
	cover both calls and attribute references ("call" => "reference").

2009-04-17  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch3.adb (Analyze_Subtype_Declaration): A subtype of an access
	type for which Storage_Size is set to 0 is legal in a pure unit.

From-SVN: r146237
This commit is contained in:
Arnaud Charlet 2009-04-17 12:01:17 +02:00
parent bf327c92ea
commit 03f050b6b4
4 changed files with 23 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
gcc/ada/ChangeLog
View File

@ -1,3 +1,18 @@
2009-04-17 Nicolas Roche <roche@adacore.com>
* initialize.c (__gnat_initialize): remove MAX_PATH limitation on each
argument length.
2009-04-17 Gary Dismukes <dismukes@adacore.com>
* sem_elim.adb (Eliminate_Error_Msg): Minor change to error message to
cover both calls and attribute references ("call" => "reference").
2009-04-17 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Analyze_Subtype_Declaration): A subtype of an access
type for which Storage_Size is set to 0 is legal in a pure unit.
2009-04-17 Thomas Quinot <quinot@adacore.com>
* exp_ch7.adb: Minor reformatting

8
gcc/ada/initialize.c
View File

@ -99,10 +99,10 @@ __gnat_initialize (void *eh)
/* Adjust gnat_argv to support Unicode characters. */
{
char arg_utf8[MAX_PATH];
LPWSTR *wargv;
int wargc;
int k;
int size;
wargv = CommandLineToArgvW (GetCommandLineW(), &wargc);
@ -113,9 +113,9 @@ __gnat_initialize (void *eh)
for (k=0; k<wargc; k++)
{
WS2SC (arg_utf8, wargv[k], MAX_PATH);
gnat_argv[k] = (char *) xmalloc (strlen (arg_utf8) + 1);
strcpy (gnat_argv[k], arg_utf8);
size = WS2SC (NULL, wargv[k], 0);
gnat_argv[k] = (char *) xmalloc (size + 1);
WS2SC (gnat_argv[k], wargv[k], size);
}
LocalFree (wargv);

4
gcc/ada/sem_ch3.adb
View File

@ -3606,11 +3606,13 @@ package body Sem_Ch3 is
-- A Pure library_item must not contain the declaration of a
-- named access type, except within a subprogram, generic
-- subprogram, task unit, or protected unit (RM 10.2.1(16)).
-- subprogram, task unit, or protected unit, or if it has
-- a specified Storage_Size of zero (RM05-10.2.1(15.4-15.5)).
if Comes_From_Source (Id)
and then In_Pure_Unit
and then not In_Subprogram_Task_Protected_Unit
and then not No_Pool_Assigned (Id)
then
Error_Msg_N
("named access types not allowed in pure unit", N);

2
gcc/ada/sem_elim.adb
View File

@ -671,7 +671,7 @@ package body Sem_Elim is
for J in Elim_Entities.First .. Elim_Entities.Last loop
if E = Elim_Entities.Table (J).Subp then
Error_Msg_Sloc := Sloc (Elim_Entities.Table (J).Prag);
Error_Msg_NE ("cannot call subprogram & eliminated #", N, E);
Error_Msg_NE ("cannot reference subprogram & eliminated #", N, E);
return;
end if;
end loop;