summaryrefslogtreecommitdiff
path: root/test-suite/output
diff options
context:
space:
mode:
authorGravatar Stephane Glondu <steph@glondu.net>2011-04-19 16:44:20 +0200
committerGravatar Stephane Glondu <steph@glondu.net>2011-04-19 16:44:20 +0200
commit9d27ae09786866b6e3d7b79d1fa7667e5e2aa309 (patch)
treea418d1edb3d53cdb4185b9719b7a70822cf5a24d /test-suite/output
parent6b691bbd2101fd39395c0d2135fd7c06a8915e14 (diff)
Imported Upstream version 8.3.pl2upstream/8.3.pl2
Diffstat (limited to 'test-suite/output')
-rw-r--r--test-suite/output/Extraction_matchs_2413.out38
1 files changed, 19 insertions, 19 deletions
diff --git a/test-suite/output/Extraction_matchs_2413.out b/test-suite/output/Extraction_matchs_2413.out
index 7bce6671..848abd00 100644
--- a/test-suite/output/Extraction_matchs_2413.out
+++ b/test-suite/output/Extraction_matchs_2413.out
@@ -9,8 +9,8 @@ let test2 b =
(** val wrong_id : 'a1 hole -> 'a2 hole **)
let wrong_id = function
- | Hole -> Hole
- | Hole2 -> Hole2
+| Hole -> Hole
+| Hole2 -> Hole2
(** val test3 : 'a1 option -> 'a1 option **)
let test3 o =
@@ -18,35 +18,35 @@ let test3 o =
(** val test4 : indu -> indu **)
let test4 = function
- | A m -> A (S m)
- | x -> x
+| A m -> A (S m)
+| x -> x
(** val test5 : indu -> indu **)
let test5 = function
- | A m -> A (S m)
- | _ -> B
+| A m -> A (S m)
+| _ -> B
(** val test6 : indu' -> indu' **)
let test6 = function
- | A' m -> A' (S m)
- | E' -> B'
- | F' -> B'
- | _ -> C'
+| A' m -> A' (S m)
+| E' -> B'
+| F' -> B'
+| _ -> C'
(** val test7 : indu -> nat option **)
let test7 = function
- | A m -> Some m
- | _ -> None
+| A m -> Some m
+| _ -> None
(** val decode_cond_mode :
(word -> opcode option) -> (word -> 'a1 decoder_result) -> word -> ('a1
-> opcode -> 'a2) -> 'a2 decoder_result **)
let decode_cond_mode condition f w g =
match condition w with
- | Some oc ->
- (match f w with
- | DecUndefined -> DecUndefined
- | DecUnpredictable -> DecUnpredictable
- | DecInst i -> DecInst (g i oc)
- | DecError m -> DecError m)
- | None -> DecUndefined
+ | Some oc ->
+ (match f w with
+ | DecUndefined -> DecUndefined
+ | DecUnpredictable -> DecUnpredictable
+ | DecInst i -> DecInst (g i oc)
+ | DecError m -> DecError m)
+ | None -> DecUndefined