fix bug in pointer type parsing

db4
Joe Groff 2009-09-15 22:10:16 -05:00
parent 3b4330fcf6
commit 26026ff6de
1 changed files with 2 additions and 4 deletions

View File

@ -79,11 +79,9 @@ M: string c-type ( name -- type )
CHAR: ] over member? [
parse-array-type prefix
] [
dup c-types get at [
resolve-typedef
] [
dup c-types get at [ ] [
"*" ?tail [ resolve-pointer-type ] [ no-c-type ] if
] ?if
] ?if resolve-typedef
] if ;
M: word c-type