diff options
| author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-07 11:05:54 +0100 |
|---|---|---|
| committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2013-11-07 11:05:54 +0100 |
| commit | e78802739247d120d6694993675e5a2a1cd6debb (patch) | |
| tree | 719e659b286fddaacf3de40d7679d4062711961d /sched/netlist_lexer.mll | |
| parent | f57717d1a662d519515d5431198709bcb703b8dd (diff) | |
| download | SystDigit-Projet-e78802739247d120d6694993675e5a2a1cd6debb.tar.gz SystDigit-Projet-e78802739247d120d6694993675e5a2a1cd6debb.zip | |
Correction to netlist parser (not taken into account in the caml simulator, which is kind of abandonned).
Diffstat (limited to 'sched/netlist_lexer.mll')
| -rw-r--r-- | sched/netlist_lexer.mll | 2 |
1 files changed, 1 insertions, 1 deletions
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 |