From 78315ea89cf1541d09d4e3db343a0e484e78640b Mon Sep 17 00:00:00 2001
From: Gabriel Scherer <gabriel.scherer@gmail.com>
Date: May 12 2014 15:38:43 +0000
Subject: fix Tests.ml{,.principal}.reference


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14845 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

---

diff --git a/testsuite/tests/typing-objects/Tests.ml.principal.reference b/testsuite/tests/typing-objects/Tests.ml.principal.reference
index 1a01585..4821b58 100644
--- a/testsuite/tests/typing-objects/Tests.ml.principal.reference
+++ b/testsuite/tests/typing-objects/Tests.ml.principal.reference
@@ -295,12 +295,12 @@ Warning 10: this expression should have type unit.
   unit -> object method private m : int method n : int method o : int end
 #   - : int * int = (1, 1)
 #   class c : unit -> object method m : int end
-#       - : int = 99
-# - : int = 100
+#       - : int = 100
 # - : int = 101
-#         - : int * int * int = (102, 103, 104)
-#           - : int * int * int * int * int = (105, 106, 107, 33, 33)
-#           - : int * int * int * int * int = (108, 109, 110, 33, 33)
+# - : int = 102
+#         - : int * int * int = (103, 104, 105)
+#           - : int * int * int * int * int = (106, 107, 108, 33, 33)
+#           - : int * int * int * int * int = (109, 110, 111, 33, 33)
 #         Characters 42-69:
   class a = let _ = new b in object end
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^
diff --git a/testsuite/tests/typing-objects/Tests.ml.reference b/testsuite/tests/typing-objects/Tests.ml.reference
index 70c0511..25ab6d8 100644
--- a/testsuite/tests/typing-objects/Tests.ml.reference
+++ b/testsuite/tests/typing-objects/Tests.ml.reference
@@ -294,12 +294,12 @@ Warning 10: this expression should have type unit.
   unit -> object method private m : int method n : int method o : int end
 #   - : int * int = (1, 1)
 #   class c : unit -> object method m : int end
-#       - : int = 99
-# - : int = 100
+#       - : int = 100
 # - : int = 101
-#         - : int * int * int = (102, 103, 104)
-#           - : int * int * int * int * int = (105, 106, 107, 33, 33)
-#           - : int * int * int * int * int = (108, 109, 110, 33, 33)
+# - : int = 102
+#         - : int * int * int = (103, 104, 105)
+#           - : int * int * int * int * int = (106, 107, 108, 33, 33)
+#           - : int * int * int * int * int = (109, 110, 111, 33, 33)
 #         Characters 42-69:
   class a = let _ = new b in object end
             ^^^^^^^^^^^^^^^^^^^^^^^^^^^