From: Dave Love <fx@gnu.org>
Date: Thu, 20 Jul 2000 12:50:09 +0000 (+0000)
Subject: (Fccl_execute_on_string): Don't check xmalloc return.  Use xfree, not
X-Git-Tag: emacs-pretest-21.0.90~2713
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=157f852b76e802d7101d16b018faa377e196bbc5;p=emacs.git

(Fccl_execute_on_string): Don't check xmalloc return.  Use xfree, not
free.
---

diff --git a/src/ccl.c b/src/ccl.c
index 6ce8c752a15..e44dc86643b 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1894,8 +1894,6 @@ is a unibyte string.  By default it is a multibyte string.")
     }
   outbufsize = STRING_BYTES (XSTRING (str)) * ccl.buf_magnification + 256;
   outbuf = (char *) xmalloc (outbufsize);
-  if (!outbuf)
-    error ("Not enough memory");
   ccl.last_block = NILP (contin);
   produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf,
 			 STRING_BYTES (XSTRING (str)), outbufsize, (int *)0);
@@ -1908,7 +1906,7 @@ is a unibyte string.  By default it is a multibyte string.")
     val = make_string (outbuf, produced);
   else
     val = make_unibyte_string (outbuf, produced);
-  free (outbuf);
+  xfree (outbuf);
   QUIT;
   if (ccl.status != CCL_STAT_SUCCESS
       && ccl.status != CCL_STAT_SUSPEND_BY_SRC