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
48abc5e7
Commit
48abc5e7
authored
Nov 13, 1992
by
wlott
Browse files
Fixed a bug introduced into __sigtramp where it used some random bit to
decide whether or not to save the fp regs.
parent
7a90c402
Changes
1
Hide whitespace changes
Inline
Side-by-side
lisp/sparc-assem.S
View file @
48abc5e7
...
...
@@ -353,9 +353,9 @@ __sigtramp:
std
%
g4
,
[%
sp
+
IREGSOFF
+
16
]
std
%
g6
,
[%
sp
+
IREGSOFF
+
24
]
std
%
o0
,
[%
sp
+
IREGSOFF
+
32
]
ld
[%
sp
+
ORIGSCPOFF
],
%
o0
std
%
o2
,
[%
sp
+
IREGSOFF
+
40
]
ld
[%
o0
+
SC_SP
],
%
o0
ld
[%
sp
+
ORIGSCPOFF
],
%
o2
ld
[%
o2
+
SC_SP
],
%
o0
std
%
o4
,
[%
sp
+
IREGSOFF
+
48
]
st
%
o0
,
[%
sp
+
IREGSOFF
+
56
]
st
%
o7
,
[%
sp
+
IREGSOFF
+
60
]
...
...
@@ -378,6 +378,7 @@ __sigtramp:
std
%
i6
,
[%
sp
+
IREGSOFF
+
120
]
!
Check
to
see
if
we
need
to
save
the
fp
regs
.
ld
[%
o2
+
SC_PSR
],
%
l5
!
get
psr
set
PSR_EF
,
%
l0
mov
%
y
,
%
l2
!
save
y
btst
%
l0
,
%
l5
!
is
FPU
enabled
?
...
...
@@ -409,7 +410,7 @@ __sigtramp:
sll
%
o0
,
2
,
%
g2
!
scale
signal
number
for
index
ld
[%
g1
+%
g2
],
%
g1
!
get
func
ld
[%
sp
+
ORIGCODEOFF
],
%
o1
!
get
code
ld
[%
sp
+
ORIGSCPOFF
],
%
o2
!
get
scp
!
%
o2
is
already
loaded
with
scp
add
%
sp
,
REGSAVEOFF
,
%
o3
!
compute
pointer
to
reg
save
area
st
%
o3
,
[%
o2
+
SC_G1
]
!
save
in
sc_g1
.
call
%
g1
!
(*
_sigfunc
[
sig
])(
sig
,
code
,
scp
,
addr
)
...
...
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