Makefile.in: allow build of ghdl_mcode with sundials enabled

1 files changed, 25 insertions, 0 deletions

diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb
index 2adc63130..bfa095307 100644
--- a/src/ghdldrv/ghdlrun.adb
+++ b/src/ghdldrv/ghdlrun.adb
@@ -61,6 +61,7 @@ with Grt.Names;
 with Grt.Std_Logic_1164;
 with Grt.Errors;
 with Grt.Backtraces.Jit;
+with Grt.Analog_Solver;
 
 with Ghdlcomp; use Ghdlcomp;
 with Foreigns;
@@ -112,6 +113,30 @@ package body Ghdlrun is
                            Info : Translation.Foreign_Info_Type;
                            Ortho : O_Dnode);
 
+   subtype F64_C_Arr_Ptr is Grt.Analog_Solver.F64_C_Arr_Ptr;
+
+   procedure Residues (T : Grt.Types.Ghdl_F64;
+                       Y : F64_C_Arr_Ptr;
+                       Yp : F64_C_Arr_Ptr;
+                       Res : F64_C_Arr_Ptr);
+   pragma Export (C, Residues, "grt__analog_solver__residues");
+
+   procedure Set_Quantities_Values (Y : F64_C_Arr_Ptr; Yp: F64_C_Arr_Ptr);
+   pragma Export (C, Set_Quantities_Values, "grt__analog_solver__set_values");
+
+   procedure Residues (T : Grt.Types.Ghdl_F64;
+                       Y : F64_C_Arr_Ptr;
+                       Yp : F64_C_Arr_Ptr;
+                       Res : F64_C_Arr_Ptr) is
+   begin
+      raise Program_Error;
+   end Residues;
+
+   procedure Set_Quantities_Values (Y : F64_C_Arr_Ptr; Yp: F64_C_Arr_Ptr) is
+   begin
+      raise Program_Error;
+   end Set_Quantities_Values;
+
    procedure Compile_Init (Analyze_Only : Boolean) is
    begin
       Common_Compile_Init (Analyze_Only);