Lines Matching refs:arith
161 (defconst ccl-arith-table
167 (let (arith (i 0) (len (length ccl-arith-table)))
169 (setq arith (aref ccl-arith-table i))
170 (if arith (put arith 'ccl-arith-code i))
173 (defconst ccl-assign-arith-table
178 (let (arith (i 0) (len (length ccl-assign-arith-table)))
180 (setq arith (aref ccl-assign-arith-table i))
181 (put arith 'ccl-self-arith-code i)
367 (get (nth 1 cmd) 'ccl-self-arith-code))
433 (op (get (nth 1 expr) 'ccl-arith-code))
444 (< op (length ccl-assign-arith-table)))
504 (op (get (nth 1 condition) 'ccl-arith-code))
764 (op (get (nth 1 rrr) 'ccl-arith-code))
1040 (defun ccl-extract-arith-op (cc)
1041 (aref ccl-arith-table (ash cc -6)))
1046 (ccl-extract-arith-op cc)
1052 (ccl-extract-arith-op cc)
1163 (ccl-extract-arith-op cc)
1169 (ccl-extract-arith-op cc)
1176 (ccl-extract-arith-op cc)
1183 (ccl-extract-arith-op cc)
1190 (aref ccl-arith-table (ccl-get-next-code))
1198 (aref ccl-arith-table (ccl-get-next-code))