$dist_erlang needs to use rtl_dist_erlang.

The erlang distribution calltf routine was incorrectly using the
normal distribution.
This commit is contained in:
Cary R 2010-04-30 13:51:00 -07:00 committed by Stephen Williams
parent 8dfe9961c8
commit 26b95b94f7
1 changed files with 1 additions and 1 deletions

View File

@ -877,7 +877,7 @@ static PLI_INT32 sys_dist_erlang_calltf(PLI_BYTE8 *name)
i_mean = val.value.integer; i_mean = val.value.integer;
/* Calculate and return the result. */ /* Calculate and return the result. */
val.value.integer = rtl_dist_normal(&i_seed, i_k, i_mean); val.value.integer = rtl_dist_erlang(&i_seed, i_k, i_mean);
vpi_put_value(callh, &val, 0, vpiNoDelay); vpi_put_value(callh, &val, 0, vpiNoDelay);
/* Return the seed. */ /* Return the seed. */