mirror of
https://github.com/ton-blockchain/ton
synced 2025-03-09 15:40:10 +00:00
updated lite-client
This commit is contained in:
parent
4dd5eea11f
commit
4b5dd4525e
27 changed files with 204 additions and 29 deletions
|
@ -247,3 +247,16 @@ recursive append-long-bytes {
|
|||
|
||||
// ( x a b -- a<=x<=b )
|
||||
{ 2 pick >= -rot >= and } : in-range?
|
||||
|
||||
// ( c i -- ? ) Checks whether c is a valid value for config param #i
|
||||
def? config-valid? {
|
||||
{ nip 0>= { ."warning: cannot check validity of configuration parameter value, use create-state instead of fift to check validity" cr } if
|
||||
true } : config-valid?
|
||||
} ifnot
|
||||
|
||||
{ dup -1000 = { drop <s ref@ <s 12 u@ 0xFF0 = } {
|
||||
dup -1001 = { drop <s ref@ <s 12 u@ 0xFF0 = } {
|
||||
over null? { 2drop true } {
|
||||
config-valid?
|
||||
} cond } cond } cond
|
||||
} : is-valid-config?
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue