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
32084166
Commit
32084166
authored
Jun 21, 2007
by
rtoy
Browse files
More RETURN-FROM's returning from the wrong block.
parent
4cc5d585
Changes
1
Hide whitespace changes
Inline
Side-by-side
compiler/float-tran.lisp
View file @
32084166
...
...
@@ -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.11
3
2007/06/2
0
1
5
:2
1:48
rtoy Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/float-tran.lisp,v 1.11
4
2007/06/2
1
1
6
:2
2:24
rtoy Exp $"
)
;;;
;;; **********************************************************************
;;;
...
...
@@ -1680,7 +1680,7 @@
(
two-diff
a0
b0
)
(
declare
(
double-float
s2
))
(
when
(
float-infinity-p
s1
)
(
return-from
add
-dd
(
values
s1
0d0
)))
(
return-from
sub
-dd
(
values
s1
0d0
)))
(
multiple-value-bind
(
t1
t2
)
(
two-diff
a1
b1
)
(
incf
s2
t1
)
...
...
@@ -1704,7 +1704,7 @@
(
two-diff
a
b0
)
(
declare
(
double-float
s2
))
(
when
(
float-infinity-p
s1
)
(
return-from
ad
d-dd
(
values
s1
0d0
)))
(
return-from
sub-
d-dd
(
values
s1
0d0
)))
(
decf
s2
b1
)
(
multiple-value-bind
(
r1
r2
)
(
quick-two-sum
s1
s2
)
...
...
@@ -1721,7 +1721,7 @@
(
two-diff
a0
b
)
(
declare
(
double-float
s2
))
(
when
(
float-infinity-p
s1
)
(
return-from
a
dd-d
d
(
values
s1
0d0
)))
(
return-from
sub-
dd-d
(
values
s1
0d0
)))
(
incf
s2
a1
)
(
multiple-value-bind
(
r1
r2
)
(
quick-two-sum
s1
s2
)
...
...
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