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 }