diff options
| -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)); |
