X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=src%2Fexpr-evl.c;h=e750b18e4c3c6aa372572fbc0aff5bedbcfe2ada;hb=2ed139f9baf695edf0300f272a31d3ef98038521;hp=dc017a594b1ef5366c06600e1ed15121d1c24144;hpb=cb4033020c8a24d573814e6ac9192046bffdccac;p=pspp

diff --git a/src/expr-evl.c b/src/expr-evl.c
index dc017a594b..e750b18e4c 100644
--- a/src/expr-evl.c
+++ b/src/expr-evl.c
@@ -1202,11 +1202,11 @@ expr_evaluate (struct expression *e, struct ccase *c, union value *v)
 	  break;
 	case OP_NORMAL:
 	  if (sp->f != SYSMIS)
-	    sp->f = rand_normal (sp->f);
+	    sp->f *= rng_get_double_normal (pspp_rng ());
 	  break;
 	case OP_UNIFORM:
 	  if (sp->f != SYSMIS)
-	    sp->f = rand_uniform (sp->f);
+	    sp->f *= rng_get_double (pspp_rng ());
 	  break;
 	case OP_SYSMIS:
 	  if (sp[0].f == SYSMIS || !finite (sp[0].f))