diff options
Diffstat (limited to 'libalee')
| -rw-r--r-- | libalee/corewords.cpp | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp index 6900b45..8f903e1 100644 --- a/libalee/corewords.cpp +++ b/libalee/corewords.cpp @@ -178,14 +178,14 @@ execute: state.compiling(false); cell = state.pop(); - dcell = (cell - state.dict.latest()) << 6; - if (dcell > (((1 << (sizeof(Cell) * 8 - 6)) - 1) << 6)) { + dcell = cell - state.dict.latest(); + if (dcell > (1 << (sizeof(Cell) * 8 - 6)) - 1) { state.dict.write(cell, (state.dict.read(cell) & 0x1F) | static_cast<Cell>(((1 << (sizeof(Cell) * 8 - 6)) - 1) << 6)); - state.dict.write(static_cast<Addr>(cell) + sizeof(Cell), static_cast<Cell>(dcell >> 6)); + state.dict.write(static_cast<Addr>(cell) + sizeof(Cell), static_cast<Cell>(dcell)); } else { state.dict.write(cell, - (state.dict.read(cell) & 0x1F) | static_cast<Cell>(dcell)); + (state.dict.read(cell) & 0x1F) | static_cast<Cell>(dcell << 6)); } state.dict.latest(cell); break; |