diff --git a/libsrc/apple2/open.s b/libsrc/apple2/open.s index 2e867a66f..e7f603aa5 100644 --- a/libsrc/apple2/open.s +++ b/libsrc/apple2/open.s @@ -9,7 +9,7 @@ .export _open, closedirect, freebuffer .export __filetype, __auxtype - .destructor closeallfiles, 17 + .destructor closeallfiles, 5 .import pushname, popname .import iobuf_alloc, iobuf_free diff --git a/libsrc/atari/open.s b/libsrc/atari/open.s index ee6628381..aeeee44e9 100644 --- a/libsrc/atari/open.s +++ b/libsrc/atari/open.s @@ -10,7 +10,7 @@ .include "fd.inc" .export _open - .destructor closeallfiles, 17 + .destructor closeallfiles, 5 .import _close .import clriocb diff --git a/libsrc/cbm/open.s b/libsrc/cbm/open.s index 0d167a844..df6634593 100644 --- a/libsrc/cbm/open.s +++ b/libsrc/cbm/open.s @@ -9,7 +9,7 @@ .export _open - .destructor closeallfiles, 17 + .destructor closeallfiles, 5 .import SETLFS, OPEN, CLOSE .import addysp, popax @@ -100,7 +100,7 @@ parmok: jsr popax ; Get flags ; Error entry. Sets _errno, clears _oserror, returns -1 -seterrno: +seterrno: jmp __directerrno ; Error entry: Close the file and exit. OS error code is in A on entry diff --git a/libsrc/common/atexit.s b/libsrc/common/atexit.s index b66cce8e8..7bb063306 100644 --- a/libsrc/common/atexit.s +++ b/libsrc/common/atexit.s @@ -5,7 +5,7 @@ ; .export _atexit - .destructor doatexit, 5 + .destructor doatexit, 17 .import callax .include "errno.inc"