aboutsummaryrefslogtreecommitdiff
path: root/opcode.c
diff options
context:
space:
mode:
Diffstat (limited to 'opcode.c')
-rw-r--r--opcode.c9
1 files changed, 5 insertions, 4 deletions
diff --git a/opcode.c b/opcode.c
index 478ec136..53f5d7d4 100644
--- a/opcode.c
+++ b/opcode.c
@@ -3,7 +3,7 @@
3** TecCGraf - PUC-Rio 3** TecCGraf - PUC-Rio
4*/ 4*/
5 5
6char *rcs_opcode="$Id: opcode.c,v 2.7 1994/09/20 15:11:11 celes Exp celes $"; 6char *rcs_opcode="$Id: opcode.c,v 2.8 1994/09/27 21:43:30 celes Exp celes $";
7 7
8#include <stdio.h> 8#include <stdio.h>
9#include <stdlib.h> 9#include <stdlib.h>
@@ -600,10 +600,11 @@ int lua_execute (Byte *pc)
600 600
601 case SETFUNCTION: 601 case SETFUNCTION:
602 { 602 {
603 CodeWord file, func; 603 CodeCode file;
604 get_word(file,pc); 604 CodeWord func;
605 get_code(file,pc);
605 get_word(func,pc); 606 get_word(func,pc);
606 if (lua_pushfunction (file.w, func.w)) 607 if (lua_pushfunction ((char *)file.b, func.w))
607 return 1; 608 return 1;
608 } 609 }
609 break; 610 break;