diff options
| author | Gerd Moellmann | 2000-02-17 09:45:46 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 2000-02-17 09:45:46 +0000 |
| commit | cc94f3b24e447e04da3e899af8909cb77d648ef0 (patch) | |
| tree | 9dc9189ad96dec0e5237e9fd36a6baf505c9eb7d /src/bytecode.c | |
| parent | 10689a01d99ab2f3382bb7ef3912961ec08f8bb9 (diff) | |
| download | emacs-cc94f3b24e447e04da3e899af8909cb77d648ef0.tar.gz emacs-cc94f3b24e447e04da3e899af8909cb77d648ef0.zip | |
Remove `LISP_FLOAT_TYPE' and `standalone'.
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 16 |
1 files changed, 4 insertions, 12 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 52a0dba31d5..14a93f18f81 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -434,11 +434,9 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 434 | { | 434 | { |
| 435 | #ifdef BYTE_CODE_SAFE | 435 | #ifdef BYTE_CODE_SAFE |
| 436 | if (top > stacke) | 436 | if (top > stacke) |
| 437 | error ("Byte code stack overflow (byte compiler bug), pc %d, depth %d", | 437 | abort (); |
| 438 | stack.pc - stack.byte_string_start, stacke - top); | ||
| 439 | else if (top < stack.bottom - 1) | 438 | else if (top < stack.bottom - 1) |
| 440 | error ("Byte code stack underflow (byte compiler bug), pc %d", | 439 | abort (); |
| 441 | stack.pc - stack.byte_string_start); | ||
| 442 | #endif | 440 | #endif |
| 443 | 441 | ||
| 444 | #ifdef BYTE_CODE_METER | 442 | #ifdef BYTE_CODE_METER |
| @@ -1042,7 +1040,6 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 1042 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0); | 1040 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v1, 0); |
| 1043 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0); | 1041 | CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (v2, 0); |
| 1044 | AFTER_POTENTIAL_GC (); | 1042 | AFTER_POTENTIAL_GC (); |
| 1045 | #ifdef LISP_FLOAT_TYPE | ||
| 1046 | if (FLOATP (v1) || FLOATP (v2)) | 1043 | if (FLOATP (v1) || FLOATP (v2)) |
| 1047 | { | 1044 | { |
| 1048 | double f1, f2; | 1045 | double f1, f2; |
| @@ -1052,7 +1049,6 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 1052 | TOP = (f1 == f2 ? Qt : Qnil); | 1049 | TOP = (f1 == f2 ? Qt : Qnil); |
| 1053 | } | 1050 | } |
| 1054 | else | 1051 | else |
| 1055 | #endif | ||
| 1056 | TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil); | 1052 | TOP = (XINT (v1) == XINT (v2) ? Qt : Qnil); |
| 1057 | break; | 1053 | break; |
| 1058 | } | 1054 | } |
| @@ -1532,15 +1528,11 @@ If the third argument is incorrect, Emacs may crash.") | |||
| 1532 | #ifdef BYTE_CODE_SAFE | 1528 | #ifdef BYTE_CODE_SAFE |
| 1533 | if (op < Bconstant) | 1529 | if (op < Bconstant) |
| 1534 | { | 1530 | { |
| 1535 | BEFORE_POTENTIAL_GC (); | 1531 | abort (); |
| 1536 | error ("unknown bytecode %d (byte compiler bug)", op); | ||
| 1537 | AFTER_POTENTIAL_GC (); | ||
| 1538 | } | 1532 | } |
| 1539 | if ((op -= Bconstant) >= const_length) | 1533 | if ((op -= Bconstant) >= const_length) |
| 1540 | { | 1534 | { |
| 1541 | BEFORE_POTENTIAL_GC (); | 1535 | abort (); |
| 1542 | error ("no constant number %d (byte compiler bug)", op); | ||
| 1543 | AFTER_POTENTIAL_GC (); | ||
| 1544 | } | 1536 | } |
| 1545 | PUSH (vectorp[op]); | 1537 | PUSH (vectorp[op]); |
| 1546 | #else | 1538 | #else |