Собственно никтог не видел? А то без них никак OBJ-файл не подключить, ругается на отсутствие этих функций. Их описание я на шел, но вот сами функции - нет :(
Поможет кто?

Вроде как нашел на АСМ-ие, но может не то?

ООО нашел таки, но только на чистом АСМе с СиБуилдера.
Поможете перевести на дельфийский?

function lrotr(N:ULONG; Num:DWORD):ULONG;
asm
 MOV ECX, EDX
 ROR EAX, CL
end;

function lrotl(N:ULONG; Num:DWORD):ULONG;
asm
 MOV ECX, EDX
 ROL EAX, CL
end;

Сопстна вот. Хотя номинально тип 2-го парама позволяет записать в него любую бяку вплоть до 0FFFFFFFFh, больше 1Fh (т.е. 31) скармливать этим функциям не рекомендуется.

> andreil ©   (06.05.08 23:56) [1]
>
> Вроде как нашел на АСМ-ие, но может не то?
>

Не знаю точно, что должны делать эти функции, но на вскидку+телепатор вроде как похоже на "то".

Второе то же самое, только там соглашение о вызовах другое.

Циклический сдвиг на Эн бит.
Перевод сделан правильно.

> Не знаю точно, что должны делать эти функции, но на вскидку+телепатор вроде как похоже на "то".
Эти функции должны сдвигать число на Num двоичных разрядов влево/вправо с записью цепочки "выдвигаемых" битов в другой конец числа.

> Второе то же самое, только там соглашение о вызовах другое.
Ага. Первое - __safecall(первые три парама - EAX, EDX и ECX, далее - в стэк), второе - __stdcall (только стэк)

PS Лучше не делать Num связок по две операции, как в примере из поста #1, а обойтись всего двумя, как в #2.

> Renegat   (07.05.08 00:56) [6]
>
> > Не знаю точно, что должны делать эти функции, но на вскидку+телепатор
> вроде как похоже на "то".
> Эти функции должны сдвигать число на Num двоичных разрядов
> влево/вправо с записью цепочки "выдвигаемых" битов в другой
> конец числа.
>

Я так и подумал.

> Ага. Первое - __safecall(первые три парама - EAX, EDX и
> ECX, далее - в стэк)

Хм. Это в Билдере так называется? Для Дельфи первое  - register. А safecall в Дельфи (если верить справке) не передаёт параметры через регистры.

> PS Лучше не делать Num связок по две операции, как в примере
> из поста #1, а обойтись всего двумя, как в #2.
>

Это очевидно. Сомнений нет.

> Сопстна вот.

Не то :( При работе 8 раз вызывается нормально, а на 9-ом - вылет.

> PS Лучше не делать Num связок по две операции, как в примере
> из поста #1, а обойтись всего двумя, как в #2.

Во втором посте вооющето сделано на чистом АСМе, да и взято с С++ Буилдера, поэтому 100% правильно. Но вот как перевести это на Дельфи?

ЗЫ: В АСМе я не силен :(

Лучше не заниматься самодельщиной. Нужно просто вытащить объектник из соответствующей библиотеки cw32.lib (или cw32mt.lib и т. д.) утилитой tlib например так:


включить его в юнит. Правильный header к этой функции составить на основе билдерной документации или пройтись по нему отладчиком и понять какой он должен быть.

В таких функциях может быть много нюансов, связанных с многопоточностью или с обращением к другим функциям библиотеки или к библиотеке cc3250.dll

Второй от третьего отличается только соглашением о вызове.
Оно тебе надо?
Если надо, то cdecl/stdcall

offtop

> А safecall в Дельфи (если верить справке) не передаёт параметры
> через регистры.

- safecall это stdcall, плюс генерация исключения если после возврата EAX <> 0

это обертка:
export
==>
import

> Хм. Это в Билдере так называется? Для Дельфи первое  - register.
> А safecall в Дельфи (если верить справке) не передаёт параметры
> через регистры.

Чорт. Нет, определённо надо было уже спать ложиться %) Имелся в виду __fastcall
Да и с количеством команд напутал. Выполнаются-то не две а три...
Простите дурака :)

> Не то :( При работе 8 раз вызывается нормально, а на 9-ом - вылет.
Опана... Это как это?! У себя проверил - всё работает отлично... Вы точно больше 31 в Num не передаёте?
Вывод один - показывайте код

имхо:
[code]
procedure  _lrot;
asm
 mov     eax, [esp+4]        ; get value
 mov     ecx, [esp+8]        ; get rotate count
 rol     eax,cl              ; rotate the value
end;

procedure _lrotr
asm
 mov     eax, [esp+4]        ; get value
 mov     ecx, [esp+8]        ; get rotate count
 ror     eax,cl              ; rotate the value
end; [/code]

линкеру нужен только адрес вызова и всё, "параметры" он сам "подставит".

P.S. а где ты нашёл эти и аналогичные функции ? Мне, например, нужны ldexp всякие.

> [13] DevilDevil ©   (07.05.08 18:26)
Тогда надо добавить директиву, ибо без неё Вам Делфи парамы в стек не запишет:

Да и вообще, почему procedure? И плюс ещё список параметров не определён.
Если уж пошла такая пьянка, то вот:

> Renegat   (07.05.08 18:35) [14]

дабы не париться лишний раз с параметрами, рекомендую их не писать; в приведённом мной листинге, как Вы успели заметить, их нет. "Функции" тоже лучше заменять на процедуры.

> Опана... Это как это?! У себя проверил - всё работает отлично.
> .. Вы точно больше 31 в Num не передаёте?Вывод один - показывайте
> код

Код на С++ не мой, а на дельфи перевести не сумел - там все замешано на указателях. Вот кусок кода, вызывающий эти функции:


Renegat, DevilDevil © - нифига не пашет, вылет на 9 вызове.
А нашел я вариант, указанный во втором сообщении в файлах "Source\Rtl\Source\math\lrotl.asm" и "Source\Rtl\Source\math\lrotr.asm", входящих в комплект поставки CBuilder6.

Да, забыл написать, часто в качастве параметра передается 0 (если ключик дешифровки не указан).

> static ulong FlipDword(ulong d)
Хоспади!!! о_0 Какие усилия для банальной перестановки байт!!! BSWAP и всё! Или нужна-таки совместимость с .386 и ниже? Если так, то




если же совместимость со старым хламом типа .286 и .386 не требуется, то можно обойтись этим: