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

don't box struct pointer values when they're null

Joe Groff 2010-02-22 19:08:43 -08:00
parent 7d069c58ee
commit d5c6ae5d36
2 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/alien/c-types/c-types-tests.factor
View File

@ -24,8 +24,6 @@ UNION-STRUCT: foo
[ t ] [ pointer: char c-type char* c-type = ] unit-test
[ t ] [ pointer: foo c-type-boxer-quot foo c-type-boxer-quot = ] unit-test
[ t ] [ foo heap-size int heap-size = ] unit-test
TYPEDEF: int MyInt

2
basis/alien/c-types/c-types.factor
View File

@ -288,7 +288,7 @@ CONSTANT: primitive-types
}
: (pointer-c-type) ( void* type -- void*' )
[ clone ] dip c-type-boxer-quot >>boxer-quot ;
[ clone ] dip c-type-boxer-quot '[ _ [ f ] if* ] >>boxer-quot ;
<PRIVATE