shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Mingsw fixes

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

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

@@ -454,7 +454,7 @@

   int k;                        /* will contain bit pos + 1 */

   for(;;) {

     heapoffs_t word = free_map[i];

-    k = ffsl(word);

+    k = FFS(word);

     if (k)

       break;

     i++;

-- 

⑨