1 "{ Package: 'stx:libbasic2' }"

     3 "{ Package: 'stx:libbasic2' }"

     2 

     4 

     3 "{ NameSpace: Smalltalk }"

     5 "{ NameSpace: Smalltalk }"

     4 

     6 

     5 LimitedPrecisionReal variableByteSubclass:#QuadFloat

     7 LimitedPrecisionReal variableByteSubclass:#QuadFloat

  2598 

  2600 

  2599     aNumber class == QuadFloat ifTrue:[

  2601     aNumber class == QuadFloat ifTrue:[

  2600         ^ aNumber productFromQuadFloat:self

  2602         ^ aNumber productFromQuadFloat:self

  2601     ].

  2603     ].

  2602 

  2604 

  2604     ^ aNumber productFromQuadFloat:self

  2606     ^ aNumber productFromQuadFloat:self

  2605 !

  2607 !

  2606 

  2608 

  2607 + aNumber

  2609 + aNumber

  2608     "return the sum of the receiver and the argument, aNumber"

  2610     "return the sum of the receiver and the argument, aNumber"