projects
/
scilab.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
* Bug 16209 fixed: grand(n,m,exp,1) may freeze Scilab with default generator
[scilab.git]
/
scilab
/
modules
/
randlib
/
src
/
c
/
sexpo.c
diff --git
a/scilab/modules/randlib/src/c/sexpo.c
b/scilab/modules/randlib/src/c/sexpo.c
index
b96c03a
..
a385839
100644
(file)
--- a/
scilab/modules/randlib/src/c/sexpo.c
+++ b/
scilab/modules/randlib/src/c/sexpo.c
@@
-58,6
+58,7
@@
modifications done by JJV
a = 0.0;
u = C2F(ranf)();
+ u = (u == 0.0) ? C2F(ranf)() : u;
goto S30;
S20:
a += q[0];