mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-19 19:20:23 +02:00
Code Activity

HPPA: Correct wrong regarg_p check

Browse source 
If argument registers are in incremental order in the global _rvs
vector, the check if a register argument is reversed.
  Adapted from a regression found in sparc 64.
This commit is contained in:
Paulo Andrade 2018-04-20 15:01:44 -03:00
parent 2cea99361b
commit d2ff737812
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/jit_hppa.c
View file

@ -743,7 +743,7 @@ _jit_regarg_p(jit_state_t *_jit, jit_node_t *node, jit_int32_t regno)
spec = jit_class(_rvs[regno].spec);
if (spec & jit_class_arg) {
if (spec & jit_class_gpr) {
regno = _R26 - regno;
regno -= _R23;
if (regno >= 0 && regno < node->v.w)
return (1);
}