From 6b691bbd2101fd39395c0d2135fd7c06a8915e14 Mon Sep 17 00:00:00 2001
From: Stephane Glondu <steph@glondu.net>
Date: Fri, 24 Dec 2010 11:53:29 +0100
Subject: Imported Upstream version 8.3pl1

---
 test-suite/output/Extraction_matchs_2413.out | 52 ++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 test-suite/output/Extraction_matchs_2413.out

(limited to 'test-suite/output/Extraction_matchs_2413.out')

diff --git a/test-suite/output/Extraction_matchs_2413.out b/test-suite/output/Extraction_matchs_2413.out
new file mode 100644
index 00000000..7bce6671
--- /dev/null
+++ b/test-suite/output/Extraction_matchs_2413.out
@@ -0,0 +1,52 @@
+(** val test1 : bool -> bool **)
+
+let test1 b =
+  b
+(** val test2 : bool -> bool **)
+
+let test2 b =
+  False
+(** val wrong_id : 'a1 hole -> 'a2 hole **)
+
+let wrong_id = function
+  | Hole -> Hole
+  | Hole2 -> Hole2
+(** val test3 : 'a1 option -> 'a1 option **)
+
+let test3 o =
+  o
+(** val test4 : indu -> indu **)
+
+let test4 = function
+  | A m -> A (S m)
+  | x -> x
+(** val test5 : indu -> indu **)
+
+let test5 = function
+  | A m -> A (S m)
+  | _ -> B
+(** val test6 : indu' -> indu' **)
+
+let test6 = function
+  | A' m -> A' (S m)
+  | E' -> B'
+  | F' -> B'
+  | _ -> C'
+(** val test7 : indu -> nat option **)
+
+let test7 = function
+  | 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
-- 
cgit v1.2.3