added sleep() implementation

[cc65] / libsrc / common / longjmp.s

diff --git a/libsrc/common/longjmp.s b/libsrc/common/longjmp.s
index 6f74f7331597d8ee818b668647bf81692f6f84ee..5941fbfae07ea28672547458ea4b2d11d4b3c3f9 100644 (file)
--- a/libsrc/common/longjmp.s
+++ b/libsrc/common/longjmp.s
@@ -11,11 +11,15 @@
 _longjmp:
        sta     ptr2            ; Save retval
        stx     ptr2+1
-       jsr     popax           ; get buf
+       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
+@L1:   jsr     popax           ; get buf
        sta     ptr1
        stx     ptr1+1
        ldy     #0
-          
+
 ; Get the old parameter stack
 
                lda     (ptr1),y