Ticket #392: rand.patch
File rand.patch, 0.8 KB (added by rg, 13 years ago) |
---|
-
runtime/parrot/library/Math/Rand.pir
67 67 $I0 = $P0 68 68 $I0 *= 1103515245 69 69 $I0 += 12345 70 ge $I0, 0, noadj 71 $I0 += 0x80000000 # not hit for 64bit int 72 goto done 73 noadj: 74 $I0 &= 0xffffffff # noop for 32bit int 75 done: 70 76 set $P0, $I0 71 77 $I0 /= 65536 72 78 $I0 %= 32768 -
t/library/rand.t
41 41 .end 42 42 CODE 43 43 16838 44 575 944 5758 45 45 10113 46 1751 646 17515 47 47 16838 48 575 948 5758 49 49 OUTPUT 50 50 51 51 pir_output_is( << 'CODE', << 'OUTPUT', 'RAND_MAX' );