Commit 7e47e63c authored by bernd's avatar bernd

no-hybrid tested

parent b981c93e
......@@ -154,10 +154,10 @@ Defer .addr$
: unavail? ( n -- flag )
0< IF
errno >r
r@ EPFNOSUPPORT =
r@ EAFNOSUPPORT = or
r@ EADDRNOTAVAIL = or
r> ENETUNREACH = or
[IFDEF] EPFNOSUPPORT r@ EPFNOSUPPORT = [ELSE] 0 [THEN]
[IFDEF] EAFNOSUPPORT r@ EAFNOSUPPORT = or [THEN]
[IFDEF] EADDRNOTAVAIL r@ EADDRNOTAVAIL = or [THEN]
[IFDEF] ENETUNREACH r> ENETUNREACH = or [ELSE] rdrop [THEN]
ELSE
false
THEN ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment