diff options
author | Olivier Andrieu <oandrieu@gmail.com> | 2005-11-03 14:35:57 +0000 |
---|---|---|
committer | Hezekiah M. Carty <hcarty@atmos.umd.edu> | 2009-06-18 14:00:01 -0400 |
commit | abb7ee90ee9bb0b41667e3d989de98529224219e (patch) | |
tree | a8a68595a42be9288df1ba79b3b8831a49107c31 | |
parent | a18e49881534d107bd012aea54448e871006657a (diff) |
Arch fixes for ARCH_ALIGN_DOUBLE
* src/ml_cairo_pattern.c, src/ml_cairo_matrix.c, src/ml_cairo.c: fixes for
archs with ARCH_ALIGN_DOUBLE (patch from Samuel Mimram).
VS: ----------------------------------------------------------------------
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | src/ml_cairo.c | 6 | ||||
-rw-r--r-- | src/ml_cairo_matrix.c | 2 | ||||
-rw-r--r-- | src/ml_cairo_pattern.c | 2 |
4 files changed, 11 insertions, 5 deletions
@@ -1,3 +1,9 @@ +2005-11-03 Olivier Andrieu <oliv__a@users.sourceforge.net> + + * src/ml_cairo_pattern.c, src/ml_cairo_matrix.c, src/ml_cairo.c: + fixes for archs with ARCH_ALIGN_DOUBLE (patch from Samuel + Mimram). + 2005-09-14 Carl Worth <cworth@cworth.org> * configure.ac: Add freetype2 to PKG_CHECK_MODULES call in diff --git a/src/ml_cairo.c b/src/ml_cairo.c index d53be57..57732d0 100644 --- a/src/ml_cairo.c +++ b/src/ml_cairo.c @@ -70,11 +70,11 @@ ml_cairo_set_dash (value cr, value d, value off) Double_array_length (d), Double_val (off)); #else int i, ndash = Double_array_length (d); - double *dashes = stat_alloc (ndash * sizeof (double)); - for (i = 0; i < ndash, i++) + double *dashes = caml_stat_alloc (ndash * sizeof (double)); + for (i = 0; i < ndash; i++) dashes[i] = Double_field (d, i); cairo_set_dash (cairo_t_val (cr), dashes, ndash, Double_val (off)); - stat_free (dashes); + caml_stat_free (dashes); #endif check_cairo_status (cr); return Val_unit; diff --git a/src/ml_cairo_matrix.c b/src/ml_cairo_matrix.c index de91779..97ed2f2 100644 --- a/src/ml_cairo_matrix.c +++ b/src/ml_cairo_matrix.c @@ -87,7 +87,7 @@ ml_cairo_matrix_rotate (value m, value a) #else cairo_matrix_t mat; ml_convert_cairo_matrix_in (m, &mat); - cairo_matrix_rotate (&mat, Double_val (a); + cairo_matrix_rotate (&mat, Double_val (a)); return ml_convert_cairo_matrix_out (&mat); #endif } diff --git a/src/ml_cairo_pattern.c b/src/ml_cairo_pattern.c index 99092e4..c60b1ca 100644 --- a/src/ml_cairo_pattern.c +++ b/src/ml_cairo_pattern.c @@ -85,7 +85,7 @@ ml_cairo_pattern_get_matrix (value p) cairo_matrix_t mat; cairo_pattern_get_matrix (cairo_pattern_t_val (p), &mat); check_pattern_status (p); - return ml_convert_cairo_matrix_out (m, &mat); + return ml_convert_cairo_matrix_out (&mat); #else CAMLparam1(p); value m = caml_alloc_small (6 * Double_wosize, Double_array_tag); |