diff options
| author | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-12-01 13:49:32 +0100 |
|---|---|---|
| committer | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-12-20 17:56:48 +0100 |
| commit | 4530bc4d6b663a341d522c37de7c4a7f01affaff (patch) | |
| tree | e0fd178420deb1fe62a9ddef0714145a5d2e2d95 /slof | |
| parent | c94eb8530fc3f09f6fd73b5520e4901e7b5b1273 (diff) | |
| download | SLOF-4530bc4d6b663a341d522c37de7c4a7f01affaff.zip SLOF-4530bc4d6b663a341d522c37de7c4a7f01affaff.tar.gz SLOF-4530bc4d6b663a341d522c37de7c4a7f01affaff.tar.bz2 | |
Removed unused code
In 1275.fs there were some functions that were apparently not used anymore.
Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com>
Diffstat (limited to 'slof')
| -rw-r--r-- | slof/fs/fcode/1275.fs | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/slof/fs/fcode/1275.fs b/slof/fs/fcode/1275.fs index 597f7ed..7c7e366 100644 --- a/slof/fs/fcode/1275.fs +++ b/slof/fs/fcode/1275.fs @@ -99,45 +99,6 @@ ?compile-mode IF postpone then THEN ; immediate -: ffwto; ( -- ) - BEGIN fcode@ dup c2 <> WHILE -." ffwto: skipping " dup . ." @ " get-ip . cr - CASE 10 OF ( lit ) read-fcode-num32 drop ENDOF - 11 OF ( ' ) read-fcode# drop ENDOF - 12 OF ( " ) read-fcode-string 2drop ENDOF - 13 OF ( bbranch ) read-fcode-offset drop ENDOF - 14 OF ( b?branch ) read-fcode-offset drop ENDOF - 15 OF ( loop ) read-fcode-offset drop ENDOF - 16 OF ( +loop ) read-fcode-offset drop ENDOF - 17 OF ( do ) read-fcode-offset drop ENDOF - 18 OF ( ?do ) read-fcode-offset drop ENDOF - 1C OF ( of ) read-fcode-offset drop ENDOF - C6 OF ( endof ) read-fcode-offset drop ENDOF - C3 OF ( to ) read-fcode# drop ENDOF - dup OF next-ip ENDOF - ENDCASE - REPEAT next-ip -; - -: rpush ( rparm -- ) \ push the rparm to be on top of return stack after exit - r> swap >r >r -; - -: rpop ( -- rparm ) \ pop the rparm that was on top of return stack before this - r> r> swap >r -; - -: b1(;) ( -- ) -." b1(;)" cr - rpop set-ip -; - -\ : b1(:) ( -- ) -\ ." b1(:)" cr -\ <colon> compile, get-ip 1+ literal ] get-ip rpush set-ip [ -\ ffwto; -\ ; immediate - : b(;) <semicolon> compile, reveal postpone [ |