SumiTomohiko¤ÎWiki

• ocaml-3.11.0/byterun/globroots.c

/* The sets of global memory roots are represented as skip lists
   (see William Pugh, "Skip lists: a probabilistic alternative to
   balanced binary trees", Comm. ACM 33(6), 1990). */

¥°¥í¡¼¥Ð¥ë¤Ê¥á¥â¥ê¤Î¥ë¡¼¥È¤Ï¡¢¥¹¥­¥Ã¥×¥ê¥¹¥È¤Çɽ¸½¤µ¤ì¤ë (ftp://ftp.cs.umd.edu/pub/skipLists/skiplists.pdf) ¡£

struct global_root {
  value * root;                    /* the address of the root */
  struct global_root * forward[1]; /* variable-length array */
};