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

Renvoyer le resultat de weak_create... 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1342 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-03-08 12:16:01 +00:00
parent 7ae6388a94
commit 5890667e66
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
byterun/weak.c
View File

@ -32,6 +32,7 @@ value weak_create (len) /* ML */
for (i = 1; i < size; i++) Field (res, i) = 0; for (i = 1; i < size; i++) Field (res, i) = 0;
Field (res, 0) = weak_list_head; Field (res, 0) = weak_list_head;
weak_list_head = res; weak_list_head = res;
return res;
} }
#define None_val 1 #define None_val 1