aboutsummaryrefslogtreecommitdiff
path: root/lmathlib.c
diff options
context:
space:
mode:
Diffstat (limited to 'lmathlib.c')
-rw-r--r--lmathlib.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/lmathlib.c b/lmathlib.c
index 0f08866a..e1c3def8 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
1/* 1/*
2** $Id: lmathlib.c,v 1.31 2000/10/27 16:15:53 roberto Exp roberto $ 2** $Id: lmathlib.c,v 1.32 2000/10/31 13:10:24 roberto Exp roberto $
3** Standard mathematical library 3** Standard mathematical library
4** See Copyright Notice in lua.h 4** See Copyright Notice in lua.h
5*/ 5*/
@@ -139,10 +139,10 @@ static int math_ldexp (lua_State *L) {
139 139
140static int math_min (lua_State *L) { 140static int math_min (lua_State *L) {
141 int n = lua_gettop(L); /* number of arguments */ 141 int n = lua_gettop(L); /* number of arguments */
142 double dmin = luaL_check_number(L, 1); 142 lua_Number dmin = luaL_check_number(L, 1);
143 int i; 143 int i;
144 for (i=2; i<=n; i++) { 144 for (i=2; i<=n; i++) {
145 double d = luaL_check_number(L, i); 145 lua_Number d = luaL_check_number(L, i);
146 if (d < dmin) 146 if (d < dmin)
147 dmin = d; 147 dmin = d;
148 } 148 }
@@ -153,10 +153,10 @@ static int math_min (lua_State *L) {
153 153
154static int math_max (lua_State *L) { 154static int math_max (lua_State *L) {
155 int n = lua_gettop(L); /* number of arguments */ 155 int n = lua_gettop(L); /* number of arguments */
156 double dmax = luaL_check_number(L, 1); 156 lua_Number dmax = luaL_check_number(L, 1);
157 int i; 157 int i;
158 for (i=2; i<=n; i++) { 158 for (i=2; i<=n; i++) {
159 double d = luaL_check_number(L, i); 159 lua_Number d = luaL_check_number(L, i);
160 if (d > dmax) 160 if (d > dmax)
161 dmax = d; 161 dmax = d;
162 } 162 }
@@ -168,7 +168,7 @@ static int math_max (lua_State *L) {
168static int math_random (lua_State *L) { 168static int math_random (lua_State *L) {
169 /* the '%' avoids the (rare) case of r==1, and is needed also because on 169 /* the '%' avoids the (rare) case of r==1, and is needed also because on
170 some systems (SunOS!) "rand()" may return a value larger than RAND_MAX */ 170 some systems (SunOS!) "rand()" may return a value larger than RAND_MAX */
171 double r = (double)(rand()%RAND_MAX) / (double)RAND_MAX; 171 lua_Number r = (lua_Number)(rand()%RAND_MAX) / (lua_Number)RAND_MAX;
172 switch (lua_gettop(L)) { /* check number of arguments */ 172 switch (lua_gettop(L)) { /* check number of arguments */
173 case 0: { /* no arguments */ 173 case 0: { /* no arguments */
174 lua_pushnumber(L, r); /* Number between 0 and 1 */ 174 lua_pushnumber(L, r); /* Number between 0 and 1 */