Discussion :

[der§en]

Bonjour,

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

Code :

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

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

[SergioMaster]

Bonjour,

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

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
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

[ShaiLeTroll]

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à

[der§en]

Merci à vous !