Le 05/09/2012 19:20, Alexander Burger a écrit :
On Wed, Sep 05, 2012 at 09:34:10AM +0200, Alexander Burger wrote:
I don't have the time at the moment to investigate it further. I hope I
can fix it this evening.


We need just to insert a call to closedir(). I've uploaded a fix to the
code repository.

As I'm in the process of other changes, I don't want to provide a new
testing release at the moment. If you need a quick fix, please insert a
single line in "src64/main.l" and re-assemble the binary:

    2922a2923
    >          cc closedir(Z)  # Close directory


I.e. the context is

       do
          cc readdir(Z)  # Find first directory entry
          null A  # OK?
          if z  # No
             cc closedir(Z)  # Close directory  <-- NEW
    10       ld E Nil  # Return NIL
             pop Z
             pop X
             ret
          end
          lea E (A D_NAME)  # Pointer to name entry
          cmp X Nil  # flg?
       while eq  # Yes

Cheers,
- Alex


Thanks for the quick fix!

--
Laurent ARTAUD (laurent.art...@free.fr)
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to