Verified Commit 88b19b99 authored by Bernd Paysan's avatar Bernd Paysan
Browse files

Revert NOPE

parent 8958b943

net2o.fs

+4 −4
Original line number Diff line number Diff line
@@ -920,7 +920,7 @@ in net2o : ack-resend ( flag -- ) resend-toggle# and to ack-resend~ ; 
    data-resend $@len 0 U+DO

	data-resend $@ I /string drop @ 0= IF

	    data-resend I 2 cells $del

	    0  data-resend $@len I unloop U+DO NO-DO

	    0  data-resend $@len I unloop U+DO NOPE

	ELSE

	    [ 2 cells ]L

	THEN
@@ -1186,7 +1186,7 @@ Create chunk-adder chunks-struct allot 
    [: chunks $@ bounds ?DO

	    I chunk-context @ o = IF

		chunks I chunks-struct del$one

		unloop chunks next$ ?DO NO-DO 0

		unloop chunks next$ ?DO NOPE 0

	    ELSE  chunks-struct  THEN  +LOOP ;]

    resize-sema c-section ;
@@ -1352,7 +1352,7 @@ queue-class >osize @ buffer: queue-adder 
	64dup queue-timestamp 64@ 64u> IF

	    addr queue-xt @ queue-job @ .execute o>

	    queue I queue-struct del$one

	    unloop queue next$ ?DO  NO-DO 0

	    unloop queue next$ ?DO  NOPE 0

	ELSE  o>  queue-struct  THEN

    +LOOP  64drop ;
@@ -1928,7 +1928,7 @@ cookie-size# buffer: tmp-cookie 
	I .cc-timeout 64@ timeout 64u< IF

	    cookies I cookie-size# del$one

	    cookies next$

	    unloop  ?DO  NO-DO \ this replaces the loop variables

	    unloop  ?DO  NOPE \ this replaces the loop variables

	    0 \ we re-iterate over the exactly same index

	ELSE

	    cookie-size#

tools.fs

+3 −3
Original line number Diff line number Diff line
@@ -175,8 +175,8 @@ debug: dummy( 
    postpone ;

    is kill-task ;



[IFUNDEF] NO-DO

    : NO-DO ( c:sys -- )

[IFUNDEF] NOPE

    : NOPE ( c:sys -- )

	\G removes a control structure sys from the stack

	drop 2drop ; immediate restrict

[THEN]
@@ -870,7 +870,7 @@ compsem: sourcefilename postpone sliteral ['] search-help compile, ; 
    string $@ bounds ?DO

	dup I @ = IF

	    string I cell del$one

	    unloop string next$ ?DO NO-DO 0

	    unloop string next$ ?DO NOPE 0

	ELSE  cell  THEN

    +LOOP drop ;