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

check if jump is bigger than 2^16.

Browse Source
This commit is contained in:
Roberto Ierusalimschy
1996-02-26 14:07:20 -03:00
parent 30dd3a2dbc
commit f935d3397e
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lua.stx
View File

@@ -1,6 +1,6 @@
%{ %{
char *rcs_luastx = "$Id: lua.stx,v 3.31 1996/02/13 17:30:39 roberto Exp roberto $"; char *rcs_luastx = "$Id: lua.stx,v 3.32 1996/02/14 18:25:04 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <stdlib.h> #include <stdlib.h>
@@ -109,10 +109,12 @@ static void code_code (TFunc *tf)
code_byte(code.m.c4); code_byte(code.m.c4);
} }
static void code_word_at (Byte *p, Word n) static void code_word_at (Byte *p, int n)
{ {
CodeWord code; CodeWord code;
code.w = n; if ((Word)n != n)
yyerror("block too big");
code.w = (Word)n;
*p++ = code.m.c1; *p++ = code.m.c1;
*p++ = code.m.c2; *p++ = code.m.c2;
} }