Remove -cc gcc

Author: dmtrKovalenko

io/tiff/ReadTiff.c

@@ -1,5 +1,4 @@
 #define CAML_NAME_SPACE
-#include <signal.h>
 #include <stdio.h>
 
 #include <caml/alloc.h>
@@ -10,6 +9,13 @@
 
 #include <tiffio.h>
 
+#ifdef _WIN32
+#include <excpt.h> // For structured exception handling (SEH)
+#include <setjmp.h>
+#include <signal.h>
+#include <windows.h>
+#endif
+
 CAMLprim value read_tiff_file_to_tuple(value file) {
   CAMLparam1(file);
   CAMLlocal2(res, ba);
@@ -34,11 +40,21 @@ CAMLprim value read_tiff_file_to_tuple(value file) {
                      NULL, dims);
 
   uint32_t *buffer = (uint32_t *)Caml_ba_data_val(ba);
-  if (!(TIFFReadRGBAImageOriented(image, width, height, buffer,
-                                  ORIENTATION_TOPLEFT, 0))) {
+
+#ifdef _WIN32
+  __try {
+#endif
+    if (!(TIFFReadRGBAImageOriented(image, width, height, buffer,
+                                    ORIENTATION_TOPLEFT, 0))) {
+      TIFFClose(image);
+      caml_failwith("reading input file failed");
+    }
+#ifdef _WIN32
+  } __except (EXCEPTION_EXECUTE_HANDLER) {
     TIFFClose(image);
-    caml_failwith("reading input file failed");
+    caml_failwith("reading input file failed due to an exception");
   }
+#endif
 
   TIFFClose(image);