New entry point setoserror

git-svn-id: svn://svn.cc65.org/cc65/trunk@3835 b7a2c559-68d2-44c3-8de9-860c34a00d81

diff --git a/asminc/errno.inc b/asminc/errno.inc
index 96b5bf94ecb67970a4938cee9d02310291fb29b6..ef81036fca4aeb7f3ed044ff0f8511cebc8c84f1 100644 (file)
--- a/asminc/errno.inc
+++ b/asminc/errno.inc
@@ -7,6 +7,7 @@
         .global         __errno, __oserror
         .global         __maperrno, __osmaperrno
         .global         __seterrno
+        .global         oserrcheck, setoserror
 
 ; Error codes, must match the values in the C headers
 .enum

diff --git a/libsrc/common/maperrno.s b/libsrc/common/maperrno.s
index 528888e7b98c6d09b4bd12c5a6c168046a5480f2..869acac6f0338c7f5b0be530542748c37199397d 100644 (file)
--- a/libsrc/common/maperrno.s
+++ b/libsrc/common/maperrno.s
@@ -4,6 +4,9 @@
 ; void _maperrno(void);
 ; /* Map an OS error to a system independent error code */
 ;
+; Second entry setoserror maps the OS error code in A to an errno code
+; and stores it into errno. _oserror is cleared.
+
 
         .include        "errno.inc"
 
@@ -13,6 +16,7 @@
 __maperrno:
        lda     __oserror               ; Get the error code
        beq     @L1                     ; Jump if no error
+setoserror:       
        ldx     #$00                    ; Clear error
        stx     __oserror
        jsr     __osmaperrno            ; Map the code