Function: ccl-fixnum

ccl-fixnum is a byte-compiled function defined in ccl.el.gz.

Signature

(ccl-fixnum CODE)

Documentation

Convert a CCL code word to a fixnum value.

Source Code

;; Defined in /usr/src/emacs/lisp/international/ccl.el.gz
;; The CCL compiled codewords are 28bits, but the CCL implementation
;; assumes that the codewords are sign-extended, so that data constants in
;; the upper part of the codeword are signed. This function truncates a
;; codeword to 28bits, and then sign extends the result to a fixnum.
(defun ccl-fixnum (code)
  "Convert a CCL code word to a fixnum value."
  (- (logxor (logand code #x0fffffff) #x08000000) #x08000000))