diff --git a/ueforth/Makefile b/ueforth/Makefile index 2798e00..dd121b8 100644 --- a/ueforth/Makefile +++ b/ueforth/Makefile @@ -345,7 +345,7 @@ $(ESP32_SIM): $(GEN)/print-esp32-builtins: \ 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) $< >$@ @@ -361,11 +361,11 @@ $(ESP32_SIM)/Esp32forth-sim: \ common/interp.h \ $(GEN)/esp32_boot.h \ $(GEN)/esp32_sim_opcodes.h | $(ESP32_SIM) - $(CXX) $(CFLAGS) $< -o $@ + $(CXX) $(CFLAGS) -m32 $< -o $@ strip $(STRIP_ARGS) $@ -size: - echo internals size-all bye | $(ESP32_SIM)/Esp32forth-sim +sizes: $(ESP32_SIM)/Esp32forth-sim + echo internals size-all bye | $< | sort -n # ---- ESP32 ---- diff --git a/ueforth/common/utils.fs b/ueforth/common/utils.fs index 4c61917..61a8900 100644 --- a/ueforth/common/utils.fs +++ b/ueforth/common/utils.fs @@ -80,10 +80,9 @@ internals definitions : size-vocabulary ( voc ) @ begin dup nonvoc? while dup >size . dup see. cr >link - repeat drop cr ; + repeat drop ; : size-all last-vocabulary @ begin dup while - ." VOCABULARY " dup see. cr ." ------------------------" cr dup >body size-vocabulary >vocnext repeat drop cr ;