1017 !QuadFloat methodsFor:'double dispatching'!

  1018 

  1019 sumFromQuadFloat:aQuadFloat

  1020 %{

  1021     OBJ newFloat;

  1022     float128_t result, myVal, argVal;

  1023 

  1024     myVal = __quadFloatVal(self);

  1025     argVal = __quadFloatVal(aQuadFloat);

  1026     f128M_add( &myVal, &argVal, &result );

  1027     __qMKQFLOAT(newFloat, result);

  1028     RETURN ( newFloat );

  1029 %}

  1030 ! !

  1031 

  1032 !QuadFloat methodsFor:'arithmetic'!

  1033 

  1034 * aNumber

  1035     "return the product of the receiver and the argument."

  1036 

  1037     ^ aNumber productFromQuadFloat:self

  1038 !

  1039 

  1040 + aNumber

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

  1042 

  1043     ^ aNumber sumFromQuadFloat:self

  1044 !

  1045 

  1046 - aNumber

  1047     "return the difference of the receiver and the argument, aNumber"

  1048 

  1049     ^ aNumber differenceFromQuadFloat:self

  1050 !

  1051 

  1052 / aNumber

  1053     "return the quotient of the receiver and the argument, aNumber"

  1054 

  1055     aNumber isZero ifTrue:[

  1056 	"

  1057 	 No, you shalt not divide by zero

  1058 	"

  1059 	^ ZeroDivide raiseRequestWith:thisContext.

  1060     ].

  1061     ^ aNumber quotientFromQuadFloat:self

  1062 !

  1063 

  1064 rem: aNumber

  1065     "return the floating point remainder of the receiver and the argument, aNumber"

  1066 

  1067     aNumber isZero ifTrue:[

  1068 	"

  1069 	 No, you shalt not divide by zero

  1070 	"

  1071 	^ ZeroDivide raiseRequestWith:thisContext.

  1072     ].

  1073     ^ aNumber remainderFromLongFloat:self

  1074 ! !

  1075