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
75c1ce9a
Commit
75c1ce9a
authored
20 years ago
by
cwang
Browse files
Options
Downloads
Patches
Plain Diff
amd64 changes
parent
835ff5b3
No related branches found
Branches containing commit
No related tags found
Tags containing commit
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
lisp/Linux-os.h
+20
-4
20 additions, 4 deletions
lisp/Linux-os.h
lisp/lispregs.h
+6
-2
6 additions, 2 deletions
lisp/lispregs.h
with
26 additions
and
6 deletions
lisp/Linux-os.h
+
20
−
4
View file @
75c1ce9a
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.h,v 1.1
4
200
3
/0
3/23 21:23:41 gerd
Exp $
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/Linux-os.h,v 1.1
5
200
4
/0
5/18 22:18:03 cwang
Exp $
This code was written as part of the CMU Common Lisp project at
Carnegie Mellon University, and has been placed in the public domain.
...
...
@@ -13,7 +13,6 @@
#include
<sys/types.h>
#include
<sys/mman.h>
#include
<sys/signal.h>
#include
<asm/sigcontext.h>
#include
<string.h>
/* #include <dlfcn.h> */
#include
<sys/time.h>
...
...
@@ -68,7 +67,7 @@ typedef struct sigcontext_struct sigcontext;
so there is no need to define the following for Alpha
Linux
*/
#ifdef
i386
#if
(
def
ined(i386) || defined(__x86_64))
#if (LINUX_VERSION_CODE >= linuxversion(2,1,0)) || (__GNU_LIBRARY__ >= 6)
#define HANDLER_ARGS int signal, struct sigcontext contextstruct
...
...
@@ -88,9 +87,14 @@ typedef struct sigcontext_struct sigcontext;
#define sv_onstack sa_mask
/* ouch, this one really hurts */
#endif
#define uc_sigmask oldmask
#if defined (__x86_64)
#define sc_pc rip
#define sc_sp rsp
#else
#define sc_pc eip
#define sc_mask oldmask
#define sc_sp esp
#endif
#define sc_mask oldmask
#if (LINUX_VERSION_CODE >= linuxversion(2,1,0)) || (__GNU_LIBRARY__ >= 6)
#define sigcontext sigcontext
#else
...
...
@@ -98,6 +102,17 @@ typedef struct sigcontext_struct sigcontext;
#endif
#define sc_efl eflags
#ifdef __x86_64
#define sc_rax rax
#define sc_rcx rcx
#define sc_rdx rdx
#define sc_rbx rbx
#define sc_rsp rsp
#define sc_rbp rbp
#define sc_rsi rsi
#define sc_rdi rdi
#define sc_rip rip
#else
#define sc_eax eax
#define sc_ecx ecx
#define sc_edx edx
...
...
@@ -107,6 +122,7 @@ typedef struct sigcontext_struct sigcontext;
#define sc_esi esi
#define sc_edi edi
#define sc_eip eip
#endif
#endif
/* i386 */
...
...
This diff is collapsed.
Click to expand it.
lisp/lispregs.h
+
6
−
2
View file @
75c1ce9a
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lispregs.h,v 1.
4
200
2
/0
8/23 17:01:01 pmai
Exp $ */
/* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/lispregs.h,v 1.
5
200
4
/0
5/18 22:20:09 cwang
Exp $ */
#if defined(mips) || defined(irix)
#include
"mips-lispregs.h"
...
...
@@ -16,6 +16,10 @@
#include
"x86-lispregs.h"
#endif
#ifdef __x86_64
#include
"amd64-lispregs.h"
#endif
#ifdef parisc
#include
"hppa-lispregs.h"
#endif
...
...
@@ -24,7 +28,7 @@
#include
"alpha-lispregs.h"
#endif
/* This matches the
definition of sc-offset in code/debug-info.lisp */
/* This matches the definition of sc-offset in code/debug-info.lisp */
#define SC_OFFSET(sc,offset) (((offset) << 5) | (sc))
#ifndef LANGUAGE_ASSEMBLY
...
...
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