6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-10 19:29:45 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #208 from greg-king5/big-jump

Browse Source 
Improve the longjmp() and setjmp() functions.
This commit is contained in:
Oliver Schmidt 2015-09-11 21:06:50 +02:00
commit 45313075fe
2 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libsrc/common/longjmp.s
View File

@ -1,7 +1,8 @@
;
; Ullrich von Bassewitz, 06.06.1998
; 1998-06-06, Ullrich von Bassewitz
; 2015-09-11, Greg King
;
; void longjmp (jmp_buf buf, int retval);
; void __fastcall__ longjmp (jmp_buf buf, int retval);
;
.export _longjmp
@ -13,8 +14,8 @@ _longjmp:
stx ptr2+1
ora ptr2+1 ; Check for 0
bne @L1
lda #1 ; 0 is illegal according to the standard...
sta ptr2 ; ... and must be replaced by 1
inc ptr2 ; 0 is illegal, according to the standard ...
; ... and, must be replaced by 1
@L1: jsr popax ; get buf
sta ptr1
stx ptr1+1
@ -49,4 +50,3 @@ _longjmp:
lda ptr2
ldx ptr2+1
rts

14
libsrc/common/setjmp.s
View File

@ -1,10 +1,13 @@
;
; Ullrich von Bassewitz, 06.06.1998
; 1998-06-06, Ullrich von Bassewitz
; 2015-09-11, Greg King
;
; int setjmp (jmp_buf buf);
; int __fastcall__ setjmp (jmp_buf buf);
;
.export __setjmp
.import return0
.importzp sp, ptr1
__setjmp:
@ -44,9 +47,4 @@ __setjmp:
; Return zero
lda #0
tax
rts
jmp return0