Lines Matching refs:BCD1
377 { returns -1 if BCD1 < BCD2, 0 if BCD1 = BCD2, 1 if BCD1 > BCD2 }
378 function BCDCompare ( const BCD1,
559 operator = ( const BCD1,
562 operator < ( const BCD1,
565 operator > ( const BCD1,
568 operator <= ( const BCD1,
570 operator >= ( const BCD1,
579 operator + ( const BCD1,
616 operator - ( const BCD1,
653 operator * ( const BCD1,
690 operator / ( const BCD1,
1261 { returns -1 if BCD1 < BCD2, 0 if BCD1 = BCD2, 1 if BCD1 > BCD2 }
1262 function BCDCompare ( const BCD1,
1282 neg1 := ( BCD1.SignSpecialPlaces AND NegBit ) <> 0;
1285 neg1 := BCD1.Negativ;
1294 pr1 := BCD1.Precision;
1297 pl1 := BCD1.SignSpecialPlaces AND PlacesMask;
1300 pl1 := BCD1.Places;
1321 _WHEN BCD1.Fraction[i] < BCD2.Fraction[i]
1323 _WHEN BCD1.Fraction[i] > BCD2.Fraction[i]
1334 f1 := BCD1.Fraction[i] AND $f0;
3460 operator = ( const BCD1,
3464 z := BCDCompare ( BCD1, BCD2 ) = 0;
3467 operator < ( const BCD1,
3471 z := BCDCompare ( BCD1, BCD2 ) < 0;
3474 operator > ( const BCD1,
3478 z := BCDCompare ( BCD1, BCD2 ) > 0;
3481 operator <= ( const BCD1,
3485 z := BCDCompare ( BCD1, BCD2 ) <= 0;
3488 operator >= ( const BCD1,
3492 z := BCDCompare ( BCD1, BCD2 ) >= 0;
3510 operator + ( const BCD1,
3514 BCDAdd ( BCD1, BCD2, z );
3591 operator - ( const BCD1,
3595 BCDSubtract ( BCD1, BCD2, z );
3673 operator * ( const BCD1,
3677 BCDMultiply ( BCD1, BCD2, z );
3754 operator / ( const BCD1,
3758 BCDDivide ( BCD1, BCD2, z );