Hi Bil,
I'm attaching a tiny patch I had to apply in order to build s7 under MSVC.
diff --git a/s7.c b/s7.c
index 890e150..030deb0 100644
--- a/s7.c
+++ b/s7.c
@@ -356,7 +356,7 @@
#define MS_WINDOWS 0
#endif
-#ifdef __MINGW32__
+#if defined(_MSC_VER) || defined(__MINGW32__)
#define Jmp_Buf jmp_buf
#define SetJmp(A, B) setjmp(A)
#define LongJmp(A, B) longjmp(A, B)
@@ -28309,7 +28309,7 @@ static Inline void inline_file_write_char(s7_scheme *sc, uint8_t c, s7_pointer p
port_data(port)[port_position(port)++] = c;
}
-static void file_write_char(s7_scheme *sc, uint8_t c, s7_pointer port) {return(inline_file_write_char(sc, c, port));}
+static void file_write_char(s7_scheme *sc, uint8_t c, s7_pointer port) {inline_file_write_char(sc, c, port);}
static void input_write_char(s7_scheme *sc, uint8_t c, s7_pointer port) {simple_wrong_type_argument_with_type(sc, sc->write_char_symbol, port, an_output_port_string);}
static void closed_port_write_char(s7_scheme *sc, uint8_t c, s7_pointer port) {simple_wrong_type_argument_with_type(sc, sc->write_char_symbol, port, an_open_port_string);}
_______________________________________________
Cmdist mailing list
[email protected]
https://cm-mail.stanford.edu/mailman/listinfo/cmdist
