| 815 | } |
| 816 | |
| 817 | void declare_types() |
| 818 | { |
| 819 | register int c; |
| 820 | register bucket *bp=0; |
| 821 | char *tag=0; |
| 822 | |
| 823 | c = nextc(); |
| 824 | if (c == '<') { |
| 825 | tag = get_tag(); |
| 826 | c = nextc(); } |
| 827 | if (c == EOF) unexpected_EOF(); |
| 828 | |
| 829 | for (;;) { |
| 830 | c = nextc(); |
| 831 | if (isalpha(c) || c == '_' || c == '.' || c == '$') { |
| 832 | bp = get_name(); |
| 833 | if (nextc() == '(') |
| 834 | declare_argtypes(bp); |
| 835 | else |
| 836 | bp->args = 0; } |
| 837 | else if (c == '\'' || c == '"') { |
| 838 | bp = get_literal(); |
| 839 | bp->args = 0; } |
| 840 | else |
| 841 | return; |
| 842 | |
| 843 | if (tag) { |
| 844 | if (bp->tag && tag != bp->tag) |
| 845 | retyped_warning(bp->name); |
| 846 | bp->tag = tag; } } |
| 847 | } |
| 848 | |
| 849 | void declare_start() |
| 850 | { |
no test coverage detected