diff options
Diffstat (limited to 'source/state.hpp')
| -rw-r--r-- | source/state.hpp | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/source/state.hpp b/source/state.hpp index 2a4668e..17d8e69 100644 --- a/source/state.hpp +++ b/source/state.hpp @@ -22,15 +22,16 @@ constexpr Addr DS = 16; /** Data stack size */ constexpr Addr RS = 16; /** Return stack size */ -constexpr auto DictSize = 2048u; /** Dictionary size */ +constexpr auto DictSize = 4096u; /** Dictionary size */ constexpr Addr DIdxBase = 0; constexpr Addr DIdxHere = 1; constexpr Addr DIdxLatest = 2; constexpr Addr DIdxState = 3; -constexpr Addr DIdxSource = 4; -constexpr Addr DIdxSrcLen = 5; -constexpr Addr DIdxInBuf = 6; +constexpr Addr DIdxCompXt = 4; +constexpr Addr DIdxSource = 5; +constexpr Addr DIdxSrcLen = 6; +constexpr Addr DIdxInBuf = 7; constexpr Addr DIdxBegin = DIdxInBuf + 80 * sizeof(char); /** @@ -52,9 +53,10 @@ extern FuncList IP; /** Instruction pointer */ */ inline void initialize(const auto& wordset) { - LATEST = (Cell)wordset.latest; - HERE = (Cell)&DICT[DIdxBegin]; - STATE = 0; + DICT[DIdxBase] = 10; + DICT[DIdxHere] = (Cell)&DICT[DIdxBegin]; + DICT[DIdxLatest] = (Cell)wordset.latest; + DICT[DIdxState] = 0; } /** |