Discussion :

[Zepeq]

Bonjour à tous,

Je converti l'application existante pour la rendre compatible unicode.

J'aurais besoin d'un petit coup de pouce sur la fonction suivante.

Pour des raisons de gains de temps, l'extraction de string (devenant des WideString) est effectuée par du code assembleur.

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
 
function ASMParseStr(var P; const Sep :PChar) :ShortString; stdcall;
var
  Count :byte;
begin
  Count := Length(Sep)+1;
  Result := '';
 
  asm
           PUSH EDI
           PUSH ESI
           MOV  EAX, P             
           MOV  EBX, [EAX]         
 
    @@1:   MOV  EDX, Sep       
           MOV  CL,  Count         
 
           MOV  CH, byte ptr[EBX] 
    @@2:   CMP  byte ptr[EDX], CH  
           JZ   @Found           
           INC  EDX                
           DEC  CL
           JNZ  @@2              
           INC  EBX                
           JMP  @@1                
 
    @Found:MOV  ECX, EBX           
           SUB  ECX, [EAX]
           JZ   @End               
 
           MOV  ESI, [EAX]         
           MOV  EDI, Result        
 
           MOV  byte ptr[EDI], CL  
           INC  EDI
 
           REP  MOVSB              
 
    @End:  POP  ESI                
           POP  EDI
           INC  EBX
           MOV  [EAX], EBX         
  end;
end;

Ma question est donc : Est-ce que la fonction ci dessus permet l'utilisation de WideString ?

J'ai essayé de modifier le type des paramètres, mais je n'obtiens pas le résultat escompté et il m'est difficile de savoir si le problème est dans cette fonction ou ailleurs...

Si quelqu'un a une idée...

Merci d'avance

[ShaiLeTroll]

déjà il faut remplacer byte par word
le problème c'est que CH c'est le Char et CL le compteur, hors tu as besoin de CX pour stocker le WideCar ... bon en fait faudrait tout repenser ... ça fait longtemps que je n'ai pas fait d'ASM, à l'époque je n'avais pas dépassé la page 83 de "Assembleur Facile" de Marabou, lol, ...

Que doit faire la fonction ?
en Pascal, un code bien écrit peut-être très rapide ... car un Length(Sep), avec Sep en PChar, cela me choque ...

[sjrd]

T'as déjà de la chance que ta fonction n'aie pas tout fait planter avant En effet, tu n'as pas le droit de modifier EBX dans un bloc ASM, donc tu dois le sauvegarder (comme EDI et ESI). Voir la section Quels sont les registres utilisables ? du tuto de Nono40. (Bon en fait tu as le droit de modifier ESP, mais c'est à tes risques et périls )

Ensuite, je pense (mais c'est mon avis) qu'il est très rarement une bonne chose de mettre un bloc ASM dans une fonction. Une fonction entièrement ASM, c'est une chose, mais un bloc ASM à l'intérieur, c'est plus douteux.

Finalement, je rejoins l'avis de ShaiLeTroll : il serait d'abord essentiel que tu nous explique ce que doit faire la fonction. De plus, la réécrire d'abord en Pascal pour les WideString serait un gros plus. D'ailleurs, il est peu probable que la traduction en ASM pour des raisons de performances soit justifiée - mais si tu as fait des tests de vitesse, je veux bien te l'accorder.

Maintenant, à propos de ton code ASM proprement dit. Je crois que tu n'as pas compris l'utilisation des @@. Tu sembles croire qu'ils servent à faire des labels dont le nom est un nombre. En fait ce n'est pas ça. Les labels @@ ne doivent pas être déclarés, mais en contrepartie ne peuvent être utilisés que dans le bloc ASM qui les englobe. Normalement, on utilise toujours des @@.

En ce qui concerne ta copie pas REP MOVSB, la procédure Move de l'unité System le fait mieux que toi : elle est optimisée plus que tu ne pourras jamais le faire.