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

Fix for Windows following merge of GPR#22.

master
alainfrisch 2016-01-27 22:47:31 +01:00
parent 3f9442604c
commit 3878b84d8b
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
byterun/caml/minor_gc.h
View File

@ -77,11 +77,12 @@ static inline void add_to_ref_table (struct caml_ref_table *tbl, value *p)
static inline void add_to_ephe_ref_table (struct caml_ephe_ref_table *tbl,
value ar, mlsize_t offset)
{
struct caml_ephe_ref_elt *ephe_ref;
if (tbl->ptr >= tbl->limit){
CAMLassert (tbl->ptr == tbl->limit);
caml_realloc_ephe_ref_table (tbl);
}
struct caml_ephe_ref_elt *ephe_ref = tbl->ptr++;
ephe_ref = tbl->ptr++;
ephe_ref->ephe = ar;
ephe_ref->offset = offset;
}

2
byterun/minor_gc.c
View File

@ -49,7 +49,7 @@
native code, or [caml_young_trigger].
*/
struct generic_table CAML_TABLE_STRUCT(void);
struct generic_table CAML_TABLE_STRUCT(char);
asize_t caml_minor_heap_wsz;
static void *caml_young_base = NULL;