From 447ba91ce6753bafb85d154275fad538f9928281 Mon Sep 17 00:00:00 2001
From: Michele Calgaro <michele.calgaro@yahoo.it>
Date: Sun, 15 Sep 2024 17:08:01 +0900
Subject: Fix FTBFS with gcc 14

Signed-off-by: Michele Calgaro <michele.calgaro@yahoo.it>
---
 kalzium/src/solver/modwrap.c | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/kalzium/src/solver/modwrap.c b/kalzium/src/solver/modwrap.c
index 0ab5359e..e51ea3c5 100644
--- a/kalzium/src/solver/modwrap.c
+++ b/kalzium/src/solver/modwrap.c
@@ -21,8 +21,9 @@
 #include <stdio.h>
 #include <string.h>
 
-#include <caml/mlvalues.h>
+#include <caml/alloc.h>
 #include <caml/callback.h>
+#include <caml/mlvalues.h>
 
 char* solve_equation(const char * eq)
 {
@@ -32,6 +33,6 @@ char* solve_equation(const char * eq)
 		solve_equation_closure = caml_named_value("solve_equation");
 	}
 
-	return strdup(String_val(callback(*solve_equation_closure, copy_string(eq)) ));
+	return strdup(String_val(caml_callback(*solve_equation_closure, caml_copy_string(eq)) ));
 }
 
-- 
cgit v1.2.1