Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
Nodemcu Firmware
Commits
d77666c0
Commit
d77666c0
authored
Feb 17, 2019
by
sergio
Committed by
Terry Ellison
Feb 17, 2019
Browse files
trailing spaces cleanup (#2659)
parent
d7583040
Changes
380
Hide whitespace changes
Inline
Side-by-side
app/libc/Makefile
View file @
d77666c0
...
...
@@ -22,7 +22,7 @@ endif
# makefile at its root level - these are then overridden
# for a subtree within the makefile rooted therein
#
#DEFINES +=
#DEFINES +=
#############################################################
# Recursion Magic - Don't touch this!!
...
...
app/libc/c_locale.h
View file @
d77666c0
...
...
@@ -8,7 +8,7 @@
#define _C_LOCALE_H_
#include <locale.h>
#if 0
#ifndef NULL
#define NULL 0
...
...
app/libc/c_math.c
View file @
d77666c0
...
...
@@ -4,7 +4,7 @@
double
floor
(
double
x
)
{
return
(
double
)
(
x
<
0
.
f
?
((
int
)
x
==
x
?
x
:
(((
int
)
x
)
-
1
))
:
((
int
)
x
));
return
(
double
)
(
x
<
0
.
f
?
((
int
)
x
==
x
?
x
:
(((
int
)
x
)
-
1
))
:
((
int
)
x
));
}
#define MAXEXP 2031
/* (MAX_EXP * 16) - 1 */
...
...
app/libc/c_stdarg.h
View file @
d77666c0
...
...
@@ -9,7 +9,7 @@
typedef
char
*
va_list
;
#define _INTSIZEOF(n) ((sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1))
#define _INTSIZEOF(n) ((sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1))
#define va_start(ap,v) (ap = (va_list)&v + _INTSIZEOF(v))
#define va_arg(ap,t) (*(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)))
...
...
app/libc/c_stddef.h
View file @
d77666c0
...
...
@@ -5,7 +5,7 @@ typedef signed int ptrdiff_t;
#if !defined(offsetof)
#define offsetof(s, m) (size_t)&(((s *)0)->m)
#endif
#endif
#if !defined(__size_t)
#define __size_t 1
...
...
app/libc/c_stdint.h
View file @
d77666c0
...
...
@@ -261,7 +261,7 @@ typedef unsigned __int64 uintmax_t;
using
::
std
::
uintptr_t
;
using
::
std
::
intmax_t
;
using
::
std
::
uintmax_t
;
#endif
#endif
#endif
/* __cplusplus */
#endif
...
...
app/libc/c_stdio.c
View file @
d77666c0
...
...
@@ -69,7 +69,7 @@ int c_stderr = 1001;
/*
* Copyright (c) 2000-2002 Opsycon AB (www.opsycon.se)
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
...
...
@@ -119,7 +119,7 @@ strichr(char *p, int c)
/*
* Copyright (c) 2000-2002 Opsycon AB (www.opsycon.se)
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
...
...
@@ -193,7 +193,7 @@ str_fmt(char *p, int size, int fmt)
/*
* Copyright (c) 2000-2002 Opsycon AB (www.opsycon.se)
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
...
...
@@ -239,7 +239,7 @@ strtoupper(char *p)
/*
* Copyright (c) 2000-2002 Opsycon AB (www.opsycon.se)
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
...
...
@@ -367,7 +367,7 @@ _atob (u_quad_t *vp, char *p, int base)
}
/*
* atob(vp,p,base)
* atob(vp,p,base)
* converts p to binary result in vp, rtn 1 on success
*/
int
...
...
@@ -386,7 +386,7 @@ atob(u_int32_t *vp, char *p, int base)
/*
* llatob(vp,p,base)
* llatob(vp,p,base)
* converts p to binary result in vp, rtn 1 on success
*/
int
...
...
@@ -399,7 +399,7 @@ llatob(u_quad_t *vp, char *p, int base)
/*
* char *btoa(dst,value,base)
* char *btoa(dst,value,base)
* converts value to ascii, result in dst
*/
char
*
...
...
@@ -445,7 +445,7 @@ btoa(char *dst, u_int value, int base)
}
/*
* char *btoa(dst,value,base)
* char *btoa(dst,value,base)
* converts value to ascii, result in dst
*/
char
*
...
...
@@ -491,8 +491,8 @@ llbtoa(char *dst, u_quad_t value, int base)
}
/*
* gethex(vp,p,n)
* convert n hex digits from p to binary, result in vp,
* gethex(vp,p,n)
* convert n hex digits from p to binary, result in vp,
* rtn 1 on success
*/
int
...
...
@@ -525,7 +525,7 @@ gethex(int32_t *vp, char *p, int n)
/*
* Copyright (c) 2000-2002 Opsycon AB (www.opsycon.se)
*
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
...
...
@@ -565,7 +565,7 @@ gethex(int32_t *vp, char *p, int n)
/*
* int vsprintf(d,s,ap)
*/
int
int
vsprintf
(
char
*
d
,
const
char
*
s
,
va_list
ap
)
{
const
char
*
t
;
...
...
@@ -703,7 +703,7 @@ void dtoa (char *dbuf, rtype arg, int fmtch, int width, int prec);
}
*
d
=
0
;
return
(
d
-
dst
);
}
}
#ifdef FLOATINGPT
/*
...
...
@@ -761,7 +761,7 @@ extern double modf(double, double *);
static
int
cvt
(
rtype
arg
,
int
prec
,
char
*
signp
,
int
fmtch
,
char
*
startp
,
char
*
endp
);
static
char
*
c_round
(
double
fract
,
int
*
exp
,
char
*
start
,
char
*
end
,
static
char
*
c_round
(
double
fract
,
int
*
exp
,
char
*
start
,
char
*
end
,
char
ch
,
char
*
signp
);
static
char
*
exponent
(
char
*
p
,
int
exp
,
int
fmtch
);
...
...
@@ -801,7 +801,7 @@ void dtoa (char *dbuf, rtype arg, int fmtch, int width, int prec)
if
(
!
_finite
(
arg
)
)
{
if
(
_isNan
(
arg
)
)
strcpy
(
dbuf
,
"NaN"
);
else
if
(
arg
<
0
)
else
if
(
arg
<
0
)
strcpy
(
dbuf
,
"-Infinity"
);
else
strcpy
(
dbuf
,
"Infinity"
);
...
...
app/libc/dbg_printf.c
View file @
d77666c0
...
...
@@ -35,7 +35,7 @@
* @(#)printf.c 8.1 (Berkeley) 6/11/93
*/
// This version uses almost no stack, and does not suffer from buffer
// This version uses almost no stack, and does not suffer from buffer
// overflows. The downside is that it does not implement a wide range
// of formatting characters.
...
...
@@ -157,7 +157,7 @@ kprintn(void (*put)(const char), uint32_t ul, int base, int width, char padchar)
do
{
*
p
++
=
"0123456789abcdef"
[
ul
%
base
];
}
while
(
ul
/=
base
);
while
(
p
-
buf
<
width
--
)
{
put
(
padchar
);
}
...
...
app/lua/lapi.c
View file @
d77666c0
...
...
@@ -213,7 +213,7 @@ LUA_API void lua_replace (lua_State *L, int idx) {
if
(
!
func
)
luaG_runerror
(
L
,
"attempt to set environment on lightfunction"
);
else
{
api_check
(
L
,
ttistable
(
L
->
top
-
1
));
api_check
(
L
,
ttistable
(
L
->
top
-
1
));
func
->
c
.
env
=
hvalue
(
L
->
top
-
1
);
luaC_barrier
(
L
,
func
,
L
->
top
-
1
);
}
...
...
@@ -411,7 +411,7 @@ LUA_API const void *lua_topointer (lua_State *L, int idx) {
case
LUA_TUSERDATA
:
case
LUA_TLIGHTUSERDATA
:
return
lua_touserdata
(
L
,
idx
);
case
LUA_TROTABLE
:
case
LUA_TROTABLE
:
return
rvalue
(
o
);
case
LUA_TLIGHTFUNCTION
:
return
fvalue
(
o
);
...
...
@@ -585,7 +585,7 @@ LUA_API void lua_rawget (lua_State *L, int idx) {
t
=
index2adr
(
L
,
idx
);
api_check
(
L
,
ttistable
(
t
)
||
ttisrotable
(
t
));
res
=
ttistable
(
t
)
?
luaH_get
(
hvalue
(
t
),
L
->
top
-
1
)
:
luaH_get_ro
(
rvalue
(
t
),
L
->
top
-
1
);
setobj2s
(
L
,
L
->
top
-
1
,
res
);
setobj2s
(
L
,
L
->
top
-
1
,
res
);
lua_unlock
(
L
);
}
...
...
@@ -625,7 +625,7 @@ LUA_API int lua_getmetatable (lua_State *L, int objindex) {
break
;
case
LUA_TROTABLE
:
mt
=
(
Table
*
)
luaR_getmeta
(
rvalue
(
obj
));
break
;
break
;
default:
mt
=
G
(
L
)
->
mt
[
ttype
(
obj
)];
break
;
...
...
@@ -813,7 +813,7 @@ LUA_API int lua_setfenv (lua_State *L, int idx) {
#define checkresults(L,na,nr) \
api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)))
LUA_API
void
lua_call
(
lua_State
*
L
,
int
nargs
,
int
nresults
)
{
StkId
func
;
...
...
app/lua/lauxlib.c
View file @
d77666c0
...
...
@@ -44,7 +44,7 @@
#define LUA_USELIGHTFUNCTIONS 1
//#define DEBUG_ALLOCATOR
#ifdef DEBUG_ALLOCATOR
#ifdef DEBUG_ALLOCATOR
#ifdef LUA_CROSS_COMPILER
static
void
break_hook
(
void
)
{}
#define ASSERT(s) if (!(s)) {break_hook();}
...
...
@@ -86,7 +86,7 @@ typedef struct Memcontrol { /* memory-allocator control variables */
static
Memcontrol
mc
=
{
NULL
,
0
,
0
,
0
,
32768
*
64
};
static
size_t
marker
[
2
]
=
{
0
,
0
};
static
void
scanBlocks
(
void
)
{
static
void
scanBlocks
(
void
)
{
MemHeader
*
p
=
mc
.
start
;
int
i
;
char
s
,
e
;
...
...
@@ -99,7 +99,7 @@ static void scanBlocks (void) {
}
}
static
int
checkBlocks
(
void
)
{
static
int
checkBlocks
(
void
)
{
MemHeader
*
p
=
mc
.
start
;
while
(
p
)
{
if
(
memcmp
(
p
->
mark
,
marker
,
MARKSIZE
)
||
...
...
@@ -157,7 +157,7 @@ void *debug_realloc (void *b, size_t oldsize, size_t size) {
size_t
commonsize
=
(
oldsize
<
size
)
?
oldsize
:
size
;
size_t
realsize
=
sizeof
(
MemHeader
)
+
size
+
MARKSIZE
;
newblock
=
cast
(
MemHeader
*
,
c_malloc
(
realsize
));
/* alloc a new block */
if
(
newblock
==
NULL
)
if
(
newblock
==
NULL
)
return
NULL
;
/* really out of memory? */
if
(
block
)
{
memcpy
(
newblock
+
1
,
block
+
1
,
commonsize
);
/* copy old contents */
...
...
@@ -167,7 +167,7 @@ void *debug_realloc (void *b, size_t oldsize, size_t size) {
if
(
size
>
commonsize
)
fillmem
(
cast
(
char
*
,
newblock
+
1
)
+
commonsize
,
size
-
commonsize
);
/* initialize marks after block */
memset
(
newblock
->
mark
,
MARK
,
MARKSIZE
);
memset
(
newblock
->
mark
,
MARK
,
MARKSIZE
);
newblock
->
size
=
size
;
newblock
->
next
=
mc
.
start
;
mc
.
start
=
newblock
;
...
...
@@ -315,7 +315,7 @@ LUALIB_API void luaL_checkanyfunction (lua_State *L, int narg) {
if
(
lua_type
(
L
,
narg
)
!=
LUA_TFUNCTION
&&
lua_type
(
L
,
narg
)
!=
LUA_TLIGHTFUNCTION
)
{
const
char
*
msg
=
lua_pushfstring
(
L
,
"function or lightfunction expected, got %s"
,
luaL_typename
(
L
,
narg
));
luaL_argerror
(
L
,
narg
,
msg
);
luaL_argerror
(
L
,
narg
,
msg
);
}
}
...
...
@@ -323,7 +323,7 @@ LUALIB_API void luaL_checkanytable (lua_State *L, int narg) {
if
(
lua_type
(
L
,
narg
)
!=
LUA_TTABLE
&&
lua_type
(
L
,
narg
)
!=
LUA_TROTABLE
)
{
const
char
*
msg
=
lua_pushfstring
(
L
,
"table or rotable expected, got %s"
,
luaL_typename
(
L
,
narg
));
luaL_argerror
(
L
,
narg
,
msg
);
luaL_argerror
(
L
,
narg
,
msg
);
}
}
...
...
@@ -412,11 +412,11 @@ LUALIB_API void (luaL_register) (lua_State *L, const char *libname,
LUALIB_API
void
(
luaL_register_light
)
(
lua_State
*
L
,
const
char
*
libname
,
const
luaL_Reg
*
l
)
{
#if LUA_OPTIMIZE_MEMORY > 0
#if LUA_OPTIMIZE_MEMORY > 0
luaI_openlib
(
L
,
libname
,
l
,
0
,
LUA_USELIGHTFUNCTIONS
);
#else
luaI_openlib
(
L
,
libname
,
l
,
0
,
LUA_USECCLOSURES
);
#endif
#endif
}
static
int
libsize
(
const
luaL_Reg
*
l
)
{
...
...
@@ -922,7 +922,7 @@ static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) {
void
*
nptr
;
if
(
nsize
==
0
)
{
#ifdef DEBUG_ALLOCATOR
#ifdef DEBUG_ALLOCATOR
return
(
void
*
)
this_realloc
(
ptr
,
osize
,
nsize
);
#else
c_free
(
ptr
);
...
...
@@ -952,7 +952,7 @@ static void *l_alloc (void *ud, void *ptr, size_t osize, size_t nsize) {
}
LUALIB_API
void
luaL_assertfail
(
const
char
*
file
,
int
line
,
const
char
*
message
)
{
dbg_printf
(
"ASSERT@%s(%d): %s
\n
"
,
file
,
line
,
message
);
dbg_printf
(
"ASSERT@%s(%d): %s
\n
"
,
file
,
line
,
message
);
#if defined(LUA_CROSS_COMPILER)
exit
(
1
);
#endif
...
...
@@ -962,11 +962,11 @@ LUALIB_API void luaL_assertfail(const char *file, int line, const char *message)
/*
* This is a simple stub used by lua_assert() if DEVELOPMENT_USE_GDB is defined.
* Instead of crashing out with an assert error, this hook starts the GDB remote
* stub if not already running and then issues a break. The rationale here is
* stub if not already running and then issues a break. The rationale here is
* that when testing the developer might be using screen/PuTTY to work interactively
* with the Lua Interpreter via UART0. However if an assert triggers, then there
* is the option to exit the interactive session and start the Xtensa remote GDB
* which will then sync up with the remote GDB client to allow forensics of the error.
* with the Lua Interpreter via UART0. However if an assert triggers, then there
* is the option to exit the interactive session and start the Xtensa remote GDB
* which will then sync up with the remote GDB client to allow forensics of the error.
*/
extern
void
gdbstub_init
(
void
);
...
...
app/lua/lauxlib.h
View file @
d77666c0
...
...
@@ -47,7 +47,7 @@ LUALIB_API void (luaI_openlib) (lua_State *L, const char *libname,
LUALIB_API
void
(
luaL_register
)
(
lua_State
*
L
,
const
char
*
libname
,
const
luaL_Reg
*
l
);
LUALIB_API
void
(
luaL_register_light
)
(
lua_State
*
L
,
const
char
*
libname
,
const
luaL_Reg
*
l
);
const
luaL_Reg
*
l
);
LUALIB_API
int
(
luaL_getmetafield
)
(
lua_State
*
L
,
int
obj
,
const
char
*
e
);
LUALIB_API
int
(
luaL_callmeta
)
(
lua_State
*
L
,
int
obj
,
const
char
*
e
);
LUALIB_API
int
(
luaL_typerror
)
(
lua_State
*
L
,
int
narg
,
const
char
*
tname
);
...
...
app/lua/lbaselib.c
View file @
d77666c0
...
...
@@ -468,7 +468,7 @@ extern const luaR_entry lua_rotable_base[];
/*
* ESP builds use specific linker directives to marshal all ROTable declarations
* into a single ROTable in the PSECT ".lua_rotable".
* into a single ROTable in the PSECT ".lua_rotable".
*
* This is not practical on Posix builds using a standard link so for cross
* compiler builds, separate ROTables are used for the base functions and library
...
...
@@ -479,7 +479,7 @@ extern const luaR_entry lua_rotable_base[];
#define BASE_ROTABLE base_func_map
#define LOCK_IN_ROTABLE
static
const
LUA_REG_TYPE
base_func_meta
[]
=
{
LROT_TABENTRY
(
__index
,
lua_rotable_base
),
LROT_TABENTRY
(
__index
,
lua_rotable_base
),
LROT_END
};
#else
#define BASE_ROTABLE lua_rotable_base
...
...
@@ -487,32 +487,32 @@ static const LUA_REG_TYPE base_func_meta[] = {
#endif
static
const
LUA_REG_TYPE
LOCK_IN_ROTABLE
base_func_map
[]
=
{
LROT_FUNCENTRY
(
assert
,
luaB_assert
),
LROT_FUNCENTRY
(
collectgarbage
,
luaB_collectgarbage
),
LROT_FUNCENTRY
(
dofile
,
luaB_dofile
),
LROT_FUNCENTRY
(
error
,
luaB_error
),
LROT_FUNCENTRY
(
gcinfo
,
luaB_gcinfo
),
LROT_FUNCENTRY
(
getfenv
,
luaB_getfenv
),
LROT_FUNCENTRY
(
getmetatable
,
luaB_getmetatable
),
LROT_FUNCENTRY
(
loadfile
,
luaB_loadfile
),
LROT_FUNCENTRY
(
load
,
luaB_load
),
LROT_FUNCENTRY
(
loadstring
,
luaB_loadstring
),
LROT_FUNCENTRY
(
next
,
luaB_next
),
LROT_FUNCENTRY
(
pcall
,
luaB_pcall
),
LROT_FUNCENTRY
(
print
,
luaB_print
),
LROT_FUNCENTRY
(
rawequal
,
luaB_rawequal
),
LROT_FUNCENTRY
(
rawget
,
luaB_rawget
),
LROT_FUNCENTRY
(
rawset
,
luaB_rawset
),
LROT_FUNCENTRY
(
select
,
luaB_select
),
LROT_FUNCENTRY
(
setfenv
,
luaB_setfenv
),
LROT_FUNCENTRY
(
setmetatable
,
luaB_setmetatable
),
LROT_FUNCENTRY
(
tonumber
,
luaB_tonumber
),
LROT_FUNCENTRY
(
tostring
,
luaB_tostring
),
LROT_FUNCENTRY
(
type
,
luaB_type
),
LROT_FUNCENTRY
(
unpack
,
luaB_unpack
),
LROT_FUNCENTRY
(
xpcall
,
luaB_xpcall
)
LROT_FUNCENTRY
(
assert
,
luaB_assert
),
LROT_FUNCENTRY
(
collectgarbage
,
luaB_collectgarbage
),
LROT_FUNCENTRY
(
dofile
,
luaB_dofile
),
LROT_FUNCENTRY
(
error
,
luaB_error
),
LROT_FUNCENTRY
(
gcinfo
,
luaB_gcinfo
),
LROT_FUNCENTRY
(
getfenv
,
luaB_getfenv
),
LROT_FUNCENTRY
(
getmetatable
,
luaB_getmetatable
),
LROT_FUNCENTRY
(
loadfile
,
luaB_loadfile
),
LROT_FUNCENTRY
(
load
,
luaB_load
),
LROT_FUNCENTRY
(
loadstring
,
luaB_loadstring
),
LROT_FUNCENTRY
(
next
,
luaB_next
),
LROT_FUNCENTRY
(
pcall
,
luaB_pcall
),
LROT_FUNCENTRY
(
print
,
luaB_print
),
LROT_FUNCENTRY
(
rawequal
,
luaB_rawequal
),
LROT_FUNCENTRY
(
rawget
,
luaB_rawget
),
LROT_FUNCENTRY
(
rawset
,
luaB_rawset
),
LROT_FUNCENTRY
(
select
,
luaB_select
),
LROT_FUNCENTRY
(
setfenv
,
luaB_setfenv
),
LROT_FUNCENTRY
(
setmetatable
,
luaB_setmetatable
),
LROT_FUNCENTRY
(
tonumber
,
luaB_tonumber
),
LROT_FUNCENTRY
(
tostring
,
luaB_tostring
),
LROT_FUNCENTRY
(
type
,
luaB_type
),
LROT_FUNCENTRY
(
unpack
,
luaB_unpack
),
LROT_FUNCENTRY
(
xpcall
,
luaB_xpcall
)
#ifdef LUA_CROSS_COMPILER
,
LROT_TABENTRY
(
__metatable
,
base_func_meta
),
,
LROT_TABENTRY
(
__metatable
,
base_func_meta
),
LROT_END
#endif
};
...
...
app/lua/ldblib.c
View file @
d77666c0
...
...
@@ -37,8 +37,8 @@ static int db_getstrings (lua_State *L) {
if
(
G
(
L
)
->
ROstrt
.
hash
==
NULL
)
return
0
;
tb
=
&
G
(
L
)
->
ROstrt
;
}
else
}
else
#endif
tb
=
&
G
(
L
)
->
strt
;
lua_settop
(
L
,
0
);
...
...
@@ -54,7 +54,7 @@ static int db_getstrings (lua_State *L) {
lua_getfield
(
L
,
LUA_GLOBALSINDEX
,
"table"
);
lua_getfield
(
L
,
-
1
,
"sort"
);
/* look up table.sort function */
lua_replace
(
L
,
-
2
);
/* dump the table table */
lua_pushvalue
(
L
,
-
2
);
/* duplicate the strt_copy ref */
lua_pushvalue
(
L
,
-
2
);
/* duplicate the strt_copy ref */
lua_call
(
L
,
1
,
0
);
/* table.sort(strt_copy) */
return
1
;
}
...
...
@@ -176,7 +176,7 @@ static int db_getinfo (lua_State *L) {
treatstackoption
(
L
,
L1
,
"func"
);
return
1
;
/* return table */
}
static
int
db_getlocal
(
lua_State
*
L
)
{
int
arg
;
...
...
app/lua/ldo.c
View file @
d77666c0
...
...
@@ -384,7 +384,7 @@ int luaD_poscall (lua_State *L, StkId firstResult) {
** The arguments are on the stack, right after the function.
** When returns, all the results are on the stack, starting at the original
** function position.
*/
*/
void
luaD_call
(
lua_State
*
L
,
StkId
func
,
int
nResults
)
{
if
(
++
L
->
nCcalls
>=
LUAI_MAXCCALLS
)
{
if
(
L
->
nCcalls
==
LUAI_MAXCCALLS
)
...
...
app/lua/legc.c
View file @
d77666c0
...
...
@@ -5,8 +5,8 @@
#include "c_types.h"
void
legc_set_mode
(
lua_State
*
L
,
int
mode
,
int
limit
)
{
global_State
*
g
=
G
(
L
);
global_State
*
g
=
G
(
L
);
g
->
egcmode
=
mode
;
g
->
memlimit
=
limit
;
}
...
...
app/lua/lflash.c
View file @
d77666c0
...
...
@@ -247,7 +247,7 @@ LUALIB_API int luaN_reload_reboot (lua_State *L) {
flashErase
(
0
,
-
1
);
}
NODE_ERR
(
msg
);
while
(
1
)
{}
// Force WDT as the ROM software_reset() doesn't seem to work
return
0
;
}
...
...
@@ -505,7 +505,7 @@ static int loadLFS (lua_State *L) {
/* Allocate the out buffers */
for
(
i
=
0
;
i
<=
WRITE_BLOCKS
;
i
++
)
out
->
block
[
i
]
=
luaM_new
(
L
,
outBlock
);
/* first inflate pass */
if
(
uzlib_inflate
(
get_byte
,
put_byte
,
recall_byte
,
in
->
len
,
&
crc
,
&
in
->
inflate_state
)
<
0
)
...
...
app/lua/lflash.h
View file @
d77666c0
...
...
@@ -19,7 +19,7 @@
#define FLASH_FORMAT_MASK 0xF00
#ifdef LUA_PACK_TVALUES
#ifdef LUA_NUMBER_INTEGRAL
#error "LUA_PACK_TVALUES is only valid for Floating point builds"
#error "LUA_PACK_TVALUES is only valid for Floating point builds"
#endif
# define FLASH_SIG_B2 0x04
#else
...
...
app/lua/lgc.c
View file @
d77666c0
...
...
@@ -175,7 +175,7 @@ static int traversetable (global_State *g, Table *h) {
markobject
(
g
,
h
->
metatable
);
mode
=
gfasttm
(
g
,
h
->
metatable
,
TM_MODE
);
}
if
(
mode
&&
ttisstring
(
mode
))
{
/* is there a weak mode? */
weakkey
=
(
c_strchr
(
svalue
(
mode
),
'k'
)
!=
NULL
);
weakvalue
=
(
c_strchr
(
svalue
(
mode
),
'v'
)
!=
NULL
);
...
...
app/lua/linit.c
View file @
d77666c0
...
...
@@ -20,33 +20,33 @@
# error "NodeMCU modules must be built with LTR enabled (MIN_OPT_LEVEL=2 and LUA_OPTIMIZE_MEMORY=2)"
#endif
extern
const
luaR_entry
strlib
[],
tab_funcs
[],
dblib
[],
extern
const
luaR_entry
strlib
[],
tab_funcs
[],
dblib
[],
co_funcs
[],
math_map
[],
syslib
[];
extern
const
luaR_entry
syslib
[],
io_funcs
[];
// Only used on cross-compile builds
/*
* The NodeMCU Lua initalisation has been adapted to use linker-based module
* The NodeMCU Lua initalisation has been adapted to use linker-based module
* registration. This uses a PSECT naming convention to allow the lib and rotab
* entries to be collected by the linker into consoliated tables. The linker
* defines lua_libs_base and lua_rotable_base.
*
* This is not practical on Posix builds which use a standard loader declaration
* so for cross compiler builds, separate ROTables are used for the base functions
* and library ROTables, with the latter chained from the former using its __index
* and library ROTables, with the latter chained from the former using its __index
* meta-method. In this case all library ROTables are defined here, avoiding the
* need for linker magic is avoided on host builds.
* need for linker magic is avoided on host builds.
*/
#if defined(LUA_CROSS_COMPILER)
#define LUA_ROTABLES lua_rotable_base
#define LUA_LIBS lua_libs_base
#else
/* declare Xtensa toolchain linker defined constants */
#else
/* declare Xtensa toolchain linker defined constants */
extern
const
luaL_Reg
lua_libs_base
[];
extern
const
luaR_entry
lua_rotable_base
[];
#define LUA_ROTABLES lua_rotable_core
#define LUA_LIBS lua_libs_core
#endif
static
const
LOCK_IN_SECTION
(
libs
)
luaL_reg
LUA_LIBS
[]
=
{
{
""
,
luaopen_base
},
{
LUA_LOADLIBNAME
,
luaopen_package
},
...
...
app/lua/llimits.h
View file @
d77666c0
...
...
@@ -104,7 +104,7 @@ typedef lu_int32 Instruction;
#ifndef lua_lock
#define lua_lock(L) ((void) 0)
#define lua_lock(L) ((void) 0)
#define lua_unlock(L) ((void) 0)
#endif
...
...
@@ -115,7 +115,7 @@ typedef lu_int32 Instruction;
/*
** macro to control inclusion of some hard tests on stack reallocation
*/
*/
#ifndef HARDSTACKTESTS
#define condhardstacktests(x) ((void)0)
#else
...
...
Prev
1
2
3
4
5
6
7
8
9
10
…
19
Next
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment