diff options
| -rw-r--r-- | ldebug.c | 4 | ||||
| -rw-r--r-- | ldo.c | 4 | ||||
| -rw-r--r-- | liolib.c | 6 | ||||
| -rw-r--r-- | llimits.h | 4 | ||||
| -rw-r--r-- | lmem.c | 4 | ||||
| -rw-r--r-- | loslib.c | 6 | ||||
| -rw-r--r-- | lstate.c | 7 | ||||
| -rw-r--r-- | lua.c | 4 |
8 files changed, 19 insertions, 20 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldebug.c,v 2.102 2014/10/25 11:50:46 roberto Exp roberto $ | 2 | ** $Id: ldebug.c,v 2.103 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Debug Interface | 3 | ** Debug Interface |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -481,7 +481,7 @@ static const char *getfuncname (lua_State *L, CallInfo *ci, const char **name) { | |||
| 481 | 481 | ||
| 482 | 482 | ||
| 483 | /* | 483 | /* |
| 484 | ** only ANSI way to check whether a pointer points to an array | 484 | ** only portable way to check whether a pointer points to an array |
| 485 | ** (used only for error messages, so efficiency is not a big concern) | 485 | ** (used only for error messages, so efficiency is not a big concern) |
| 486 | */ | 486 | */ |
| 487 | static int isinstack (CallInfo *ci, const TValue *o) { | 487 | static int isinstack (CallInfo *ci, const TValue *o) { |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldo.c,v 2.131 2014/10/25 11:50:46 roberto Exp roberto $ | 2 | ** $Id: ldo.c,v 2.132 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Stack and Call structure of Lua | 3 | ** Stack and Call structure of Lua |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -69,7 +69,7 @@ | |||
| 69 | 69 | ||
| 70 | #else /* }{ */ | 70 | #else /* }{ */ |
| 71 | 71 | ||
| 72 | /* ANSI handling with long jumps */ | 72 | /* ISO C handling with long jumps */ |
| 73 | #define LUAI_THROW(L,c) longjmp((c)->b, 1) | 73 | #define LUAI_THROW(L,c) longjmp((c)->b, 1) |
| 74 | #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } | 74 | #define LUAI_TRY(L,c,a) if (setjmp((c)->b) == 0) { a } |
| 75 | #define luai_jmpbuf jmp_buf | 75 | #define luai_jmpbuf jmp_buf |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: liolib.c,v 2.138 2014/10/31 15:54:06 roberto Exp roberto $ | 2 | ** $Id: liolib.c,v 2.139 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Standard I/O (and system) library | 3 | ** Standard I/O (and system) library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -59,7 +59,7 @@ | |||
| 59 | 59 | ||
| 60 | #else /* }{ */ | 60 | #else /* }{ */ |
| 61 | 61 | ||
| 62 | /* ANSI definitions */ | 62 | /* ISO C definitions */ |
| 63 | #define l_popen(L,c,m) \ | 63 | #define l_popen(L,c,m) \ |
| 64 | ((void)((void)c, m), \ | 64 | ((void)((void)c, m), \ |
| 65 | luaL_error(L, "'popen' not supported"), \ | 65 | luaL_error(L, "'popen' not supported"), \ |
| @@ -114,7 +114,7 @@ | |||
| 114 | 114 | ||
| 115 | #else /* }{ */ | 115 | #else /* }{ */ |
| 116 | 116 | ||
| 117 | /* ANSI definitions */ | 117 | /* ISO C definitions */ |
| 118 | #define l_fseek(f,o,w) fseek(f,o,w) | 118 | #define l_fseek(f,o,w) fseek(f,o,w) |
| 119 | #define l_ftell(f) ftell(f) | 119 | #define l_ftell(f) ftell(f) |
| 120 | #define l_seeknum long | 120 | #define l_seeknum long |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: llimits.h,v 1.122 2014/10/27 16:29:58 roberto Exp roberto $ | 2 | ** $Id: llimits.h,v 1.123 2014/10/29 17:07:45 roberto Exp roberto $ |
| 3 | ** Limits, basic types, and some other 'installation-dependent' definitions | 3 | ** Limits, basic types, and some other 'installation-dependent' definitions |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -120,7 +120,7 @@ typedef LUAI_UACINT l_uacInt; | |||
| 120 | 120 | ||
| 121 | /* | 121 | /* |
| 122 | ** cast a lua_Unsigned to a signed lua_Integer; this cast is | 122 | ** cast a lua_Unsigned to a signed lua_Integer; this cast is |
| 123 | ** not strict ANSI C, but two-complement architectures should | 123 | ** not strict ISO C, but two-complement architectures should |
| 124 | ** work fine. | 124 | ** work fine. |
| 125 | */ | 125 | */ |
| 126 | #if !defined(l_castU2S) | 126 | #if !defined(l_castU2S) |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lmem.c,v 1.87 2014/10/25 11:50:46 roberto Exp roberto $ | 2 | ** $Id: lmem.c,v 1.88 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Interface to Memory Manager | 3 | ** Interface to Memory Manager |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -34,7 +34,7 @@ | |||
| 34 | ** * frealloc(ud, p, x, 0) frees the block 'p' | 34 | ** * frealloc(ud, p, x, 0) frees the block 'p' |
| 35 | ** (in this specific case, frealloc must return NULL); | 35 | ** (in this specific case, frealloc must return NULL); |
| 36 | ** particularly, frealloc(ud, NULL, 0, 0) does nothing | 36 | ** particularly, frealloc(ud, NULL, 0, 0) does nothing |
| 37 | ** (which is equivalent to free(NULL) in ANSI C) | 37 | ** (which is equivalent to free(NULL) in ISO C) |
| 38 | ** | 38 | ** |
| 39 | ** frealloc returns NULL if it cannot create or reallocate the area | 39 | ** frealloc returns NULL if it cannot create or reallocate the area |
| 40 | ** (any reallocation to an equal or smaller size cannot fail!) | 40 | ** (any reallocation to an equal or smaller size cannot fail!) |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: loslib.c,v 1.50 2014/10/25 11:50:46 roberto Exp roberto $ | 2 | ** $Id: loslib.c,v 1.51 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Standard Operating System library | 3 | ** Standard Operating System library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -76,7 +76,7 @@ | |||
| 76 | 76 | ||
| 77 | #else /* }{ */ | 77 | #else /* }{ */ |
| 78 | 78 | ||
| 79 | /* ANSI definitions */ | 79 | /* ISO C definitions */ |
| 80 | #define LUA_TMPNAMBUFSIZE L_tmpnam | 80 | #define LUA_TMPNAMBUFSIZE L_tmpnam |
| 81 | #define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } | 81 | #define lua_tmpnam(b,e) { e = (tmpnam(b) == NULL); } |
| 82 | 82 | ||
| @@ -99,7 +99,7 @@ | |||
| 99 | 99 | ||
| 100 | #else /* }{ */ | 100 | #else /* }{ */ |
| 101 | 101 | ||
| 102 | /* ANSI definitions */ | 102 | /* ISO C definitions */ |
| 103 | #define l_gmtime(t,r) ((void)r, gmtime(t)) | 103 | #define l_gmtime(t,r) ((void)r, gmtime(t)) |
| 104 | #define l_localtime(t,r) ((void)r, localtime(t)) | 104 | #define l_localtime(t,r) ((void)r, localtime(t)) |
| 105 | 105 | ||
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lstate.c,v 2.125 2014/07/24 16:17:56 roberto Exp roberto $ | 2 | ** $Id: lstate.c,v 2.126 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Global State | 3 | ** Global State |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -74,9 +74,8 @@ typedef struct LG { | |||
| 74 | 74 | ||
| 75 | 75 | ||
| 76 | /* | 76 | /* |
| 77 | ** Compute an initial seed as random as possible. In ANSI, rely on | 77 | ** Compute an initial seed as random as possible. Rely on Address Space |
| 78 | ** Address Space Layout Randomization (if present) to increase | 78 | ** Layout Randomization (if present) to increase randomness.. |
| 79 | ** randomness.. | ||
| 80 | */ | 79 | */ |
| 81 | #define addbuff(b,p,e) \ | 80 | #define addbuff(b,p,e) \ |
| 82 | { size_t t = cast(size_t, e); \ | 81 | { size_t t = cast(size_t, e); \ |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lua.c,v 1.219 2014/10/31 15:54:06 roberto Exp roberto $ | 2 | ** $Id: lua.c,v 1.220 2014/11/02 19:19:04 roberto Exp roberto $ |
| 3 | ** Lua stand-alone interpreter | 3 | ** Lua stand-alone interpreter |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -59,7 +59,7 @@ | |||
| 59 | 59 | ||
| 60 | #else /* }{ */ | 60 | #else /* }{ */ |
| 61 | 61 | ||
| 62 | /* ANSI definition */ | 62 | /* ISO C definition */ |
| 63 | #define lua_stdin_is_tty() 1 /* assume stdin is a tty */ | 63 | #define lua_stdin_is_tty() 1 /* assume stdin is a tty */ |
| 64 | 64 | ||
| 65 | #endif /* } */ | 65 | #endif /* } */ |
