alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Make size measures easier to use, use 32-bit for emu.

Browse Source
This commit is contained in:
Brad Nelson
2022-02-02 18:07:42 -08:00
parent e1bd5e4a01
commit 17e9bfaefd
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
ueforth/Makefile
View File

@ -345,7 +345,7 @@ $(ESP32_SIM):
$(GEN)/print-esp32-builtins: \
esp32/print-builtins.cpp esp32/builtins.h | $(GEN)
$(CXX) $(CFLAGS) $< -o $@
$(CXX) $(CFLAGS) -m32 $< -o $@
$(GEN)/esp32_sim_opcodes.h: $(GEN)/print-esp32-builtins | $(GEN)
$< >$@
@ -364,6 +364,9 @@ $(ESP32_SIM)/Esp32forth-sim: \
$(CXX) $(CFLAGS) $< -o $@
strip $(STRIP_ARGS) $@
size:
echo internals size-all bye | $(ESP32_SIM)/Esp32forth-sim
# ---- ESP32 ----
esp32: esp32_target esp32_sim esp32_tests esp32_sim_tests

2
ueforth/common/utils.fs
View File

@ -79,7 +79,7 @@ internals definitions
( Words to measure size of things )
: size-vocabulary ( voc )
@ begin dup nonvoc? while
dup see. dup >size . cr >link
dup >size . dup see. cr >link
repeat drop cr ;
: size-all
last-vocabulary @ begin dup while