Index: parrot/basic_opcodes.ops
===================================================================
RCS file: /home/perlcvs/parrot/basic_opcodes.ops,v
retrieving revision 1.37
diff -r1.37 basic_opcodes.ops
944a945,953
> /* SRAND_i */
> AUTO_OP srand_i {
> 	srand(INT_REG(P1));
> }
> 
> /* RAND_n */
> AUTO_OP rand_n {
> 	NUM_REG(P1) = ((double) rand() / RAND_MAX);
> }