500 isIEEEFormat

   501     "return true, if this machine represents floats in IEEE format.

   502      Currently, no support is provided for non-ieee machines

   503      to convert their floats into this (which is only relevant,

   504      if such a machine wants to send floats as binary to some other

   505      machine).

   506      Machines with non-IEEE format are VAXed and IBM370-type systems

   507      (among others). Today, most systems use IEEE format floats."

   508 

   509 %{

   510 #ifdef __s390__

   511     RETURN(false);

   512 #endif

   513 %}.

   514 

   515     ^ true "/ this may be a lie

   516 !

   517 

   684     "

   685 ! !

   686 

   687 !LimitedPrecisionReal methodsFor:'bytes access'!

   688 

   689 digitBytes

   690     "answer the float's digit bytes im IEEE format.

   691      Use the native machine byte ordering."

   692 

   693     |sz "{ Class:SmallInteger }"

   694      bytes|

   695 

   696     sz := self basicSize.

   697     bytes := ByteArray new:sz.

   698     1 to:sz do:[:i|

   699         bytes at:i put:(self basicAt:i).

   700     ].

   701     ^ bytes

   702 

   703     "

   704         Float pi digitBytes

   705         ShortFloat pi digitBytes

   706     "

   707 !

   708 

   709 digitBytesMSB:msb

   710     "answer the float's digit bytes im IEEE format.

   711      If msb == true, use MSB byte order, otherwise LSB byte order."

   712 

   713     |sz "{ Class:SmallInteger }"

   714      bytes|

   715 

   716     self class isIEEEFormat ifFalse:[self error:'unsupported operation'].

   717 

   718     sz := self basicSize.

   719     bytes := ByteArray new:sz.

   720 

   721     (UninterpretedBytes isBigEndian == msb) ifTrue:[

   722         1 to:sz do:[:i|

   723             bytes at:i put:(self basicAt:i).

   724         ].

   725     ] ifFalse:[

   726         "reverse the bytes"

   727         1 to:sz do:[:i|

   728             bytes at:sz-i+1 put:(self basicAt:i).

   729         ].

   730     ].

   731     ^ bytes

   732 

   733     "

   734         Float pi digitBytesMSB:false

   735         Float pi digitBytesMSB:true

   736         ShortFloat pi digitBytesMSB:false

   737         ShortFloat pi digitBytesMSB:true