(68 . 8)(68 . 6)
1466 Remainder := R; -- Output the Remainder.
1467
1468 end FZ_IDiv;
1469 pragma Inline_Always(FZ_IDiv);
1470
1471
1472 -- Exactly same thing as IDiv, but keep only the Quotient
1473 procedure FZ_Div(Dividend : in FZ;
(80 . 8)(78 . 6)
1475 begin
1476 FZ_IDiv(Dividend, Divisor, Quotient, Remainder);
1477 end FZ_Div;
1478 pragma Inline_Always(FZ_Div);
1479
1480
1481 -- Modulus. Permits the asymmetric Dividend and Divisor in FZ_Mod_Exp.
1482 procedure FZ_Mod(Dividend : in FZ;
(168 . 7)(164 . 5)
1484 Remainder := R;
1485
1486 end FZ_Mod;
1487 pragma Inline_Always(FZ_Mod);
1488
1489
1490 end FZ_Divis;