Commit ec3f8be9 authored by Kenichi Handa's avatar Kenichi Handa
Browse files

(ccl-compile-expression): Don't generate

invalid self-assignment code.
parent dcf1003d
...@@ -489,7 +489,8 @@ ...@@ -489,7 +489,8 @@
(setq left 'r7))) (setq left 'r7)))
;; Now EXPR has the form (LEFT OP RIGHT). ;; Now EXPR has the form (LEFT OP RIGHT).
(if (eq rrr left) (if (and (eq rrr left)
(< op (length ccl-assign-arith-table)))
;; Compile this SET statement as `(RRR OP= RIGHT)'. ;; Compile this SET statement as `(RRR OP= RIGHT)'.
(if (integerp right) (if (integerp right)
(progn (progn
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment