From 9f043e801733b0a5019c4e6e2a72abaf9ad7c5b0 Mon Sep 17 00:00:00 2001
From: Roberto Ierusalimschy <roberto@inf.puc-rio.br>
Date: Fri, 9 Jan 1998 13:09:53 -0200
Subject: luaL_arg_check now is inlined

---
 lauxlib.c | 28 +++++++++++++++-------------
 lauxlib.h |  8 ++++++--
 2 files changed, 21 insertions(+), 15 deletions(-)

diff --git a/lauxlib.c b/lauxlib.c
index 922bc5d2..6de9c2bf 100644
--- a/lauxlib.c
+++ b/lauxlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lauxlib.c,v 1.6 1997/12/17 20:48:58 roberto Exp roberto $
+** $Id: lauxlib.c,v 1.8 1998/01/09 15:06:07 roberto Exp $
 ** Auxiliar functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -8,25 +8,27 @@
 #include <stdarg.h>
 #include <stdio.h>
 
+/* Please Notice: This file uses only the oficial API of Lua
+** Any function declared here could be written as an application
+** function. With care, these functions can be used by other libraries.
+*/
 #include "lauxlib.h"
 #include "lua.h"
 #include "luadebug.h"
 
 
 
-void luaL_arg_check (int cond, int numarg, char *extramsg)
+void luaL_argerror (int numarg, char *extramsg)
 {
-  if (!cond) {
-    char *funcname;
-    lua_getobjname(lua_stackedfunction(0), &funcname);
-    if (funcname == NULL)
-      funcname = "???";
-    if (extramsg == NULL)
-      luaL_verror("bad argument #%d to function `%.50s'", numarg, funcname);
-    else
-      luaL_verror("bad argument #%d to function `%.50s' (%.100s)",
-                      numarg, funcname, extramsg);
-  }
+  char *funcname;
+  lua_getobjname(lua_stackedfunction(0), &funcname);
+  if (funcname == NULL)
+    funcname = "???";
+  if (extramsg == NULL)
+    luaL_verror("bad argument #%d to function `%.50s'", numarg, funcname);
+  else
+    luaL_verror("bad argument #%d to function `%.50s' (%.100s)",
+                    numarg, funcname, extramsg);
 }
 
 char *luaL_check_string (int numArg)
diff --git a/lauxlib.h b/lauxlib.h
index ae043322..4fe65c99 100644
--- a/lauxlib.h
+++ b/lauxlib.h
@@ -1,5 +1,5 @@
 /*
-** $Id: lauxlib.h,v 1.4 1997/12/09 13:35:19 roberto Exp roberto $
+** $Id: lauxlib.h,v 1.5 1997/12/17 20:48:58 roberto Exp roberto $
 ** Auxiliar functions for building Lua libraries
 ** See Copyright Notice in lua.h
 */
@@ -17,8 +17,12 @@ struct luaL_reg {
   lua_CFunction func;
 };
 
+
+#define luaL_arg_check(cond,numarg,extramsg) if (!(cond)) \
+                                               luaL_argerror(numarg,extramsg)
+
 void luaL_openlib (struct luaL_reg *l, int n);
-void luaL_arg_check (int cond, int numarg, char *extramsg);
+void luaL_argerror (int numarg, char *extramsg);
 char *luaL_check_string (int numArg);
 char *luaL_opt_string (int numArg, char *def);
 double luaL_check_number (int numArg);
-- 
cgit v1.2.3-55-g6feb