diff options
Diffstat (limited to 'lua.stx')
-rw-r--r-- | lua.stx | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -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 | ||
267 | static void code_number (real f) | 267 | static 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)); |