rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

new macro for conversion double->int + small changes

This commit is contained in:
Roberto Ierusalimschy 2005-07-11 14:10:35 -03:00
parent e4324f54b9
commit b261cd110f
1 changed files with 33 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

86
luaconf.h
View File

@ -1,5 +1,5 @@
/*
** $Id: luaconf.h,v 1.53 2005/06/13 21:20:28 roberto Exp roberto $
** $Id: luaconf.h,v 1.54 2005/07/05 14:31:45 roberto Exp roberto $
** Configuration file for Lua
** See Copyright Notice in lua.h
*/
@ -41,22 +41,27 @@
** non-conventional directories.
*/
#if defined(_WIN32)
#define LUA_ROOT "C:\\Program Files\\Lua51"
#define LUA_LDIR LUA_ROOT "\\lua"
#define LUA_CDIR LUA_ROOT "\\dll"
/*
** In Windows, any exclamation mark ('!') in the path is replaced by the
** path of the directory of the executable file of the current process.
*/
#define LUA_LDIR "!\\lua"
#define LUA_CDIR "!\\dll"
#define LUA_PATH_DEFAULT \
"?.lua;" LUA_LDIR"\\?.lua;" LUA_LDIR"\\?\\init.lua"
#define LUA_CPATH_DEFAULT \
"?.dll;" "l?.dll;" LUA_CDIR"\\?.dll;" LUA_CDIR"\\l?.dll"
"?.lua;" LUA_LDIR"\\?.lua;" LUA_LDIR"\\?\\init.lua;" \
LUA_CDIR"\\?.lua;" LUA_CDIR"\\?\\init.lua"
#define LUA_CPATH_DEFAULT \
"?.dll;" LUA_CDIR"\\?.dll;" LUA_CDIR"\\loadall.dll"
#else
#define LUA_ROOT "/usr/local"
#define LUA_LDIR LUA_ROOT "/share/lua/5.1"
#define LUA_CDIR LUA_ROOT "/lib/lua/5.1"
#define LUA_PATH_DEFAULT \
"./?.lua;" LUA_LDIR"/?.lua;" LUA_LDIR"/?/init.lua"
#define LUA_CPATH_DEFAULT \
"./?.so;" "./l?.so;" LUA_CDIR"/?.so;" LUA_CDIR"/l?.so"
"./?.lua;" LUA_LDIR"/?.lua;" LUA_LDIR"/?/init.lua;" \
LUA_CDIR"/?.lua;" LUA_CDIR"/?/init.lua"
#define LUA_CPATH_DEFAULT \
"./?.so;" LUA_CDIR"/?.so;" LUA_CDIR"/loadall.so"
#endif
@ -74,21 +79,17 @@
/*
@@ LUA_PATHSEP is the character that separates templates in a path.
** CHANGE it if for some reason your system cannot use a
** semicolon. (E.g., if a semicolon is a common character in
** file/directory names.) Probably you do not need to change this.
*/
#define LUA_PATHSEP ';'
/*
@@ LUA_PATH_MARK is the string that marks the substitution points in a
@* template.
** CHANGE it if for some reason your system cannot use an interrogation
** mark. (E.g., if an interogation mark is a common character in
** file/directory names.) Probably you do not need to change this.
@@ LUA_EXECDIR in a Windows path is replaced by the executable's
@* directory.
** CHANGE them if for some reason your system cannot use those
** characters. (E.g., if one of those characters is a common character
** in file/directory names.) Probably you do not need to change them.
*/
#define LUA_PATHSEP ";"
#define LUA_PATH_MARK "?"
#define LUA_EXECDIR "!"
/*
@ -464,45 +465,24 @@
/*
@@ lua_number2int is a macro to convert lua_Number to int.
** CHANGE that if you know a faster way to convert a lua_Number to
@@ lua_number2integer is a macro to convert lua_Number to lua_Integer.
** CHANGE them if you know a faster way to convert a lua_Number to
** int (with any rounding method and without throwing errors) in your
** system. In Pentium machines, a naive typecast from double to int
** in C is extremely slow, so any alternative is worth trying.
*/
/* On a gcc/Pentium, resort to assembler */
#if !defined(LUA_ANSI) && defined(__GNUC__) && defined(__i386)
#define lua_number2int(i,d) __asm__ ("fistpl %0":"=m"(i):"t"(d):"st")
/* On Windows/Pentium, resort to assembler */
#elif !defined(LUA_ANSI) && defined(_MSC_VER) && defined(_M_IX86)
#define lua_number2int(i,d) __asm fld d __asm fistp i
/* on Pentium machines compliant with C99, you can try lrint */
#elif defined (__i386) && defined(__STDC_VERSION__) && \
(__STDC_VERSION__ >= 199900L)
#define lua_number2int(i,d) ((i)=lrint(d))
/* this option always works, but may be slow */
#else
#define lua_number2int(i,d) ((i)=(int)(d))
#endif
/*
@@ lua_number2integer is a macro to convert lua_Number to lua_Integer.
** CHANGE (see lua_number2int).
*/
/* On a gcc or Windows/Pentium, resort to assembler */
#if (defined(__GNUC__) && defined(__i386)) || \
(defined(_MSC_VER) && defined(_M_IX86))
/* On a Pentium, resort to a trick */
#if !defined(LUA_ANSI) && (defined(__i386) || defined (_M_IX86))
union luai_Cast { double l_d; long l_l; };
#define lua_number2int(i,d) \
{ union luai_Cast u; u.l_d = d + 6755399441055744.0; (i) = u.l_l; }
#define lua_number2integer(i,n) lua_number2int(i, n)
/* this option always works, but may be slow */
#else
#define lua_number2integer(i,d) ((i)=(lua_Integer)(d))
#define lua_number2int(i,d) ((i)=(int)(d))
#define lua_number2integer(i,d) ((i)=(lua_Integer)(d))
#endif
@ -517,12 +497,12 @@
** ===================================================================
*/
#define LUA_NUMBER double
/*
@@ LUAI_UACNUMBER is the result of an 'usual argument conversion'
@* over a number.
*/
#define LUA_NUMBER double
#define LUAI_UACNUMBER double
@ -572,7 +552,7 @@
** CHANGE them if you prefer to use longjmp/setjmp even with C++ or
** if want/don't want to use _longjmp/_setjmp instead of regular
** longjmp/setjmp. By default, Lua handles errors with exceptions when
** compiling as C++ code, with _longjmp/_setjmp when compiling as C code
* compiling as C++ code, with _longjmp/_setjmp when compiling as C code
** in a Unix system, and with longjmp/setjmp otherwise.
*/
#if defined(__cplusplus)