[Tonyy]

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

Код:

1 2 3 4

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

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

[Bargest]

Самопал:

Код:

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

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

Код:

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

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

[icWasya]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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
ну и до кучи

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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?

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

Код:

1 2 3 4 5

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, а потом прочитаю его на платформе с прямым порядком байт, я получу верное число?