nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correcao de bug em constantes (rotina code_number) entre

Browse Source 
2 bytes e 4 bytes.
This commit is contained in:
Roberto Ierusalimschy
1993-12-28 14:42:29 -02:00
parent 23bfcdf970
commit 019aa98f80
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lua.stx
View File

@@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 1.1 1993/12/17 18:53:07 celes Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 1.2 1993/12/22 21:19:23 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@@ -111,8 +111,8 @@ static void align_n (unsigned size)
} }
static void code_number (float f) static void code_number (float f)
{ int i = f; { Word i = (Word)f;
if (f == i) /* f has an integer value */ if (f == (float)i) /* f has an (short) integer value */
{ {
if (i <= 2) code_byte(PUSH0 + i); if (i <= 2) code_byte(PUSH0 + i);
else if (i <= 255) else if (i <= 255)