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

Bug dans output_value_to_malloc 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3260 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-07-28 12:23:25 +00:00
parent f410178e5e
commit eb924a201f
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
byterun/extern.c
View File

@ -452,9 +452,11 @@ value output_value_to_buffer(value buf, value ofs, value len, value v, value fla
void output_value_to_malloc(value v, value flags,
/*out*/ char ** buf, /*out*/ long * len)
{
long len_res;
alloc_extern_block();
len_res = extern_value(v, flags);
*buf = extern_block;
*len = extern_value(v, flags);
*len = len_res;
}
/* Functions for writing user-defined marshallers */