equal
deleted
inserted
replaced
335 machine, some conversion is usually needed." |
335 machine, some conversion is usually needed." |
336 |
336 |
337 |flt| |
337 |flt| |
338 |
338 |
339 msb == UninterpretedBytes isBigEndian ifTrue:[ |
339 msb == UninterpretedBytes isBigEndian ifTrue:[ |
340 ^ self doubleAt:index. |
340 ^ self doubleAt:index put:aFloat. |
341 ]. |
341 ]. |
342 |
342 |
343 flt := aFloat asFloat. |
343 flt := aFloat asFloat. |
344 1 to:8 do:[:srcIndex| |
344 1 to:8 do:[:srcIndex| |
345 self at:index - 1 + srcIndex put:(flt basicAt:(9-srcIndex)) |
345 self at:index - 1 + srcIndex put:(flt basicAt:(9-srcIndex)) |
346 ]. |
346 ]. |
347 ^ aFloat |
347 ^ aFloat |
348 |
348 |
349 "Created: / 15.5.1998 / 17:22:27 / cg" |
349 "Created: / 15.5.1998 / 17:22:27 / cg" |
|
350 "Modified: / 15.5.1998 / 17:26:29 / cg" |
350 ! |
351 ! |
351 |
352 |
352 doubleWordAt:index |
353 doubleWordAt:index |
353 "return the 4-bytes starting at index as an (unsigned) Integer. |
354 "return the 4-bytes starting at index as an (unsigned) Integer. |
354 The index is a smalltalk index (i.e. 1-based). |
355 The index is a smalltalk index (i.e. 1-based). |
1941 ! ! |
1942 ! ! |
1942 |
1943 |
1943 !UninterpretedBytes class methodsFor:'documentation'! |
1944 !UninterpretedBytes class methodsFor:'documentation'! |
1944 |
1945 |
1945 version |
1946 version |
1946 ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.28 1998-05-15 15:23:50 cg Exp $' |
1947 ^ '$Header: /cvs/stx/stx/libbasic/Attic/UIBytes.st,v 1.29 1998-05-15 15:26:45 cg Exp $' |
1947 ! ! |
1948 ! ! |
1948 UninterpretedBytes initialize! |
1949 UninterpretedBytes initialize! |