Branch: Tag:

2016-01-17

2016-01-17 16:22:49 by Martin Nilsson <nilsson@fastmail.com>

Use RandomSystem as default random.

1798:    add_constant("get_dir", high_master_get_dir );    add_constant("file_stat", lambda( string f, int|void d ) { return file_stat(f,d);} );    +  object rnd = Builtin.RandomSystem(); +  add_constant("random", rnd->random); +  add_constant("random_string", rnd->random_string); +    #define CO(X) add_constant(#X,Builtin.__backend->X)    CO(call_out);    CO(_do_call_outs);
3398:       case "execute":    main_resolv( "Gmp.bignum" ); -  random_seed((time() ^ (getpid()<<8))); +     argv = tmp->get_args(argv,1);       program prog;
3480:    }       main_resolv( "Gmp.bignum" ); -  random_seed(time() ^ (getpid()<<8)); +        if(sizeof(argv)==1)    {