diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-05-17 05:49:14 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-05-17 05:49:14 +0200 |
commit | 2c4f02de9ba36dbe52e661b50b67fbe14e92ae6e (patch) | |
tree | 14694b31fd2f25612d5a1f1487ec9106c5b9cbea /src/mhdlsim/mhdlsim.ads | |
parent | 8574c1ae9bf66e3520985e0277a3847b1a210e2e (diff) | |
download | ghdl-2c4f02de9ba36dbe52e661b50b67fbe14e92ae6e.tar.gz ghdl-2c4f02de9ba36dbe52e661b50b67fbe14e92ae6e.tar.bz2 ghdl-2c4f02de9ba36dbe52e661b50b67fbe14e92ae6e.zip |
mhdlsim: add initial version of the vhdl part (as a library).
Diffstat (limited to 'src/mhdlsim/mhdlsim.ads')
-rw-r--r-- | src/mhdlsim/mhdlsim.ads | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/src/mhdlsim/mhdlsim.ads b/src/mhdlsim/mhdlsim.ads new file mode 100644 index 000000000..ef1eed275 --- /dev/null +++ b/src/mhdlsim/mhdlsim.ads @@ -0,0 +1,23 @@ +with Grt.Types; use Grt.Types; + +package Mhdlsim is + function Process_Param (Opt : Ghdl_C_String; Len : Natural) + return Integer; + pragma Export (C, Process_Param, "mhdlsim_vhdl_process_param"); + + procedure Analyze_Init; + pragma Export (C, Analyze_Init, "mhdlsim_vhdl_analyze_init"); + + function Analyze_File (File : Ghdl_C_String; Len : Natural) + return Integer; + pragma Export (C, Analyze_File, "mhdlsim_vhdl_analyze_file"); + + function Known_Top_Unit return Integer; + pragma Export (C, Known_Top_Unit, "mhdlsim_vhdl_known_top_unit"); + + procedure Elaborate; + pragma Export (C, Elaborate, "mhdlsim_vhdl_elaborate"); + + procedure Run; + pragma Export (C, Run, "mhdlsim_vhdl_run"); +end Mhdlsim; |