diff options
| author | elioat <elioat@tilde.institute> | 2023-05-25 22:00:32 -0400 |
|---|---|---|
| committer | elioat <elioat@tilde.institute> | 2023-05-25 22:00:32 -0400 |
| commit | 8013dbfa6ffe40fd9244fd5532d75e93ea40259f (patch) | |
| tree | 43b3bc985f38ad6c80746a984ebebfe07027fd99 /p9c/lbforth | |
| parent | b950e986561dd3718769ce6041971ee70880639f (diff) | |
| download | tour-8013dbfa6ffe40fd9244fd5532d75e93ea40259f.tar.gz | |
*
Diffstat (limited to 'p9c/lbforth')
| -rw-r--r-- | p9c/lbforth/lbforth9.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/p9c/lbforth/lbforth9.c b/p9c/lbforth/lbforth9.c index 6ee5fa6..9673da4 100644 --- a/p9c/lbforth/lbforth9.c +++ b/p9c/lbforth/lbforth9.c @@ -414,8 +414,9 @@ parseNumber(byte* word, cell len, dcell* number, cell* notRead, byte* isDouble) { int negative = 0; cell i; - char c; - cell current; + charn + n + *number = 0; *isDouble = 0; @@ -1211,4 +1212,4 @@ main() initscript_pos = (char*)initScript; quit(); return 0; -} \ No newline at end of file +} |