bug#8751: 24.0.50; CCL is broken

[Kazuhiro Ito]

The problem may be that ccl-compiler produce negative integer as CCL
code (at latest, since Emacs21).

(ccl-compile
 '(1 (loop
      (read r0)
      (write-repeat r0))))

-> [1 4 14 -506 22]
           ~~~~

But the document of ccl.c says "CCL code is a sequence of 28-bit
non-negative integers", and current ccl.c does not accept such
negative value.  I don't know which whould be changed, ccl-compiler or
document and current ccl.c.

Kazuhiro Ito wrote:
>
> Below code raises error "Error in CCL program at 4th code" on trunk.
> 
> (progn
>   (define-ccl-program ccl-test
>     '(1 (loop
>        (read r0)
>        (write-repeat r0))))
>   (ccl-execute-on-string 'ccl-test (make-vector 9 0) "_"))

-- 
Kazuhiro Ito