Skip to content
GitLab
Explore
Sign in
Register
Primary navigation
Search or go to…
Project
cmucl
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Service Desk
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Terms and privacy
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
Carl Shapiro
cmucl
Commits
7fbcdce3
Commit
7fbcdce3
authored
33 years ago
by
ram
Browse files
Options
Downloads
Patches
Plain Diff
Deleted all uses of mc68881-wait, since they are now implicit in the load/store
pseudo-instructions.
parent
b6a12bd8
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
compiler/rt/mc68881.lisp
+6
-15
6 additions, 15 deletions
compiler/rt/mc68881.lisp
with
6 additions
and
15 deletions
compiler/rt/mc68881.lisp
+
6
−
15
View file @
7fbcdce3
...
@@ -7,7 +7,7 @@
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
;;;
(
ext:file-comment
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.
9
199
1/10/03 14:31:22
ram Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/rt/mc68881.lisp,v 1.
10
199
2/01/22 18:10:05
ram Exp $"
)
;;;
;;;
;;; **********************************************************************
;;; **********************************************************************
;;;
;;;
...
@@ -93,8 +93,7 @@
...
@@ -93,8 +93,7 @@
((
mc68881-single-reg
)
(
single-stack
))
((
mc68881-single-reg
)
(
single-stack
))
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
with-fp-temp
(
temp
)
(
with-fp-temp
(
temp
)
(
inst
mc68881-store
x
lip-tn
:single
temp
))
(
inst
mc68881-store
x
lip-tn
:single
temp
)))
(
inst
mc68881-wait
))
(
define-move-function
(
load-double
7
)
(
vop
x
y
)
(
define-move-function
(
load-double
7
)
(
vop
x
y
)
((
double-stack
)
(
mc68881-double-reg
))
((
double-stack
)
(
mc68881-double-reg
))
...
@@ -106,8 +105,7 @@
...
@@ -106,8 +105,7 @@
((
mc68881-double-reg
)
(
double-stack
))
((
mc68881-double-reg
)
(
double-stack
))
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
with-fp-temp
(
temp
)
(
with-fp-temp
(
temp
)
(
inst
mc68881-store
x
lip-tn
:double
temp
))
(
inst
mc68881-store
x
lip-tn
:double
temp
)))
(
inst
mc68881-wait
))
;;;; Move VOPs:
;;;; Move VOPs:
...
@@ -157,8 +155,7 @@
...
@@ -157,8 +155,7 @@
(
:generator
20
(
:generator
20
(
with-fixed-allocation
(
y
ndescr
alloc
type
size
)
(
with-fixed-allocation
(
y
ndescr
alloc
type
size
)
(
inst
cal
lip-tn
y
(
-
(
*
data
vm:word-bytes
)
vm:other-pointer-type
))
(
inst
cal
lip-tn
y
(
-
(
*
data
vm:word-bytes
)
vm:other-pointer-type
))
(
inst
mc68881-store
x
lip-tn
format
ndescr
)
(
inst
mc68881-store
x
lip-tn
format
ndescr
))))
(
inst
mc68881-wait
))))
(
macrolet
((
frob
(
name
sc
&rest
args
)
(
macrolet
((
frob
(
name
sc
&rest
args
)
`
(
progn
`
(
progn
...
@@ -187,8 +184,7 @@
...
@@ -187,8 +184,7 @@
(
inst
mc68881-move
y
x
temp
)))
(
inst
mc68881-move
y
x
temp
)))
((
single-stack
double-stack
)
((
single-stack
double-stack
)
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
inst
cal
lip-tn
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
inst
mc68881-store
y
lip-tn
format
temp
)
(
inst
mc68881-store
y
lip-tn
format
temp
)))))
(
inst
mc68881-wait
)))))
(
macrolet
((
frob
(
name
format
sc
)
(
macrolet
((
frob
(
name
format
sc
)
`
(
progn
`
(
progn
...
@@ -294,7 +290,6 @@
...
@@ -294,7 +290,6 @@
(
let
((
nfp
(
current-nfp-tn
vop
)))
(
let
((
nfp
(
current-nfp-tn
vop
)))
(
inst
cal
loc
nfp
(
*
(
tn-offset
loc-tn
)
word-bytes
)))
(
inst
cal
loc
nfp
(
*
(
tn-offset
loc-tn
)
word-bytes
)))
(
inst
mc68881-store-status
:fpsr
loc
temp
)
(
inst
mc68881-store-status
:fpsr
loc
temp
)
(
inst
mc68881-wait
)
(
loadw
temp
loc
)
(
loadw
temp
loc
)
(
ecase
condition
(
ecase
condition
((
<
>
)
((
<
>
)
...
@@ -414,13 +409,11 @@
...
@@ -414,13 +409,11 @@
(
signed-stack
(
signed-stack
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
*
(
tn-offset
y
)
vm:word-bytes
))
(
inst
mc68881-store
temp
addr
:integer
scratch
)
(
inst
mc68881-store
temp
addr
:integer
scratch
))
(
inst
mc68881-wait
))
(
signed-reg
(
signed-reg
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
inst
mc68881-store
temp
addr
:integer
scratch
)
(
inst
mc68881-store
temp
addr
:integer
scratch
)
(
inst
mc68881-wait
)
(
loadw
y
(
current-nfp-tn
vop
)
(
loadw
y
(
current-nfp-tn
vop
)
(
tn-offset
stack-temp
))))))))
(
tn-offset
stack-temp
))))))))
(
frob
%unary-truncate
mc68881-single-reg
mc68881-single-float
:intrz
)
(
frob
%unary-truncate
mc68881-single-reg
mc68881-single-float
:intrz
)
...
@@ -503,7 +496,6 @@
...
@@ -503,7 +496,6 @@
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
inst
mc68881-store
float
addr
:single
scratch
)
(
inst
mc68881-store
float
addr
:single
scratch
)
(
inst
mc68881-wait
)
(
loadw
bits
(
current-nfp-tn
vop
)
(
tn-offset
stack-temp
))))
(
loadw
bits
(
current-nfp-tn
vop
)
(
tn-offset
stack-temp
))))
(
define-vop
(
mc68881-double-float-high-bits
)
(
define-vop
(
mc68881-double-float-high-bits
)
...
@@ -523,7 +515,6 @@
...
@@ -523,7 +515,6 @@
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
inst
cal
addr
(
current-nfp-tn
vop
)
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
*
(
tn-offset
stack-temp
)
vm:word-bytes
))
(
inst
mc68881-store
float
addr
:double
scratch
)
(
inst
mc68881-store
float
addr
:double
scratch
)
(
inst
mc68881-wait
)
(
loadw
bits
(
current-nfp-tn
vop
)
(
+
(
tn-offset
stack-temp
)
offset
))))
(
loadw
bits
(
current-nfp-tn
vop
)
(
+
(
tn-offset
stack-temp
)
offset
))))
(
define-vop
(
mc68881-double-float-low-bits
mc68881-double-float-high-bits
)
(
define-vop
(
mc68881-double-float-low-bits
mc68881-double-float-high-bits
)
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment