Commit 8afd02aa by Eric Botcazou Committed by Eric Botcazou

adaint.c: Move directive around.

	* adaint.c: Move directive around.
	* argv.c: Likewise.
	* cio.c: Likewise.
	* cstreams.c: Likewise.
	* env.c: Likewise.
	* exit.c: Likewise.
	* init.c: Likewise.
	* initialize.c: Likewise.
	* raise.c: Likewise.
	* seh_init.c: Likewise.
	* targext.c: Likewise.

From-SVN: r194660
parent d846aac9
2012-12-21 Eric Botcazou <ebotcazou@adacore.com>
* adaint.c: Move directive around.
* argv.c: Likewise.
* cio.c: Likewise.
* cstreams.c: Likewise.
* env.c: Likewise.
* exit.c: Likewise.
* init.c: Likewise.
* initialize.c: Likewise.
* raise.c: Likewise.
* seh_init.c: Likewise.
* targext.c: Likewise.
2012-12-15 Eric Botcazou <ebotcazou@adacore.com> 2012-12-15 Eric Botcazou <ebotcazou@adacore.com>
Martin Ettl <ettl.martin@gmx.de> Martin Ettl <ettl.martin@gmx.de>
......
...@@ -34,10 +34,6 @@ ...@@ -34,10 +34,6 @@
package Osint. Many of the subprograms in OS_Lib import standard package Osint. Many of the subprograms in OS_Lib import standard
library calls directly. This file contains all other routines. */ library calls directly. This file contains all other routines. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef __vxworks #ifdef __vxworks
/* No need to redefine exit here. */ /* No need to redefine exit here. */
...@@ -107,6 +103,10 @@ extern "C" { ...@@ -107,6 +103,10 @@ extern "C" {
#include "version.h" #include "version.h"
#endif #endif
#ifdef __cplusplus
extern "C" {
#endif
#if defined (__MINGW32__) #if defined (__MINGW32__)
#if defined (RTX) #if defined (RTX)
......
...@@ -42,10 +42,6 @@ ...@@ -42,10 +42,6 @@
main program, and these routines are accessed from the main program, and these routines are accessed from the
Ada.Command_Line.Environment package. */ Ada.Command_Line.Environment package. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -57,6 +53,10 @@ extern "C" { ...@@ -57,6 +53,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#ifdef __cplusplus
extern "C" {
#endif
/* argc and argv of the main program are saved under gnat_argc and gnat_argv, /* argc and argv of the main program are saved under gnat_argc and gnat_argv,
envp of the main program is saved under gnat_envp. */ envp of the main program is saved under gnat_envp. */
......
...@@ -29,10 +29,6 @@ ...@@ -29,10 +29,6 @@
* * * *
****************************************************************************/ ****************************************************************************/
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -44,6 +40,10 @@ extern "C" { ...@@ -44,6 +40,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#ifdef __cplusplus
extern "C" {
#endif
/* Don't use macros on GNU/Linux since they cause incompatible changes between /* Don't use macros on GNU/Linux since they cause incompatible changes between
glibc 2.0 and 2.1 */ glibc 2.0 and 2.1 */
#ifdef linux #ifdef linux
......
...@@ -31,10 +31,6 @@ ...@@ -31,10 +31,6 @@
/* Routines required for implementing routines in Interfaces.C.Streams. */ /* Routines required for implementing routines in Interfaces.C.Streams. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef __vxworks #ifdef __vxworks
#include "vxWorks.h" #include "vxWorks.h"
#endif #endif
...@@ -50,6 +46,10 @@ extern "C" { ...@@ -50,6 +46,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#ifdef __cplusplus
extern "C" {
#endif
#ifdef VMS #ifdef VMS
#include <unixlib.h> #include <unixlib.h>
#endif #endif
......
...@@ -29,10 +29,6 @@ ...@@ -29,10 +29,6 @@
* * * *
****************************************************************************/ ****************************************************************************/
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -76,6 +72,10 @@ extern "C" { ...@@ -76,6 +72,10 @@ extern "C" {
#include "system.h" #include "system.h"
#endif /* IN_RTS */ #endif /* IN_RTS */
#ifdef __cplusplus
extern "C" {
#endif
#if defined (__APPLE__) #if defined (__APPLE__)
#include <crt_externs.h> #include <crt_externs.h>
#endif #endif
......
...@@ -29,10 +29,6 @@ ...@@ -29,10 +29,6 @@
* * * *
****************************************************************************/ ****************************************************************************/
#ifdef __cplusplus
extern "C" {
#endif
#ifdef __alpha_vxworks #ifdef __alpha_vxworks
#include "vxWorks.h" #include "vxWorks.h"
#endif #endif
...@@ -48,6 +44,10 @@ extern "C" { ...@@ -48,6 +44,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#ifdef __cplusplus
extern "C" {
#endif
/* Routine used by Ada.Command_Line.Set_Exit_Status. */ /* Routine used by Ada.Command_Line.Set_Exit_Status. */
int gnat_exit_status = 0; int gnat_exit_status = 0;
......
...@@ -38,10 +38,6 @@ ...@@ -38,10 +38,6 @@
installed by this file are used to catch the resulting signals that come installed by this file are used to catch the resulting signals that come
from these probes failing (i.e. touching protected pages). */ from these probes failing (i.e. touching protected pages). */
#ifdef __cplusplus
extern "C" {
#endif
/* This file should be kept synchronized with 2sinit.ads, 2sinit.adb, /* This file should be kept synchronized with 2sinit.ads, 2sinit.adb,
s-init-ae653-cert.adb and s-init-xi-sparc.adb. All these files implement s-init-ae653-cert.adb and s-init-xi-sparc.adb. All these files implement
the required functionality for different targets. */ the required functionality for different targets. */
...@@ -71,6 +67,10 @@ extern "C" { ...@@ -71,6 +67,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#include "raise.h" #include "raise.h"
#ifdef __cplusplus
extern "C" {
#endif
extern void __gnat_raise_program_error (const char *, int); extern void __gnat_raise_program_error (const char *, int);
/* Addresses of exception data blocks for predefined exceptions. Tasking_Error /* Addresses of exception data blocks for predefined exceptions. Tasking_Error
......
...@@ -34,10 +34,6 @@ ...@@ -34,10 +34,6 @@
in a separate file/object so that users can replace it easily. in a separate file/object so that users can replace it easily.
The default implementation should be null on most targets. */ The default implementation should be null on most targets. */
#ifdef __cplusplus
extern "C" {
#endif
/* The following include is here to meet the published VxWorks requirement /* The following include is here to meet the published VxWorks requirement
that the __vxworks header appear before any other include. */ that the __vxworks header appear before any other include. */
#ifdef __vxworks #ifdef __vxworks
...@@ -57,6 +53,10 @@ extern "C" { ...@@ -57,6 +53,10 @@ extern "C" {
#include "raise.h" #include "raise.h"
#ifdef __cplusplus
extern "C" {
#endif
/******************************************/ /******************************************/
/* __gnat_initialize (NT-mingw32 Version) */ /* __gnat_initialize (NT-mingw32 Version) */
/******************************************/ /******************************************/
......
...@@ -32,10 +32,6 @@ ...@@ -32,10 +32,6 @@
/* Shared routines to support exception handling. __gnat_unhandled_terminate /* Shared routines to support exception handling. __gnat_unhandled_terminate
is shared between all exception handling mechanisms. */ is shared between all exception handling mechanisms. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -47,6 +43,10 @@ extern "C" { ...@@ -47,6 +43,10 @@ extern "C" {
#include "adaint.h" #include "adaint.h"
#include "raise.h" #include "raise.h"
#ifdef __cplusplus
extern "C" {
#endif
/* Wrapper to builtin_longjmp. This is for the compiler eh only, as the sjlj /* Wrapper to builtin_longjmp. This is for the compiler eh only, as the sjlj
runtime library interfaces directly to the intrinsic. We can't yet do runtime library interfaces directly to the intrinsic. We can't yet do
this for the compiler itself, because this capability relies on changes this for the compiler itself, because this capability relies on changes
......
...@@ -32,10 +32,6 @@ ...@@ -32,10 +32,6 @@
/* This unit contains support for SEH (Structured Exception Handling). /* This unit contains support for SEH (Structured Exception Handling).
Right now the only implementation is for Win32. */ Right now the only implementation is for Win32. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -50,6 +46,10 @@ extern "C" { ...@@ -50,6 +46,10 @@ extern "C" {
#include "raise.h" #include "raise.h"
#ifdef __cplusplus
extern "C" {
#endif
/* Addresses of exception data blocks for predefined exceptions. */ /* Addresses of exception data blocks for predefined exceptions. */
extern struct Exception_Data constraint_error; extern struct Exception_Data constraint_error;
extern struct Exception_Data numeric_error; extern struct Exception_Data numeric_error;
......
...@@ -35,10 +35,6 @@ ...@@ -35,10 +35,6 @@
Note that, in order to have access to the TARGET_* macros used below, Note that, in order to have access to the TARGET_* macros used below,
the file must be compiled with IN_GCC defined, even for the library. */ the file must be compiled with IN_GCC defined, even for the library. */
#ifdef __cplusplus
extern "C" {
#endif
#ifdef IN_RTS #ifdef IN_RTS
#include "tconfig.h" #include "tconfig.h"
#include "tsystem.h" #include "tsystem.h"
...@@ -57,6 +53,10 @@ extern "C" { ...@@ -57,6 +53,10 @@ extern "C" {
#define TARGET_EXECUTABLE_SUFFIX "" #define TARGET_EXECUTABLE_SUFFIX ""
#endif #endif
#ifdef __cplusplus
extern "C" {
#endif
const char *__gnat_target_object_extension = TARGET_OBJECT_SUFFIX; const char *__gnat_target_object_extension = TARGET_OBJECT_SUFFIX;
const char *__gnat_target_executable_extension = TARGET_EXECUTABLE_SUFFIX; const char *__gnat_target_executable_extension = TARGET_EXECUTABLE_SUFFIX;
const char *__gnat_target_debuggable_extension = TARGET_EXECUTABLE_SUFFIX; const char *__gnat_target_debuggable_extension = TARGET_EXECUTABLE_SUFFIX;
......
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