Discussion :

[papiX]

JB
Je suis sûr que c'est un truc de boeuff ; bon , comme moi quoi ."oui mais , sans l'anneau dans le nez !."
J'ai fait une dll en asm , avec envoi d'un paramètre en double
L'appelant de la dll, c'est mon langage évolué .
Pour tester ma compétence en asm et fpu "c'est un euphémisme de parler de compétence" j'ai pris le cos.
Et puis j'ai fait "par déduction, je me suis dit : la fpu calcule en radian ?."
donc le double en radian "pour faire simple ! et pour tester ."

Le langage évolué -> Declare Function cosr lib "cos" alias "cosx" ( radian as double) as long
l'appelant -> result = cosr (2.0)
normalement -> result = - 0.416146836547142

l'asm ; -> là , le vrai sujet

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
.data
 stok real4 0.0
 
cosx PROC    rad:real8  ; ->le double -> rad = 2.0
;LOCAL bcd      :tbyte
 
fninit
fld rad -> là , la fpu s'adapte au real8  ! ? s'adapte ?....."faut voire !"
fcos
fwait ; -> bofff
 ;sahf -> cpu
fstp  stok   ; là , je passe de double en single "pas sûr hein ?"
mov  eax,stok   ; là je balance du real4
ret 
cosx ENDP

BEN ? ; result est égal à -1.09333274E9 "c'est pas un prob de conversion ? .. le tbyte ???.."
le truc de boeuff c'est quoi ?
svp , la solus ! .
merci
papi

[Neitsa]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
.data
stok real4 0.0
 
cosx PROC rad:real8 
 
fninit
fld rad
fcos
fstp stok
mov eax,stok
ret
cosx ENDP

La fonction est bonne, en l'état elle retourne le résultat attendu.

Le problème est du coté du VB lors du passage d'argument. Un double doit être codé sur 32 bits - je pense - en VB, alors que la fonction assembleur attend un REAL8 codé sur 64 bits, d'où l'erreur.

Par contre, n'y connaissant rien en VB, je ne sais pas commencer passer un flottant en double précision...

[papiX]

JB
merci Neitas ; t'est un pote
j'ai bien peur que tu aies raison .
je suis dans la caca ; paque je voulais donner un coup
de pouce à mon langage évolué , que j'aime "RapidQ" ; non ne rigoles pas .
je crois que , pour les cos , sin , etc.. c'est râpé , sniffff......
pitète , une dernière chance ! ? .
tu peux me dire , les types de déclarations du genre ".model flat,STDCALL " etc..
et aussi les proc du genre xxx proc c xx : xxx, etc ..
car je crois que c'est une question de convention d'appel de dll
j'ai pas de débeueug pour regarder la pile et les registres "j'ai ma .......et mon couteau ; c'est tout !."
merci
papi

[ToutEnMasm]

Salut,
C:\masm32\fpulib\FpuCos.asm
ToutEnMasm

[papiX]

JB
je te remercie "toutenmasm" .
je connais la lib fpu , mais je suis pas du genre à copier .
de plus ça façon de faire ne me convient pas
je crois que la meilleur façon de m'aider ce serait de me dire
comment est placé le double lors de l'appel de la dll "du ebp + 8 ???"
et comment prévenir le compil de masm que l'appel se fait par un langage basic
papi

[ToutEnMasm]

Salut,
VB veut savoir si l'argument est passé par adresse ou par valeur,ce qui n'est pas la même chose.
La déclaration de la fonction appelante dans VB doit comporter "by value" juste après l'argument.Ainsi on retrouvera la valeur du nombre dans la pile,décomposé en deux dword de 4 bytes ,formant le real8.

Pour éviter de travailler sans rien,voir mon site.

ToutEnMasm

[papiX]

bj
j'ai trouvé ; c'est un truc de boeufff

Code :

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

1
2
3
4
5
6
cosx PROC   rad:real8
fninit
fld rad
 fcos
ret  
cosx ENDP

sitout
paqueu , la convention d'appel de dll
MERCI
papi

[papiX]

JB
une petite explic pour les autres
Dans le cas d'un appel de dll par un langage évolué ; dans mon cas "rapidq" et pitète "vb"
à la déclaration de la function ex:

Code :

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

Declare FUNCTION cosr lib "cos" alias "cosx" ( byval rad as double  ) AS DOUBLE

si tu mets en bout de la func "as DOUBLE" au retour de la func c'est pas eax qui est renvoyé
mais ST(0)
velà
papi

[papiX]

Bonjour
Et comme , je crois que je suis un mec bien ."faut voire, hein!.."
je m'excuse pour alcatiz
ben , j'ai pas décodé le "code: " .
a+
papi