Commit 87e6655d authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2007-05-16 21:18:46 by afrisch] Empty log message

Original author: afrisch
Date: 2007-05-16 21:18:46+00:00
parent fea61aeb
Since 0.4.1 Since 0.4.1
- Added int_of_char - Added int_of_char
- bug fix: "match 1 with (x := `nil) -> x"
0.4.1 0.4.1
======= =======
......
...@@ -74,6 +74,7 @@ let make_result_basic v (code,r,_) = ...@@ -74,6 +74,7 @@ let make_result_basic v (code,r,_) =
let x = match Array.unsafe_get r a with let x = match Array.unsafe_get r a with
| Catch -> v | Catch -> v
| Const c -> const c | Const c -> const c
| Nil -> nil
| _ -> assert false | _ -> assert false
in in
buf.(!cursor) <- x; buf.(!cursor) <- x;
...@@ -91,6 +92,7 @@ let make_result_char ch (code,r,_) = ...@@ -91,6 +92,7 @@ let make_result_char ch (code,r,_) =
let x = match Array.unsafe_get r a with let x = match Array.unsafe_get r a with
| Catch -> Char ch | Catch -> Char ch
| Const c -> const c | Const c -> const c
| Nil -> nil
| _ -> assert false | _ -> assert false
in in
buf.(!cursor + a) <- x buf.(!cursor + a) <- x
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment