ShortFloat.st
changeset 15019 63c17b702b7c
parent 15018 ab753ff7ce39
child 15022 4db3a134deb9
equal deleted inserted replaced
15018:ab753ff7ce39 15019:63c17b702b7c
   306         unsigned int    i;
   306         unsigned int    i;
   307         float           f;
   307         float           f;
   308     } r;
   308     } r;
   309 
   309 
   310     r.i = __unsignedLongIntVal( anInteger );
   310     r.i = __unsignedLongIntVal( anInteger );
   311     RETURN( __MKSHORTFLOAT(r.f) );
   311     RETURN( __MKSFLOAT(r.f) );
   312 %}
   312 %}
   313 !
   313 !
   314 
   314 
   315 readFrom:aStringOrStream
   315 readFrom:aStringOrStream
   316     "read a shortFloat from a string"
   316     "read a shortFloat from a string"
  1904 ! !
  1904 ! !
  1905 
  1905 
  1906 !ShortFloat class methodsFor:'documentation'!
  1906 !ShortFloat class methodsFor:'documentation'!
  1907 
  1907 
  1908 version
  1908 version
  1909     ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.126 2013-03-31 20:07:24 cg Exp $'
  1909     ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.127 2013-03-31 20:36:43 cg Exp $'
  1910 !
  1910 !
  1911 
  1911 
  1912 version_CVS
  1912 version_CVS
  1913     ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.126 2013-03-31 20:07:24 cg Exp $'
  1913     ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.127 2013-03-31 20:36:43 cg Exp $'
  1914 ! !
  1914 ! !
  1915 
  1915