Mercurial > emacs
comparison src/bytecode.c @ 39635:c6144b4dc5c1
(Fbyte_code): Use MOST_POSITIVE_FIXNUM.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Sat, 06 Oct 2001 23:37:52 +0000 |
| parents | 4baf64844f9c |
| children | 50a6007a6ee4 |
comparison
equal
deleted
inserted
replaced
| 39634:4baf64844f9c | 39635:c6144b4dc5c1 |
|---|---|
| 697 Lisp_Object v1, v2; | 697 Lisp_Object v1, v2; |
| 698 | 698 |
| 699 v1 = TOP; | 699 v1 = TOP; |
| 700 v2 = Fget (v1, Qbyte_code_meter); | 700 v2 = Fget (v1, Qbyte_code_meter); |
| 701 if (INTEGERP (v2) | 701 if (INTEGERP (v2) |
| 702 && XINT (v2) != ((1<<VALBITS)-1)) | 702 && XINT (v2) < MOST_POSITIVE_FIXNUM) |
| 703 { | 703 { |
| 704 XSETINT (v2, XINT (v2) + 1); | 704 XSETINT (v2, XINT (v2) + 1); |
| 705 Fput (v1, Qbyte_code_meter, v2); | 705 Fput (v1, Qbyte_code_meter, v2); |
| 706 } | 706 } |
| 707 } | 707 } |
