From: Clyne Sullivan <clyne@bitgloo.com>
Date: Mon, 30 Dec 2024 21:41:32 +0000 (-0500)
Subject: fix at-words for optimization
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=a3a61f1a0b8bb980c9a6e1e442ea6fb5df2b9a44;p=clyne%2Fsforth.git

fix at-words for optimization
---

diff --git a/sforth/forth.hpp b/sforth/forth.hpp
index 857e27f..78ced3d 100644
--- a/sforth/forth.hpp
+++ b/sforth/forth.hpp
@@ -292,9 +292,9 @@ constexpr auto initialize()
             } else {
                 lit_impl(x);
             } }, word_base::immediate
-        , S{"@"    }, [](auto) { fthp->push(*std::bit_cast<cell *>(fthp->pop())); }, 0
+        , S{"@"    }, [](auto) { fthp->top() = *std::bit_cast<cell *>(fthp->top()); }, 0
         , S{"!"    }, [](auto) { auto p = fthp->pop(); *std::bit_cast<cell *>(p) = fthp->pop(); }, 0
-        , S{"C@"   }, [](auto) { fthp->push(*std::bit_cast<char *>(fthp->pop())); }, 0
+        , S{"C@"   }, [](auto) { fthp->top() = *std::bit_cast<char *>(fthp->top()); }, 0
         , S{"C!"   }, [](auto) { auto p = fthp->pop(); *std::bit_cast<char *>(p) = fthp->pop(); }, 0
         , S{"="    }, [](auto) { auto v = fthp->pop(); fthp->top() = -(fthp->top() == v); }, 0
         , S{"<"    }, [](auto) { auto v = fthp->pop(); fthp->top() = -(fthp->top() < v); }, 0