Merge pull request #29 from rahulp13/master

Updated nghdl

1 files changed, 6 insertions, 10 deletions

diff --git a/src/ghdlserver/Vhpi_Package.vhdl b/src/ghdlserver/Vhpi_Package.vhdl
index 0c0baac..600804c 100755
--- a/src/ghdlserver/Vhpi_Package.vhdl
+++ b/src/ghdlserver/Vhpi_Package.vhdl
@@ -1,4 +1,8 @@
 -- author: Madhav P. Desai
+-- modified: Rahul Paknikar
+--			     -changed procedure of Vhpi_Initialize - 26.Sept.2019
+--           -removed procedure Vhpi_Close - 15.Oct.2019
+
 library ieee;
 use ieee.std_logic_1164.all;
 library work;
@@ -8,12 +12,9 @@ package Vhpi_Foreign is
   -----------------------------------------------------------------------------
   -- foreign Vhpi function
   -----------------------------------------------------------------------------
-  procedure  Vhpi_Initialize(sock_port : in integer);
+  procedure  Vhpi_Initialize(sock_port : in integer; sock_ip : in VhpiString);
   attribute foreign of Vhpi_Initialize : procedure is "VHPIDIRECT Vhpi_Initialize";
   
-  procedure Vhpi_Close; -- close .
-  attribute foreign of Vhpi_Close : procedure is "VHPIDIRECT Vhpi_Close";
-
   procedure Vhpi_Listen;
   attribute foreign of Vhpi_Listen : procedure is "VHPIDIRECT Vhpi_Listen";
 
@@ -36,16 +37,11 @@ package body Vhpi_Foreign is
   -----------------------------------------------------------------------------
   -- subprogram bodies for foreign vhpi routines.  will never be called
   -----------------------------------------------------------------------------
-  procedure  Vhpi_Initialize(sock_port: in integer) is
+  procedure  Vhpi_Initialize(sock_port: in integer; sock_ip : in VhpiString) is
   begin
     assert false  report "fatal: this should never be called" severity failure;
   end Vhpi_Initialize;
   
-  procedure Vhpi_Close is
-  begin
-    assert false  report "fatal: this should never be called" severity failure;
-  end Vhpi_Close;
-
   procedure Vhpi_Listen is
   begin
     assert false  report "fatal: this should never be called" severity failure;