From d4adf84a668874c645bb2846378ba0ede422bcd8 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 21 Jul 2022 06:00:08 +0200 Subject: Makefile.in: allow build of ghdl_mcode with sundials enabled --- src/ghdldrv/ghdlrun.adb | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'src') 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); -- cgit v1.2.3