From 2c277a59a689011c09b1f09f7adaf83f0749858f Mon Sep 17 00:00:00 2001
From: ambikeshwar
Date: Thu, 13 Aug 2015 15:47:36 +0530
Subject: Vhpi_Package.vhdl modified for flexible client server port option

---
 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 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;
-- 
cgit