6 #include "sim_vhpi_c.h"
19 struct int_bounds
*bounds
;
22 char *from_string(void *__p
)
24 struct fat_pointer
*p
= __p
;
25 unsigned long len
= p
->bounds
->len
;
34 memcpy(m
, p
->base
, len
);
40 uint64_t from_std_logic_vector(unsigned char *p
, unsigned long len
)
42 unsigned long ret
= 0;
45 fprintf(stderr
, "%s: invalid length %lu\n", __func__
, len
);
49 for (unsigned long i
= 0; i
< len
; i
++) {
54 } else if (*p
== vhpi1
) {
57 fprintf(stderr
, "%s: bad bit %d\n", __func__
, *p
);
61 ret
= (ret
<< 1) | bit
;
68 void to_std_logic_vector(unsigned long val
, unsigned char *p
,
72 fprintf(stderr
, "%s: invalid length %lu\n", __func__
, len
);
76 for (unsigned long i
= 0; i
< len
; i
++) {
77 if ((val
>> (len
-1-i
) & 1))