Commit a9fdbccb by Arnaud Charlet

[multiple changes]

2015-10-26  Ed Schonberg  <schonberg@adacore.com>

	* sem_ch12.adb (Analyze_Formal_Package_Declaration): Do not set
	Box_Present when the formal part is (others => <>) even though
	it is equivalent to a formal part (<>), because ASIS tools depend
	on the syntactic setting of this flag.

2015-10-26  Hristian Kirtchev  <kirtchev@adacore.com>

	* sem_ch13.adb: Minor reformatting.
	* einfo.ads: Minor typo.

2015-10-26  Joel Brobecker  <brobecker@adacore.com brobecker>

	* adaint.c (__gnat_open_new_temp): Use mkstemp on Android.

From-SVN: r229318
parent f8ac2f07
2015-10-26 Ed Schonberg <schonberg@adacore.com> 2015-10-26 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Formal_Package_Declaration): Do not set
Box_Present when the formal part is (others => <>) even though
it is equivalent to a formal part (<>), because ASIS tools depend
on the syntactic setting of this flag.
2015-10-26 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch13.adb: Minor reformatting.
* einfo.ads: Minor typo.
2015-10-26 Joel Brobecker <brobecker@adacore.com brobecker>
* adaint.c (__gnat_open_new_temp): Use mkstemp on Android.
2015-10-26 Ed Schonberg <schonberg@adacore.com>
* sem_ch12.adb (Analyze_Formal_Package_Declaration): Code clean up. * sem_ch12.adb (Analyze_Formal_Package_Declaration): Code clean up.
* sem_ch13.adb (Check_Inherited_Indexing): New inner procedure * sem_ch13.adb (Check_Inherited_Indexing): New inner procedure
of Check_Indexing_Functions, to verify that a derived type with an of Check_Indexing_Functions, to verify that a derived type with an
......
...@@ -983,8 +983,8 @@ __gnat_open_new_temp (char *path, int fmode) ...@@ -983,8 +983,8 @@ __gnat_open_new_temp (char *path, int fmode)
strcpy (path, "GNAT-XXXXXX"); strcpy (path, "GNAT-XXXXXX");
#if (defined (__FreeBSD__) || defined (__NetBSD__) || defined (__OpenBSD__) \ #if (defined (__FreeBSD__) || defined (__NetBSD__) || defined (__OpenBSD__) \
|| defined (__linux__) || defined (__GLIBC__)) && !defined (__vxworks) \ || defined (__linux__) || defined (__GLIBC__) || defined (__ANDROID__) \
|| defined (__DragonFly__) || defined (__DragonFly__)) && !defined (__vxworks)
return mkstemp (path); return mkstemp (path);
#elif defined (__Lynx__) #elif defined (__Lynx__)
mktemp (path); mktemp (path);
......
...@@ -3899,7 +3899,7 @@ package Einfo is ...@@ -3899,7 +3899,7 @@ package Einfo is
-- Requires_Overriding (Flag213) -- Requires_Overriding (Flag213)
-- Defined in all subprograms and entries. Set for subprograms that -- Defined in all subprograms and entries. Set for subprograms that
-- require overriding as defined by RM-2005-3.9.3(6/2). Note that this -- require overriding as defined by RM-2005-3.9.3(6/2). Note that this
-- is True only for implicitly declare subprograms; it is not set on the -- is True only for implicitly declared subprograms; it is not set on the
-- parent type's subprogram. See also Is_Abstract_Subprogram. -- parent type's subprogram. See also Is_Abstract_Subprogram.
-- Return_Present (Flag54) -- Return_Present (Flag54)
......
...@@ -4014,8 +4014,7 @@ package body Sem_Ch13 is ...@@ -4014,8 +4014,7 @@ package body Sem_Ch13 is
else else
Illegal_Indexing Illegal_Indexing
("indexing function already inherited " ("indexing function already inherited from parent type");
& "from parent type");
Error_Msg_NE Error_Msg_NE
("!override & instead", ("!override & instead",
N, Entity (Expression (Inherited))); N, Entity (Expression (Inherited)));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment