MightyPork
/
forth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

bigger stack

Browse Source
master
Ondřej Hruška 3 years ago
parent 7a64470851
commit f23c8260c9
Signed by: MightyPork
GPG Key ID: 2C5FD5035250423D
2 changed files with 2 additions and 3 deletions
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Show Stats Download Patch File Download Diff File
  1. 4
      include/fh_config.h
  2. 1
      testfiles/combinedtest.f

4
include/fh_config.h
Unescape View File

@ -7,8 +7,8 @@
#ifndef FORTH_FH_CONFIG_H #ifndef FORTH_FH_CONFIG_H
#define FORTH_FH_CONFIG_H #define FORTH_FH_CONFIG_H
#define DATA_STACK_DEPTH 10 #define DATA_STACK_DEPTH 256
#define RETURN_STACK_DEPTH 10 #define RETURN_STACK_DEPTH 256
#define MAX_NAME_LEN 32 #define MAX_NAME_LEN 32
#define HEAP_SIZE (1024*1024) #define HEAP_SIZE (1024*1024)
#define MAXLINE 65535 #define MAXLINE 65535

1
testfiles/combinedtest.f
Unescape View File

@ -777,7 +777,6 @@ T{ : GD2 DO I -1 +LOOP ; -> }T
T{ 1 4 GD2 -> 4 3 2 1 }T T{ 1 4 GD2 -> 4 3 2 1 }T
T{ -1 2 GD2 -> 2 1 0 -1 }T T{ -1 2 GD2 -> 2 1 0 -1 }T
T{ MID-UINT MID-UINT+1 GD2 -> MID-UINT+1 MID-UINT }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{ : GD3 DO 1 0 DO J LOOP LOOP ; -> }T
T{ 4 1 GD3 -> 1 2 3 }T T{ 4 1 GD3 -> 1 2 3 }T

Write Preview
Loading…
Cancel
Save