diff options
| author | Laurent GUERBY <laurent@guerby.net> | 2011-07-12 17:23:04 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2011-07-12 17:23:04 +0000 |
| commit | 9e9bd455d4cb9df5f0c54858448ebfd699b14f1b (patch) | |
| tree | 18042d58d56e687de9c857cb5ad05b8bf282ca29 /gcc/ada/argv.c | |
| parent | 4d652a1865628038acbfc0b9cab1ef7547d49d40 (diff) | |
| download | gcc-9e9bd455d4cb9df5f0c54858448ebfd699b14f1b.zip gcc-9e9bd455d4cb9df5f0c54858448ebfd699b14f1b.tar.gz gcc-9e9bd455d4cb9df5f0c54858448ebfd699b14f1b.tar.bz2 | |
prefix.h: Wrap up in extern "C" block.
* 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.
Co-Authored-By: Eric Botcazou <ebotcazou@adacore.com>
From-SVN: r176210
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 b827b03..29f1639 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 |