diff options
| author | Gerd Möllmann | 2024-08-05 06:32:17 +0200 |
|---|---|---|
| committer | Gerd Möllmann | 2024-08-05 06:32:17 +0200 |
| commit | 6a137e0c1dd8670d95134bab4ef8d6103c2c9602 (patch) | |
| tree | c9b5440ca8dfa8a0fb9389b487655af6672bfd7f /src/bytecode.c | |
| parent | 05c19f8e5439606f841689ef325a867951e04902 (diff) | |
| parent | 5ecd35555e9e20de9717f0184f58a15d8a2e68a3 (diff) | |
| download | emacs-6a137e0c1dd8670d95134bab4ef8d6103c2c9602.tar.gz emacs-6a137e0c1dd8670d95134bab4ef8d6103c2c9602.zip | |
Merge branch 'master' into scratch/igc
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 6b981c24937..07104a4c80e 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1257,7 +1257,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1257 | if (FIXNUMP (v1) && FIXNUMP (v2)) | 1257 | if (FIXNUMP (v1) && FIXNUMP (v2)) |
| 1258 | TOP = BASE_EQ (v1, v2) ? Qt : Qnil; | 1258 | TOP = BASE_EQ (v1, v2) ? Qt : Qnil; |
| 1259 | else | 1259 | else |
| 1260 | TOP = arithcompare (v1, v2, ARITH_EQUAL); | 1260 | TOP = arithcompare (v1, v2) & Cmp_EQ ? Qt : Qnil; |
| 1261 | NEXT; | 1261 | NEXT; |
| 1262 | } | 1262 | } |
| 1263 | 1263 | ||
| @@ -1268,7 +1268,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1268 | if (FIXNUMP (v1) && FIXNUMP (v2)) | 1268 | if (FIXNUMP (v1) && FIXNUMP (v2)) |
| 1269 | TOP = XFIXNUM (v1) > XFIXNUM (v2) ? Qt : Qnil; | 1269 | TOP = XFIXNUM (v1) > XFIXNUM (v2) ? Qt : Qnil; |
| 1270 | else | 1270 | else |
| 1271 | TOP = arithcompare (v1, v2, ARITH_GRTR); | 1271 | TOP = arithcompare (v1, v2) & Cmp_GT ? Qt : Qnil; |
| 1272 | NEXT; | 1272 | NEXT; |
| 1273 | } | 1273 | } |
| 1274 | 1274 | ||
| @@ -1279,7 +1279,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1279 | if (FIXNUMP (v1) && FIXNUMP (v2)) | 1279 | if (FIXNUMP (v1) && FIXNUMP (v2)) |
| 1280 | TOP = XFIXNUM (v1) < XFIXNUM (v2) ? Qt : Qnil; | 1280 | TOP = XFIXNUM (v1) < XFIXNUM (v2) ? Qt : Qnil; |
| 1281 | else | 1281 | else |
| 1282 | TOP = arithcompare (v1, v2, ARITH_LESS); | 1282 | TOP = arithcompare (v1, v2) & Cmp_LT ? Qt : Qnil; |
| 1283 | NEXT; | 1283 | NEXT; |
| 1284 | } | 1284 | } |
| 1285 | 1285 | ||
| @@ -1290,7 +1290,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1290 | if (FIXNUMP (v1) && FIXNUMP (v2)) | 1290 | if (FIXNUMP (v1) && FIXNUMP (v2)) |
| 1291 | TOP = XFIXNUM (v1) <= XFIXNUM (v2) ? Qt : Qnil; | 1291 | TOP = XFIXNUM (v1) <= XFIXNUM (v2) ? Qt : Qnil; |
| 1292 | else | 1292 | else |
| 1293 | TOP = arithcompare (v1, v2, ARITH_LESS_OR_EQUAL); | 1293 | TOP = arithcompare (v1, v2) & (Cmp_LT | Cmp_EQ) ? Qt : Qnil; |
| 1294 | NEXT; | 1294 | NEXT; |
| 1295 | } | 1295 | } |
| 1296 | 1296 | ||
| @@ -1301,7 +1301,7 @@ exec_byte_code (Lisp_Object fun, ptrdiff_t args_template, | |||
| 1301 | if (FIXNUMP (v1) && FIXNUMP (v2)) | 1301 | if (FIXNUMP (v1) && FIXNUMP (v2)) |
| 1302 | TOP = XFIXNUM (v1) >= XFIXNUM (v2) ? Qt : Qnil; | 1302 | TOP = XFIXNUM (v1) >= XFIXNUM (v2) ? Qt : Qnil; |
| 1303 | else | 1303 | else |
| 1304 | TOP = arithcompare (v1, v2, ARITH_GRTR_OR_EQUAL); | 1304 | TOP = arithcompare (v1, v2) & (Cmp_GT | Cmp_EQ) ? Qt : Qnil; |
| 1305 | NEXT; | 1305 | NEXT; |
| 1306 | } | 1306 | } |
| 1307 | 1307 | ||