Вот вам примерчик с абсолютом: procedure ParseFloat64(Stream: TStream; var Value: double;

Question

Вот вам примерчик с абсолютом: procedure ParseFloat64(Stream: TStream; var Value: double;

ByteOrder: TByteOrder);
var
Swapper: int64 absolute Value;
begin
Stream.Read(Value, 8);
if ByteOrder = boBIGENDIAN then
InverseByteOrder(Swapper);
end;

procedure InverseByteOrder(var Value: int64);
asm
mov edx, dword ptr [eax]
mov ecx, dword ptr [eax+4]
bswap edx
bswap ecx
mov dword ptr [eax], ecx
mov dword ptr [eax+4], edx
end;

есть тут шанс его выкосить? при этом важно что бы CPU код не разросся

#lazarus #programming #russian

0

03.11.2023

5 ответов

10 просмотров

Handatros Автор вопроса

Александр (Rouse_) Багель
Конечно через pint64

угу, прокатывает. ща асм гляну что получается

0

5 месяцев назад

zamtmn

Александр (Rouse_) Багель
Конечно через pint64

ты сам говоришь что овощи нужно вставлять в нужное место https://t.me/Delphi_Lazarus/286943 самое то для абсолюта. сука зателями будет многословней

0

5 месяцев назад

Handatros Автор вопроса

zamtmn
ты сам говоришь что овощи нужно вставлять в нужное...

вообще нет: procedure ParseFloat64(Stream: TStream; var Value: double; ByteOrder: TByteOrder); begin Stream.Read(Value, 8); if ByteOrder = boBIGENDIAN then InverseByteOrder(pint64(Swapper)); end;

0

5 месяцев назад

Александр (Rouse_) Багель

zamtmn
ты сам говоришь что овощи нужно вставлять в нужное...

Не будет многословней, причем кода меньше станет

0

5 месяцев назад

Александр (Rouse_) Багель · Accepted Answer

Александр (Rouse_) Багель

Конечно через pint64

0

5 месяцев назад

169 похожих чатов

Вот вам примерчик с абсолютом: procedure ParseFloat64(Stream: TStream; var Value: double;

5 ответов

Похожие вопросы