diff options
author | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-11-08 17:38:15 +0100 |
---|---|---|
committer | Thomas Huth <thuth@linux.vnet.ibm.com> | 2011-11-17 12:10:37 +0100 |
commit | 4321b74de652c82eeaa84797dff763e9e048ea75 (patch) | |
tree | d52a77c45805fcede87f335756cb0ce056bf441b /slof | |
parent | 46ac4818ad07f3c4f290319b3e04d3125b8197ac (diff) | |
download | SLOF-4321b74de652c82eeaa84797dff763e9e048ea75.zip SLOF-4321b74de652c82eeaa84797dff763e9e048ea75.tar.gz SLOF-4321b74de652c82eeaa84797dff763e9e048ea75.tar.bz2 |
FCODE: Removed some unused test code and functions
In 1275.fs there were some test code remainders from the early days that are
certainly not required anymore.
Signed-off-by: Thomas Huth <thuth@linux.vnet.ibm.com>
Diffstat (limited to 'slof')
-rw-r--r-- | slof/fs/fcode/1275.fs | 27 |
1 files changed, 1 insertions, 26 deletions
diff --git a/slof/fs/fcode/1275.fs b/slof/fs/fcode/1275.fs index 9bc99dd..2fa3cdc 100644 --- a/slof/fs/fcode/1275.fs +++ b/slof/fs/fcode/1275.fs @@ -398,29 +398,4 @@ restore-evaluator-state THEN ['] c@ to fcode-rb@ - ; - -create byte-load-test-fcode -f1 c, 08 c, 18 c, 69 c, 00 c, 00 c, 00 c, 68 c, -12 c, 16 c, 62 c, 79 c, 74 c, 65 c, 2d c, 6c c, -6f c, 61 c, 64 c, 2d c, 74 c, 65 c, 73 c, 74 c, -2d c, 66 c, 63 c, 6f c, 64 c, 65 c, 21 c, 21 c, -90 c, 92 c, ( a6 c, a7 c, 2e c, ) 00 c, - -: byte-load-test - byte-load-test-fcode ['] w@ - ; immediate - -: fcode-ms - s" ms" $find IF 0= IF compile, ELSE execute THEN THEN ; immediate - -: fcode-$find - $find - IF - drop true - ELSE - false - THEN - ; - -( ---------------------------------------------------- ) +; |