add reference VHPIDIRECT related C sources to data_types/src/external/ghdl

Author: umarcor

vunit/vhdl/data_types/src/external/ghdl/grt.ver

@@ -0,0 +1,16 @@
+VHPIDIRECT {
+  global:
+main;
+oct_main;
+ghdl_main;
+read_char;
+write_char;
+read_integer;
+write_integer;
+set_string_ptr;
+get_string_ptr;
+set_intvec_ptr;
+get_intvec_ptr;
+  local:
+	*;
+};

vunit/vhdl/data_types/src/external/ghdl/stubs.c

@@ -0,0 +1,53 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdint.h>
+
+void set_string_ptr(uint8_t id, uint8_t *p) {
+  printf("ERROR set_string_ptr: THIS IS A STUB\n");
+  exit(1);
+  return;
+}
+
+uintptr_t get_string_ptr(uint8_t id) {
+  printf("ERROR get_string_ptr: THIS IS A STUB\n");
+  exit(1);
+  return NULL;
+}
+
+void write_char( uint8_t id, uint32_t i, uint8_t v ) {
+  printf("ERROR write_char: THIS IS A STUB\n");
+  exit(1);
+  return;
+}
+
+uint8_t read_char( uint8_t id, uint32_t i ) {
+  printf("ERROR read_char: THIS IS A STUB\n");
+  exit(1);
+  return 0;
+}
+
+//---
+
+void set_intvec_ptr(uint8_t id, uint8_t *p) {
+  printf("ERROR set_intvec_ptr: THIS IS A STUB\n");
+  exit(1);
+  return;
+}
+
+uintptr_t get_intvec_ptr(uint8_t id) {
+  printf("ERROR get_intvec_ptr: THIS IS A STUB\n");
+  exit(1);
+  return NULL;
+}
+
+void write_integer(uint8_t id, uint32_t i, int32_t v) {
+  printf("ERROR write_integer: THIS IS A STUB\n");
+  exit(1);
+  return;
+}
+
+int32_t read_integer(uint8_t id, uint32_t i) {
+  printf("ERROR read_integer: THIS IS A STUB\n");
+  exit(1);
+  return 0;
+}

vunit/vhdl/data_types/src/external/ghdl/vhpidirect_user.h

@@ -0,0 +1,49 @@
+#include <stdint.h>
+
+extern int ghdl_main (int argc, char **argv);
+
+uint8_t *D[256];
+
+//---
+
+// External string/byte_vector through access (mode = extacc)
+
+void set_string_ptr(uint8_t id, uintptr_t p) {
+  D[id] = (uint8_t*)p;
+}
+
+uintptr_t get_string_ptr(uint8_t id) {
+  return (uintptr_t)D[id];
+}
+
+// External string/byte_vector through functions (mode = extfnc)
+
+void write_char(uint8_t id, uint32_t i, uint8_t v) {
+  ((uint8_t*)D[id])[i] = v;
+}
+
+uint8_t read_char(uint8_t id, uint32_t i) {
+  return ((uint8_t*)D[id])[i];
+}
+
+//---
+
+// External integer_vector through access (mode = extacc)
+
+void set_intvec_ptr(uint8_t id, uintptr_t p) {
+  D[id] = (uint8_t*)p;
+}
+
+uintptr_t get_intvec_ptr(uint8_t id) {
+  return (uintptr_t)D[id];
+}
+
+// External integer_vector through functions (mode = extfnc)
+
+void write_integer(uint8_t id, uint32_t i, int32_t v) {
+  ((int32_t*)D[id])[i] = v;
+}
+
+int32_t read_integer(uint8_t id, uint32_t i) {
+  return ((int32_t*)D[id])[i];
+}