omit unused FCode support routine DEST_ON_TOP

2019-07-23 16:01:10 -07:00 · 2019-07-23 16:01:10 -07:00 · 43bf70a9da
parent afc4d48f71
commit 43bf70a9da
1 changed files with 3 additions and 0 deletions
--- a/asm/fcode.s
+++ b/asm/fcode.s
@ -1170,6 +1170,8 @@ xdword    B_FIELD
          jml dFIELD::dofield
 exdword

+.if 0
+; Inspired by SLOF, unused for now
 xdword    DEST_ON_TOP
          ENTER
          ;.dword DOTS
@ -1193,6 +1195,7 @@ e2:       .dword DROP
          ;.dword DOTS
          EXIT
 exdword
+.endif

 ; Branch FCode while interpreting
 ; ( fcode-offset -- )