diff options
| author | Thomas Huth <thuth@redhat.com> | 2017-07-20 11:02:22 +0200 |
|---|---|---|
| committer | Alexey Kardashevskiy <aik@ozlabs.ru> | 2017-07-21 15:03:29 +1000 |
| commit | 206cff5fc88231d06ec2465873814da1f85e2b00 (patch) | |
| tree | b180fc18c856fc6196d6f79e5fc44a8917921176 /slof | |
| parent | c88748ff3808d87df2f79d29699991b53448496b (diff) | |
| download | SLOF-206cff5fc88231d06ec2465873814da1f85e2b00.zip SLOF-206cff5fc88231d06ec2465873814da1f85e2b00.tar.gz SLOF-206cff5fc88231d06ec2465873814da1f85e2b00.tar.bz2 | |
Remove unused functions ishexdigit and $cat-comma
They are completely unused, and ishexdigit seems even to be implemented
in a wrong way, thus let's simply remove them.
Signed-off-by: Thomas Huth <thuth@redhat.com>
Signed-off-by: Alexey Kardashevskiy <aik@ozlabs.ru>
Diffstat (limited to 'slof')
| -rw-r--r-- | slof/fs/base.fs | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/slof/fs/base.fs b/slof/fs/base.fs index 62cfb00..edd474e 100644 --- a/slof/fs/base.fs +++ b/slof/fs/base.fs @@ -59,14 +59,10 @@ CREATE $catpad 400 allot r> dup $catpad + r> swap r@ move r> + $catpad swap ; -\ WARNING: The following two ($cat-comm & $cat-space) are dirty in a sense -\ that they add 1 or 2 characters to str1 before executing $cat +\ WARNING: The following $cat-space is dirty in a sense that it adds one +\ character to str1 before executing $cat. \ The ASSUMPTION is that str1 buffer provides that extra space and it is \ responsibility of the code owner to ensure that -: $cat-comma ( str2 len2 str1 len1 -- "str1, str2" len1+len2+2 ) - 2dup + s" , " rot swap move 2+ 2swap $cat -; - : $cat-space ( str2 len2 str1 len1 -- "str1 str2" len1+len2+1 ) 2dup + bl swap c! 1+ 2swap $cat ; @@ -143,10 +139,6 @@ CONSTANT <2constant> 30 39 between ; -: ishexdigit ( char -- true | false ) - 30 39 between 41 46 between OR 61 66 between OR -; - \ Variant of $number that defaults to decimal unless "0x" is \ a prefix : $dh-number ( addr len -- true | number false ) |