shithub: MicroHs

Download patch

ref: 8a4446b5c6df295fa868c701fc3edafdb1b36c93
parent: 697acce403cc3e191ef4c9b906d3eb4a8c829201
author: Rewbert <krookr@chalmers.se>
date: Mon Dec 18 12:56:05 EST 2023

move defines to before earliest usage lol

--- a/src/runtime/eval.c
+++ b/src/runtime/eval.c
@@ -41,6 +41,22 @@
 /* We cast all FFI functions to this type.  It's reasonably portable */
 typedef void (*funptr_t)(void);
 
+#if !defined(MALLOC)
+#define MALLOC malloc
+#endif
+
+#if !defined(FREE)
+#define FREE free
+#endif
+
+#if !defined(EXIT)
+#define EXIT exit
+#endif
+
+#if !defined(PRINT)
+#define PRINT printf
+#endif
+
 #if !defined(PCOMMA)
 #define PCOMMA "'"
 #endif  /* !defined(PCOMMA) */
@@ -99,22 +115,6 @@
 
 #if !defined(STACK_SIZE)
 #define STACK_SIZE 100000
-#endif
-
-#if !defined(MALLOC)
-#define MALLOC malloc
-#endif
-
-#if !defined(FREE)
-#define FREE free
-#endif
-
-#if !defined(EXIT)
-#define EXIT exit
-#endif
-
-#if !defined(PRINT)
-#define PRINT printf
 #endif
 
 #if !defined(ERR)
--