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

Assertions sur le tag 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3021 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-03-30 17:29:29 +00:00
parent 7feb8382c4
commit b20fb9e8fc
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
byterun/alloc.c
View File

@ -34,6 +34,7 @@ value alloc (mlsize_t wosize, tag_t tag)
mlsize_t i;
Assert (wosize > 0);
Assert (tag < 256);
if (wosize <= Max_young_wosize){
Alloc_small (result, wosize, tag);
if (tag < No_scan_tag){
@ -52,6 +53,7 @@ value alloc_small (mlsize_t wosize, tag_t tag)
value result;
Assert (wosize > 0 && wosize <= Max_young_wosize);
Assert (tag < 256);
Alloc_small (result, wosize, tag);
return result;
}