From 01f88adc76d6e6ce075ea34c82e07d6ddd955a3d Mon Sep 17 00:00:00 2001 From: Phil Burk Date: Wed, 16 Oct 2024 13:37:57 -0700 Subject: [PATCH] v0.6.1 Bigger dictionary Ask user to wait for init Minor cleanup --- hmsl/fth/make_hmsl.fth | 3 +++ hmsl/fth/obobject.fth | 2 +- hmsl/fth/startup.fth | 3 ++- native/juce/Source/Main.cpp | 2 +- 4 files changed, 7 insertions(+), 3 deletions(-) diff --git a/hmsl/fth/make_hmsl.fth b/hmsl/fth/make_hmsl.fth index a2904cd..7db8994 100644 --- a/hmsl/fth/make_hmsl.fth +++ b/hmsl/fth/make_hmsl.fth @@ -23,5 +23,8 @@ include fth/load_hmsl.fth ." Block AUTO.INIT that is called by SAVE-FORTH" cr 1 2 3 4 5 6 +\ Make the memory areas bigger. +700000 headers-size ! +1500000 code-size ! c" pforth.dic" save-forth 6 0 DO drop LOOP diff --git a/hmsl/fth/obobject.fth b/hmsl/fth/obobject.fth index eb73a1c..6e3b6a1 100644 --- a/hmsl/fth/obobject.fth +++ b/hmsl/fth/obobject.fth @@ -69,7 +69,7 @@ DoubleList OBJ-DYN-LIST \ list of dynamically alloced objs : ODH.INIT obj-dyn-list dll.newlist ; -: OB.INIT ." OB.INIT" cr ob.init odh.init ; +: OB.INIT ob.init odh.init ; : AUTO.INIT auto.init ob.init ; ( declare methods for object, define OBJECT class ) diff --git a/hmsl/fth/startup.fth b/hmsl/fth/startup.fth index 624c863..8bd0da0 100644 --- a/hmsl/fth/startup.fth +++ b/hmsl/fth/startup.fth @@ -9,7 +9,8 @@ ANEW TASK-STARTUP : HMSL.INIT.ASK ( -- , Ask if user wants to HMSL.INIT ) hmsl.copyright ." Do you want to initialize HMSL? (probably Yes)" Y/N cr - IF hmsl.init + IF ." Wait a few seconds then hit the ENTER key." cr + hmsl.init ELSE ob.init THEN ; diff --git a/native/juce/Source/Main.cpp b/native/juce/Source/Main.cpp index 50cbb3f..d82d530 100644 --- a/native/juce/Source/Main.cpp +++ b/native/juce/Source/Main.cpp @@ -14,7 +14,7 @@ #include "Terminal.h" #include "ForthThread.h" -#define HMSL_VERSION "v0.6.0" +#define HMSL_VERSION "v0.6.1" //============================================================================== class ProtoHMSLApplication : public JUCEApplication