(2 . 7)(2 . 7)
848 ------------------------------------------------------------------------------
849 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
850 -- --
851 -- (C) 2018 Stanislav Datskovskiy ( www.loper-os.org ) --
852 -- (C) 2019 Stanislav Datskovskiy ( www.loper-os.org ) --
853 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
854 -- --
855 -- You do not have, nor can you ever acquire the right to use, copy or --
(176 . 4)(176 . 21)
857
858 end FZ_Low_Multiply_Unbuffered;
859
860
861 -- Low-Only Multiplier. Preserves the inputs.
862 procedure FZ_Low_Multiply_Buffered(X : in FZ;
863 Y : in FZ;
864 XY : out FZ) is
865
866 -- Product buffer.
867 P : FZ(1 .. X'Length);
868
869 begin
870
871 FZ_Low_Multiply_Unbuffered(X, Y, P);
872
873 XY := P;
874
875 end FZ_Low_Multiply_Buffered;
876
877 end FZ_LoMul;