From bd04128b033c8a623cceca31de072053837ad888 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Fri, 8 Nov 2013 22:43:54 +0100
Subject: More optimizations.

---
 sched/netlist_parser.mly | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'sched/netlist_parser.mly')

diff --git a/sched/netlist_parser.mly b/sched/netlist_parser.mly
index 1f76528..66b4eab 100644
--- a/sched/netlist_parser.mly
+++ b/sched/netlist_parser.mly
@@ -6,7 +6,7 @@
 	for i = 0 to String.length n - 1 do
 		if n.[i] = '1' then ret.(i) <- true
 	done;
-	VBitArray(ret)
+	ret
 
 %}
 
@@ -56,5 +56,5 @@ arg:
 
 var: x=NAME ty=ty_exp { (x, ty) }
 ty_exp:
-  | /*empty*/ { TBit }
-  | COLON n=INT { TBitArray (int_of_string n) }
+  | /*empty*/ { 1 }
+  | COLON n=INT { int_of_string n }
-- 
cgit v1.2.3