shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Disable problematic GC reduction.

--- a/Makefile

+++ b/Makefile

@@ -107,7 +107,7 @@

 	@echo "*** Set environment variable MHSDIR to $(PREFIX)/lib/mhs"

 	@echo "***"

-everytest:	runtest exampletest cachetest bootcombtest

+everytest:	runtest exampletest cachetest bootcombtest nfibtest

 everytestmhs:	bin/mhs bin/mhseval exampletest cachetest bootstrap runtestmhs nfibtest

--- a/src/runtime/eval.c

+++ b/src/runtime/eval.c

@@ -820,6 +820,7 @@

     red_i++;

     goto top;

   }

+#if 0

   if (GETTAG(n) == T_AP && GETTAG(FUN(n)) == T_C) {

     NODEPTR q = ARG(n);

     enum node_tag tt, tf;

@@ -834,6 +835,7 @@

       goto top;

     }

   }

+#endif

 #if INTTABLE

   if (GETTAG(n) == T_INT && LOW_INT <= (i = GETVALUE(n)) && i < HIGH_INT) {

     SETTAG(n, T_IND);

-- 

⑨