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/xsinfo.adb | |
| 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/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); |