diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-02 20:48:00 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-03-02 20:48:00 -0500 |
| commit | 9a58f8a55d29e4edda7d9352b292be42642b50eb (patch) | |
| tree | 0ec66714d6bc98e20b8c104a5f2ead54a1e9fcf2 /corewords.cpp | |
| parent | 2ece0e4993c838f620e5c19dfa04a86d9d35df49 (diff) | |
word, division compliance
Diffstat (limited to 'corewords.cpp')
| -rw-r--r-- | corewords.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/corewords.cpp b/corewords.cpp index ff09bcc..4de9413 100644 --- a/corewords.cpp +++ b/corewords.cpp @@ -102,14 +102,14 @@ execute: cell = state.pop(); dcell = state.pop(); dcell <<= sizeof(Cell) * 8; - dcell |= state.pop(); + dcell |= static_cast<Addr>(state.pop()); state.push(dcell / cell); break; case 10: // mod ( d n -- n ) cell = state.pop(); dcell = state.pop(); dcell <<= sizeof(Cell) * 8; - dcell |= state.pop(); + dcell |= static_cast<Addr>(state.pop()); state.push(dcell % cell); break; case 11: // peek |