[Guile-commits] 417/437: HPPA: Correct wrong regarg_p check

[Andy Wingo]

wingo pushed a commit to branch lightning
in repository guile.

commit d2ff737812184d8f184e6c8964f7e002a31b50ed
Author: Paulo Andrade <p...@gnu.org>
Date:   Fri Apr 20 15:01:44 2018 -0300

    HPPA: Correct wrong regarg_p check
    
      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.
---
 lib/jit_hppa.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/jit_hppa.c b/lib/jit_hppa.c
index bb71827..558524b 100644
--- a/lib/jit_hppa.c
+++ b/lib/jit_hppa.c
@@ -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);
        }