projects
/
pforth
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
tags
|
clone url
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix REPOSITION-FILE, HISTORY, locked file handle and other problems.
[pforth]
/
fth
/
floats.fth
diff --git
a/fth/floats.fth
b/fth/floats.fth
index
cb77770
..
9196575
100644
(file)
--- a/
fth/floats.fth
+++ b/
fth/floats.fth
@@
-406,16
+406,21
@@
false fp-require-e ! \ violate ANSI !!
c-addr c@ [char] E =
\r
c-addr c@ [char] e = OR
\r
IF
\r
c-addr c@ [char] E =
\r
c-addr c@ [char] e = OR
\r
IF
\r
- 1 +-> c-addr -1 +-> u' \ skip
char
\r
- c-addr c@ [char] + = \ ignore + on exponent
\r
+ 1 +-> c-addr -1 +-> u' \ skip
E char
+ u' 0>
IF
\r
IF
\r
- 1 +-> c-addr -1 +-> u' \ skip char
\r
- THEN
\r
- c-addr u' ((number?))
\r
- num_type_single =
\r
- IF
\r
- nshift + -> nshift
\r
- true -> flag
\r
+ c-addr c@ [char] + = \ ignore + on exponent
+ IF
\r
+ 1 +-> c-addr -1 +-> u' \ skip char
\r
+ THEN
\r
+ c-addr u' ((number?))
\r
+ num_type_single =
\r
+ IF
\r
+ nshift + -> nshift
\r
+ true -> flag
\r
+ THEN
+ ELSE
+ true -> flag \ allow "1E"
THEN
\r
THEN
\r
ELSE
\r
THEN
\r
THEN
\r
ELSE
\r