Parent Directory | Revision Log | Patch
revision 1.10 by jmd, Wed Jan 5 00:32:16 2005 UTC | revision 1.11 by blp, Mon Mar 7 03:04:50 2005 UTC | |
---|---|---|
# | Line 158 get_label (struct variable **vars, int v | Line 158 get_label (struct variable **vars, int v |
158 | } | } |
159 | else | else |
160 | { | { |
161 | if (token != T_NUM) | if (!lex_is_number ()) |
162 | { | { |
163 | lex_error (_("expecting integer")); | lex_error (_("expecting integer")); |
164 | return 0; | return 0; |
165 | } | } |
166 | if (!lex_integer_p ()) | if (!lex_is_integer ()) |
167 | msg (SW, _("Value label `%g' is not integer."), tokval); | msg (SW, _("Value label `%g' is not integer."), tokval); |
168 | value.f = tokval; | value.f = tokval; |
169 | } | } |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |