[Tonyy]

часто сталкиваюсь с ситуацией, когда в файле содержится перевернутое число. для того чтобы число стало нормальным его байты необходимо перевернуть. в delphi для свопирования целых 2х байтных чисел есть функция swap.
для целых 4х байтных мне посчастливилось найти функцию реализованную на ассемблере:

Код:

function SwapDWorD(X:DWord):dword;assembler;
 asm
 bswap eax
 end;

не могли бы Вы мне помочь с аналогичной функцией для вещественных 4хбайтных чисел?

[Bargest]

Самопал:

Код:

a := (a shl 24) or ((a and $FF00) shl 8) or ((a and $FF0000) shr 8) or ((a and $FF000000) shr 24);

Однако учитывая, что делфи сейчас не особо компилится под что-то отличное от x86, я бы использовал bswap, потому что такой код делфа не оптимизирует.
Можно и так:

Код:

 a := Swap(a shr 16) or (Swap(a) shl 16);

Хотя пишут, что Swap оставлен только для совместимости. Компилится чуть получше. Swap заменяется на xchg ah, al.

[icWasya]

Ну если можно использовать SwapDWord, то наверно так -

Код:

SwapSingle(X:Single):Single;
var
  R:record
    case boolean of
    true:  (Y:Single);
    false: (Z:Dword); 
  end;
begin
  R.Y:=X;
  R.Z:=SwapDWorD(R.Z);
  Result:=R.Y;
end;

нету прямых команд пересылки регистр CPU<->регистр FPU
ну и до кучи

Код:

SwapDouble(X:Double):Double;
var
  R:record
    case boolean of
    true:  (Y:Double);
    false: (Z1,Z2:Dword); 
  end;
  Z:Dword;
begin
  R.Y:=X;
  Z:=SwapDWorD(R.Z1);
  R.Z1:=SwapDWorD(R.Z2);
  R.Z2:=Z;
  Result:=R.Y;
end;

[Freeman]

Сообщение от Bargest

Хотя пишут, что Swap оставлен только для совместимости. Компилится чуть получше. Swap заменяется на xchg ah, al.

Эти гады вместо того, чтобы добавить перегруженные Swap для 32- и 64-битных значений, ничего не делают. 16-битный Swap, понятное дело, остался в наследство от 16-битного Turbo Pascal. В то время он еще позиционировался в том числе и в качестве системного языка.

[Tonyy]

приведенные реализации, как я понял, только ведь для целых чисел, так?

а как все-таки свопировать тип single?

[Freeman]

Сообщение от Tonyy

а как все-таки свопировать тип single?

Твоей функцией разве не работает? По идее, должно:

Код:

var
  S: Single;
begin
  S := Single(SwapDWord(LongWord(S));
end;

Мне проверить нечем, к сожалению.

[Bargest]

Сообщение от Tonyy

а как все-таки свопировать тип single?

А что понимается под свопом single? Эти числа побитово разбиты на знак, мантиссу и степень. Если просто переставить порядок байт, то получится бессмысленный бред - кусок мантиссы попадет в степень и знак, кусок степени - в мантиссу, и т.д. Если все же это нужно - загрузить число в Dword и переставить.

[poli-smen]

Сообщение от Bargest

А что понимается под свопом single? Эти числа побитово разбиты на знак, мантиссу и степень. Если просто переставить порядок байт, то получится бессмысленный бред - кусок мантиссы попадет в степень и знак, кусок степени - в мантиссу, и т.д. Если все же это нужно - загрузить число в Dword и переставить.

Да, я ему уже писал об этом в этой теме.

[Freeman]

Сообщение от Bargest

Если просто переставить порядок байт, то получится бессмысленный бред - кусок мантиссы попадет в степень и знак, кусок степени - в мантиссу, и т.д.

Слушай, раз такое дело, просвети: числа с плавающей запятой (IEEE) не зависят от порядка байт? Например, если я побайтно запишу в файл Single и Double на Intel, а потом прочитаю его на платформе с прямым порядком байт, я получу верное число?