Commit d8c177c0 authored by Bernd Paysan's avatar Bernd Paysan

remove dest restriction in cs-pick

parent 4dd816ca
Pipeline #877 passed with stage
in 10 minutes and 9 seconds
...@@ -76,11 +76,11 @@ variable backedge-locals ...@@ -76,11 +76,11 @@ variable backedge-locals
3 constant cs-item-size 3 constant cs-item-size
: CS-PICK ( dest0 orig1/dest1 ... origu/destu u -- ... dest0 ) \ tools-ext c-s-pick : CS-PICK ( orig0/dest0 orig1/dest1 ... origu/destu u -- ... orig0/dest0 ) \ tools-ext c-s-pick
1+ cs-item-size * 1- >r 1+ cs-item-size * 1- >r
r@ pick r@ pick r@ pick r@ pick r@ pick r@ pick
rdrop rdrop
dup non-orig? ; dup cs-item? ;
: CS-ROLL ( destu/origu .. dest0/orig0 u -- .. dest0/orig0 destu/origu ) \ tools-ext c-s-roll : CS-ROLL ( destu/origu .. dest0/orig0 u -- .. dest0/orig0 destu/origu ) \ tools-ext c-s-roll
1+ cs-item-size * 1- >r 1+ cs-item-size * 1- >r
......
...@@ -594,7 +594,7 @@ defer int-execute ( ... xt -- ... ) ...@@ -594,7 +594,7 @@ defer int-execute ( ... xt -- ... )
parser1 int-execute parser1 int-execute
REPEAT REPEAT
2drop @local0 >r lp+ ; 2drop @local0 >r lp+ ;
: bt-rp0-catch ( ... xt -- ... ball ) : bt-rp0-catch ( ... xt -- ... ball )
backtrace-rp0 @ >r backtrace-rp0 @ >r
catch catch
......
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