Skip to content

Commit

Permalink
Fix 2drop
Browse files Browse the repository at this point in the history
  • Loading branch information
tvorogme authored Jan 10, 2024
1 parent 4eb14ed commit 2f44599
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions crypto/fift/lib/Disasm.fif
Original file line number Diff line number Diff line change
Expand Up @@ -13,7 +13,7 @@ variable 'disasm
vmlib@ {
."// LIB: " swap X. cr ref@ <s disasm
} {
2drop // Only library special cell supported
drop // Lib not found
} cond
} {
drop // Only library special cell supported
Expand Down Expand Up @@ -59,7 +59,7 @@ variable @indent @indent 0!
drop dup count 2 = stack-disasm? and { second `LSHIFT# swap pair } if } {
dup `RSHIFT eq? {
drop dup count 2 = stack-disasm? and { second `RSHIFT# swap pair } if } {
drop
drop
} cond } cond } cond
} : adjust-op

Expand Down Expand Up @@ -138,7 +138,7 @@ variable @contX variable @contY variable @cdict
.indent type ." {" cr +indent @cdict @ @cdict null! unpair
rot {
swap .indent . ."=> <{" cr +indent disasm -indent .indent ."}>" cr true
} swap ' idictforeach ' dictforeach cond drop
} swap ' idictforeach ' dictforeach cond drop
-indent .indent ."}" cr
} : show-const-dict-op

Expand Down Expand Up @@ -172,4 +172,4 @@ variable @contX variable @contY variable @cdict
{ { fetch-one-op } { swap @curop ! adjust-op show-op } while } : disasm-slice
{ { disasm-slice dup sbitrefs 1- or 0= } { ref@ <s } while flush-dict flush-cont } : disasm-chain
{ @curop @ swap disasm-chain dup sbitrefs or { .indent ."Cannot disassemble: " csr. } { drop } cond @curop ! }
'disasm !
'disasm !

0 comments on commit 2f44599

Please sign in to comment.