aboutsummaryrefslogtreecommitdiff
path: root/opcode.c
diff options
context:
space:
mode:
authorRoberto Ierusalimschy <roberto@inf.puc-rio.br>1994-11-01 15:54:31 -0200
committerRoberto Ierusalimschy <roberto@inf.puc-rio.br>1994-11-01 15:54:31 -0200
commit41e4c5798ee95404f6687def4bbed236566db676 (patch)
tree7d1b8ecfde62af636540e5656f8ce28776798615 /opcode.c
parentfb23cd2e26163da34e541b64f5cfd6168ce32840 (diff)
downloadlua-41e4c5798ee95404f6687def4bbed236566db676.tar.gz
lua-41e4c5798ee95404f6687def4bbed236566db676.tar.bz2
lua-41e4c5798ee95404f6687def4bbed236566db676.zip
small corrections
Diffstat (limited to 'opcode.c')
-rw-r--r--opcode.c10
1 files changed, 4 insertions, 6 deletions
diff --git a/opcode.c b/opcode.c
index 75f59d54..c356bde5 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.9 1994/10/11 14:38:17 celes Exp $"; 6char *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*/
82static char *lua_strconc (char *l, char *r) 80static 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*/
125static Object *lua_convtonumber (Object *obj) 123static 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*/
653int lua_pushsubscript (void) 651int lua_pushsubscript (void)
654{ 652{