Шаг к НЕкроссплатформенности

[rndtrash]

FPC x64 ругается на ассемблерный код в glr_match.pas.
А именно на Tan и SinCos.

[rndtrash]

немного фиксов:

procedure SinCos(const Theta: Extended; out Sin, Cos: Extended); assembler;
asm
{$ifdef CPU32}
  FLD     Theta
  FSINCOS
  FSTP    tbyte ptr [edx]    // Cos
  FSTP    tbyte ptr [eax]    // Sin
  FWAIT
{$else}
  FLD     Theta
  FSINCOS
  FSTP    tbyte ptr [rdx]    // Cos
  FSTP    tbyte ptr [rax]    // Sin
  FWAIT
{$endif}
end;

но tbyte ещё не исправлен и rdx/rax никак не изменили положение

[rndtrash]

Я даже нашёл термин для всего этого безобразия:

Костыль - это часть программы, нарушающая утверждённую структуру кода, но необходимая для срочного исправления неполадки, либо для быстрого добавления желанной фичи, когда по-правильному реструктурировать код просто нет времени.

Например, "костыль" может содержать низкоуровневый, зависимый от архитектуры код в классе высокого уровня абстракции. А может быть просто уродливым куском кода, предназначенном для одного конкретного частного случая там, где требуется универсальность.

В будущем, если всё так и оставить, это может привести к неприятностям. Например, однажды вы можете не разобраться в собственном коде. Либо нужно будет добавить новые возможности, а их просто некуда будет впихивать, потому что ваш код уродлив, не абстрактен, нарушает все возможные правила, а в комментариях сплошной мат. И тогда вас уволят, а следующему программисту придётся писать программу с нуля, потому что он точно ни хрена не поймёт. Из-за этого фирма, уволившая вас, потерпит огромные убытки, и это очень большая трагедия.

Очевидно, выражение означает, что вместо того, чтобы прооперировать больного, доктор даёт ему костыли, и тот хоть и может ходить с ними, но при этом хромает, охает и жалуется на жизнь. Но в военных условиях всё же легче выпустить в бой хромого инвалида, чем вообще никого.
(С) LifeKILLED, Gamedev.ru http://www.gamedev.ru/code/forum/?id=209865&page=2#m28

[perfectdaemon]

Ассемблерные вставки чаще всего являются не костылем, а желанием выжать максимум производительности. А тригонометрические вычисления довольно тяжелы, так как работают с числами с плавающей точкой. Чтобы задействовать процессорные блоки для чисел с плавающей точкой, обычно и используют подобные вещи.

Как написано в начале файла, модуль математики базируется на исходниках xproger-а, а он знатный любитель таких решений.

Можно переписать на pascal, конечно.

[rndtrash]

А можно использовать частично и паскаль и ассемблер?

[rndtrash]

Кстати я прочитал, что если синтаксис ассемблера интеловский то tbyte не будет поддерживаться.

[perfectdaemon]

В рамках одной функции/процедуры, насколько я знаю, нельзя использовать и то и другое. Могу ошибаться.

Да, ассемблер очень зависим от конкретной архитектуры. По сути для каждой архитектуры процессора свой диалект. Поэтому, конечно, для кроссплатформенности надо избавляться от него в пользу высокоуровневых решений на чистом pascal.