procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix test and comment in CCL change

Browse source 
* lisp/international/ccl.el (ccl-fixnum): Update comment.
* test/lisp/international/ccl-tests.el (prog-midi-dump): Add
trailing space to expected result.
This commit is contained in:
Andy Moreton 2018-08-05 12:56:33 -06:00 • committed by Tom Tromey
parent 1303f8a480
commit 68ebff23f7
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/international/ccl.el
View file

@ -184,8 +184,10 @@
(defvar ccl-current-ic 0
"The current index for `ccl-program-vector'.")
;; This is needed because CCL assumes the pre-bigint (wrapping)
;; semantics of integer overflow.
;; 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))

2
test/lisp/international/ccl-tests.el
View file

@ -162,7 +162,7 @@ At EOF:
Main-body:
2:[read-jump-cond-expr-const] read r0, if !(r0 < 128), jump to 22(+20)
5:[branch] jump to array[r3] of length 4
11 12 15 18 22
11 12 15 18 22
11:[jump] jump to 2(-9)
12:[set-register] r1 = r0
13:[set-register] r0 = r4