From 26b95b94f707d02151c02da2b547cd07243aed3f Mon Sep 17 00:00:00 2001
From: Cary R <cygcary@yahoo.com>
Date: Fri, 30 Apr 2010 13:51:00 -0700
Subject: [PATCH] $dist_erlang needs to use rtl_dist_erlang.

The erlang distribution calltf routine was incorrectly using the
normal distribution.
---
 vpi/sys_random.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vpi/sys_random.c b/vpi/sys_random.c
index fa3cd2e98..05c4ddaee 100644
--- a/vpi/sys_random.c
+++ b/vpi/sys_random.c
@@ -877,7 +877,7 @@ static PLI_INT32 sys_dist_erlang_calltf(PLI_BYTE8 *name)
       i_mean = val.value.integer;
 
       /* 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);
 
       /* Return the seed. */