quickstart/sharedvar Example (Set Package shared variable)

.github/workflows/test.yml

@@ -21,6 +21,7 @@ jobs:
             quickstart/random,
             quickstart/math,
             quickstart/customc,
+            quickstart/sharedvar,
             wrapping/basic,
             wrapping/time,
             linking/bind,

vhpidirect/quickstart/sharedvar/ent1.vhd

@@ -0,0 +1,16 @@
+use work.pkg.all;
+
+entity ent1 is
+end ent1;
+
+architecture rtl of ent1 is
+begin
+    process
+    begin
+        report "Entity1 setting c_Var to 1." severity note;
+        c_Var.all := 1;
+        c_printVar;
+        wait;        
+    end process ;
+end rtl ; -- rtl
+

vhpidirect/quickstart/sharedvar/ent2.vhd

@@ -0,0 +1,16 @@
+use work.pkg.all;
+
+entity ent2 is
+end ent2;
+
+architecture rtl of ent2 is
+begin
+    process
+    begin
+        report "Entity2 setting c_Var to 2." severity note;
+        c_Var.all := 2;        
+        c_printVar;
+        wait;
+    end process ;
+end rtl ; -- rtl
+

vhpidirect/quickstart/sharedvar/main.c

@@ -0,0 +1,11 @@
+#include<stdio.h>
+
+int var;
+
+int* getInt_ptr(){
+    return &var;
+}
+
+void printInt(){
+    printf("C-side print of int: %d\n", var);
+}

vhpidirect/quickstart/sharedvar/pkg.vhd

@@ -0,0 +1,21 @@
+package pkg is
+	type int_ptr is access integer;
+
+	function c_Int_ptr return int_ptr;
+		attribute foreign of c_Int_ptr : function is "VHPIDIRECT getInt_ptr";
+	procedure c_printVar;
+		attribute foreign of c_printVar : procedure is "VHPIDIRECT printInt";
+
+	shared variable c_Var : int_ptr := c_Int_ptr;	
+end package pkg;
+
+package body pkg is
+	function c_Int_ptr return int_ptr is
+	begin
+		assert false report "c_Int_ptr VHPI" severity failure;
+	end;
+	procedure c_printVar is
+	begin
+		assert false report "c_printVar VHPI" severity failure;
+	end;
+end package body pkg;

vhpidirect/quickstart/sharedvar/run.sh

@@ -0,0 +1,14 @@
+#!/usr/bin/env sh
+
+set -e
+
+cd $(dirname "$0")
+
+echo "Analyze pkg.vhd ent1.vhd ent2.vhd tb.vhd"
+ghdl -a pkg.vhd ent1.vhd ent2.vhd tb.vhd
+
+echo "Build tb with main.c"
+ghdl -e -Wl,main.c tb
+
+echo "Execute tb"
+./tb

vhpidirect/quickstart/sharedvar/tb.vhd

@@ -0,0 +1,22 @@
+use work.pkg.all;
+
+entity tb is
+end tb;
+
+architecture arch of tb is
+	component ent1
+	end component ent1;
+	component ent2
+	end component ent2;
+begin
+
+  entA : component ent1;
+  entB : component ent2;
+
+  process
+  begin
+    report "Testbench." severity note;
+    wait;
+  end process;
+
+end;