aboutsummaryrefslogtreecommitdiffstats
path: root/src/bytecode.c
diff options
context:
space:
mode:
authorGerd Möllmann2024-08-05 06:32:17 +0200
committerGerd Möllmann2024-08-05 06:32:17 +0200
commit6a137e0c1dd8670d95134bab4ef8d6103c2c9602 (patch)
treec9b5440ca8dfa8a0fb9389b487655af6672bfd7f /src/bytecode.c
parent05c19f8e5439606f841689ef325a867951e04902 (diff)
parent5ecd35555e9e20de9717f0184f58a15d8a2e68a3 (diff)
downloademacs-6a137e0c1dd8670d95134bab4ef8d6103c2c9602.tar.gz
emacs-6a137e0c1dd8670d95134bab4ef8d6103c2c9602.zip
Merge branch 'master' into scratch/igc
Diffstat (limited to 'src/bytecode.c')
-rw-r--r--src/bytecode.c10
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