Mercurial > hg > xemacs-beta

comparison lisp/bytecomp/byte-optimize.el @ 2:ac2d302a0011 r19-15b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b2
author cvs
date Mon, 13 Aug 2007 08:46:35 +0200
parents 376386a54a3c
children 0293115a14e9
comparison
equal deleted inserted replaced
1:c0c6a60d29db 2:ac2d302a0011
1184 (setq ptr (1+ ptr)) ;offset in next 2 bytes 1184 (setq ptr (1+ ptr)) ;offset in next 2 bytes
1185 (+ (aref bytes ptr) 1185 (+ (aref bytes ptr)
1186 (progn (setq ptr (1+ ptr)) 1186 (progn (setq ptr (1+ ptr))
1187 (lsh (aref bytes ptr) 8)))) 1187 (lsh (aref bytes ptr) 8))))
1188 ;; XEmacs: this code was here before. FSF's first comparison 1188 ;; XEmacs: this code was here before. FSF's first comparison
1189 ;; is (>= op byte-listN). It appears the the rel-goto stuff 1189 ;; is (>= op byte-listN). It appears that the rel-goto stuff
1190 ;; does not exist in FSF 19.30. It doesn't exist in 19.28 1190 ;; does not exist in FSF 19.30. It doesn't exist in 19.28
1191 ;; either, so I'm going to assume that this is an improvement 1191 ;; either, so I'm going to assume that this is an improvement
1192 ;; on our part and leave it in. --ben 1192 ;; on our part and leave it in. --ben
1193 ((and (>= op byte-rel-goto) 1193 ((and (>= op byte-rel-goto)
1194 (<= op byte-insertN)) 1194 (<= op byte-insertN))