2000-03-24 20:26:08 +03:00
|
|
|
/*
|
2002-04-23 18:59:35 +04:00
|
|
|
** $Id: llimits.h,v 1.42 2002/03/26 20:46:10 roberto Exp roberto $
|
2001-02-23 20:17:25 +03:00
|
|
|
** Limits, basic types, and some other `installation-dependent' definitions
|
2000-03-24 20:26:08 +03:00
|
|
|
** See Copyright Notice in lua.h
|
|
|
|
*/
|
|
|
|
|
2000-03-24 22:49:23 +03:00
|
|
|
#ifndef llimits_h
|
|
|
|
#define llimits_h
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
|
|
|
|
#include <limits.h>
|
2000-05-24 17:54:49 +04:00
|
|
|
#include <stddef.h>
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
|
2001-02-23 23:28:56 +03:00
|
|
|
#include "lua.h"
|
|
|
|
|
2000-06-28 21:03:32 +04:00
|
|
|
|
|
|
|
/*
|
|
|
|
** try to find number of bits in an integer
|
|
|
|
*/
|
|
|
|
#ifndef BITS_INT
|
|
|
|
/* avoid overflows in comparison */
|
|
|
|
#if INT_MAX-20 < 32760
|
|
|
|
#define BITS_INT 16
|
|
|
|
#else
|
|
|
|
#if INT_MAX > 2147483640L
|
|
|
|
/* machine has at least 32 bits */
|
|
|
|
#define BITS_INT 32
|
|
|
|
#else
|
|
|
|
#error "you must define BITS_INT with number of bits in an integer"
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2001-02-20 21:15:33 +03:00
|
|
|
/*
|
|
|
|
** the following types define integer types for values that may not
|
2001-02-23 20:17:25 +03:00
|
|
|
** fit in a `small int' (16 bits), but may waste space in a
|
|
|
|
** `large long' (64 bits). The current definitions should work in
|
2001-02-20 21:15:33 +03:00
|
|
|
** any machine, but may not be optimal.
|
|
|
|
*/
|
|
|
|
|
|
|
|
/* an unsigned integer to hold hash values */
|
|
|
|
typedef unsigned int lu_hash;
|
|
|
|
/* its signed equivalent */
|
|
|
|
typedef int ls_hash;
|
2000-11-24 20:39:56 +03:00
|
|
|
|
2002-01-11 23:23:01 +03:00
|
|
|
/* an unsigned integer big enough to count the total memory used by Lua; */
|
|
|
|
/* it should be at least as large as size_t */
|
2001-02-20 21:15:33 +03:00
|
|
|
typedef unsigned long lu_mem;
|
|
|
|
|
|
|
|
/* an integer big enough to count the number of strings in use */
|
|
|
|
typedef long ls_nstr;
|
|
|
|
|
|
|
|
|
|
|
|
/* chars used as small naturals (so that `char' is reserved for characteres) */
|
|
|
|
typedef unsigned char lu_byte;
|
2000-05-24 17:54:49 +04:00
|
|
|
|
|
|
|
|
2000-06-06 20:27:11 +04:00
|
|
|
#define MAX_SIZET ((size_t)(~(size_t)0)-2)
|
2000-05-24 17:54:49 +04:00
|
|
|
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
#define MAX_INT (INT_MAX-2) /* maximum value of an int (-2 for safety) */
|
|
|
|
|
|
|
|
/*
|
2001-02-20 21:15:33 +03:00
|
|
|
** conversion of pointer to integer
|
|
|
|
** this is for hashing only; there is no problem if the integer
|
|
|
|
** cannot hold the whole pointer value
|
2000-03-24 20:26:08 +03:00
|
|
|
*/
|
2002-02-15 00:43:01 +03:00
|
|
|
#define IntPoint(p) ((lu_hash)(p))
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
|
2000-03-31 20:28:45 +04:00
|
|
|
|
2000-10-26 16:47:05 +04:00
|
|
|
/* type to ensure maximum alignment */
|
2001-06-06 00:01:09 +04:00
|
|
|
#ifndef LUSER_ALIGNMENT_T
|
|
|
|
#define LUSER_ALIGNMENT_T double
|
|
|
|
#endif
|
|
|
|
union L_Umaxalign { LUSER_ALIGNMENT_T u; void *s; long l; };
|
2000-10-26 16:47:05 +04:00
|
|
|
|
|
|
|
|
2002-03-18 21:16:16 +03:00
|
|
|
#ifndef lua_assert
|
|
|
|
#define lua_assert(c) /* empty */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef UNUSED
|
|
|
|
#define UNUSED(x) ((void)(x)) /* to avoid warnings */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
#ifndef cast
|
|
|
|
#define cast(t, exp) ((t)(exp))
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2000-10-26 16:47:05 +04:00
|
|
|
|
2000-03-24 20:26:08 +03:00
|
|
|
/*
|
|
|
|
** type for virtual-machine instructions
|
2000-09-29 16:42:13 +04:00
|
|
|
** must be an unsigned with (at least) 4 bytes (see details in lopcodes.h)
|
2000-03-24 20:26:08 +03:00
|
|
|
*/
|
2001-02-20 21:15:33 +03:00
|
|
|
typedef unsigned long Instruction;
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
|
2002-03-26 23:46:10 +03:00
|
|
|
/* maximum depth for calls */
|
|
|
|
#ifndef LUA_MAXCALLS
|
2002-04-23 18:59:35 +04:00
|
|
|
#define LUA_MAXCALLS 4096
|
2002-03-26 23:46:10 +03:00
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/* maximum size for the C stack */
|
|
|
|
#ifndef LUA_MAXCSTACK
|
|
|
|
#define LUA_MAXCSTACK 2048
|
2002-03-07 21:11:51 +03:00
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2001-06-05 22:17:01 +04:00
|
|
|
/* maximum stack for a Lua function */
|
2000-06-28 21:03:32 +04:00
|
|
|
#define MAXSTACK 250
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
|
2002-03-14 21:01:52 +03:00
|
|
|
/* maximum number of variables declared in a function */
|
|
|
|
#ifndef MAXVARS
|
|
|
|
#define MAXVARS 200 /* arbitrary limit (<MAXSTACK) */
|
2000-03-24 20:26:08 +03:00
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2001-10-02 20:45:03 +04:00
|
|
|
/* maximum number of upvalues per function */
|
2000-03-24 20:26:08 +03:00
|
|
|
#ifndef MAXUPVALUES
|
2001-10-02 20:45:03 +04:00
|
|
|
#define MAXUPVALUES 32
|
2000-03-24 20:26:08 +03:00
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
/* maximum number of parameters in a function */
|
|
|
|
#ifndef MAXPARAMS
|
|
|
|
#define MAXPARAMS 100 /* arbitrary limit (<MAXLOCALS) */
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
2002-03-07 21:11:51 +03:00
|
|
|
/* minimum size for the string table (must be power of 2) */
|
2002-03-05 19:22:54 +03:00
|
|
|
#ifndef MINSTRTABSIZE
|
2002-03-07 21:11:51 +03:00
|
|
|
#define MINSTRTABSIZE 32
|
2002-03-05 19:22:54 +03:00
|
|
|
#endif
|
|
|
|
|
2000-03-24 20:26:08 +03:00
|
|
|
|
|
|
|
#endif
|