diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-15 20:10:04 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-07-15 20:10:04 +0000 |
| commit | 438ee47fa49f415baa8e6e9aea8d697aff121c93 (patch) | |
| tree | 3519298958c5b72ad7fd278d9325609ae878f932 /gcc/ada/argv.c | |
| parent | a50f08393c40a888a5d8786b289e3c63cd0cc7c3 (diff) | |
| download | gcc-438ee47fa49f415baa8e6e9aea8d697aff121c93.tar.gz | |
2011-07-15 Basile Starynkevitch <basile@starynkevitch.net>
MELT branch merged with trunk rev 176319 using svnmerge.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@176330 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 |