rajout final_tag (deprecated)

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

stdlib/obj.ml

@@ -41,9 +41,12 @@ let closure_tag = 247
 let object_tag = 248
 let infix_tag = 249
 let forward_tag = 250
+
 let no_scan_tag = 251
+
 let abstract_tag = 251
 let string_tag = 252
 let double_tag = 253
 let double_array_tag = 254
 let custom_tag = 255
+let final_tag = custom_tag

stdlib/obj.mli

@@ -45,6 +45,7 @@ val string_tag : int
 val double_tag : int
 val double_array_tag : int
 val custom_tag : int
+val final_tag : int  (* DEPRECATED *)
 
 (** The following two functions are deprecated.  Use module {!Marshal}
     instead. *)