Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Solution plus simple au probleme precedent, qui d'ailleurs est le PR#1458 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5191 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-10-26 13:33:43 +00:00
parent c9276f64c5
commit 21055e43df
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
otherlibs/threads/marshal.ml
View File

@ -54,11 +54,4 @@ let from_string buff ofs =
else from_string_unsafe buff ofs else from_string_unsafe buff ofs
end end
let from_channel ic = let from_channel = Pervasives.input_value
let header = String.create header_size in
really_input ic header 0 header_size;
let buff_size = data_size header 0 in
let buff = String.create (header_size + buff_size) in
String.blit header 0 buff 0 header_size;
really_input ic buff 20 buff_size;
from_string_unsafe buff 0