(1 . 3)(1 . 22)
180 ------------------------------------------------------------------------------
181 ------------------------------------------------------------------------------
182 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
183 -- --
184 -- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) --
185 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
186 -- --
187 -- You do not have, nor can you ever acquire the right to use, copy or --
188 -- distribute this software ; Should you use this software for any purpose, --
189 -- or copy and distribute it to anyone or in any manner, you are breaking --
190 -- the laws of whatever soi-disant jurisdiction, and you promise to --
191 -- continue doing so for the indefinite future. In any case, please --
192 -- always : read and understand any software ; verify any PGP signatures --
193 -- that you use - for any purpose. --
194 -- --
195 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
196 ------------------------------------------------------------------------------
197 ------------------------------------------------------------------------------
198
199 with Word_Ops; use Word_Ops;
200
201
(33 . 7)(52 . 7)
203
204 -- Exchange X and Y
205 procedure FZ_Swap(X : in out FZ; Y : in out FZ) is
206 T : FZ(X'Range) := X;
207 T : FZ(X'Range);
208 begin
209 T := X;
210 X := Y;