-
+ 9BE8930649F097919664873A6F502D6C0A2E67BB36DF1F61DB80B291162B2DE3644837694290FF253E045499F9EBD138D84CC7D127A3B7C91838E550DC01836Dffa/libffa/iron.ads(0 . 0)(1 . 41)
674 ------------------------------------------------------------------------------
675 ------------------------------------------------------------------------------
676 -- This file is part of 'Finite Field Arithmetic', aka 'FFA'. --
677 -- --
678 -- (C) 2017 Stanislav Datskovskiy ( www.loper-os.org ) --
679 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html --
680 -- --
681 -- You do not have, nor can you ever acquire the right to use, copy or --
682 -- distribute this software ; Should you use this software for any purpose, --
683 -- or copy and distribute it to anyone or in any manner, you are breaking --
684 -- the laws of whatever soi-disant jurisdiction, and you promise to --
685 -- continue doing so for the indefinite future. In any case, please --
686 -- always : read and understand any software ; verify any PGP signatures --
687 -- that you use - for any purpose. --
688 -- --
689 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm . --
690 ------------------------------------------------------------------------------
691 ------------------------------------------------------------------------------
692
693 package Iron is
694
695 pragma Pure;
696
697 --------------------------------------
698 -------- For a 64-bit system: --------
699 --------------------------------------
700 MachineBitness : constant Positive := 64;
701 MachineBitnessLog2 : constant Positive := 6; -- log2(64)
702 --------------------------------------
703
704 --------------------------------------
705 -------- For a 32-bit system: --------
706 --------------------------------------
707 -- MachineBitness : constant Positive := 32;
708 -- MachineBitnessLog2 : constant Positive := 5; -- log2(32)
709 --------------------------------------
710
711 -- Bits per Byte
712 ByteBits : constant Positive := 8;
713
714 end Iron;