|
Lines 138-145
sub resolveType($)
Link Here
|
| 138 |
my ($ctype) = @_; |
138 |
my ($ctype) = @_; |
| 139 |
|
139 |
|
| 140 |
if (not hasType($ctype)) { |
140 |
if (not hasType($ctype)) { |
| 141 |
# assume struct typedef |
141 |
if (! ref $ctype) { |
| 142 |
return { TYPE => "TYPEDEF", NAME => $ctype, DATA => { TYPE => "STRUCT" } }; |
142 |
# it looks like a name. |
|
|
143 |
# assume struct typedef |
| 144 |
return { TYPE => "TYPEDEF", NAME => $ctype, DATA => { TYPE => "STRUCT" } }; |
| 145 |
} |
| 146 |
if ($ctype->{NAME} && ($ctype->{TYPE} eq "STRUCT")) { |
| 147 |
return { |
| 148 |
TYPE => "TYPEDEF", |
| 149 |
NAME => $ctype->{NAME}, |
| 150 |
DATA => $ctype |
| 151 |
}; |
| 152 |
} |
| 143 |
} else { |
153 |
} else { |
| 144 |
return getType($ctype); |
154 |
return getType($ctype); |
| 145 |
} |
155 |
} |
| 146 |
- |
|
|