(ccl_driver): If DST is NULL, set ccl->produced to 0.

diff --git a/src/ccl.c b/src/ccl.c
index 74d0affa681ad7887a725834acbc418a29de82c3..1ff972294661a7ff8805f25f2c83541a8e399f90 100644 (file)
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -1782,7 +1782,10 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list)
   ccl->stack_idx = stack_idx;
   ccl->prog = ccl_prog;
   ccl->consumed = src - source;
-  ccl->produced = dst - destination;
+  if (dst != NULL)
+    ccl->produced = dst - destination;
+  else
+    ccl->produced = 0;
 }
 
 /* Resolve symbols in the specified CCL code (Lisp vector).  This