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

fix resolve-pointer-type

db4
Joe Groff 2009-09-16 20:54:57 -05:00
parent 9479fb4099
commit 263ce45932
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -65,8 +65,12 @@ M: word resolve-pointer-type
dup "pointer-c-type" word-prop dup "pointer-c-type" word-prop
[ ] [ drop void* ] ?if ; [ ] [ drop void* ] ?if ;
M: string resolve-pointer-type M: string resolve-pointer-type
dup "*" append dup c-types get at
[ nip ] [
drop
c-types get at dup c-type-name? c-types get at dup c-type-name?
[ resolve-pointer-type ] [ drop void* ] if ; [ resolve-pointer-type ] [ drop void* ] if
] if ;
: resolve-typedef ( name -- type ) : resolve-typedef ( name -- type )
dup c-type-name? [ c-type ] when ; dup c-type-name? [ c-type ] when ;