guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 05/13: Fix jit_gpr_is_callee_save usage


From: Andy Wingo
Subject: [Guile-commits] 05/13: Fix jit_gpr_is_callee_save usage
Date: Thu, 4 Apr 2019 06:11:42 -0400 (EDT)

wingo pushed a commit to branch lightening
in repository guile.

commit fb9003c13796eaae814a7f6e2191ad5a6da641a6
Author: Andy Wingo <address@hidden>
Date:   Thu Apr 4 11:18:08 2019 +0200

    Fix jit_gpr_is_callee_save usage
    
    * libguile/jit.c (emit_entry_trampoline): Fix invocations for
      jit_gpr_is_callee_save.
---
 libguile/jit.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/libguile/jit.c b/libguile/jit.c
index 3dcb41c..1cdb75d 100644
--- a/libguile/jit.c
+++ b/libguile/jit.c
@@ -1297,11 +1297,11 @@ emit_entry_trampoline (scm_jit_state *j)
     
   /* Save values of callee-save registers.  */
   for (size_t i = 0; i < gpr_count; i++)
-    if (jit_gpr_is_callee_save (gprs[i]))
+    if (jit_gpr_is_callee_save (j->jit, gprs[i]))
       jit_pushr (j->jit, gprs[i]);
 
   for (size_t i = 0; i < fpr_count; i++)
-    if (jit_fpr_is_callee_save (fprs[i]))
+    if (jit_fpr_is_callee_save (j->jit, fprs[i]))
       jit_pushr_d (j->jit, fprs[i]);
 
   const jit_arg_abi_t abi[] = { JIT_ARG_ABI_POINTER, JIT_ARG_ABI_POINTER };
@@ -1325,12 +1325,12 @@ emit_entry_trampoline (scm_jit_state *j)
 
   /* Restore callee-save registers.  */
   for (size_t i = 0; i < fpr_count; i++)
-    if (jit_fpr_is_callee_save (fprs[fpr_count - i - 1]))
+    if (jit_fpr_is_callee_save (j->jit, fprs[fpr_count - i - 1]))
       jit_popr_d (j->jit, fprs[fpr_count - i - 1]);
 
   for (size_t i = 0; i < gpr_count; i++)
-    if (jit_gpr_is_callee_save (gprs[gpr_count - i - 1]))
-      jit_pushr (j->jit, gprs[gpr_count - i - 1]);
+    if (jit_gpr_is_callee_save (j->jit, gprs[gpr_count - i - 1]))
+      jit_popr (j->jit, gprs[gpr_count - i - 1]);
 
   /* When mcode finishes, interpreter will continue with vp->ip.  */
   jit_ret (j->jit);



reply via email to

[Prev in Thread] Current Thread [Next in Thread]