equal
deleted
inserted
replaced
502 |
502 |
503 "Modified: 5.11.1996 / 15:03:38 / cg" |
503 "Modified: 5.11.1996 / 15:03:38 / cg" |
504 ! ! |
504 ! ! |
505 |
505 |
506 !ArithmeticValue methodsFor:'converting'! |
506 !ArithmeticValue methodsFor:'converting'! |
|
507 |
|
508 as32BitIEEEFloatBytesMSB:msb |
|
509 ^ self asShortFloat digitBytesMSB:msb |
|
510 |
|
511 " |
|
512 2 as32BitIEEEFloatBytesMSB:true |
|
513 2.0 as32BitIEEEFloatBytesMSB:true |
|
514 " |
|
515 ! |
|
516 |
|
517 as64BitIEEEFloatBytesMSB:msb |
|
518 ^ self asFloat digitBytesMSB:msb |
|
519 |
|
520 " |
|
521 2 as64BitIEEEFloatBytesMSB:true |
|
522 2.0 as64BitIEEEFloatBytesMSB:true |
|
523 " |
|
524 ! |
507 |
525 |
508 asDouble |
526 asDouble |
509 "ST80 compatibility: return a double with receivers value. |
527 "ST80 compatibility: return a double with receivers value. |
510 our floats are the identical to ST80 doubles" |
528 our floats are the identical to ST80 doubles" |
511 |
529 |
1406 ! ! |
1424 ! ! |
1407 |
1425 |
1408 !ArithmeticValue class methodsFor:'documentation'! |
1426 !ArithmeticValue class methodsFor:'documentation'! |
1409 |
1427 |
1410 version |
1428 version |
1411 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $' |
1429 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.97 2014-12-16 12:21:57 stefan Exp $' |
1412 ! |
1430 ! |
1413 |
1431 |
1414 version_CVS |
1432 version_CVS |
1415 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.96 2014-12-08 15:08:00 cg Exp $' |
1433 ^ '$Header: /cvs/stx/stx/libbasic/ArithmeticValue.st,v 1.97 2014-12-16 12:21:57 stefan Exp $' |
1416 ! ! |
1434 ! ! |
1417 |
1435 |
1418 |
1436 |
1419 ArithmeticValue initialize! |
1437 ArithmeticValue initialize! |