Discussion :

[rocklass]

Je viens de faire un programme Ada qui appelle un programme C++.

Voici mon fichier .cpp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
#ifndef INTERFACE4ADA_CPP_
#define INTERFACE4ADA_CPP_
 
int getNbElements() {
	return 0;
}
#endif /* INTERFACE4ADA_CPP_ */

Voici mon fichier .adb :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
with Ada.Text_Io, Ada.Integer_Text_Io;
with Interfaces.C;
use Ada.Text_Io, Ada.Integer_Text_Io;
 
procedure PCC is
 
	package C renames Interfaces.C;
 
	procedure init is
		function Get_Nb_Elements return integer ;
		pragma import(C, Get_Nb_Elements, "getNbElements");
 
	nb_elements : integer;
	begin
		Put_Line("Initialisation du PCC");
   	        nb_elements := Get_Nb_Elements;
	end;
begin
        Put_Line("Debut du programme");
	init;
        Put_Line("Fin du programme");
end PCC;

Au moment du link, je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
$> gnatlink pcc.ali Interface4Ada.o
Interface4Ada.o:(.eh_frame+0x12): undefined reference to `__gxx_personality_v0'
./pcc.o: In function `pcc__init.2459':
pcc.adb:(.text+0xa9): undefined reference to `getNbElements'
collect2: ld returned 1 exit status
gnatlink: error when calling /usr/bin/gcc-4.4

Je ne comprends pas d'où vient cette erreur.

Est-ce que quelqu'un peut m'aider ?

Merci d'avance.

[Blackknight]

J'ai mis du temps à comprendre mais j'ai finalement trouvé.
Le gxx a trait à un programme en C++ et non pas à un programme en C.
En effet, GCC se base sur l'extension pour définir le type de compilation à appliquer. Dans ton cas, il a détecté un programme en C++ et le fait donc dépendre du runtime C++.
Ainsi, le seul fait de renommer ton fichier en Interface4Ada.c résoud le problème

Après, si tu veux vraiment compiler du C++, je te conseille de lire cette partie.
Pour te faciliter les choses, voici les étapes :

1. Compiler le source gcc -c Interface4Ada.cpp
2. Trouver le nom de la fonction avec nm Interface4Ada.o
3. Modifier ton pragma. Dans mon cas, pragma import(C, Get_Nb_Elements, "_Z13getNbElementsv");
4. lier avec gnatlink comme si de rien n'était

L'interfaçage avec des classes en C++ est plus complexe que ton cas donc je te le laisse comme exercice ;-)

[Invité]

Merci Blackknight,
Ca passe avec Pragma (C...) malgré que ce soit du c++ ?


A mais non, t'as pas donné la soluce en fait.

[Blackknight]

Ben non, ce serait trop facile sinon !!
Je l'ai donnée ? Mince, c'est pas mon genre

[Invité]

Ben non, ce serait trop facile sinon !!
Je l'ai donnée ? Mince, c'est pas mon genre

J'ai lu ton message en deux fois, et entre temps j'ai oublié ce que je venais de lire.
D'où mes correction et un bon fou rire.

Désolé pour l'embrouille.

[Blackknight]

Y a point d'embrouille mon bon jovalise
Moi aussi, je t'ai lu deux fois et je me suis dit que t'avais perdu la boule