procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* src/comp.c: Fix 32bit wide-int.

Browse source 
* src/comp.c (emit_XFIXNUM): Make right shift for MSB_TAG
	arithmetic too to preserve sign bit.
This commit is contained in:
Andrea Corallo 2020-05-21 17:51:31 +01:00
parent f036ec97ce
commit 0a2ac47909
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/comp.c
View file

@ -1066,6 +1066,8 @@ emit_XFIXNUM (gcc_jit_rvalue *obj)
emit_comment ("XFIXNUM");
gcc_jit_rvalue *i = emit_coerce (comp.emacs_uint_type, emit_XLI (obj));
/* FIXME: Implementation dependent (both RSHIFT are arithmetics). */
if (!USE_LSB_TAG)
{
i = emit_binary_op (GCC_JIT_BINARY_OP_LSHIFT,
@ -1073,14 +1075,12 @@ emit_XFIXNUM (gcc_jit_rvalue *obj)
i,
comp.inttypebits);
return emit_coerce (comp.emacs_int_type,
emit_binary_op (GCC_JIT_BINARY_OP_RSHIFT,
comp.emacs_uint_type,
i,
comp.inttypebits));
return emit_binary_op (GCC_JIT_BINARY_OP_RSHIFT,
comp.emacs_int_type,
i,
comp.inttypebits);
}
else
/* FIXME: Implementation dependent (wants arithmetic shift). */
return emit_coerce (comp.emacs_int_type,
emit_binary_op (GCC_JIT_BINARY_OP_RSHIFT,
comp.emacs_int_type,