projects
/
pforth
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
6cc29c2
)
Revert last commit.
author
Helmut Eller
<eller.helmut@gmail.com>
Wed, 21 Dec 2016 19:26:42 +0000
(20:26 +0100)
committer
Helmut Eller
<eller.helmut@gmail.com>
Wed, 21 Dec 2016 19:26:42 +0000
(20:26 +0100)
fth/system.fth
patch
|
blob
|
blame
|
history
diff --git
a/fth/system.fth
b/fth/system.fth
index
71b778e
..
b74c812
100644
(file)
--- a/
fth/system.fth
+++ b/
fth/system.fth
@@
-596,29
+596,6
@@
ustack 0stackp
char [compile] literal
; immediate
char [compile] literal
; immediate
-: TOUPPER ( char -- char' )
- dup [char] a >=
- IF
- dup [char] z <= IF [ char A char a - ] literal + THEN
- THEN
-;
-
-: UPCASE ( c-addr u -- )
- over + swap ?do
- i c@ toupper i c!
- loop
-;
-
-create WORD-SAVE-AREA 257 allot
-
-\ This version performs case-conversion for backward compatibility.
-: WORD ( char -- addr )
- parse-word
- word-save-area place
- word-save-area count upcase
- word-save-area
-;
-
: $TYPE ( $string -- )
count type
;
: $TYPE ( $string -- )
count type
;