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

Merge branch 'master' of git://factorcode.org/git/factor

release
Eduardo Cavazos 2007-11-09 15:29:24 -06:00
parent 8114f398ca e8a74a19c2
commit 3e7b4e047c
5 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
core/libc/libc-docs.factor
View File

@ -26,8 +26,7 @@ HELP: memcpy
HELP: check-ptr HELP: check-ptr
{ $values { "c-ptr" "an alien address, byte array, or " { $link f } } { "checked" "an alien address or byte array with non-zero address" } } { $values { "c-ptr" "an alien address, byte array, or " { $link f } } { "checked" "an alien address or byte array with non-zero address" } }
{ $description "Throws an error if the input is " { $link f } ". Otherwise the object remains on the data stack. This word should be used to check the return values of " { $link malloc } " and " { $link realloc } " before use." } { $description "Throws an error if the input is " { $link f } ". Otherwise the object remains on the data stack." } ;
{ $error-description "Callers of " { $link malloc } " and " { $link realloc } " should use " { $link check-ptr } " to throw an error in the case of a memory allocation failure." } ;
HELP: free HELP: free
{ $values { "alien" c-ptr } } { $values { "alien" c-ptr } }

2
core/libc/libc.factor
View File

@ -84,4 +84,4 @@ PRIVATE>
"void" "libc" "memcpy" { "void*" "void*" "ulong" } alien-invoke ; "void" "libc" "memcpy" { "void*" "void*" "ulong" } alien-invoke ;
: with-malloc ( size quot -- ) : with-malloc ( size quot -- )
swap 1 calloc check-ptr swap keep free ; inline swap 1 calloc swap keep free ; inline

2
extra/io/buffers/buffers.factor
View File

@ -79,7 +79,7 @@ HINTS: search-buffer-until { fixnum fixnum simple-alien string } ;
buffer-fill zero? ; buffer-fill zero? ;
: extend-buffer ( n buffer -- ) : extend-buffer ( n buffer -- )
2dup buffer-ptr swap realloc check-ptr 2dup buffer-ptr swap realloc
over set-buffer-ptr set-buffer-size ; over set-buffer-ptr set-buffer-size ;
: check-overflow ( n buffer -- ) : check-overflow ( n buffer -- )

2
extra/io/unix/launcher/launcher.factor
View File

@ -31,7 +31,7 @@ USE: unix
! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
: with-fork ( quot -- pid ) : with-fork ( child parent -- pid )
fork [ zero? -rot if ] keep ; inline fork [ zero? -rot if ] keep ; inline
: prepare-execvp ( args -- cmd args ) : prepare-execvp ( args -- cmd args )

2
extra/io/windows/nt/sockets/sockets.factor
View File

@ -1,5 +1,5 @@
USING: alien alien.c-types byte-arrays continuations destructors USING: alien alien.c-types byte-arrays continuations destructors
io.nonblocking io io.sockets io.sockets.impl io.nonblocking io io.sockets io.sockets.impl namespaces
io.streams.duplex io.windows io.windows.nt io.windows.nt.backend io.streams.duplex io.windows io.windows.nt io.windows.nt.backend
windows.winsock kernel libc math sequences threads tuples.lib ; windows.winsock kernel libc math sequences threads tuples.lib ;
IN: io.windows.nt.sockets IN: io.windows.nt.sockets