move to accarrayint

vhpidirect/cinterface/accarrayvar/cAccess.vhd → vhpidirect/cinterface/accarrayint/cAccess.vhd

@@ -1,44 +1,44 @@
-library ieee;
-use ieee.std_logic_1164.all;
-
-package cAccess is
-
-	type int_ptr is access integer; -- represented C-side with int
-	function c_intArrSize return integer; -- represented C-side with int*
-		attribute foreign of c_intArrSize :
-		function is "VHPIDIRECT getIntArrSize"; -- getIntArrSize is the C-side function name
-
-	shared variable c_sizeInt : integer := c_intArrSize;
-
-	type int_arr is array(0 to c_sizeInt-1) of integer;
-	type int_arr_ptr is access int_arr; -- represented C-side with int*
-
-
-	function c_intArr_ptr return int_arr_ptr;
-		attribute foreign of c_intArr_ptr :
-		function is "VHPIDIRECT getIntArr_ptr";
-
-	procedure c_freeIntArray;
-		attribute foreign of c_freeIntArray :
-		procedure is "VHPIDIRECT freeIntArray";
-
-	shared variable c_intArr : int_arr_ptr := c_intArr_ptr;
-end package cAccess;
-
-package body cAccess is
-
-	function c_intArrSize return integer is
-	begin
-		assert false report "c_intArrSize VHPI" severity failure;
-	end c_intArrSize;
-
-	function c_intArr_ptr return int_arr_ptr is
-	begin
-		assert false report "c_intArr_ptr VHPI" severity failure;
-	end c_intArr_ptr;
-
-	procedure c_freeIntArray is
-	begin
-		assert false report "c_freeIntArray VHPI" severity failure;
-	end c_freeIntArray;
-end package body cAccess;
+library ieee;
+use ieee.std_logic_1164.all;
+
+package cAccess is
+
+	type int_ptr is access integer; -- represented C-side with int
+	function c_intArrSize return integer; -- represented C-side with int*
+		attribute foreign of c_intArrSize :
+		function is "VHPIDIRECT getIntArrSize"; -- getIntArrSize is the C-side function name
+
+	shared variable c_sizeInt : integer := c_intArrSize;
+
+	type int_arr is array(0 to c_sizeInt-1) of integer;
+	type int_arr_ptr is access int_arr; -- represented C-side with int*
+
+
+	function c_intArr_ptr return int_arr_ptr;
+		attribute foreign of c_intArr_ptr :
+		function is "VHPIDIRECT getIntArr_ptr";
+
+	procedure c_freeIntArray;
+		attribute foreign of c_freeIntArray :
+		procedure is "VHPIDIRECT freeIntArray";
+
+	shared variable c_intArr : int_arr_ptr := c_intArr_ptr;
+end package cAccess;
+
+package body cAccess is
+
+	function c_intArrSize return integer is
+	begin
+		assert false report "c_intArrSize VHPI" severity failure;
+	end c_intArrSize;
+
+	function c_intArr_ptr return int_arr_ptr is
+	begin
+		assert false report "c_intArr_ptr VHPI" severity failure;
+	end c_intArr_ptr;
+
+	procedure c_freeIntArray is
+	begin
+		assert false report "c_freeIntArray VHPI" severity failure;
+	end c_freeIntArray;
+end package body cAccess;

vhpidirect/cinterface/accarrayvar/cSharedVar.c → vhpidirect/cinterface/accarrayint/cSharedVar.c

@@ -1,23 +1,23 @@
-#include "cSharedVar.h"
-
-int getIntArrSize(){//function acts like a constructor so initialise the variable
-    sizeInt = 5;
-    return sizeInt;
-}
-
-int* getIntArr_ptr(){//function acts like a constructor so initialise the variable
-    intArray = malloc(sizeInt*sizeof(int));
-    for (int i = 0; i < sizeInt; i++)
-    {
-        intArray[i] = 11*(i+1);
-    }
-    return intArray;
-}
-
-void freeIntArray(){
-    for (int i = 0; i < sizeInt; i++)
-    {
-        printf("intArray[%d] = %d\n", i, intArray[i]);
-    }
-    free(intArray);
+#include "cSharedVar.h"
+
+int getIntArrSize(){//function acts like a constructor so initialise the variable
+    sizeInt = 5;
+    return sizeInt;
+}
+
+int* getIntArr_ptr(){//function acts like a constructor so initialise the variable
+    intArray = malloc(sizeInt*sizeof(int));
+    for (int i = 0; i < sizeInt; i++)
+    {
+        intArray[i] = 11*(i+1);
+    }
+    return intArray;
+}
+
+void freeIntArray(){
+    for (int i = 0; i < sizeInt; i++)
+    {
+        printf("intArray[%d] = %d\n", i, intArray[i]);
+    }
+    free(intArray);
 }

vhpidirect/cinterface/accarrayvar/cSharedVar.h → vhpidirect/cinterface/accarrayint/cSharedVar.h

@@ -1,9 +1,9 @@
-#include <stdio.h>
-#include <malloc.h>
-
-int sizeInt;
-int getIntArrSize();
-
-int* intArray;
-int* getIntArray_ptr();
+#include <stdio.h>
+#include <malloc.h>
+
+int sizeInt;
+int getIntArrSize();
+
+int* intArray;
+int* getIntArray_ptr();
 void freeIntArray();

vhpidirect/cinterface/accarrayvar/tb.vhd → vhpidirect/cinterface/accarrayint/tb.vhd

@@ -1,27 +1,27 @@
-library ieee;
-use ieee.std_logic_1164.all;
-use ieee.numeric_std.all;
-
-use work.cAccess.all;
-
-entity tb is
-end entity tb;
-
-architecture RTL of tb is
-
-begin
-
-	process
-	begin		
-		report "Array length: " & integer'image(c_intArr.all'length);
-
-		for i in 0 to c_intArr.all'right loop
-			report "c_intArr[" & integer'image(i) &"] = " &  integer'image(c_intArr.all(i)) & ". Set to: " & integer'image(-2*c_intArr.all(i));
-			c_intArr.all(i) := -2*c_intArr.all(i);
-		end loop;
-
-		c_freeIntArray;
-		wait;
-	end process;
-
-end architecture RTL;
+library ieee;
+use ieee.std_logic_1164.all;
+use ieee.numeric_std.all;
+
+use work.cAccess.all;
+
+entity tb is
+end entity tb;
+
+architecture RTL of tb is
+
+begin
+
+	process
+	begin		
+		report "Array length: " & integer'image(c_intArr.all'length);
+
+		for i in 0 to c_intArr.all'right loop
+			report "c_intArr[" & integer'image(i) &"] = " &  integer'image(c_intArr.all(i)) & ". Set to: " & integer'image(-2*c_intArr.all(i));
+			c_intArr.all(i) := -2*c_intArr.all(i);
+		end loop;
+
+		c_freeIntArray;
+		wait;
+	end process;
+
+end architecture RTL;