diff options
author | Alexey Kardashevskiy <aik@ozlabs.ru> | 2023-02-28 16:50:18 +1100 |
---|---|---|
committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2023-02-28 16:50:18 +1100 |
commit | 1671c1847b6e8c4fc58175801a197f3129cda6a0 (patch) | |
tree | bd1e97d6143757a98fff6211832923c720cde152 | |
parent | 6fdb5a49335f7d179042bfbca34944d705bdde3b (diff) | |
download | SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.zip SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.tar.gz SLOF-1671c1847b6e8c4fc58175801a197f3129cda6a0.tar.bz2 |
Remove ?PICK
The word is not used and the name does not reflect well what it does.
Suggested-by: Segher Boessenkool <segher@kernel.crashing.org>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
-rw-r--r-- | slof/engine.in | 1 | ||||
-rw-r--r-- | slof/prim.code | 8 |
2 files changed, 0 insertions, 9 deletions
diff --git a/slof/engine.in b/slof/engine.in index 549e409..59e82f1 100644 --- a/slof/engine.in +++ b/slof/engine.in @@ -102,7 +102,6 @@ col(-ROLL DUP ?DUP 0BRANCH(9) >R ROT R> SWAP >R 1 - BRANCH(-12) ?DUP 0BRANCH(6) col(2>R R> ROT >R SWAP >R >R) col(2R> R> R> R> ROT >R SWAP) col(2R@ R> R> R@ OVER >R ROT >R SWAP) -cod(?PICK) // Arithmetic. col(2* 1 LSHIFT) diff --git a/slof/prim.code b/slof/prim.code index b9db151..b4e5e84 100644 --- a/slof/prim.code +++ b/slof/prim.code @@ -561,14 +561,6 @@ PRIM(STRING_X3d_CI) } MIRP -// bool dependend pick -// ?PICK ( v1 v2 bool -- v1|v2 ) -PRIM(_X3f_PICK) - type_u b = TOS.u; POP; - if (b) { NOS = TOS; } - POP; -MIRP - /* zcount ( zstr -- str len ) */ PRIM(ZCOUNT) type_u len = strlen(TOS.a); |