small warnings

4 files changed, 9 insertions, 9 deletions

diff --git a/lapi.c b/lapi.c
index 6db29a61..65cd28b4 100644
--- a/lapi.c
+++ b/lapi.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lapi.c,v 1.27 1998/08/21 17:43:44 roberto Exp roberto $
+** $Id: lapi.c,v 1.28 1998/09/07 18:59:59 roberto Exp roberto $
 ** Lua API
 ** See Copyright Notice in lua.h
 */
@@ -34,7 +34,7 @@ TObject *luaA_Address (lua_Object o) {
 }
 
 
-static int normalized_type (TObject *o)
+static lua_Type normalized_type (TObject *o)
 {
   int t = ttype(o);
   switch (t) {
diff --git a/lbuiltin.c b/lbuiltin.c
index 0707ea26..495f43d8 100644
--- a/lbuiltin.c
+++ b/lbuiltin.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lbuiltin.c,v 1.34 1998/08/21 17:43:44 roberto Exp roberto $
+** $Id: lbuiltin.c,v 1.35 1998/11/13 16:39:18 roberto Exp roberto $
 ** Built-in functions
 ** See Copyright Notice in lua.h
 */
@@ -549,7 +549,7 @@ static void testC (void)
   char nome[2];
   char *s = luaL_check_string(1);
   nome[1] = 0;
-  while (1) {
+  for (;;) {
     switch (*s++) {
       case '0': case '1': case '2': case '3': case '4':
       case '5': case '6': case '7': case '8': case '9':
diff --git a/llex.c b/llex.c
index e5570723..3c3cf430 100644
--- a/llex.c
+++ b/llex.c
@@ -1,5 +1,5 @@
 /*
-** $Id: llex.c,v 1.23 1998/07/06 22:04:58 roberto Exp roberto $
+** $Id: llex.c,v 1.24 1998/07/24 18:02:38 roberto Exp roberto $
 ** Lexical Analizer
 ** See Copyright Notice in lua.h
 */
@@ -234,7 +234,7 @@ static void inclinenumber (LexState *LS)
 static int read_long_string (LexState *LS)
 {
   int cont = 0;
-  while (1) {
+  for (;;) {
     switch (LS->current) {
       case EOZ:
         luaX_error(LS, "unfinished long string");
@@ -272,7 +272,7 @@ static int read_long_string (LexState *LS)
 int luaX_lex (LexState *LS) {
   double a;
   luaL_resetbuffer();
-  while (1) {
+  for (;;) {
     switch (LS->current) {
 
       case ' ': case '\t': case '\r':  /* CR: to avoid problems with DOS */
diff --git a/lvm.c b/lvm.c
index ace249ed..586267e7 100644
--- a/lvm.c
+++ b/lvm.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lvm.c,v 1.30 1998/06/11 18:21:37 roberto Exp roberto $
+** $Id: lvm.c,v 1.31 1998/07/12 16:16:43 roberto Exp roberto $
 ** Lua virtual machine
 ** See Copyright Notice in lua.h
 */
@@ -316,7 +316,7 @@ StkId luaV_execute (Closure *cl, TProtoFunc *tf, StkId base)
     luaC_checkGC();
     adjust_varargs(base+(*pc++)-ZEROVARARG);
   }
-  while (1) {
+  for (;;) {
     int aux;
     switch ((OpCode)(aux = *pc++)) {