diff options
| author | ambikeshwar | 2015-08-13 15:47:36 +0530 |
|---|---|---|
| committer | ambikeshwar | 2015-08-13 15:47:36 +0530 |
| commit | 2c277a59a689011c09b1f09f7adaf83f0749858f (patch) | |
| tree | 622083bbecf482bbf2c9d297ca4b28c5bd6dce58 /src/ghdlserver/Vhpi_Package.vhdl | |
| parent | 7db80ad75fc9b1e2444fdf8626d58f3241e60c1b (diff) | |
| download | nghdl-2c277a59a689011c09b1f09f7adaf83f0749858f.tar.gz nghdl-2c277a59a689011c09b1f09f7adaf83f0749858f.tar.bz2 nghdl-2c277a59a689011c09b1f09f7adaf83f0749858f.zip | |
Vhpi_Package.vhdl modified for flexible client server port option
Diffstat (limited to 'src/ghdlserver/Vhpi_Package.vhdl')
| -rwxr-xr-x | src/ghdlserver/Vhpi_Package.vhdl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ghdlserver/Vhpi_Package.vhdl b/src/ghdlserver/Vhpi_Package.vhdl index febc00b..0c0baac 100755 --- a/src/ghdlserver/Vhpi_Package.vhdl +++ b/src/ghdlserver/Vhpi_Package.vhdl @@ -8,7 +8,7 @@ package Vhpi_Foreign is ----------------------------------------------------------------------------- -- foreign Vhpi function ----------------------------------------------------------------------------- - procedure Vhpi_Initialize; + procedure Vhpi_Initialize(sock_port : in integer); attribute foreign of Vhpi_Initialize : procedure is "VHPIDIRECT Vhpi_Initialize"; procedure Vhpi_Close; -- close . @@ -36,7 +36,7 @@ package body Vhpi_Foreign is ----------------------------------------------------------------------------- -- subprogram bodies for foreign vhpi routines. will never be called ----------------------------------------------------------------------------- - procedure Vhpi_Initialize is + procedure Vhpi_Initialize(sock_port: in integer) is begin assert false report "fatal: this should never be called" severity failure; end Vhpi_Initialize; |