diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2001-12-13 13:12:04 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2001-12-13 13:12:04 +0000 |
| commit | b511be714ee7cb0898a011140de7b0e22852374f (patch) | |
| tree | 71fdb7c97cd8d533711451be355b63c6c8c4e68a /byterun/gc.h | |
| parent | fe44fd07607b61a5a38e98676e0cf4e27730c82e (diff) | |
bug dans les assert du code de debug...
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4162 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'byterun/gc.h')
| -rw-r--r-- | byterun/gc.h | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/byterun/gc.h b/byterun/gc.h index 62af51a90..5cafcd630 100644 --- a/byterun/gc.h +++ b/byterun/gc.h @@ -26,6 +26,7 @@ #define Color_hd(hd) ((color_t) ((hd) & Caml_black)) #define Color_hp(hp) Color_hd (Hd_hp (hp)) +#define Color_val(val) (Color_hd (Hd_val (val))) #define Is_white_hd(hd) (Color_hd (hd) == Caml_white) #define Is_gray_hd(hd) (Color_hd (hd) == Caml_gray) @@ -43,8 +44,6 @@ + (color) \ + (tag_t) (tag))) -#define Color_val(val) (Color_hd (Hd_val (val))) - #define Is_white_val(val) (Color_val(val) == Caml_white) #define Is_gray_val(val) (Color_val(val) == Caml_gray) #define Is_blue_val(val) (Color_val(val) == Caml_blue) |