diff options
Diffstat (limited to 'opcode.c')
| -rw-r--r-- | opcode.c | 10 |
1 files changed, 4 insertions, 6 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.9 1994/10/11 14:38:17 celes Exp $"; | 6 | char *rcs_opcode="$Id: opcode.c,v 2.10 1994/10/17 19:00:40 celes Exp roberto $"; |
| 7 | 7 | ||
| 8 | #include <stdio.h> | 8 | #include <stdio.h> |
| 9 | #include <stdlib.h> | 9 | #include <stdlib.h> |
| @@ -13,8 +13,6 @@ char *rcs_opcode="$Id: opcode.c,v 2.9 1994/10/11 14:38:17 celes Exp $"; | |||
| 13 | #include <floatingpoint.h> | 13 | #include <floatingpoint.h> |
| 14 | #endif | 14 | #endif |
| 15 | 15 | ||
| 16 | #include "mm.h" | ||
| 17 | |||
| 18 | #include "opcode.h" | 16 | #include "opcode.h" |
| 19 | #include "hash.h" | 17 | #include "hash.h" |
| 20 | #include "inout.h" | 18 | #include "inout.h" |
| @@ -76,7 +74,7 @@ static int lua_checkstack (Word n) | |||
| 76 | 74 | ||
| 77 | 75 | ||
| 78 | /* | 76 | /* |
| 79 | ** Concatenate two given string, creating a mark space at the beginning. | 77 | ** Concatenate two given strings, creating a mark space at the beginning. |
| 80 | ** Return the new string pointer. | 78 | ** Return the new string pointer. |
| 81 | */ | 79 | */ |
| 82 | static char *lua_strconc (char *l, char *r) | 80 | static char *lua_strconc (char *l, char *r) |
| @@ -119,7 +117,7 @@ static int lua_tonumber (Object *obj) | |||
| 119 | } | 117 | } |
| 120 | 118 | ||
| 121 | /* | 119 | /* |
| 122 | ** Test if is possible to convert an object to a number object. | 120 | ** Test if it is possible to convert an object to a number object. |
| 123 | ** If possible, return the converted object, otherwise return nil object. | 121 | ** If possible, return the converted object, otherwise return nil object. |
| 124 | */ | 122 | */ |
| 125 | static Object *lua_convtonumber (Object *obj) | 123 | static Object *lua_convtonumber (Object *obj) |
| @@ -648,7 +646,7 @@ int lua_execute (Byte *pc) | |||
| 648 | 646 | ||
| 649 | 647 | ||
| 650 | /* | 648 | /* |
| 651 | ** Function to indexed the values on the top | 649 | ** Function to index the values on the top |
| 652 | */ | 650 | */ |
| 653 | int lua_pushsubscript (void) | 651 | int lua_pushsubscript (void) |
| 654 | { | 652 | { |
