Mercurial > hg > xemacs-beta

diff src/mule-ccl.c @ 241:f955c73f5258 r20-5b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b19
author cvs
date Mon, 13 Aug 2007 10:16:16 +0200
parents 78f53ef88e17
children f220cc83d72e
line wrap: on
line diff
--- a/src/mule-ccl.c	Mon Aug 13 10:15:49 2007 +0200
+++ b/src/mule-ccl.c	Mon Aug 13 10:16:16 2007 +0200
@@ -967,7 +967,7 @@
   CHECK_VECTOR (ccl_prog);
   CHECK_VECTOR (reg);
   if (XVECTOR_LENGTH (reg) != 8)
-    error ("Invalid length of vector REGISTERS");
+    signal_simple_error ("Vector should be of length 8", reg);
 
   setup_ccl_program (&ccl, ccl_prog);
   for (i = 0; i < 8; i++)
@@ -1012,7 +1012,7 @@
   CHECK_VECTOR (ccl_prog);
   CHECK_VECTOR (status);
   if (XVECTOR_LENGTH (status) != 9)
-    error ("Invalid length of vector STATUS");
+    signal_simple_error ("Vector should be of length 9", status);
   CHECK_STRING (str);
   GCPRO3 (ccl_prog, status, str);
 
@@ -1040,7 +1040,7 @@
   UNGCPRO;
 
   val = make_string (Dynarr_atp (outbuf, 0), produced);
-  free (outbuf);
+  Dynarr_free (outbuf);
   QUIT;
   if (ccl.status != CCL_STAT_SUCCESS
       && ccl.status != CCL_STAT_SUSPEND)