[Emacs-diffs] Changes to emacs/src/ccl.c

[Ken Raeburn]

Index: emacs/src/ccl.c
diff -c emacs/src/ccl.c:1.78 emacs/src/ccl.c:1.79
*** emacs/src/ccl.c:1.78        Tue Jul  9 19:00:17 2002
--- emacs/src/ccl.c     Sun Jul 14 20:00:35 2002
***************
*** 2198,2209 ****
        if (ccl.ic < i && i < ccl.size)
        ccl.ic = i;
      }
!   outbufsize = STRING_BYTES (XSTRING (str)) * ccl.buf_magnification + 256;
    outbuf = (char *) xmalloc (outbufsize);
    ccl.last_block = NILP (contin);
    ccl.multibyte = STRING_MULTIBYTE (str);
!   produced = ccl_driver (&ccl, XSTRING (str)->data, outbuf,
!                        STRING_BYTES (XSTRING (str)), outbufsize, (int *) 0);
    for (i = 0; i < 8; i++)
      XSET (AREF (status, i), Lisp_Int, ccl.reg[i]);
    XSETINT (AREF (status, 8), ccl.ic);
--- 2198,2209 ----
        if (ccl.ic < i && i < ccl.size)
        ccl.ic = i;
      }
!   outbufsize = SBYTES (str) * ccl.buf_magnification + 256;
    outbuf = (char *) xmalloc (outbufsize);
    ccl.last_block = NILP (contin);
    ccl.multibyte = STRING_MULTIBYTE (str);
!   produced = ccl_driver (&ccl, SDATA (str), outbuf,
!                        SBYTES (str), outbufsize, (int *) 0);
    for (i = 0; i < 8; i++)
      XSET (AREF (status, i), Lisp_Int, ccl.reg[i]);
    XSETINT (AREF (status, 8), ccl.ic);