Switching off invalid hashconsing

This commit is contained in:
Dmitry Boulytchev 2022-01-31 23:46:18 +03:00
parent f953814c76
commit 69c0b89e3c
6 changed files with 91 additions and 29 deletions

View file

@ -4,12 +4,12 @@
# include "runtime.h"
# define __ENABLE_GC__
# define __ENABLE_GC__
# ifndef __ENABLE_GC__
# define alloc malloc
# endif
/* # define DEBUG_PRINT 1 */
//# define DEBUG_PRINT 1
#ifdef DEBUG_PRINT
int indent = 0;
@ -342,7 +342,7 @@ extern int LtagHash (char *s) {
p = s;
while (*p && limit++ < 4) {
while (*p && limit++ <= 4) {
char *q = chars;
int pos = 0;
@ -2075,7 +2075,7 @@ extern void * alloc (size_t size) {
#endif
return p;
}
init_to_space (0);
#ifdef DEBUG_PRINT
print_indent ();