wingo pushed a commit to branch lightning
in repository guile.
commit 93e3ff38e157cd46b10c7e2b32dd63ef6271a891
Author: pcpa <[email protected]>
Date: Sat Aug 16 20:19:02 2014 -0300
ALPHA: Correct class of argument float registers
* lib/jit_alpha.c: Correct wrong bitmask of most argument
float register arguments, that were being set as callee
save instead of argument registers class.
---
ChangeLog | 6 ++++++
lib/jit_alpha.c | 10 +++++-----
2 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 9245033..74fe082 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
2014-08-16 Paulo Andrade <[email protected]>
+ * lib/jit_alpha.c: Correct wrong bitmask of most argument
+ float register arguments, that were being set as callee
+ save instead of argument registers class.
+
+2014-08-16 Paulo Andrade <[email protected]>
+
* lib/jit_arm-sz.c: Regenerate table of known maximum
instruction sizes for the software float fallback,
that implements "virtual" float registers in the stack
diff --git a/lib/jit_alpha.c b/lib/jit_alpha.c
index 0811517..cb91370 100644
--- a/lib/jit_alpha.c
+++ b/lib/jit_alpha.c
@@ -83,11 +83,11 @@ jit_register_t _rvs[] = {
{ rc(fpr) | 0x0d, "$f13" },
{ rc(fpr) | 0x0e, "$f14" },
{ rc(fpr) | 0x0f, "$f15" },
- { rc(sav) | rc(fpr) | 0x15, "$f21" },
- { rc(sav) | rc(fpr) | 0x14, "$f20" },
- { rc(sav) | rc(fpr) | 0x13, "$f19" },
- { rc(sav) | rc(fpr) | 0x12, "$f18" },
- { rc(sav) | rc(fpr) | 0x11, "$f17" },
+ { rc(arg) | rc(fpr) | 0x15, "$f21" },
+ { rc(arg) | rc(fpr) | 0x14, "$f20" },
+ { rc(arg) | rc(fpr) | 0x13, "$f19" },
+ { rc(arg) | rc(fpr) | 0x12, "$f18" },
+ { rc(arg) | rc(fpr) | 0x11, "$f17" },
{ rc(arg) | rc(fpr) | 0x10, "$f16" },
{ rc(fpr) | 0x16, "$f22" },
{ rc(fpr) | 0x17, "$f23" },
