diff options
Diffstat (limited to 'opcode.c')
-rw-r--r-- | opcode.c | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -3,7 +3,7 @@ | |||
3 | ** TecCGraf - PUC-Rio | 3 | ** TecCGraf - PUC-Rio |
4 | */ | 4 | */ |
5 | 5 | ||
6 | char *rcs_opcode="$Id: opcode.c,v 2.7 1994/09/20 15:11:11 celes Exp celes $"; | 6 | char *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; |