Убыстренный Sqrt

[Alexander]

Результат оптимизаций с помощью ИИ:

Код: Выделить всё

function Sqrt(x: Double): Double; assembler; nostackframe; override;
asm
  sqrtsd xmm0, xmm0
end;

На моём компьютере даёт выигрыш порядка 10 процентов по отношению к обычному Sqrt.

[xchgeaxeax]

Вот только в таком виде вам надо будет готовиться к ловле исключений связанных с близкими к 0 числами (ошибка не точного результата) и отрицательными числами (ошибка извлечения квадратного корня). Не говоря уже про банальный NaN.

ИИ конечно много пропылесосил разных примеров, но выданный им результат стоит хотя бы чуть-чуть рассматривать критически.
В обычной функции квадратного корня используется эта же инструкция т.к. SSE2 уже в минимальных требованиях ОС и это можно не проверять. Но вот прирост связан с отсутствием кода проверки диапазона входных значений для инструкции. Достаточно хотя бы проверить число на больше эпсилон квадрат (эпсилон - минимально представимое число в типе double) перед использованием этой инструкции.

[Alexander]

Я ставил задачу перед ИИ на предельное ускорение.

> перед использованием этой инструкции.

А может перед использованием функции? Ведь не во всяком случае есть сомнение в диапазоне, а 10 процентов на проверку теряется всегда. По факту этот ускоритель у меня работает в нескольких проектах и не сбоит.

[iskander]

Результат оптимизаций с помощью ИИ:

Код: Выделить всё

function Sqrt(x: Double): Double; assembler; nostackframe; override;
asm
  sqrtsd xmm0, xmm0
end;

На моём компьютере даёт выигрыш порядка 10 процентов по отношению к обычному Sqrt.

Любопытно, с какой целью ИА присобачил к функции "override"?

[Alexander]

Любопытно, с какой целью ИА присобачил к функции "override"?

Это правильный вопрос. Сколько не думал и не проверял - не понял. Наверное можно убрать. Видимо он подумал, что раз мы заменяем существующую функцию, то вот вам override (текстуально). Мешать она не мешает, но и смысла в ней нет.

[iskander]

Наверное можно убрать. Видимо он подумал, что раз мы заменяем существующую функцию, то вот вам override (текстуально). Мешать она не мешает, но и смысла в ней нет.

Имхо это очень похоже на глюк компилятора.

[xchgeaxeax]

А может перед использованием функции?

Тогда стоит добавить ей еще и inline

[iskander]

Тогда стоит добавить ей еще и inline

Эффект будет такой же, как и от override.

[xchgeaxeax]

Эффект будет такой же, как и от override.

fpc эту функцию может и не заинлайнит, но код на Delphi вполне себе встраивается. Т.е. можно убрать даже лишний вызов и возврат.