Conversion ASM vers Delphi

Bonjour,

Quelqu’un saurais me convertir cette fonction en pure Delphi ?

Code:

---

1 2 3 4 5 6 7 8 9

procedure TFastPerlinNoise.SetupFPU; register; asm fstcw fpu_control_word // store fpu control word mov dx, word ptr [fpu_control_word] or dx, $0400 // round towards -inf and dx, $F7FF mov fpu_control_word2, dx fldcw fpu_control_word2 // load modfied control word end;

---

Je vous remercie par avance pour toute l’aide possible ;)

Bonjour,

je n'ai aucun mérite si ce n'est d'avoir mémorisé un site qui permet ce genre d'aide

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

uses System.SysUtils;   procedure TFastPerlinNoise.SetupFPU; var fpu_control_word, fpu_control_word2: Word; begin // Store FPU control word fpu_control_word := Get8087CW; // Renvoie la valeur du mot de contrôle 8087.   // Modify the control word fpu_control_word2 := fpu_control_word or $0400; // round towards -inf fpu_control_word2 := fpu_control_word2 and $F7FF;   // Load modified control word Set8087CW(fpu_control_word2); end.

---

ce qui permet de comprendre l'objectif en m'évitant de me creuser la tête le matin ;)

Du coup, je dirais que la fonction System.Set8087CW ferait la même chose
Bien évidemment, cela va dépendre de la version Delphi ;)

As-tu pensé à contacter l'auteur si il avait une version plus récente car tu risque d'avoir beaucoup d'ASM a changé sans parler des différence entre le 32Bits et 64Bits puisque ce code est assez vieux déjà

Merci à vous !