Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
cmucl
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
25
Issues
25
List
Boards
Labels
Service Desk
Milestones
Merge Requests
1
Merge Requests
1
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Operations
Operations
Incidents
Environments
Analytics
Analytics
CI / CD
Repository
Value Stream
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
cmucl
cmucl
Commits
ef49a0dc
Commit
ef49a0dc
authored
Aug 23, 2020
by
Raymond Toy
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
SAP offsets should be 64 bits
Just hard-code 64 like for alpha for now. We can fix this up later.
parent
aa7b0b27
Pipeline
#1774
passed with stage
in 8 minutes and 47 seconds
Changes
1
Pipelines
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
11 deletions
+11
-11
src/code/sap.lisp
src/code/sap.lisp
+11
-11
No files found.
src/code/sap.lisp
View file @
ef49a0dc
...
...
@@ -80,19 +80,19 @@
(
defun
int-sap
(
int
)
"Converts an integer into a System Area Pointer."
(
declare
(
type
(
unsigned-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
int
))
(
declare
(
type
(
unsigned-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
int
))
(
int-sap
int
))
(
defun
sap-ref-8
(
sap
offset
)
"Returns the 8-bit byte at OFFSET bytes from SAP."
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
))
(
sap-ref-8
sap
offset
))
(
defun
sap-ref-16
(
sap
offset
)
"Returns the 16-bit word at OFFSET bytes from SAP."
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
(
1-
vm:word-bits
)
#+
alpha
63
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
(
1-
vm:word-bits
)
#+
(
or
alpha
amd64
)
63
)
offset
))
(
sap-ref-16
sap
offset
))
(
defun
sap-ref-32
(
sap
offset
)
...
...
@@ -110,7 +110,7 @@
(
defun
sap-ref-sap
(
sap
offset
)
"Returns the 32-bit system-area-pointer at OFFSET bytes from SAP."
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
))
(
sap-ref-sap
sap
offset
))
(
defun
sap-ref-single
(
sap
offset
)
...
...
@@ -135,13 +135,13 @@
(
defun
signed-sap-ref-8
(
sap
offset
)
"Returns the signed 8-bit byte at OFFSET bytes from SAP."
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
))
(
signed-sap-ref-8
sap
offset
))
(
defun
signed-sap-ref-16
(
sap
offset
)
"Returns the signed 16-bit word at OFFSET bytes from SAP."
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
(
1-
vm:word-bits
)
#+
alpha
63
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
(
1-
vm:word-bits
)
#+
(
or
alpha
amd64
)
63
)
offset
))
(
signed-sap-ref-16
sap
offset
))
(
defun
signed-sap-ref-32
(
sap
offset
)
...
...
@@ -158,13 +158,13 @@
(
defun
%set-sap-ref-8
(
sap
offset
new-value
)
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
)
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
)
(
type
(
unsigned-byte
8
)
new-value
))
(
setf
(
sap-ref-8
sap
offset
)
new-value
))
(
defun
%set-sap-ref-16
(
sap
offset
new-value
)
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
(
1-
vm:word-bits
)
#+
alpha
63
)
offset
)
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
(
1-
vm:word-bits
)
#+
(
or
alpha
amd64
)
63
)
offset
)
(
type
(
unsigned-byte
16
)
new-value
))
(
setf
(
sap-ref-16
sap
offset
)
new-value
))
...
...
@@ -182,13 +182,13 @@
(
defun
%set-signed-sap-ref-8
(
sap
offset
new-value
)
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
)
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
)
(
type
(
signed-byte
8
)
new-value
))
(
setf
(
signed-sap-ref-8
sap
offset
)
new-value
))
(
defun
%set-signed-sap-ref-16
(
sap
offset
new-value
)
(
declare
(
type
system-area-pointer
sap
)
(
type
(
signed-byte
#-
alpha
#.
(
1-
vm:word-bits
)
#+
alpha
63
)
offset
)
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
(
1-
vm:word-bits
)
#+
(
or
alpha
amd64
)
63
)
offset
)
(
type
(
signed-byte
16
)
new-value
))
(
setf
(
signed-sap-ref-16
sap
offset
)
new-value
))
...
...
@@ -206,7 +206,7 @@
(
defun
%set-sap-ref-sap
(
sap
offset
new-value
)
(
declare
(
type
system-area-pointer
sap
new-value
)
(
type
(
signed-byte
#-
alpha
#.
vm:word-bits
#+
alpha
64
)
offset
))
(
type
(
signed-byte
#-
(
or
alpha
amd64
)
#.
vm:word-bits
#+
(
or
alpha
amd64
)
64
)
offset
))
(
setf
(
sap-ref-sap
sap
offset
)
new-value
))
(
defun
%set-sap-ref-single
(
sap
offset
new-value
)
...
...
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