$dist_erlang needs to use rtl_dist_erlang.
The erlang distribution calltf routine was incorrectly using the
normal distribution.
(cherry picked from commit 26b95b94f7)
This commit is contained in:
parent
c781db5779
commit
d3f60a2a98
|
|
@ -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. */
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue