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

Use alien.destructors functor to generate &free and |free words

db4
Slava Pestov 2009-01-17 17:58:31 -06:00
parent c6abf5f1b2
commit 69d02fe06d
1 changed files with 3 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
basis/libc/libc.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2004, 2005 Mackenzie Straight
! Copyright (C) 2007, 2008 Slava Pestov
! Copyright (C) 2007, 2009 Slava Pestov
! Copyright (C) 2007, 2008 Doug Coleman
! See http://factorcode.org/license.txt for BSD license.
USING: alien assocs continuations destructors kernel
USING: alien assocs continuations alien.destructors kernel
namespaces accessors sets summary ;
IN: libc
@ -90,17 +90,4 @@ PRIVATE>
: strlen ( alien -- len )
"size_t" "libc" "strlen" { "char*" } alien-invoke ;
<PRIVATE
! Memory allocations
TUPLE: memory-destructor alien disposed ;
M: memory-destructor dispose* alien>> free ;
PRIVATE>
: &free ( alien -- alien )
dup f memory-destructor boa &dispose drop ; inline
: |free ( alien -- alien )
dup f memory-destructor boa |dispose drop ; inline
DESTRUCTOR: free