diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-09-29 01:06:05 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-09-29 01:06:05 +0200 |
| commit | fd7702e9b009d2984328b2519db946f82ad834e9 (patch) | |
| tree | f910466e18eddd34e157c98e01dc5414e3154451 /SCM/setjump.mar | |
| parent | ace29d495df89afd2e3251064de91b00da2612da (diff) | |
| parent | 45e00ec3f4dd6289cd14021ef1ee35568b4928c6 (diff) | |
Merge /home/mulk/Dropbox/Projekte/Toilet Lisp
Diffstat (limited to 'SCM/setjump.mar')
| -rw-r--r-- | SCM/setjump.mar | 39 |
1 files changed, 39 insertions, 0 deletions
diff --git a/SCM/setjump.mar b/SCM/setjump.mar new file mode 100644 index 0000000..3fc223c --- /dev/null +++ b/SCM/setjump.mar @@ -0,0 +1,39 @@ + .title setjump and longjump + +; The VAX C runtime library uses the $unwind utility for +; implementing longjmp. That fails if your program does not +; follow normal stack decipline. This is a dirty implementation +; of setjmp and longjmp that does not have that problem. The +; names longjmp and setjmp are avoided so that the code can be +; linked with the vax c runtime library without name clashes. + +; This code was contributed by an anonymous reviewer from +; comp.sources.reviewed. + + .entry setjump,^M<IV> + movl 4(ap),r0 + movq r2,(r0)+ + movq r4,(r0)+ + movq r6,(r0)+ + movq r8,(r0)+ + movq r10,(r0)+ + movl fp,(r0)+ + movo 4(fp),(r0)+ + movq 20(fp),(r0) + clrl r0 + ret + + .entry longjump,^M<IV> + movl 4(ap),r0 + movq (r0)+,r2 + movq (r0)+,r4 + movq (r0)+,r6 + movq (r0)+,r8 + movq (r0)+,r10 + movl (r0)+,r1 + movo (r0)+,4(r1) + movq (r0),20(r1) + movl 8(ap),r0 + movl r1,fp + ret + .end |