[cairo-commit] cairo-ocaml/src ml_cairo_wrappers.h, 1.3, 1.4 ml_cairo.c, 1.10, 1.11 cairo.mli, 1.8, 1.9

[Olivier Andrieu]

Committed by: oandrieu

Update of /cvs/cairo/cairo-ocaml/src
In directory pdx:/tmp/cvs-serv12018/src

Modified Files:
	ml_cairo_wrappers.h ml_cairo.c cairo.mli 
Log Message:
2004-06-18  Olivier Andrieu  <oliv__a at users.sourceforge.net>

	* src/cairo.mli: doc formatting

	* src/ml_cairo.c, src/ml_cairo_wrappers.h: silence compiler
	warnings


Index: ml_cairo_wrappers.h
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ml_cairo_wrappers.h,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ml_cairo_wrappers.h	27 Feb 2004 23:05:28 -0000	1.3
--- ml_cairo_wrappers.h	18 Jun 2004 13:50:29 -0000	1.4
***************
*** 1,3 ****
--- 1,4 ----
  #define Pointer_val(val) ((void*)Field(val,1))
+ #define Store_pointer(val, p) (Field(val, 1)=Val_bp(p))
  
  #define Make_Val_final_pointer(type, init, final, adv) \

Index: ml_cairo.c
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ml_cairo.c,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** ml_cairo.c	15 Apr 2004 23:59:37 -0000	1.10
--- ml_cairo.c	18 Jun 2004 13:50:29 -0000	1.11
***************
*** 1109,1113 ****
    cairo_surface_t *surf = cairo_surface_t_val(s);
    cairo_surface_destroy(surf);
!   cairo_surface_t_val(s) = NULL;
    return Val_unit;
  }
--- 1109,1113 ----
    cairo_surface_t *surf = cairo_surface_t_val(s);
    cairo_surface_destroy(surf);
!   Store_pointer(s, NULL);
    return Val_unit;
  }

Index: cairo.mli
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/cairo.mli,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** cairo.mli	15 Apr 2004 23:59:37 -0000	1.8
--- cairo.mli	18 Jun 2004 13:50:29 -0000	1.9
***************
*** 268,271 ****
--- 268,272 ----
  
  (** {4 Pattern functions} *)
+ 
  external pattern_create_for_surface : surface -> pattern = "ml_cairo_pattern_create_for_surface"