From 7852873cf0bc8b8082ea847a868ab84930163667 Mon Sep 17 00:00:00 2001
From: rahul
Date: Thu, 26 Sep 2019 15:21:18 +0530
Subject: multiple instances (static ip)

---
 src/ghdlserver/Vhpi_Package.vhdl | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src/ghdlserver/Vhpi_Package.vhdl')

diff --git a/src/ghdlserver/Vhpi_Package.vhdl b/src/ghdlserver/Vhpi_Package.vhdl
index 0c0baac..5d3db8d 100755
--- a/src/ghdlserver/Vhpi_Package.vhdl
+++ b/src/ghdlserver/Vhpi_Package.vhdl
@@ -1,4 +1,7 @@
 -- author: Madhav P. Desai
+-- modified: Rahul Paknikar
+--			     (changed definition of Vhpi_Initialize)
+
 library ieee;
 use ieee.std_logic_1164.all;
 library work;
@@ -8,7 +11,7 @@ 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 .
@@ -36,7 +39,7 @@ 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;
-- 
cgit 


From d8fccdec26e2233f4d013bb6516b785892eb0ea4 Mon Sep 17 00:00:00 2001
From: rahul
Date: Fri, 27 Sep 2019 15:07:17 +0530
Subject: adjusted layout

---
 src/ghdlserver/Vhpi_Package.vhdl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/ghdlserver/Vhpi_Package.vhdl')

diff --git a/src/ghdlserver/Vhpi_Package.vhdl b/src/ghdlserver/Vhpi_Package.vhdl
index 5d3db8d..77e0f3b 100755
--- a/src/ghdlserver/Vhpi_Package.vhdl
+++ b/src/ghdlserver/Vhpi_Package.vhdl
@@ -1,6 +1,6 @@
 -- author: Madhav P. Desai
--- modified: Rahul Paknikar
---			     (changed definition of Vhpi_Initialize)
+-- modified: Rahul Paknikar (26.Sept.2019)
+--			 (changed definition of Vhpi_Initialize)
 
 library ieee;
 use ieee.std_logic_1164.all;
-- 
cgit 


From 0b2a123b6ea6c3d09fae9fb054849432373794cf Mon Sep 17 00:00:00 2001
From: rahul
Date: Tue, 15 Oct 2019 16:46:04 +0530
Subject: blocking socket

---
 src/ghdlserver/Vhpi_Package.vhdl | 13 +++----------
 1 file changed, 3 insertions(+), 10 deletions(-)

(limited to 'src/ghdlserver/Vhpi_Package.vhdl')

diff --git a/src/ghdlserver/Vhpi_Package.vhdl b/src/ghdlserver/Vhpi_Package.vhdl
index 77e0f3b..600804c 100755
--- a/src/ghdlserver/Vhpi_Package.vhdl
+++ b/src/ghdlserver/Vhpi_Package.vhdl
@@ -1,6 +1,7 @@
 -- author: Madhav P. Desai
--- modified: Rahul Paknikar (26.Sept.2019)
---			 (changed definition of Vhpi_Initialize)
+-- 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;
@@ -14,9 +15,6 @@ package Vhpi_Foreign is
   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";
 
@@ -44,11 +42,6 @@ package body Vhpi_Foreign is
     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;
-- 
cgit