[cairo-commit] cairo-ocaml/src ml_cairo.c,1.2,1.3

[Olivier Andrieu]

Committed by: oandrieu

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

Modified Files:
	ml_cairo.c 
Log Message:
forgot some Double_array_tag

Index: ml_cairo.c
===================================================================
RCS file: /cvs/cairo/cairo-ocaml/src/ml_cairo.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ml_cairo.c	18 Nov 2003 19:14:32 -0000	1.2
--- ml_cairo.c	22 Nov 2003 15:27:06 -0000	1.3
***************
*** 12,22 ****
  #include "ml_cairo.h"
  
! Make_Val_final_pointer(cairo_t, Ignore, cairo_destroy, 50)
  #define cairo_t_val(v) ((cairo_t *)Pointer_val(v))
  Make_Val_final_pointer(cairo_surface_t, Ignore, cairo_surface_destroy, 20)
  #define cairo_surface_t_val(v) ((cairo_surface_t *)Pointer_val(v))
! Make_Val_final_pointer(cairo_matrix_t, Ignore, cairo_matrix_destroy, 20)
  #define cairo_matrix_t_val(v) ((cairo_matrix_t *)Pointer_val(v))
! ML_1(cairo_create, Ignore, Val_cairo_t)
  
  CAMLprim value
--- 12,22 ----
  #include "ml_cairo.h"
  
! Make_Val_final_pointer(cairo_t, Ignore, cairo_destroy, 20)
  #define cairo_t_val(v) ((cairo_t *)Pointer_val(v))
  Make_Val_final_pointer(cairo_surface_t, Ignore, cairo_surface_destroy, 20)
  #define cairo_surface_t_val(v) ((cairo_surface_t *)Pointer_val(v))
! Make_Val_final_pointer(cairo_matrix_t, Ignore, cairo_matrix_destroy, 100)
  #define cairo_matrix_t_val(v) ((cairo_matrix_t *)Pointer_val(v))
! ML_0(cairo_create, Val_cairo_t)
  
  CAMLprim value
***************
*** 748,752 ****
    cairo_current_point(cairo_t_val(cr), &x, &y);
    check_cairo_status(cr);
!   v = alloc_small(2 * Double_wosize, 0);
    Store_double_field(v, 0, x);
    Store_double_field(v, 1, y);
--- 748,752 ----
    cairo_current_point(cairo_t_val(cr), &x, &y);
    check_cairo_status(cr);
!   v = alloc_small(2 * Double_wosize, Double_array_tag);
    Store_double_field(v, 0, x);
    Store_double_field(v, 1, y);
***************
*** 861,865 ****
  ML_5(cairo_ps_surface_create, FILE_val, Double_val, Double_val, Double_val, Double_val, Val_cairo_surface_t)
  
! ML_1(cairo_matrix_create, Ignore, Val_cairo_matrix_t)
  ML_1(cairo_matrix_destroy, cairo_matrix_t_val, Unit)
  ML_2(cairo_matrix_copy, cairo_matrix_t_val, cairo_matrix_t_val, Val_cairo_status_t)
--- 861,865 ----
  ML_5(cairo_ps_surface_create, FILE_val, Double_val, Double_val, Double_val, Double_val, Val_cairo_surface_t)
  
! ML_0(cairo_matrix_create, Val_cairo_matrix_t)
  ML_1(cairo_matrix_destroy, cairo_matrix_t_val, Unit)
  ML_2(cairo_matrix_copy, cairo_matrix_t_val, cairo_matrix_t_val, Val_cairo_status_t)
***************
*** 887,891 ****
    double a, b, c, d, tx, ty;
    cairo_matrix_get_affine(cairo_matrix_t_val(m), &a, &b, &c, &d, &tx, &ty);
!   v = alloc_small(6 * Double_wosize, 0);
    Store_double_field(v, 0, a);
    Store_double_field(v, 1, b);
--- 887,891 ----
    double a, b, c, d, tx, ty;
    cairo_matrix_get_affine(cairo_matrix_t_val(m), &a, &b, &c, &d, &tx, &ty);
!   v = alloc_small(6 * Double_wosize, Double_array_tag);
    Store_double_field(v, 0, a);
    Store_double_field(v, 1, b);