diff options
author | Marlon James <marlon.james@gmail.com> | 2021-03-03 10:33:56 -0800 |
---|---|---|
committer | tgingold <tgingold@users.noreply.github.com> | 2021-03-04 07:49:28 +0100 |
commit | 783cbac7ba4c14aa7e27f28755dccd7e4ee4d54e (patch) | |
tree | 929ab92aac895ec39b5e7780e1fe8cea3edf3be1 /scripts/windows/mcode | |
parent | a03aedddf650f923b06ebacb441a713930cd63e1 (diff) | |
download | ghdl-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.bat | 3 | ||||
-rw-r--r-- | scripts/windows/mcode/grt-modules.adb | 2 |
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; |