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
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
