shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Silence a warning.

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

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

@@ -756,7 +756,7 @@

 {

   stackptr_t stk = stack_ptr;

   NODEPTR n;

-  NODEPTR *to_push;

+  NODEPTR *to_push = 0;         /* silence warning by initializing */

 #if GCRED

   value_t val;

 #endif

-- 

⑨