Ada: Revert filename changes in comments.
gcc/ada/ChangeLog: * adaint.c: Revert filename changes in comments. * ctrl_c.c (dummy_handler): Likewise. * gsocket.h: Likewise. * init.c (__gnat_error_handler): Likewise. * libgnarl/s-intman.ads: Likewise. * libgnarl/s-osinte__android.ads: Likewise. * libgnarl/s-osinte__darwin.ads: Likewise. * libgnarl/s-osinte__hpux.ads: Likewise. * libgnarl/s-osinte__linux.ads: Likewise. * libgnarl/s-osinte__qnx.ads: Likewise. * libgnarl/s-taskin.ads: Likewise. * rtfinal.c: Likewise.
This commit is contained in:
parent
903e846578
commit
ff7aeceb6b
|
@ -172,7 +172,7 @@ extern "C" {
|
|||
|
||||
#include "mingw32.h"
|
||||
|
||||
/* Current code page and CCS encoding to use, set in initialize.cc. */
|
||||
/* Current code page and CCS encoding to use, set in initialize.c. */
|
||||
UINT __gnat_current_codepage;
|
||||
UINT __gnat_current_ccs_encoding;
|
||||
|
||||
|
|
|
@ -61,7 +61,7 @@ void __gnat_uninstall_int_handler (void);
|
|||
void
|
||||
dummy_handler () {}
|
||||
|
||||
/* Lives in init.cc. */
|
||||
/* Lives in init.c. */
|
||||
extern void (*__gnat_ctrl_c_handler) (void);
|
||||
#endif
|
||||
|
||||
|
|
|
@ -246,7 +246,7 @@
|
|||
* mutual exclusion
|
||||
*
|
||||
* See "Handling of gethostbyname, gethostbyaddr, getservbyname and
|
||||
* getservbyport" in socket.cc for details.
|
||||
* getservbyport" in socket.c for details.
|
||||
*/
|
||||
|
||||
#if defined (HAVE_GETxxxBYyyy_R)
|
||||
|
|
|
@ -542,7 +542,7 @@ __gnat_error_handler (int sig, siginfo_t *si ATTRIBUTE_UNUSED, void *ucontext)
|
|||
before the faulting address is accessible. Unfortunately, Linux
|
||||
seems to have no way of giving us the faulting address.
|
||||
|
||||
In old versions of init.cc, we had a test of the page before the
|
||||
In old versions of init.c, we had a test of the page before the
|
||||
stack pointer:
|
||||
|
||||
((volatile char *)
|
||||
|
|
|
@ -105,7 +105,7 @@ private
|
|||
(C, Adjust_Context_For_Raise, "__gnat_adjust_context_for_raise");
|
||||
-- Target specific hook performing adjustments to the signal's machine
|
||||
-- context, to be called before an exception may be raised from a signal
|
||||
-- handler. This service is provided by init.cc, together with the
|
||||
-- handler. This service is provided by init.c, together with the
|
||||
-- non-tasking signal handler.
|
||||
|
||||
end System.Interrupt_Management;
|
||||
|
|
|
@ -309,7 +309,7 @@ package System.OS_Interface is
|
|||
-- The alternate signal stack for stack overflows
|
||||
|
||||
Alternate_Stack_Size : constant := 16 * 1024;
|
||||
-- This must be in keeping with init.cc:__gnat_alternate_stack
|
||||
-- This must be in keeping with init.c:__gnat_alternate_stack
|
||||
|
||||
Stack_Base_Available : constant Boolean := False;
|
||||
-- Indicates whether the stack base is available on this target
|
||||
|
|
|
@ -288,7 +288,7 @@ package System.OS_Interface is
|
|||
-- The alternate signal stack for stack overflows
|
||||
|
||||
Alternate_Stack_Size : constant := 32 * 1024;
|
||||
-- This must be in keeping with init.cc:__gnat_alternate_stack
|
||||
-- This must be in keeping with init.c:__gnat_alternate_stack
|
||||
|
||||
Stack_Base_Available : constant Boolean := False;
|
||||
-- Indicates whether the stack base is available on this target. This
|
||||
|
|
|
@ -293,7 +293,7 @@ package System.OS_Interface is
|
|||
-- The alternate signal stack for stack overflows
|
||||
|
||||
Alternate_Stack_Size : constant := 128 * 1024;
|
||||
-- This must be in keeping with init.cc:__gnat_alternate_stack
|
||||
-- This must be in keeping with init.c:__gnat_alternate_stack
|
||||
|
||||
Stack_Base_Available : constant Boolean := False;
|
||||
-- Indicates whether the stack base is available on this target
|
||||
|
|
|
@ -331,7 +331,7 @@ package System.OS_Interface is
|
|||
pragma Import (C, sigaltstack, "sigaltstack");
|
||||
|
||||
Alternate_Stack_Size : constant := 32 * 1024;
|
||||
-- This must be in keeping with init.cc:__gnat_alternate_stack
|
||||
-- This must be in keeping with init.c:__gnat_alternate_stack
|
||||
|
||||
Alternate_Stack : aliased char_array (1 .. Alternate_Stack_Size);
|
||||
pragma Import (C, Alternate_Stack, "__gnat_alternate_stack");
|
||||
|
|
|
@ -310,7 +310,7 @@ package System.OS_Interface is
|
|||
-- sigaltstack in QNX
|
||||
|
||||
Alternate_Stack_Size : constant := 0;
|
||||
-- This must be kept in sync with init.cc:__gnat_alternate_stack
|
||||
-- This must be kept in sync with init.c:__gnat_alternate_stack
|
||||
|
||||
Stack_Base_Available : constant Boolean := False;
|
||||
-- Indicates whether the stack base is available on this target
|
||||
|
|
|
@ -776,7 +776,7 @@ package System.Tasking is
|
|||
Unspecified_Priority : constant Integer := -1;
|
||||
-- Indicates that a task has an unspecified priority. This is hardcoded as
|
||||
-- -1 rather than System.Priority'First - 1 as the value needs to be used
|
||||
-- in init.cc to specify that the main task has no specified priority.
|
||||
-- in init.c to specify that the main task has no specified priority.
|
||||
|
||||
Priority_Not_Boosted : constant Integer := System.Priority'First - 1;
|
||||
-- Definition of Priority actually has to come from the RTS configuration
|
||||
|
|
|
@ -43,7 +43,7 @@ extern void __gnat_runtime_finalize (void);
|
|||
Note that __gnat_runtime_finalize() is called in adafinal() */
|
||||
|
||||
extern int __gnat_rt_init_count;
|
||||
/* see initialize.cc */
|
||||
/* see initialize.c */
|
||||
|
||||
#if defined (__MINGW32__)
|
||||
#include "mingw32.h"
|
||||
|
|
Loading…
Reference in New Issue