mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 22:47:54 +02:00
13 lines
237 B
ObjectPascal
13 lines
237 B
ObjectPascal
{ %opt=-vw -Sew }
|
|
{ %cpu=x86_64,i386 }
|
|
Function Fast_ReciprocalSquareRoot(number: Single): Single;
|
|
Begin
|
|
Asm
|
|
RSQRTSS number, %xmm0
|
|
MOVLPS %xmm0, __Result
|
|
End ['xmm0'];
|
|
End;
|
|
|
|
begin
|
|
end.
|