Raymond Toy pushed to branch rtoy-make-double-unsigned at cmucl / cmucl
Commits:
-
f3dee356
by Raymond Toy at 2017-12-29T14:35:37-08:00
2 changed files:
Changes:
| ... | ... | @@ -733,12 +733,12 @@ |
| 733 | 733 |
(* (tn-offset res) vm:word-bytes)))))))))
|
| 734 | 734 |
|
| 735 | 735 |
(define-vop (make-double-float)
|
| 736 |
- (:args (hi-bits :scs (signed-reg))
|
|
| 736 |
+ (:args (hi-bits :scs (unsigned-reg))
|
|
| 737 | 737 |
(lo-bits :scs (unsigned-reg)))
|
| 738 | 738 |
(:results (res :scs (double-reg)
|
| 739 | 739 |
:load-if (not (sc-is res double-stack))))
|
| 740 | 740 |
(:temporary (:scs (double-stack)) temp)
|
| 741 |
- (:arg-types signed-num unsigned-num)
|
|
| 741 |
+ (:arg-types unsigned-num unsigned-num)
|
|
| 742 | 742 |
(:result-types double-float)
|
| 743 | 743 |
(:translate make-double-float)
|
| 744 | 744 |
(:policy :fast-safe)
|
| ... | ... | @@ -1297,12 +1297,12 @@ |
| 1297 | 1297 |
(* (tn-offset res) vm:word-bytes)))))))))
|
| 1298 | 1298 |
|
| 1299 | 1299 |
(define-vop (make-double-float)
|
| 1300 |
- (:args (hi-bits :scs (signed-reg))
|
|
| 1300 |
+ (:args (hi-bits :scs (unsigned-reg))
|
|
| 1301 | 1301 |
(lo-bits :scs (unsigned-reg)))
|
| 1302 | 1302 |
(:results (res :scs (double-reg)
|
| 1303 | 1303 |
:load-if (not (sc-is res double-stack))))
|
| 1304 | 1304 |
(:temporary (:scs (double-stack)) temp)
|
| 1305 |
- (:arg-types signed-num unsigned-num)
|
|
| 1305 |
+ (:arg-types unsigned-num unsigned-num)
|
|
| 1306 | 1306 |
(:result-types double-float)
|
| 1307 | 1307 |
(:translate make-double-float)
|
| 1308 | 1308 |
(:policy :fast-safe)
|