diff options
author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-12 17:23:04 +0000 |
---|---|---|
committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-12 17:23:04 +0000 |
commit | becb63f573e95ce8f66c18766f70f608dc31734e (patch) | |
tree | 18042d58d56e687de9c857cb5ad05b8bf282ca29 /gcc/ada/argv.c | |
parent | 8991ae0afea9577f7319fc393c4efb52284a1df0 (diff) | |
download | gcc-becb63f573e95ce8f66c18766f70f608dc31734e.tar.gz |
* prefix.h: Wrap up in extern "C" block.
ada/
* adadecode.c: Wrap up in extern "C" block.
* adadecode.h: Likewise.
* adaint.c: Likewise. Remove 'const' keyword.
* adaint.h: Likewise.
* argv.c: Likewise.
* atree.h: Likewise.
* cio.c: Likewise.
* cstreams.c: Likewise.
* env.c: Likewise.
* exit.c: Likewise.
* fe.h: Likewise.
* final.c: Likewise.
* init.c: Likewise.
* initialize.c: Likewise.
* link.c: Likewise.
* namet.h: Likewise.
* nlists.h: Likewise.
* raise.c: Likewise.
* raise.h: Likewise.
* repinfo.h: Likewise.
* seh_init.c: Likewise.
* targext.c: Likewise.
* tracebak.c: Likewise.
* uintp.h: Likewise.
* urealp.h: Likewise.
* xeinfo.adb: Wrap up generated C code in extern "C" block.
* xsinfo.adb: Likewise.
* xsnamest.adb: Likewise.
* gcc-interface/gadaint.h: Wrap up in extern "C" block.
* gcc-interface/gigi.h: Wrap up some prototypes in extern "C" block.
* gcc-interface/misc.c: Likewise.
* gcc-interface/Make-lang.in (GCC_LINK): Use LINKER.
(GNAT1_C_OBJS): Remove ada/b_gnat1.o. List ada/seh_init.o and
ada/targext.o here...
(GNAT_ADA_OBJS): ...and not here.
(GNAT1_ADA_OBJS): Add ada/b_gnat1.o.
(GNATBIND_OBJS): Reorder.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176210 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/argv.c')
-rw-r--r-- | gcc/ada/argv.c | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/gcc/ada/argv.c b/gcc/ada/argv.c index b827b030f1e..29f163972ea 100644 --- a/gcc/ada/argv.c +++ b/gcc/ada/argv.c @@ -6,7 +6,7 @@ * * * C Implementation File * * * - * Copyright (C) 1992-2009, Free Software Foundation, Inc. * + * Copyright (C) 1992-2011, Free Software Foundation, Inc. * * * * GNAT is free software; you can redistribute it and/or modify it under * * terms of the GNU General Public License as published by the Free Soft- * @@ -30,17 +30,21 @@ ****************************************************************************/ /* Routines for accessing command line arguments from both the runtime - library and from the compiler itself. In the former case, gnat_argc + library and from the compiler itself. In the former case, gnat_argc and gnat_argv are the original argc and argv values as stored by the binder generated main program, and these routines are accessed from - the Ada.Command_Line package. In the compiler case, gnat_argc and + the Ada.Command_Line package. In the compiler case, gnat_argc and gnat_argv are the values as modified by toplev, and these routines - are accessed from the Osint package. */ + are accessed from the Osint package. */ /* Also routines for accessing the environment from the runtime library. Gnat_envp is the original envp value as stored by the binder generated 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 #include "tconfig.h" @@ -116,3 +120,7 @@ __gnat_fill_env (char *a, int i) if (gnat_envp != NULL) strncpy (a, gnat_envp[i], strlen (gnat_envp[i])); } + +#ifdef __cplusplus +} +#endif |