Ada

accès à fonction importée à accè à fonction importé.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : accès à fonction importée à accè à fonction importé.

The matrix

Chacun fait ce qu'il en veut.

Bonjour, je doit affecter un accès à une fonction importé de C à un accès importé de C avec Ada.
Dans le code ci dessous par exemple... la function Pt_Time ne s'affecte pas ....

J'ai un paquetage PortTime ::=

Code :

package Porttime is
 
   function Pt_Time return Long_Integer;
   pragma Import (C, Pt_Time, "Pt_Time" );
end Porttime;

Et un paquetage PortMidi ::=

Code :

with System;
with Interfaces.C;
with System.Address_To_Access_Conversions;
package Portmidi is
 function Pm_OpenOutput( PortMidiStream :System.address;
                           OutputDevice : Integer;
                           outputDriverInfo : System.address;
                           BufferSize : Long_Integer;
                           Time_Proc : access function return Long_Integer;
                           Time_Info : System.address;
                           latency : Long_integer) return PmError;
end Portmidi;

Et une affectation à faire, je pensais logiquement la suivante ::=

Code :

Error := Pm_OpenOutput( PortMidiStream => PortMidiStream_Ptr,
                           OutputDevice => device,
                           outputDriverInfo => OutputDriverInfo_ptr,
                           BufferSize => 10,
                           Time_Proc => Pt_Time'access,
                           Time_Info => Time_Info_ptr,
                           latency => 2);

Et un compilo qui me dit ::

manu@Chaos:~/Harmonie$ gnatmake main -larg -lportmidi -lporttime
gcc-4.3 -c -larg -lportmidi -lporttime main.adb
main.adb:188:41: subprogram "Pt_Time" has wrong convention
main.adb:188:41: does not match convention of access access to subprogram with profile "T12s"
main.adb:188:41: probable missing pragma Convention for access to subprogram with profile "T12s"
gnatmake: "main.adb" compilation error

Merci ! :jap:

Edit : pardon je m'étais trompé.

Message édité par The matrix le 10-08-2009 à 21:50:23

---------------
des gestes simples et ponctués, par quelques points presque importants, la précision coordonnée, d'une île déserte, des plans secrets, d'un architecte, à la retraite, passionné par son métier, refaire le monde, à son idée, tracer des routes, les emprunter

Publicité

The matrix

Chacun fait ce qu'il en veut.

Up ! [:blackmetal]

The matrix

Chacun fait ce qu'il en veut.

Mon énoncé n'est pas clair.
Je désirerais affecter la fonction Pt_Time au paramètre Time_Proc.

Spoiler :

Vous avez 4 heures

Spoiler :

[:dawa_neowen]

Spoiler :

[:chapi-chapo]

Message édité par The matrix le 10-08-2009 à 22:12:09

The matrix

Chacun fait ce qu'il en veut.

done !

J'ai déclaré un type Time_access comme accès à fonction retournant un long et j'ai ajouté un pragma convention (C, Time_Access);
2points.

FORUM HardWare.fr

Programmation

Ada

accès à fonction importée à accè à fonction importé.

Sujets relatifs
Fonction mail OK en ligne de commande php, KO par le Web	Fonction qui retourne une structure
Acces serveur de fichier distant	(javascript) retarder le lancement d'une fonction
C++ fonction d'une ligne : besoin d'accolades ?	récuperer le parametre value d'un bouton dans la fonction execappli
Autorisations d'accès dynamiques	Acces au registre du port parallele
cast sur un pointeur de fonction	accés a distance
Plus de sujets relatifs à : accès à fonction importée à accè à fonction importé.

Page générée en 0.047 secondes