From 18ea2eff80c720632cb6a89d560c5cce2377df06 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Tue, 2 May 1995 15:43:03 -0300
Subject: calls to "lua_reportbug" changed to "lua_error", since
 "lua_reportbug" is only an internal function to build debug information

---
 inout.c | 19 ++++++-------------
 1 file changed, 6 insertions(+), 13 deletions(-)

(limited to 'inout.c')

diff --git a/inout.c b/inout.c
index b6c4e768..9ea0fd82 100644
--- a/inout.c
+++ b/inout.c
@@ -5,7 +5,7 @@
 ** Also provides some predefined lua functions.
 */
 
-char *rcs_inout="$Id: inout.c,v 2.17 1995/03/17 20:27:11 celes Exp roberto $";
+char *rcs_inout="$Id: inout.c,v 2.18 1995/03/17 20:42:20 roberto Exp roberto $";
 
 #include <stdio.h>
 #include <stdlib.h>
@@ -26,11 +26,7 @@ Word lua_debugline = 0;
 
 
 /* Internal variables */
- 
-#ifndef MAXFUNCSTACK
-#define MAXFUNCSTACK 100
-#endif
- 
+
 typedef struct FuncStackNode {
   struct FuncStackNode *next;
   char *file;
@@ -124,7 +120,7 @@ void lua_pushfunction (char *file, Word function)
  FuncStackNode *newNode;
  if (nfuncstack++ >= MAXFUNCSTACK)
  {
-  lua_reportbug("function stack overflow");
+  lua_error("function stack overflow");
  }
  newNode = new(FuncStackNode);
  newNode->function = function;
@@ -149,12 +145,10 @@ void lua_popfunction (void)
 }
 
 /*
-** Report bug building a message and sending it to lua_error function.
+** Report bug building a message.
 */
-void lua_reportbug (char *s)
+void luaI_reportbug (char *msg, int size)
 {
- char msg[MAXFUNCSTACK*80];
- strcpy (msg, s);
  if (lua_debugline != 0)
  {
   if (funcStack)
@@ -179,7 +173,6 @@ void lua_reportbug (char *s)
          lua_debugline, lua_filename());
   }
  }
- lua_error (msg);
 }
 
  
@@ -292,6 +285,6 @@ void luaI_error (void)
 {
   char *s = lua_getstring(lua_getparam(1));
   if (s == NULL) s = "(no message)";
-  lua_reportbug(s);
+  lua_error(s);
 }
 
-- 
cgit v1.2.3-55-g6feb