From e78802739247d120d6694993675e5a2a1cd6debb Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Thu, 7 Nov 2013 11:05:54 +0100
Subject: Correction to netlist parser (not taken into account in the caml
 simulator, which is kind of abandonned).

---
 sched/netlist_lexer.mll | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sched/netlist_lexer.mll')

diff --git a/sched/netlist_lexer.mll b/sched/netlist_lexer.mll
index 78b0410..60cb223 100644
--- a/sched/netlist_lexer.mll
+++ b/sched/netlist_lexer.mll
@@ -29,7 +29,7 @@ rule token = parse
   | "="            { EQUAL }
   | ":"            { COLON }
   | ","            { COMMA }
-  | ['0'-'9']+ as lxm { INT(int_of_string lxm) }
+  | ['0'-'9']+ as lxm { INT(lxm) }
   | ('_' ? ['A'-'Z' 'a'-'z']('_' ? ['A'-'Z' 'a'-'z' ''' '0'-'9']) * as id)
       { let s = Lexing.lexeme lexbuf in
         try List.assoc s keyword_list
-- 
cgit v1.2.3