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
5806b1b6
Commit
5806b1b6
authored
Apr 23, 1991
by
wlott
Browse files
Added RT specific stuff.
parent
b79d3f06
Changes
1
Show whitespace changes
Inline
Side-by-side
tools/worldcom.lisp
View file @
5806b1b6
...
...
@@ -18,7 +18,7 @@
(
cons
(
intern
(
c:backend-name
c:*backend*
)
(
find-package
"KEYWORD"
))
(
remove-if
#'
(
lambda
(
x
)
(
member
x
'
(
:pmax
:sparc
)))
(
member
x
'
(
:pmax
:sparc
:rt
)))
*features*
))))
...
...
@@ -40,6 +40,11 @@
(
comf
"target:assembly/sparc/arith"
:assem
t
)
(
comf
"target:assembly/sparc/alloc"
:assem
t
))
(
when
(
string=
(
c:backend-name
c:*backend*
)
"RT"
)
(
comf
"target:assembly/rt/assem-rtns"
:assem
t
)
(
comf
"target:assembly/rt/array"
:assem
t
)
(
comf
"target:assembly/rt/arith"
:assem
t
)
(
comf
"target:assembly/rt/alloc"
:assem
t
))
;;; these guys can supposedly come in any order, but not really.
;;; some are put at the end so macros don't run interpreted and stuff.
...
...
@@ -77,6 +82,9 @@
(
when
(
string=
(
c:backend-name
c:*backend*
)
"SPARC"
)
(
comf
"target:code/sparc-machdef"
)
(
comf
"target:code/sparc-vm"
))
(
when
(
string=
(
c:backend-name
c:*backend*
)
"RT"
)
(
comf
"target:code/rt-machdef"
)
(
comf
"target:code/rt-vm"
))
(
comf
"target:code/symbol"
)
(
comf
"target:code/bignum"
)
...
...
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