From f23c8260c9ae04a16bddcdce54314f3911492ba0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ond=C5=99ej=20Hru=C5=A1ka?= Date: Thu, 18 Nov 2021 23:13:33 +0100 Subject: [PATCH] bigger stack --- include/fh_config.h | 4 ++-- testfiles/combinedtest.f | 1 - 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/include/fh_config.h b/include/fh_config.h index b375797..e9a9262 100644 --- a/include/fh_config.h +++ b/include/fh_config.h @@ -7,8 +7,8 @@ #ifndef FORTH_FH_CONFIG_H #define FORTH_FH_CONFIG_H -#define DATA_STACK_DEPTH 10 -#define RETURN_STACK_DEPTH 10 +#define DATA_STACK_DEPTH 256 +#define RETURN_STACK_DEPTH 256 #define MAX_NAME_LEN 32 #define HEAP_SIZE (1024*1024) #define MAXLINE 65535 diff --git a/testfiles/combinedtest.f b/testfiles/combinedtest.f index a9f6203..769fcb9 100644 --- a/testfiles/combinedtest.f +++ b/testfiles/combinedtest.f @@ -777,7 +777,6 @@ T{ : GD2 DO I -1 +LOOP ; -> }T T{ 1 4 GD2 -> 4 3 2 1 }T T{ -1 2 GD2 -> 2 1 0 -1 }T T{ MID-UINT MID-UINT+1 GD2 -> MID-UINT+1 MID-UINT }T -exit T{ : GD3 DO 1 0 DO J LOOP LOOP ; -> }T T{ 4 1 GD3 -> 1 2 3 }T