From 770906ba0db3c6567dbbc379c5634078257643dd Mon Sep 17 00:00:00 2001
From: Maciej Suminski <maciej.suminski@cern.ch>
Date: Tue, 1 Mar 2016 11:45:12 +0100
Subject: [PATCH] vhdlpp: Write binary constants as a string of bits.

---
 vpi/vhdl_textio.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/vpi/vhdl_textio.c b/vpi/vhdl_textio.c
index 7235d316c..3892ef5b7 100644
--- a/vpi/vhdl_textio.c
+++ b/vpi/vhdl_textio.c
@@ -861,11 +861,14 @@ static PLI_INT32 ivlh_write_calltf(ICARUS_VPI_CONST PLI_BYTE8*name)
                 break;
 
             case vpiDecConst:
-            case vpiBinaryConst:
             case vpiOctConst:
             case vpiHexConst:
                 type = vpiIntVar;
                 break;
+
+            case vpiBinaryConst:
+                type = vpiBitVar;
+                break;
         }
     }