[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 05/06: Fix fixnum min/max for assembler
From: |
Andy Wingo |
Subject: |
[Guile-commits] 05/06: Fix fixnum min/max for assembler |
Date: |
Tue, 6 Sep 2016 10:21:49 +0000 (UTC) |
wingo pushed a commit to branch master
in repository guile.
commit 73efa8fb06e92eda8221a8a25603fde141ec7949
Author: Andy Wingo <address@hidden>
Date: Tue Sep 6 12:05:21 2016 +0200
Fix fixnum min/max for assembler
* module/system/vm/assembler.scm (immediate-bits): I am a complete and
total idiot and got the fixnum mins and maxes swapped.
---
module/system/vm/assembler.scm | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm
index e07f7d4..3b9834b 100644
--- a/module/system/vm/assembler.scm
+++ b/module/system/vm/assembler.scm
@@ -948,10 +948,10 @@ immediate, and @code{#f} otherwise."
;; Object is an immediate if it is a fixnum on the target.
(call-with-values (lambda ()
(case (asm-word-size asm)
- ((4) (values #x1fffffff
- (- #x20000000)))
- ((8) (values #x1fffffffFFFFFFFF
- (- #x2000000000000000)))
+ ((4) (values (- #x20000000)
+ #x1fffffff))
+ ((8) (values (- #x2000000000000000)
+ #x1fffffffFFFFFFFF))
(else (error "unexpected word size"))))
(lambda (fixnum-min fixnum-max)
(and (<= fixnum-min x fixnum-max)
- [Guile-commits] branch master updated (605a01b -> 32f309d), Andy Wingo, 2016/09/06
- [Guile-commits] 02/06: Tweak value of tc7-smob., Andy Wingo, 2016/09/06
- [Guile-commits] 04/06: Add atomic boxes, Andy Wingo, 2016/09/06
- [Guile-commits] 03/06: Reorder tc7 type codes, Andy Wingo, 2016/09/06
- [Guile-commits] 05/06: Fix fixnum min/max for assembler,
Andy Wingo <=
- [Guile-commits] 06/06: Compiler support for atomics, Andy Wingo, 2016/09/06
- [Guile-commits] 01/06: Convert tc7 values to hex in tags.h and elsewhere, Andy Wingo, 2016/09/06