aboutsummaryrefslogtreecommitdiff
path: root/lua.stx
diff options
context:
space:
mode:
Diffstat (limited to 'lua.stx')
-rw-r--r--lua.stx6
1 files changed, 3 insertions, 3 deletions
diff --git a/lua.stx b/lua.stx
index 2c8e6244..b10ea3bb 100644
--- a/lua.stx
+++ b/lua.stx
@@ -1,6 +1,6 @@
1%{ 1%{
2/* 2/*
3** $Id: lua.stx,v 1.30 1997/12/29 17:35:46 roberto Exp roberto $ 3** $Id: lua.stx,v 1.31 1997/12/30 19:08:23 roberto Exp roberto $
4** Syntax analizer and code generator 4** Syntax analizer and code generator
5** See Copyright Notice in lua.h 5** See Copyright Notice in lua.h
6*/ 6*/
@@ -266,8 +266,8 @@ static int real_constant (real r)
266 266
267static void code_number (real f) 267static void code_number (real f)
268{ 268{
269 Word i; 269 int i;
270 if (f >= 0 && f <= (real)MAX_WORD && (real)(i=(Word)f) == f) 270 if (f >= 0 && f <= (real)MAX_WORD && (real)(i=(int)f) == f)
271 code_oparg(PUSHNUMBER, 3, i, 1); /* f has an (short) integer value */ 271 code_oparg(PUSHNUMBER, 3, i, 1); /* f has an (short) integer value */
272 else 272 else
273 code_constant(real_constant(f)); 273 code_constant(real_constant(f));