aboutsummaryrefslogtreecommitdiffstats
path: root/scripts/windows/mcode
diff options
context:
space:
mode:
authorMarlon James <marlon.james@gmail.com>2021-03-03 10:33:56 -0800
committertgingold <tgingold@users.noreply.github.com>2021-03-04 07:49:28 +0100
commit783cbac7ba4c14aa7e27f28755dccd7e4ee4d54e (patch)
tree929ab92aac895ec39b5e7780e1fe8cea3edf3be1 /scripts/windows/mcode
parenta03aedddf650f923b06ebacb441a713930cd63e1 (diff)
downloadghdl-783cbac7ba4c14aa7e27f28755dccd7e4ee4d54e.tar.gz
ghdl-783cbac7ba4c14aa7e27f28755dccd7e4ee4d54e.tar.bz2
ghdl-783cbac7ba4c14aa7e27f28755dccd7e4ee4d54e.zip
VHPI: add initial minimal implementation
Minimal implementation of VHPI provides library loading and error support. Calling most vhpi_* functions will raise a VHPI error condition. Incorporates VHPI thunks into libghdlvpi for linking.
Diffstat (limited to 'scripts/windows/mcode')
-rw-r--r--scripts/windows/mcode/compile.bat3
-rw-r--r--scripts/windows/mcode/grt-modules.adb2
2 files changed, 5 insertions, 0 deletions
diff --git a/scripts/windows/mcode/compile.bat b/scripts/windows/mcode/compile.bat
index 9a1825e46..2e50f624a 100644
--- a/scripts/windows/mcode/compile.bat
+++ b/scripts/windows/mcode/compile.bat
@@ -10,6 +10,9 @@ if errorlevel 1 goto failed
gcc -c %CFLAGS% ../../../src/grt/grt-cvpi.c
if errorlevel 1 goto failed
+gcc -c %CFLAGS% ../../../src/grt/grt-cvhpi.c
+if errorlevel 1 goto failed
+
gcc -c %CFLAGS% ../../../src/grt/config/clock.c
if errorlevel 1 goto failed
diff --git a/scripts/windows/mcode/grt-modules.adb b/scripts/windows/mcode/grt-modules.adb
index bbe36e7a9..70f7fca04 100644
--- a/scripts/windows/mcode/grt-modules.adb
+++ b/scripts/windows/mcode/grt-modules.adb
@@ -16,6 +16,7 @@
with System.Storage_Elements; -- Work around GNAT bug.
with Grt.Vcd;
with Grt.Vpi;
+with Grt.Vhpi;
with Grt.Waves;
with Grt.Vital_Annotate;
with Grt.Disp_Tree;
@@ -30,6 +31,7 @@ package body Grt.Modules is
Grt.Vcd.Register;
Grt.Waves.Register;
Grt.Vpi.Register;
+ Grt.Vhpi.Register;
Grt.Vital_Annotate.Register;
Grt.Disp_Rti.Register;
Grt.Backtraces.Register;