Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
9571229d
Commit
9571229d
authored
Nov 16, 2008
by
rtoy
Browse files
Add back deftransforms for real+complex and real*complex when
:complex-fp-vops is not defined.
parent
3902f489
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/float-tran.lisp
View file @
9571229d
...
...
@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.12
5
2008/11/1
4 20:43:08
rtoy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.12
6
2008/11/1
6 14:23:33
rtoy Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1526,6 +1526,16 @@
;; Real - complex. The 0 for the imaginary part is
;; needed so we get the correct signed zero.
'
(
complex
(
-
z
(
realpart
w
))
(
-
0
(
imagpart
w
))))
#-
complex-fp-vops
(
deftransform
+
((
z
w
)
(
,
real-type
(
complex
,
type
))
*
)
;; Real - complex. The 0 for the imaginary part is
;; needed so we get the correct signed zero.
'
(
complex
(
+
z
(
realpart
w
))
(
+
0
(
imagpart
w
))))
#-
complex-fp-vops
(
deftransform
*
((
z
w
)
(
,
real-type
(
complex
,
type
))
*
)
;; Real - complex. The 0 for the imaginary part is
;; needed so we get the correct signed zero.
'
(
complex
(
*
z
(
realpart
w
))
(
*
z
(
imagpart
w
))))
(
deftransform
cis
((
z
)
((
,
type
))
*
)
;; Cis.
'
(
complex
(
cos
z
)
(
sin
z
)))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment