diff options
author | Mark Shinwell <mshinwell@janestreet.com> | 2015-05-06 18:44:50 +0000 |
---|---|---|
committer | Mark Shinwell <mshinwell@janestreet.com> | 2015-05-06 18:44:50 +0000 |
commit | 66be34d1af1d2ca5feede437156d118bbf97283c (patch) | |
tree | fc116fdaab5bfe1154e1ef2c16fd82c6e843a0e2 /stdlib/obj.ml | |
parent | f1f28e10ae4f7b76e7b92a2e72ce1fb8a33d86a9 (diff) | |
download | ocaml-66be34d1af1d2ca5feede437156d118bbf97283c.tar.gz |
Fix PR#6834: Add Obj.{first,last}_non_constant_constructor_tag
git-svn-id: http://caml.inria.fr/svn/ocaml/version/4.02@16094 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/obj.ml')
-rw-r--r-- | stdlib/obj.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/stdlib/obj.ml b/stdlib/obj.ml index ac9695cdb8..5cb970b8e4 100644 --- a/stdlib/obj.ml +++ b/stdlib/obj.ml @@ -37,6 +37,9 @@ let marshal (obj : t) = let unmarshal str pos = (Marshal.from_bytes str pos, pos + Marshal.total_size str pos) +let first_non_constant_constructor_tag = 0 +let last_non_constant_constructor_tag = 245 + let lazy_tag = 246 let closure_tag = 247 let object_tag = 248 |