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/xsinfo.adb | |
| parent | 4d652a1865628038acbfc0b9cab1ef7547d49d40 (diff) | |
| download | gcc-9e9bd455d4cb9df5f0c54858448ebfd699b14f1b.tar.gz | |
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/xsinfo.adb')
| -rw-r--r-- | gcc/ada/xsinfo.adb | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/ada/xsinfo.adb b/gcc/ada/xsinfo.adb index 3bf6011ffc0..869ae873f29 100644 --- a/gcc/ada/xsinfo.adb +++ b/gcc/ada/xsinfo.adb @@ -162,6 +162,11 @@ begin end loop; Put_Line (Ofile, ""); + + Put_Line (Ofile, "#ifdef __cplusplus"); + Put_Line (Ofile, "extern ""C"" {"); + Put_Line (Ofile, "#endif"); + NKV := 0; -- Loop through node kind codes @@ -248,6 +253,9 @@ exception when Done => Close (InS); Put_Line (Ofile, ""); + Put_Line (Ofile, "#ifdef __cplusplus"); + Put_Line (Ofile, "}"); + Put_Line (Ofile, "#endif"); Close (Ofile); Set_Exit_Status (0); |