shithub: MicroHs

Download patch

ref: dfb68584b52c44fe67196ba319bb8d4330c97b2b
parent: 1f78fbb7c97323669861ee578aad752ce09870fa
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Fri Jul 26 11:18:53 EDT 2024

Disable code that was even marked as broken!

--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -942,10 +942,11 @@
           red_i++;
           goto top;
         }
-#if 1
+#if 0
         /* This is broken.
          * Probably because it can happen in the middle of the C reduction code.
          */
+        DO NOT ENABLE
         if (GETTAG(FUN(n)) == T_C) {
           NODEPTR q = ARG(n);
           enum node_tag tt, tf;
@@ -960,8 +961,8 @@
             goto fin;
           }
         }
-      }
 #endif
+      }
 #else   /* GCRED */
    case T_AP:
 #endif  /* GCRED */
--