release/bin-prot / files

     1.1 --- a/Changelog
     1.2 +++ b/Changelog
     1.3 @@ -1,3 +1,5 @@
     1.4 +2010-03-17:  Fixed small name capture bug.
     1.5 +
     1.6  2009-12-21:  Updated contact information.
     1.7  
     1.8  2009-09-19:  Added missing type cases for supporting variant types.

     2.1 --- a/lib/META
     2.2 +++ b/lib/META
     2.3 @@ -1,12 +1,12 @@
     2.4  name = "bin_prot"
     2.5 -version = "1.2.21"
     2.6 +version = "1.2.22"
     2.7  description = "Bin_prot - binary protocol generator"
     2.8  requires = "unix, bigarray"
     2.9  archive(byte) = "bin_prot.cma"
    2.10  archive(native) = "bin_prot.cmxa"
    2.11  
    2.12  package "syntax" (
    2.13 -  version = "1.2.21"
    2.14 +  version = "1.2.22"
    2.15    requires = "bin_prot, type-conv.syntax, camlp4"
    2.16    description = "Syntax extension for binary protocol generator"
    2.17    archive(syntax, preprocessor) = "pa_bin_prot.cmo"

     3.1 --- a/lib/pa_bin_prot.ml
     3.2 +++ b/lib/pa_bin_prot.ml
     3.3 @@ -1219,7 +1219,7 @@
     3.4                  let err_pos4 =
     3.5                    Bin_prot.Unsafe_common.dealloc_sptr_ptr buf sptr_ptr
     3.6                  in
     3.7 -                let err_pos = err_pos4 - 4 in
     3.8 +                let err_pos = Pervasives.(-) err_pos4 4 in
     3.9                  Bin_prot.Common.raise_read_error err err_pos
    3.10              | Bin_prot.Unsafe_read_c.Error err ->
    3.11                  let err_pos =
    3.12 @@ -1239,7 +1239,7 @@
    3.13                  let err_pos4 =
    3.14                    Bin_prot.Unsafe_common.dealloc_sptr_ptr buf sptr_ptr
    3.15                  in
    3.16 -                let err_pos = err_pos4 - 4 in
    3.17 +                let err_pos = Pervasives.(-) err_pos4 4 in
    3.18                  let err =
    3.19                    Bin_prot.Common.ReadError.Variant $str:full_type_name$
    3.20                  in