Removed closeallstreams

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

diff --git a/libsrc/common/_file.s b/libsrc/common/_file.s
index 50ef6e1a3ace44ffd50adbfd70cda0b40bbc155b..81eadf6960d458c85afa7278f21d61cbbf9ff3bd 100644 (file)
--- a/libsrc/common/_file.s
+++ b/libsrc/common/_file.s
@@ -3,46 +3,12 @@
 ;
 ; Data for the stdio file stream.
 ;
-; Be sure to keep the value priority of closeallstreams lower than that of
-; closeallfiles (which is the low level POSIX counterpart and must be
-; called after closeallstreams).
 
        .export         __filetab, _stdin, _stdout, _stderr
-        .destructor     closeallstreams, 16
-        .import         _close
 
         .include        "fcntl.inc"
         .include        "_file.inc"
 
-;----------------------------------------------------------------------------
-; Close all files on exit
-
-.proc   closeallstreams
-
-               ldy     #((FOPEN_MAX - 1) * _FILE_size)
-loop:          sty     index                           ; Save the index
-        lda     __filetab + _FILE_f_flags,y     ; Load file flags
-        and     #_FOPEN                         ; Is it open?
-               beq     next                            ; jump if closed
-
-; Close this file
-
-        lda     __filetab + _FILE_f_fd,y
-        ldx     #0
-        jsr     _close
-
-; Next file
-
-next:   lda     index
-        sec
-        sbc     #_FILE_size
-        tay
-        bcs     loop
-
-        rts
-
-.endproc
-
 ;----------------------------------------------------------------------------
 ; File data
 
@@ -69,8 +35,3 @@ _stderr:
        .word   __filetab + (STDERR_FILENO * _FILE_size)
 
 
-; Temp storage for closeallstreams
-
-.bss
-index:  .res    1
-