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

Fixing up sizes more.

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

8
ueforth/Makefile
View File

@ -345,7 +345,7 @@ $(ESP32_SIM):
$(GEN)/print-esp32-builtins: \ $(GEN)/print-esp32-builtins: \
esp32/print-builtins.cpp esp32/builtins.h | $(GEN) esp32/print-builtins.cpp esp32/builtins.h | $(GEN)
$(CXX) $(CFLAGS) -m32 $< -o $@ $(CXX) $(CFLAGS) $< -o $@
$(GEN)/esp32_sim_opcodes.h: $(GEN)/print-esp32-builtins | $(GEN) $(GEN)/esp32_sim_opcodes.h: $(GEN)/print-esp32-builtins | $(GEN)
$< >$@ $< >$@
@ -361,11 +361,11 @@ $(ESP32_SIM)/Esp32forth-sim: \
common/interp.h \ common/interp.h \
$(GEN)/esp32_boot.h \ $(GEN)/esp32_boot.h \
$(GEN)/esp32_sim_opcodes.h | $(ESP32_SIM) $(GEN)/esp32_sim_opcodes.h | $(ESP32_SIM)
$(CXX) $(CFLAGS) $< -o $@ $(CXX) $(CFLAGS) -m32 $< -o $@
strip $(STRIP_ARGS) $@ strip $(STRIP_ARGS) $@
size: sizes: $(ESP32_SIM)/Esp32forth-sim
echo internals size-all bye | $(ESP32_SIM)/Esp32forth-sim echo internals size-all bye | $< | sort -n
# ---- ESP32 ---- # ---- ESP32 ----

3
ueforth/common/utils.fs
View File

@ -80,10 +80,9 @@ internals definitions
: size-vocabulary ( voc ) : size-vocabulary ( voc )
@ begin dup nonvoc? while @ begin dup nonvoc? while
dup >size . dup see. cr >link dup >size . dup see. cr >link
repeat drop cr ; repeat drop ;
: size-all : size-all
last-vocabulary @ begin dup while last-vocabulary @ begin dup while
." VOCABULARY " dup see. cr ." ------------------------" cr
dup >body size-vocabulary dup >body size-vocabulary
>vocnext >vocnext
repeat drop cr ; repeat drop cr ;