steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

win32 IO memory leak fix

cvs
Mackenzie Straight 2005-02-08 15:48:12 +00:00
parent 44420f200a
commit d22b17c169
2 changed files with 16 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
library/dlists.factor
View File

@ -29,3 +29,17 @@ C: dlist-node
: dlist-pop-front ( dlist -- data ) : dlist-pop-front ( dlist -- data )
dup dlist-empty? [ drop f ] [ (dlist-pop-front) ] ifte ; dup dlist-empty? [ drop f ] [ (dlist-pop-front) ] ifte ;
: (dlist-each) ( quot dnode -- )
[
[ dlist-node-data swap [ call ] keep ] keep
dlist-node-next (dlist-each)
] [
drop
] ifte* ;
: dlist-each ( dlist quot -- )
swap dlist-first (dlist-each) ;
: dlist-length ( dlist -- length )
0 swap [ drop 1 + ] dlist-each ;

6
library/io/win32-io-internals.factor
View File

@ -1,8 +1,6 @@
! :folding=indent:collapseFolds=1:
! $Id$ ! $Id$
! !
! Copyright (C) 2004 Mackenzie Straight. ! Copyright (C) 2004, 2005 Mackenzie Straight.
! !
! Redistribution and use in source and binary forms, with or without ! Redistribution and use in source and binary forms, with or without
! modification, are permitted provided that the following conditions are met: ! modification, are permitted provided that the following conditions are met:
@ -131,7 +129,7 @@ END-STRUCT
: win32-io-thread ( -- ) : win32-io-thread ( -- )
10 wait-for-io swap [ 10 wait-for-io swap [
[ schedule-thread call ] callcc0 [ schedule-thread call ] callcc0 2drop
] [ ] [
drop yield drop yield
] ifte* ] ifte*