← Back to branch summary

~ubuntu-branches/ubuntu/trusty/libgmpada/trusty-proposed

« back to all changes in this revision

Viewing changes to src/gnu_multiple_precision-random_numbers.adb

  • Committer: Package Import Robot
  • Author(s): Nicolas Boulenguez
  • Date: 2012-04-04 21:36:48 UTC
  • mfrom: (1.1.5)
  • Revision ID: package-import@ubuntu.com-20120404213648-vrgixrp1b1751keo
Tags: 0.0.20120331-1
http://bugs.debian.org/667481
* New upstream release (neither ALI nor SO changes).
* watch: search for bz2 tarballs too.
* control: -dbg does not Pre-Depends: ${misc:Pre-Depends} for multiarch.
  -dev Depends: libmpfr-dev and libgmp-dev (Closes: #667481).
* ada_libraries, control, rules: use dh_ada_library.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gnu_multiple_precision-random_numbers.adb
109
109
   is
110
110
   begin
111
111
      Gmp_Randclear (Gen.Gen_State.Value);
112
 
      Gmp_Randinit_Lc_2exp (Gen.Gen_State.Value, A.Value, unsigned_long (C), M2exp);
 
112
      Gmp_Randinit_Lc_2exp (Gen.Gen_State.Value, A.Value, unsigned_long (C),
 
113
                            M2exp);
113
114
   end Reset_Linear_Congruential;
114
115
 
115
116
   procedure Generate_Corner_Case_Random_Bytes
121
122
      Mpz_Rrandomb (Rop.Value, Gen.Gen_State.Value, Count);
122
123
   end Generate_Corner_Case_Random_Bytes;
123
124
 
124
 
   procedure Reset_Linear_Congruential_2exp_Size (Gen            : in out Generator;
125
 
                                                  Size           : in     Natural;
126
 
                                                  Found_In_Table :    out Boolean)
 
125
   procedure Reset_Linear_Congruential_2exp_Size
 
126
     (Gen            : in out Generator;
 
127
      Size           : in     Natural;
 
128
      Found_In_Table :    out Boolean)
127
129
   is
128
130
      Ret : int;
129
131
   begin
130
 
      Gmp_Randinit_Lc_2exp_Size (Ret, Gen.Gen_State.Value, unsigned_long (Size));
 
132
      Gmp_Randinit_Lc_2exp_Size (Ret, Gen.Gen_State.Value,
 
133
                                 unsigned_long (Size));
131
134
      Found_In_Table := Ret /= 0;
132
135
   end Reset_Linear_Congruential_2exp_Size;
133
136