diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-02 20:50:47 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-02 20:50:47 -0400 |
| commit | ea026f8d67c411fc4a0d8b255a2653753258175e (patch) | |
| tree | 90b24cd555709b52ca50cfd6d629b2e565a7613b /libalee | |
| parent | b26edffda07b017b5a385491d7232efce0020631 (diff) | |
running on the devboard
Diffstat (limited to 'libalee')
| -rw-r--r-- | libalee/corewords.cpp | 7 | ||||
| -rw-r--r-- | libalee/state.hpp | 4 |
2 files changed, 4 insertions, 7 deletions
diff --git a/libalee/corewords.cpp b/libalee/corewords.cpp index 8f903e1..e3ba6b3 100644 --- a/libalee/corewords.cpp +++ b/libalee/corewords.cpp @@ -180,13 +180,10 @@ execute: cell = state.pop(); 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)); - } else { - state.dict.write(cell, - (state.dict.read(cell) & 0x1F) | static_cast<Cell>(dcell << 6)); + dcell = ((1 << (sizeof(Cell) * 8 - 6)) - 1); } + state.dict.write(cell, (state.dict.read(cell) & 0x1F) | static_cast<Cell>(dcell << 6)); state.dict.latest(cell); break; case 27: // _jmp0 diff --git a/libalee/state.hpp b/libalee/state.hpp index 12a3aeb..e77a223 100644 --- a/libalee/state.hpp +++ b/libalee/state.hpp @@ -25,8 +25,8 @@ #include <csetjmp> #include <cstddef> -constexpr unsigned DataStackSize = 16; -constexpr unsigned ReturnStackSize = 16; +constexpr unsigned DataStackSize = 64; +constexpr unsigned ReturnStackSize = 64; class State { |