#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;
void
dummy_handler () {}
-/* Lives in init.cc. */
+/* Lives in init.c. */
extern void (*__gnat_ctrl_c_handler) (void);
#endif
* 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)
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 *)
(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;
-- 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
-- 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
-- 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
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");
-- 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
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
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"