summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOlivier Andrieu <oandrieu@gmail.com>2005-11-03 14:35:57 +0000
committerHezekiah M. Carty <hcarty@atmos.umd.edu>2009-06-18 14:00:01 -0400
commitabb7ee90ee9bb0b41667e3d989de98529224219e (patch)
treea8a68595a42be9288df1ba79b3b8831a49107c31
parenta18e49881534d107bd012aea54448e871006657a (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--ChangeLog6
-rw-r--r--src/ml_cairo.c6
-rw-r--r--src/ml_cairo_matrix.c2
-rw-r--r--src/ml_cairo_pattern.c2
4 files changed, 11 insertions, 5 deletions
diff --git a/ChangeLog b/ChangeLog
index d62cbb6..e50e1e6 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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);