bigger stack
This commit is contained in:
+2
-2
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user