Close the files after loading.

svn path=/trunk/; revision=3216
This commit is contained in:
Hartmut Birr 2002-07-14 07:48:17 +00:00
parent a0e70e46a2
commit 0ff8db0de8

View file

@ -1026,6 +1026,12 @@ load_module2:
mov dx, error_file_read_failed
jmp error
.read_last_data_succeeded:
;;
;; Close the file
;;
mov bx, [_current_filehandle]
mov ah, 0x3e
int 0x21
%ifndef NDEBUG
mov ah,02h
mov dl,'#'