]> gcc.gnu.org Git - gcc.git/blame - gcc/java/parse.c
git://gcc.gnu.org / gcc.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
parse.y (check_class_interface_creation): Use DIR_SEPARATOR consistently.
[gcc.git] / gcc / java / parse.c
CommitLineData
8b27f225 1
257fafbb 2/* A Bison parser, made from ./parse.y
8b27f225
PB		 3 by GNU Bison version 1.25
4 */
5
6#define YYBISON 1 /* Identify Bison output. */
7
8#define yyparse java_parse
9#define yylex java_lex
10#define yyerror java_error
11#define yylval java_lval
12#define yychar java_char
13#define yydebug java_debug
14#define yynerrs java_nerrs
15#define PLUS_TK 258
16#define MINUS_TK 259
17#define MULT_TK 260
18#define DIV_TK 261
19#define REM_TK 262
20#define LS_TK 263
21#define SRS_TK 264
22#define ZRS_TK 265
23#define AND_TK 266
24#define XOR_TK 267
25#define OR_TK 268
26#define BOOL_AND_TK 269
27#define BOOL_OR_TK 270
28#define EQ_TK 271
29#define NEQ_TK 272
30#define GT_TK 273
31#define GTE_TK 274
32#define LT_TK 275
33#define LTE_TK 276
34#define PLUS_ASSIGN_TK 277
35#define MINUS_ASSIGN_TK 278
36#define MULT_ASSIGN_TK 279
37#define DIV_ASSIGN_TK 280
38#define REM_ASSIGN_TK 281
39#define LS_ASSIGN_TK 282
40#define SRS_ASSIGN_TK 283
41#define ZRS_ASSIGN_TK 284
42#define AND_ASSIGN_TK 285
43#define XOR_ASSIGN_TK 286
44#define OR_ASSIGN_TK 287
45#define PUBLIC_TK 288
46#define PRIVATE_TK 289
47#define PROTECTED_TK 290
48#define STATIC_TK 291
49#define FINAL_TK 292
50#define SYNCHRONIZED_TK 293
51#define VOLATILE_TK 294
52#define TRANSIENT_TK 295
53#define NATIVE_TK 296
54#define PAD_TK 297
55#define ABSTRACT_TK 298
56#define MODIFIER_TK 299
57#define DECR_TK 300
58#define INCR_TK 301
59#define DEFAULT_TK 302
60#define IF_TK 303
61#define THROW_TK 304
62#define BOOLEAN_TK 305
63#define DO_TK 306
64#define IMPLEMENTS_TK 307
65#define THROWS_TK 308
66#define BREAK_TK 309
67#define IMPORT_TK 310
68#define ELSE_TK 311
69#define INSTANCEOF_TK 312
70#define RETURN_TK 313
71#define VOID_TK 314
72#define CATCH_TK 315
73#define INTERFACE_TK 316
74#define CASE_TK 317
75#define EXTENDS_TK 318
76#define FINALLY_TK 319
77#define SUPER_TK 320
78#define WHILE_TK 321
79#define CLASS_TK 322
80#define SWITCH_TK 323
81#define CONST_TK 324
82#define TRY_TK 325
83#define FOR_TK 326
84#define NEW_TK 327
85#define CONTINUE_TK 328
86#define GOTO_TK 329
87#define PACKAGE_TK 330
88#define THIS_TK 331
89#define BYTE_TK 332
90#define SHORT_TK 333
91#define INT_TK 334
92#define LONG_TK 335
93#define CHAR_TK 336
94#define INTEGRAL_TK 337
95#define FLOAT_TK 338
96#define DOUBLE_TK 339
97#define FP_TK 340
98#define ID_TK 341
99#define REL_QM_TK 342
100#define REL_CL_TK 343
101#define NOT_TK 344
102#define NEG_TK 345
103#define ASSIGN_ANY_TK 346
104#define ASSIGN_TK 347
105#define OP_TK 348
106#define CP_TK 349
107#define OCB_TK 350
108#define CCB_TK 351
109#define OSB_TK 352
110#define CSB_TK 353
111#define SC_TK 354
112#define C_TK 355
113#define DOT_TK 356
114#define STRING_LIT_TK 357
115#define CHAR_LIT_TK 358
116#define INT_LIT_TK 359
117#define FP_LIT_TK 360
118#define TRUE_TK 361
119#define FALSE_TK 362
120#define BOOL_LIT_TK 363
121#define NULL_TK 364
122
22eed1e6 123#line 48 "./parse.y"
8b27f225
PB		 124
125#include <stdio.h>
126#include <stdlib.h>
127#include <string.h>
128#include <dirent.h>
129#ifdef __STDC__
130#include <stdarg.h>
131#else
132#include <varargs.h>
133#endif
134
135#include "config.h"
136#include "tree.h"
137#include "rtl.h"
138#include "obstack.h"
139#include "toplev.h"
140#include "flags.h"
141#include "java-tree.h"
142#include "jcf.h"
143#include "lex.h"
144#include "parse.h"
145#include "zipfile.h"
5e942c50 146#include "convert.h"
63a212ed 147#include "buffer.h"
8b27f225 148
fa322ab5
TT		 149#ifndef DIR_SEPARATOR
150#define DIR_SEPARATOR '/'
151#endif
152
82371d41
APB		 153/* Local function prototypes */
154static char *java_accstring_lookup PROTO ((int));
155static void classitf_redefinition_error PROTO ((char *,tree, tree, tree));
156static void variable_redefinition_error PROTO ((tree, tree, tree, int));
157static void check_modifiers PROTO ((char *, int, int));
158static tree create_class PROTO ((int, tree, tree, tree));
159static tree create_interface PROTO ((int, tree, tree));
160static tree find_field PROTO ((tree, tree));
161static tree lookup_field_wrapper PROTO ((tree, tree));
162static int duplicate_declaration_error_p PROTO ((tree, tree, tree));
163static void register_fields PROTO ((int, tree, tree));
164static tree parser_qualified_classname PROTO ((tree));
165static int parser_check_super PROTO ((tree, tree, tree));
166static int parser_check_super_interface PROTO ((tree, tree, tree));
167static void check_modifiers_consistency PROTO ((int));
168static tree lookup_cl PROTO ((tree));
169static tree lookup_java_method2 PROTO ((tree, tree, int));
170static tree method_header PROTO ((int, tree, tree, tree));
171static void fix_method_argument_names PROTO ((tree ,tree));
172static tree method_declarator PROTO ((tree, tree));
173static void parse_warning_context VPROTO ((tree cl, char *msg, ...));
174static void issue_warning_error_from_context PROTO ((tree, char *msg, va_list));
175static tree parse_jdk1_1_error PROTO ((char *));
176static void complete_class_report_errors PROTO ((jdep *));
177static int process_imports PROTO ((void));
178static void read_import_dir PROTO ((tree));
179static int find_in_imports_on_demand PROTO ((tree));
180static int find_in_imports PROTO ((tree));
181static int check_pkg_class_access PROTO ((tree, tree));
182static tree resolve_package PROTO ((tree, tree *));
183static tree lookup_package_type PROTO ((char *, int));
184static tree resolve_class PROTO ((tree, tree, tree));
185static tree do_resolve_class PROTO ((tree, tree, tree));
186static void declare_local_variables PROTO ((int, tree, tree));
187static void source_start_java_method PROTO ((tree));
188static void source_end_java_method PROTO ((void));
189static void expand_start_java_method PROTO ((tree));
190static tree find_name_in_single_imports PROTO ((tree));
191static void check_abstract_method_header PROTO ((tree));
192static tree lookup_java_interface_method2 PROTO ((tree, tree));
193static tree resolve_expression_name PROTO ((tree, tree *));
194static tree maybe_create_class_interface_decl PROTO ((tree, tree, tree));
195static int check_class_interface_creation PROTO ((int, int, tree,
196 tree, tree, tree));
197static tree patch_method_invocation PROTO ((tree, tree, tree,
ac825856 198 int *, tree *));
82371d41
APB		 199static int breakdown_qualified PROTO ((tree *, tree *, tree));
200static tree resolve_and_layout PROTO ((tree, tree));
201static tree resolve_no_layout PROTO ((tree, tree));
202static int invocation_mode PROTO ((tree, int));
203static tree find_applicable_accessible_methods_list PROTO ((int, tree,
204 tree, tree));
205static tree find_most_specific_methods_list PROTO ((tree));
206static int argument_types_convertible PROTO ((tree, tree));
ac825856 207static tree patch_invoke PROTO ((tree, tree, tree));
82371d41
APB		 208static tree lookup_method_invoke PROTO ((int, tree, tree, tree, tree));
209static tree register_incomplete_type PROTO ((int, tree, tree, tree));
210static tree obtain_incomplete_type PROTO ((tree));
5b09b33e 211static tree java_complete_lhs PROTO ((tree));
82371d41
APB		 212static tree java_complete_tree PROTO ((tree));
213static void java_complete_expand_method PROTO ((tree));
214static int unresolved_type_p PROTO ((tree, tree *));
215static void create_jdep_list PROTO ((struct parser_ctxt *));
216static tree build_expr_block PROTO ((tree, tree));
217static tree enter_block PROTO ((void));
218static tree enter_a_block PROTO ((tree));
219static tree exit_block PROTO ((void));
220static tree lookup_name_in_blocks PROTO ((tree));
221static void maybe_absorb_scoping_blocks PROTO ((void));
222static tree build_method_invocation PROTO ((tree, tree));
223static tree build_new_invocation PROTO ((tree, tree));
224static tree build_assignment PROTO ((int, int, tree, tree));
225static tree build_binop PROTO ((enum tree_code, int, tree, tree));
226static int check_final_assignment PROTO ((tree ,tree));
227static tree patch_assignment PROTO ((tree, tree, tree ));
228static tree patch_binop PROTO ((tree, tree, tree));
229static tree build_unaryop PROTO ((int, int, tree));
230static tree build_incdec PROTO ((int, int, tree, int));
231static tree patch_unaryop PROTO ((tree, tree));
232static tree build_cast PROTO ((int, tree, tree));
233static tree build_null_of_type PROTO ((tree));
234static tree patch_cast PROTO ((tree, tree));
235static int valid_ref_assignconv_cast_p PROTO ((tree, tree, int));
236static int valid_builtin_assignconv_identity_widening_p PROTO ((tree, tree));
237static int valid_cast_to_p PROTO ((tree, tree));
238static int valid_method_invocation_conversion_p PROTO ((tree, tree));
239static tree try_builtin_assignconv PROTO ((tree, tree, tree));
240static tree try_reference_assignconv PROTO ((tree, tree));
241static tree build_unresolved_array_type PROTO ((tree));
242static tree build_array_from_name PROTO ((tree, tree, tree, tree *));
243static tree build_array_ref PROTO ((int, tree, tree));
244static tree patch_array_ref PROTO ((tree));
245static tree make_qualified_name PROTO ((tree, tree, int));
246static tree merge_qualified_name PROTO ((tree, tree));
247static tree make_qualified_primary PROTO ((tree, tree, int));
248static int resolve_qualified_expression_name PROTO ((tree, tree *,
249 tree *, tree *));
250static void qualify_ambiguous_name PROTO ((tree));
251static void maybe_generate_clinit PROTO ((void));
252static tree resolve_field_access PROTO ((tree, tree *, tree *));
253static tree build_newarray_node PROTO ((tree, tree, int));
254static tree patch_newarray PROTO ((tree));
255static tree resolve_type_during_patch PROTO ((tree));
256static tree build_this PROTO ((int));
257static tree build_return PROTO ((int, tree));
258static tree patch_return PROTO ((tree));
259static tree maybe_access_field PROTO ((tree, tree, tree));
260static int complete_function_arguments PROTO ((tree));
261static int check_for_static_method_reference PROTO ((tree, tree, tree, tree, tree));
262static int not_accessible_p PROTO ((tree, tree, int));
263static void check_deprecation PROTO ((tree, tree));
264static int class_in_current_package PROTO ((tree));
265static tree build_if_else_statement PROTO ((int, tree, tree, tree));
266static tree patch_if_else_statement PROTO ((tree));
267static tree add_stmt_to_compound PROTO ((tree, tree, tree));
268static tree add_stmt_to_block PROTO ((tree, tree, tree));
269static tree patch_exit_expr PROTO ((tree));
270static tree build_labeled_block PROTO ((int, tree));
271static tree generate_labeled_block PROTO (());
272static tree complete_labeled_statement PROTO ((tree, tree));
273static tree build_bc_statement PROTO ((int, int, tree));
274static tree patch_bc_statement PROTO ((tree));
275static tree patch_loop_statement PROTO ((tree));
276static tree build_new_loop PROTO ((tree));
277static tree build_loop_body PROTO ((int, tree, int));
278static tree complete_loop_body PROTO ((int, tree, tree, int));
279static tree build_debugable_stmt PROTO ((int, tree));
280static tree complete_for_loop PROTO ((int, tree, tree, tree));
281static tree patch_switch_statement PROTO ((tree));
282static tree string_constant_concatenation PROTO ((tree, tree));
283static tree build_string_concatenation PROTO ((tree, tree));
284static tree patch_string_cst PROTO ((tree));
285static tree patch_string PROTO ((tree));
286static tree build_jump_to_finally PROTO ((tree, tree, tree, tree));
287static tree build_try_statement PROTO ((int, tree, tree, tree));
288static tree patch_try_statement PROTO ((tree));
289static tree patch_synchronized_statement PROTO ((tree, tree));
290static tree patch_throw_statement PROTO ((tree, tree));
291static void check_thrown_exceptions PROTO ((int, tree));
292static int check_thrown_exceptions_do PROTO ((tree));
293static void purge_unchecked_exceptions PROTO ((tree));
294static void check_throws_clauses PROTO ((tree, tree, tree));
295static void complete_method_declaration PROTO ((tree));
296static tree build_super_invocation PROTO (());
297static int verify_constructor_circularity PROTO ((tree, tree));
298static char *constructor_circularity_msg PROTO ((tree, tree));
299static tree build_this_super_qualified_invocation PROTO ((int, tree, tree,
300 int, int));
301static char *get_printable_method_name PROTO ((tree));
302static tree patch_conditional_expr PROTO ((tree, tree, tree));
303static void maybe_generate_finit PROTO (());
304static void fix_constructors PROTO ((tree));
305static int verify_constructor_super PROTO (());
306static tree create_artificial_method PROTO ((tree, int, tree, tree, tree));
307static void start_artificial_method_body PROTO ((tree));
308static void end_artificial_method_body PROTO ((tree));
82371d41
APB		 309static int check_method_redefinition PROTO ((tree, tree));
310static int reset_method_name PROTO ((tree));
311static void java_check_regular_methods PROTO ((tree));
312static void java_check_abstract_methods PROTO ((tree));
313static tree maybe_build_primttype_type_ref PROTO ((tree, tree));
314static void unreachable_stmt_error PROTO ((tree));
315static tree find_expr_with_wfl PROTO ((tree));
316static void missing_return_error PROTO ((tree));
f8976021
APB		 317static tree build_new_array_init PROTO ((int, tree));
318static tree patch_new_array_init PROTO ((tree, tree));
f8976021
APB		 319static tree maybe_build_array_element_wfl PROTO ((tree));
320static int array_constructor_check_entry PROTO ((tree, tree));
4a5f66c3 321static char *purify_type_name PROTO ((char *));
63a212ed 322static tree patch_initialized_static_field PROTO ((tree));
5b09b33e 323static tree fold_constant_for_init PROTO ((tree, tree));
82371d41 324
8b27f225
PB		 325/* Number of error found so far. */
326int java_error_count;
327/* Number of warning found so far. */
328int java_warning_count;
329
330/* The current parser context */
331static struct parser_ctxt *ctxp;
332
b351b287
APB		 333/* List of things that were anlyzed for which code will be generated */
334static struct parser_ctxt *ctxp_for_generation = NULL;
335
8b27f225
PB		 336/* binop_lookup maps token to tree_code. It is used where binary
337 operations are involved and required by the parser. RDIV_EXPR
338 covers both integral/floating point division. The code is changed
339 once the type of both operator is worked out. */
340
341static enum tree_code binop_lookup[19] =
342 {
343 PLUS_EXPR, MINUS_EXPR, MULT_EXPR, RDIV_EXPR, TRUNC_MOD_EXPR,
344 LSHIFT_EXPR, RSHIFT_EXPR, URSHIFT_EXPR,
345 BIT_AND_EXPR, BIT_XOR_EXPR, BIT_IOR_EXPR,
346 TRUTH_ANDIF_EXPR, TRUTH_ORIF_EXPR,
347 EQ_EXPR, NE_EXPR, GT_EXPR, GE_EXPR, LT_EXPR, LE_EXPR,
348 };
349#define BINOP_LOOKUP(VALUE) \
350 binop_lookup [((VALUE) - PLUS_TK)% \
351 (sizeof (binop_lookup) / sizeof (binop_lookup[0]))]
352
353/* Fake WFL used to report error message. It is initialized once if
354 needed and reused with it's location information is overriden. */
12472854 355tree wfl_operator = NULL_TREE;
8b27f225
PB		 356
357/* The "$L" identifier we use to create labels. */
358static tree label_id = NULL_TREE;
359
360/* The "StringBuffer" identifier used for the String `+' operator. */
361static tree wfl_string_buffer = NULL_TREE;
362
363/* The "append" identifier used for String `+' operator. */
364static tree wfl_append = NULL_TREE;
365
366/* The "toString" identifier used for String `+' operator. */
367static tree wfl_to_string = NULL_TREE;
368
fa322ab5 369#line 294 "./parse.y"
8b27f225
PB		 370typedef union {
371 tree node;
372 int sub_token;
373 struct {
374 int token;
375 int location;
376 } operator;
377 int value;
378} YYSTYPE;
379#ifndef YYDEBUG
380#define YYDEBUG 1
381#endif
382
383#include <stdio.h>
384
385#ifndef __cplusplus
386#ifndef __STDC__
387#define const
388#endif
389#endif
390
391
392
1179ebc2 393#define YYFINAL 774
8b27f225
PB		 394#define YYFLAG -32768
395#define YYNTBASE 110
396
22eed1e6 397#define YYTRANSLATE(x) ((unsigned)(x) <= 364 ? yytranslate[x] : 265)
8b27f225
PB		 398
399static const char yytranslate[] = { 0,
400 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
401 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
402 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
403 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
404 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
405 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
406 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
407 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
408 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
409 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
410 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
411 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
412 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
413 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
414 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
415 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
416 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
417 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
418 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
419 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
420 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
421 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
422 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
423 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
424 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
425 2, 2, 2, 2, 2, 1, 2, 3, 4, 5,
426 6, 7, 8, 9, 10, 11, 12, 13, 14, 15,
427 16, 17, 18, 19, 20, 21, 22, 23, 24, 25,
428 26, 27, 28, 29, 30, 31, 32, 33, 34, 35,
429 36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
430 46, 47, 48, 49, 50, 51, 52, 53, 54, 55,
431 56, 57, 58, 59, 60, 61, 62, 63, 64, 65,
432 66, 67, 68, 69, 70, 71, 72, 73, 74, 75,
433 76, 77, 78, 79, 80, 81, 82, 83, 84, 85,
434 86, 87, 88, 89, 90, 91, 92, 93, 94, 95,
435 96, 97, 98, 99, 100, 101, 102, 103, 104, 105,
436 106, 107, 108, 109
437};
438
439#if YYDEBUG != 0
440static const short yyprhs[] = { 0,
441 0, 2, 4, 6, 8, 10, 12, 14, 16, 18,
442 20, 22, 24, 26, 28, 30, 32, 34, 38, 42,
443 46, 50, 54, 56, 58, 60, 64, 66, 67, 69,
444 71, 73, 76, 79, 82, 86, 88, 91, 93, 96,
445 100, 103, 107, 109, 111, 115, 118, 122, 128, 133,
446 139, 141, 143, 145, 147, 149, 152, 153, 161, 162,
447 169, 173, 176, 180, 185, 186, 189, 193, 196, 197,
448 200, 203, 205, 209, 213, 216, 220, 222, 225, 227,
449 229, 231, 233, 235, 237, 239, 241, 245, 250, 252,
450 256, 260, 262, 266, 270, 275, 277, 281, 284, 288,
451 292, 294, 296, 297, 301, 304, 308, 312, 317, 322,
452 325, 329, 332, 336, 339, 343, 348, 352, 356, 360,
453 362, 366, 370, 373, 377, 380, 384, 385, 388, 391,
22eed1e6
APB		 454 393, 397, 401, 403, 406, 408, 411, 415, 417, 418,
455 422, 425, 429, 433, 438, 441, 445, 449, 454, 459,
456 465, 473, 480, 482, 484, 485, 490, 491, 497, 498,
457 504, 505, 512, 516, 521, 524, 528, 531, 535, 538,
458 542, 544, 547, 549, 551, 553, 555, 557, 560, 563,
1179ebc2
APB		 459 566, 570, 575, 577, 581, 585, 588, 592, 594, 596,
460 598, 601, 603, 605, 607, 610, 613, 617, 619, 621,
461 623, 625, 627, 629, 631, 633, 635, 637, 639, 641,
462 643, 645, 647, 649, 651, 653, 655, 657, 659, 661,
463 663, 666, 669, 672, 675, 678, 681, 684, 687, 691,
464 696, 701, 707, 712, 718, 725, 733, 740, 742, 744,
465 746, 748, 750, 752, 754, 760, 763, 767, 772, 780,
466 788, 789, 793, 798, 801, 805, 811, 814, 818, 822,
467 827, 829, 832, 835, 837, 840, 844, 847, 850, 854,
468 857, 862, 865, 868, 872, 877, 880, 882, 890, 898,
469 905, 909, 915, 920, 928, 935, 938, 941, 945, 948,
470 949, 951, 953, 956, 957, 959, 961, 965, 969, 972,
471 976, 979, 983, 986, 990, 993, 997, 1000, 1004, 1007,
472 1011, 1015, 1018, 1022, 1028, 1034, 1037, 1042, 1046, 1048,
473 1052, 1056, 1061, 1064, 1066, 1069, 1072, 1077, 1080, 1084,
474 1089, 1092, 1095, 1097, 1099, 1101, 1103, 1107, 1109, 1111,
475 1113, 1115, 1119, 1123, 1127, 1131, 1135, 1139, 1143, 1147,
476 1153, 1158, 1165, 1171, 1176, 1182, 1188, 1195, 1199, 1203,
477 1208, 1214, 1217, 1221, 1225, 1229, 1231, 1235, 1239, 1243,
478 1247, 1252, 1257, 1262, 1267, 1271, 1275, 1277, 1280, 1284,
479 1288, 1291, 1294, 1298, 1302, 1306, 1310, 1313, 1317, 1322,
480 1328, 1335, 1341, 1348, 1353, 1358, 1363, 1368, 1372, 1377,
481 1381, 1386, 1388, 1390, 1392, 1394, 1397, 1400, 1402, 1404,
482 1407, 1410, 1412, 1415, 1418, 1421, 1424, 1427, 1430, 1432,
483 1435, 1438, 1440, 1443, 1446, 1452, 1457, 1462, 1468, 1473,
484 1476, 1482, 1487, 1493, 1495, 1499, 1503, 1507, 1511, 1515,
485 1519, 1521, 1525, 1529, 1533, 1537, 1539, 1543, 1547, 1551,
486 1555, 1559, 1563, 1565, 1569, 1573, 1577, 1581, 1585, 1589,
487 1593, 1597, 1601, 1605, 1607, 1611, 1615, 1619, 1623, 1625,
488 1629, 1633, 1635, 1639, 1643, 1645, 1649, 1653, 1655, 1659,
489 1663, 1665, 1669, 1673, 1675, 1681, 1686, 1690, 1696, 1698,
490 1700, 1704, 1708, 1710, 1712, 1714, 1716, 1718, 1720
8b27f225
PB		 491};
492
493static const short yyrhs[] = { 123,
494 0, 104, 0, 105, 0, 108, 0, 103, 0, 102,
495 0, 109, 0, 113, 0, 114, 0, 82, 0, 85,
496 0, 50, 0, 115, 0, 118, 0, 119, 0, 115,
497 0, 115, 0, 113, 97, 98, 0, 119, 97, 98,
498 0, 118, 97, 98, 0, 113, 97, 1, 0, 118,
499 97, 1, 0, 120, 0, 121, 0, 122, 0, 119,
500 101, 122, 0, 86, 0, 0, 126, 0, 124, 0,
501 125, 0, 126, 124, 0, 126, 125, 0, 124, 125,
502 0, 126, 124, 125, 0, 127, 0, 124, 127, 0,
503 130, 0, 125, 130, 0, 75, 119, 99, 0, 75,
504 1, 0, 75, 119, 1, 0, 128, 0, 129, 0,
505 55, 119, 99, 0, 55, 1, 0, 55, 119, 1,
506 0, 55, 119, 101, 5, 99, 0, 55, 119, 101,
507 1, 0, 55, 119, 101, 5, 1, 0, 132, 0,
22eed1e6 508 165, 0, 99, 0, 1, 0, 44, 0, 131, 44,
8b27f225
PB		 509 0, 0, 131, 67, 122, 135, 136, 133, 138, 0,
510 0, 67, 122, 135, 136, 134, 138, 0, 131, 67,
511 1, 0, 67, 1, 0, 67, 122, 1, 0, 131,
512 67, 122, 1, 0, 0, 63, 116, 0, 63, 116,
513 1, 0, 63, 1, 0, 0, 52, 137, 0, 52,
514 1, 0, 117, 0, 137, 100, 117, 0, 137, 100,
515 1, 0, 95, 96, 0, 95, 139, 96, 0, 140,
516 0, 139, 140, 0, 141, 0, 156, 0, 158, 0,
22eed1e6 517 178, 0, 142, 0, 147, 0, 132, 0, 165, 0,
8b27f225
PB		 518 112, 143, 99, 0, 131, 112, 143, 99, 0, 144,
519 0, 143, 100, 144, 0, 143, 100, 1, 0, 145,
520 0, 145, 92, 146, 0, 145, 92, 1, 0, 145,
521 92, 146, 1, 0, 122, 0, 145, 97, 98, 0,
522 122, 1, 0, 145, 97, 1, 0, 145, 98, 1,
22eed1e6 523 0, 263, 0, 176, 0, 0, 149, 148, 155, 0,
8b27f225
PB		 524 149, 1, 0, 112, 150, 153, 0, 59, 150, 153,
525 0, 131, 112, 150, 153, 0, 131, 59, 150, 153,
526 0, 112, 1, 0, 131, 112, 1, 0, 59, 1,
527 0, 131, 59, 1, 0, 131, 1, 0, 122, 93,
528 94, 0, 122, 93, 151, 94, 0, 150, 97, 98,
529 0, 122, 93, 1, 0, 150, 97, 1, 0, 152,
530 0, 151, 100, 152, 0, 151, 100, 1, 0, 112,
531 145, 0, 131, 112, 145, 0, 112, 1, 0, 131,
532 112, 1, 0, 0, 53, 154, 0, 53, 1, 0,
533 116, 0, 154, 100, 116, 0, 154, 100, 1, 0,
22eed1e6
APB		 534 178, 0, 178, 99, 0, 99, 0, 157, 178, 0,
535 157, 178, 99, 0, 44, 0, 0, 160, 159, 162,
536 0, 161, 153, 0, 131, 161, 153, 0, 120, 93,
537 94, 0, 120, 93, 151, 94, 0, 179, 180, 0,
538 179, 163, 180, 0, 179, 181, 180, 0, 179, 163,
539 181, 180, 0, 164, 93, 94, 99, 0, 164, 93,
540 232, 94, 99, 0, 119, 101, 65, 93, 232, 94,
541 99, 0, 119, 101, 65, 93, 94, 99, 0, 76,
542 0, 65, 0, 0, 61, 122, 166, 171, 0, 0,
543 131, 61, 122, 167, 171, 0, 0, 61, 122, 170,
544 168, 171, 0, 0, 131, 61, 122, 170, 169, 171,
545 0, 61, 122, 1, 0, 131, 61, 122, 1, 0,
546 63, 117, 0, 170, 100, 117, 0, 63, 1, 0,
547 170, 100, 1, 0, 95, 96, 0, 95, 172, 96,
548 0, 173, 0, 172, 173, 0, 174, 0, 175, 0,
549 132, 0, 165, 0, 142, 0, 149, 99, 0, 149,
550 1, 0, 95, 96, 0, 95, 177, 96, 0, 95,
1179ebc2
APB		 551 177, 100, 96, 0, 146, 0, 177, 100, 146, 0,
552 177, 100, 1, 0, 95, 96, 0, 179, 181, 180,
553 0, 95, 0, 96, 0, 182, 0, 181, 182, 0,
554 183, 0, 185, 0, 132, 0, 184, 99, 0, 112,
555 143, 0, 131, 112, 143, 0, 187, 0, 190, 0,
556 194, 0, 195, 0, 206, 0, 210, 0, 187, 0,
557 191, 0, 196, 0, 207, 0, 211, 0, 178, 0,
558 188, 0, 192, 0, 197, 0, 209, 0, 217, 0,
559 218, 0, 219, 0, 221, 0, 220, 0, 223, 0,
560 99, 0, 122, 88, 0, 189, 185, 0, 122, 1,
561 0, 189, 186, 0, 193, 99, 0, 1, 99, 0,
562 1, 95, 0, 1, 96, 0, 164, 93, 1, 0,
563 164, 93, 94, 1, 0, 164, 93, 232, 1, 0,
564 164, 93, 232, 94, 1, 0, 119, 101, 65, 1,
565 0, 119, 101, 65, 93, 1, 0, 119, 101, 65,
566 93, 232, 1, 0, 119, 101, 65, 93, 232, 94,
567 1, 0, 119, 101, 65, 93, 94, 1, 0, 260,
568 0, 244, 0, 245, 0, 241, 0, 242, 0, 238,
569 0, 230, 0, 48, 93, 263, 94, 185, 0, 48,
570 1, 0, 48, 93, 1, 0, 48, 93, 263, 1,
571 0, 48, 93, 263, 94, 186, 56, 185, 0, 48,
572 93, 263, 94, 186, 56, 186, 0, 0, 199, 198,
573 200, 0, 68, 93, 263, 94, 0, 68, 1, 0,
574 68, 93, 1, 0, 68, 93, 263, 94, 1, 0,
575 95, 96, 0, 95, 203, 96, 0, 95, 201, 96,
576 0, 95, 201, 203, 96, 0, 202, 0, 201, 202,
577 0, 203, 181, 0, 204, 0, 203, 204, 0, 62,
578 264, 88, 0, 47, 88, 0, 62, 1, 0, 62,
579 264, 1, 0, 47, 1, 0, 66, 93, 263, 94,
580 0, 205, 185, 0, 66, 1, 0, 66, 93, 1,
581 0, 66, 93, 263, 1, 0, 205, 186, 0, 51,
582 0, 208, 185, 66, 93, 263, 94, 99, 0, 213,
583 99, 263, 99, 215, 94, 185, 0, 213, 99, 99,
584 215, 94, 185, 0, 213, 99, 1, 0, 213, 99,
585 263, 99, 1, 0, 213, 99, 99, 1, 0, 213,
586 99, 263, 99, 215, 94, 186, 0, 213, 99, 99,
587 215, 94, 186, 0, 71, 93, 0, 71, 1, 0,
588 71, 93, 1, 0, 212, 214, 0, 0, 216, 0,
589 184, 0, 216, 1, 0, 0, 216, 0, 193, 0,
590 216, 100, 193, 0, 216, 100, 1, 0, 54, 99,
591 0, 54, 122, 99, 0, 54, 1, 0, 54, 122,
592 1, 0, 73, 99, 0, 73, 122, 99, 0, 73,
593 1, 0, 73, 122, 1, 0, 58, 99, 0, 58,
594 263, 99, 0, 58, 1, 0, 58, 263, 1, 0,
595 49, 263, 99, 0, 49, 1, 0, 49, 263, 1,
596 0, 222, 93, 263, 94, 178, 0, 222, 93, 263,
597 94, 1, 0, 222, 1, 0, 222, 93, 1, 94,
598 0, 222, 93, 1, 0, 44, 0, 70, 178, 224,
599 0, 70, 178, 227, 0, 70, 178, 224, 227, 0,
600 70, 1, 0, 225, 0, 224, 225, 0, 226, 178,
601 0, 60, 93, 152, 94, 0, 60, 1, 0, 60,
602 93, 1, 0, 60, 93, 1, 94, 0, 64, 178,
603 0, 64, 1, 0, 229, 0, 233, 0, 111, 0,
604 76, 0, 93, 263, 94, 0, 230, 0, 237, 0,
605 238, 0, 239, 0, 119, 101, 67, 0, 113, 101,
606 67, 0, 59, 101, 67, 0, 119, 101, 76, 0,
607 93, 263, 1, 0, 119, 101, 1, 0, 113, 101,
608 1, 0, 59, 101, 1, 0, 72, 116, 93, 232,
609 94, 0, 72, 116, 93, 94, 0, 72, 116, 93,
610 232, 94, 138, 0, 72, 116, 93, 94, 138, 0,
611 231, 122, 93, 94, 0, 231, 122, 93, 94, 138,
612 0, 231, 122, 93, 232, 94, 0, 231, 122, 93,
613 232, 94, 138, 0, 72, 1, 99, 0, 72, 116,
614 1, 0, 72, 116, 93, 1, 0, 72, 116, 93,
615 232, 1, 0, 231, 1, 0, 231, 122, 1, 0,
616 119, 101, 72, 0, 228, 101, 72, 0, 263, 0,
617 232, 100, 263, 0, 232, 100, 1, 0, 72, 113,
618 234, 0, 72, 115, 234, 0, 72, 113, 234, 236,
619 0, 72, 115, 234, 236, 0, 72, 115, 236, 176,
620 0, 72, 113, 236, 176, 0, 72, 1, 98, 0,
621 72, 1, 97, 0, 235, 0, 234, 235, 0, 97,
622 263, 98, 0, 97, 263, 1, 0, 97, 1, 0,
623 97, 98, 0, 236, 97, 98, 0, 236, 97, 1,
624 0, 228, 101, 122, 0, 65, 101, 122, 0, 65,
625 1, 0, 119, 93, 94, 0, 119, 93, 232, 94,
626 0, 228, 101, 122, 93, 94, 0, 228, 101, 122,
627 93, 232, 94, 0, 65, 101, 122, 93, 94, 0,
628 65, 101, 122, 93, 232, 94, 0, 65, 101, 1,
629 94, 0, 65, 101, 1, 101, 0, 119, 97, 263,
630 98, 0, 229, 97, 263, 98, 0, 119, 97, 1,
631 0, 119, 97, 263, 1, 0, 229, 97, 1, 0,
632 229, 97, 263, 1, 0, 228, 0, 119, 0, 241,
633 0, 242, 0, 240, 46, 0, 240, 45, 0, 244,
634 0, 245, 0, 3, 243, 0, 4, 243, 0, 246,
635 0, 3, 1, 0, 4, 1, 0, 46, 243, 0,
636 46, 1, 0, 45, 243, 0, 45, 1, 0, 240,
637 0, 89, 243, 0, 90, 243, 0, 247, 0, 89,
638 1, 0, 90, 1, 0, 93, 113, 236, 94, 243,
639 0, 93, 113, 94, 243, 0, 93, 263, 94, 246,
640 0, 93, 119, 236, 94, 246, 0, 93, 113, 97,
641 1, 0, 93, 1, 0, 93, 113, 236, 94, 1,
642 0, 93, 113, 94, 1, 0, 93, 119, 236, 94,
643 1, 0, 243, 0, 248, 5, 243, 0, 248, 6,
644 243, 0, 248, 7, 243, 0, 248, 5, 1, 0,
645 248, 6, 1, 0, 248, 7, 1, 0, 248, 0,
646 249, 3, 248, 0, 249, 4, 248, 0, 249, 3,
647 1, 0, 249, 4, 1, 0, 249, 0, 250, 8,
648 249, 0, 250, 9, 249, 0, 250, 10, 249, 0,
649 250, 8, 1, 0, 250, 9, 1, 0, 250, 10,
650 1, 0, 250, 0, 251, 20, 250, 0, 251, 18,
651 250, 0, 251, 21, 250, 0, 251, 19, 250, 0,
652 251, 57, 114, 0, 251, 20, 1, 0, 251, 18,
653 1, 0, 251, 21, 1, 0, 251, 19, 1, 0,
654 251, 57, 1, 0, 251, 0, 252, 16, 251, 0,
655 252, 17, 251, 0, 252, 16, 1, 0, 252, 17,
656 1, 0, 252, 0, 253, 11, 252, 0, 253, 11,
657 1, 0, 253, 0, 254, 12, 253, 0, 254, 12,
658 1, 0, 254, 0, 255, 13, 254, 0, 255, 13,
659 1, 0, 255, 0, 256, 14, 255, 0, 256, 14,
660 1, 0, 256, 0, 257, 15, 256, 0, 257, 15,
661 1, 0, 257, 0, 257, 87, 263, 88, 258, 0,
662 257, 87, 88, 1, 0, 257, 87, 1, 0, 257,
663 87, 263, 88, 1, 0, 258, 0, 260, 0, 261,
664 262, 259, 0, 261, 262, 1, 0, 119, 0, 237,
665 0, 239, 0, 91, 0, 92, 0, 259, 0, 263,
666 0
8b27f225
PB		 667};
668
669#endif
670
671#if YYDEBUG != 0
672static const short yyrline[] = { 0,
fa322ab5
TT		 673 444, 450, 452, 453, 454, 455, 456, 460, 462, 465,
674 467, 468, 471, 473, 476, 480, 484, 488, 494, 496,
675 498, 500, 505, 507, 510, 514, 519, 524, 526, 527,
676 528, 529, 530, 531, 532, 535, 540, 546, 548, 551,
677 554, 556, 560, 562, 565, 592, 594, 598, 607, 609,
678 613, 620, 621, 623, 633, 638, 653, 657, 660, 663,
679 666, 668, 670, 672, 676, 678, 680, 682, 686, 688,
680 690, 697, 703, 708, 712, 715, 719, 721, 724, 726,
681 727, 728, 732, 734, 735, 737, 742, 745, 755, 758,
682 760, 764, 767, 774, 780, 788, 790, 792, 794, 796,
683 800, 802, 806, 813, 814, 818, 821, 823, 825, 827,
684 829, 831, 833, 835, 842, 845, 847, 856, 858, 862,
685 867, 872, 876, 881, 883, 885, 892, 894, 896, 900,
686 903, 905, 909, 911, 912, 917, 922, 928, 936, 943,
687 946, 949, 953, 956, 960, 969, 971, 973, 978, 985,
688 993, 995, 999, 1007, 1018, 1022, 1025, 1028, 1031, 1034,
689 1037, 1040, 1043, 1045, 1049, 1055, 1060, 1062, 1066, 1069,
690 1073, 1075, 1078, 1080, 1081, 1083, 1087, 1091, 1097, 1102,
691 1105, 1107, 1111, 1117, 1121, 1126, 1129, 1133, 1138, 1146,
692 1148, 1151, 1153, 1155, 1159, 1163, 1166, 1170, 1172, 1173,
693 1174, 1175, 1176, 1186, 1188, 1189, 1190, 1191, 1194, 1196,
694 1197, 1198, 1199, 1200, 1201, 1202, 1203, 1204, 1205, 1208,
695 1213, 1224, 1231, 1235, 1246, 1256, 1262, 1268, 1274, 1276,
696 1282, 1284, 1290, 1292, 1294, 1296, 1298, 1302, 1304, 1305,
697 1306, 1307, 1308, 1309, 1312, 1315, 1317, 1319, 1323, 1328,
698 1333, 1339, 1349, 1355, 1357, 1359, 1366, 1369, 1371, 1373,
699 1377, 1379, 1382, 1386, 1388, 1391, 1398, 1404, 1406, 1408,
700 1412, 1420, 1423, 1425, 1427, 1431, 1436, 1445, 1450, 1453,
701 1460, 1462, 1464, 1468, 1471, 1480, 1487, 1489, 1493, 1506,
702 1508, 1514, 1520, 1524, 1526, 1530, 1533, 1535, 1539, 1542,
703 1544, 1546, 1550, 1553, 1555, 1557, 1561, 1564, 1566, 1568,
704 1572, 1578, 1580, 1584, 1591, 1593, 1595, 1597, 1601, 1609,
705 1612, 1614, 1616, 1620, 1622, 1629, 1637, 1654, 1656, 1658,
706 1662, 1668, 1673, 1675, 1678, 1680, 1682, 1684, 1685, 1686,
707 1687, 1691, 1693, 1695, 1700, 1702, 1704, 1706, 1708, 1712,
708 1715, 1720, 1722, 1727, 1728, 1729, 1730, 1731, 1733, 1735,
709 1737, 1739, 1741, 1745, 1747, 1750, 1756, 1761, 1765, 1768,
710 1770, 1772, 1776, 1778, 1780, 1782, 1786, 1789, 1793, 1799,
711 1801, 1809, 1812, 1814, 1818, 1823, 1831, 1835, 1838, 1840,
712 1851, 1862, 1867, 1876, 1878, 1882, 1885, 1887, 1892, 1897,
713 1902, 1909, 1911, 1912, 1913, 1916, 1921, 1926, 1928, 1929,
714 1931, 1933, 1934, 1936, 1940, 1943, 1947, 1950, 1954, 1956,
715 1958, 1960, 1961, 1963, 1967, 1975, 1977, 1979, 1991, 1993,
716 1999, 2001, 2003, 2007, 2009, 2014, 2019, 2024, 2026, 2028,
717 2032, 2034, 2039, 2044, 2046, 2050, 2052, 2057, 2062, 2067,
718 2069, 2071, 2075, 2077, 2082, 2087, 2092, 2097, 2099, 2101,
719 2103, 2105, 2107, 2111, 2113, 2118, 2123, 2125, 2129, 2131,
720 2136, 2140, 2142, 2147, 2151, 2153, 2158, 2162, 2164, 2169,
721 2173, 2175, 2180, 2184, 2186, 2191, 2197, 2199, 2203, 2205,
722 2208, 2211, 2219, 2221, 2222, 2225, 2227, 2230, 2234
8b27f225
PB		 723};
724#endif
725
726
727#if YYDEBUG != 0 || defined (YYERROR_VERBOSE)
728
729static const char * const yytname[] = { "$","error","$undefined.","PLUS_TK",
730"MINUS_TK","MULT_TK","DIV_TK","REM_TK","LS_TK","SRS_TK","ZRS_TK","AND_TK","XOR_TK",
731"OR_TK","BOOL_AND_TK","BOOL_OR_TK","EQ_TK","NEQ_TK","GT_TK","GTE_TK","LT_TK",
732"LTE_TK","PLUS_ASSIGN_TK","MINUS_ASSIGN_TK","MULT_ASSIGN_TK","DIV_ASSIGN_TK",
733"REM_ASSIGN_TK","LS_ASSIGN_TK","SRS_ASSIGN_TK","ZRS_ASSIGN_TK","AND_ASSIGN_TK",
734"XOR_ASSIGN_TK","OR_ASSIGN_TK","PUBLIC_TK","PRIVATE_TK","PROTECTED_TK","STATIC_TK",
735"FINAL_TK","SYNCHRONIZED_TK","VOLATILE_TK","TRANSIENT_TK","NATIVE_TK","PAD_TK",
736"ABSTRACT_TK","MODIFIER_TK","DECR_TK","INCR_TK","DEFAULT_TK","IF_TK","THROW_TK",
737"BOOLEAN_TK","DO_TK","IMPLEMENTS_TK","THROWS_TK","BREAK_TK","IMPORT_TK","ELSE_TK",
738"INSTANCEOF_TK","RETURN_TK","VOID_TK","CATCH_TK","INTERFACE_TK","CASE_TK","EXTENDS_TK",
739"FINALLY_TK","SUPER_TK","WHILE_TK","CLASS_TK","SWITCH_TK","CONST_TK","TRY_TK",
740"FOR_TK","NEW_TK","CONTINUE_TK","GOTO_TK","PACKAGE_TK","THIS_TK","BYTE_TK","SHORT_TK",
741"INT_TK","LONG_TK","CHAR_TK","INTEGRAL_TK","FLOAT_TK","DOUBLE_TK","FP_TK","ID_TK",
742"REL_QM_TK","REL_CL_TK","NOT_TK","NEG_TK","ASSIGN_ANY_TK","ASSIGN_TK","OP_TK",
743"CP_TK","OCB_TK","CCB_TK","OSB_TK","CSB_TK","SC_TK","C_TK","DOT_TK","STRING_LIT_TK",
744"CHAR_LIT_TK","INT_LIT_TK","FP_LIT_TK","TRUE_TK","FALSE_TK","BOOL_LIT_TK","NULL_TK",
745"goal","literal","type","primitive_type","reference_type","class_or_interface_type",
746"class_type","interface_type","array_type","name","simple_name","qualified_name",
747"identifier","compilation_unit","import_declarations","type_declarations","package_declaration",
748"import_declaration","single_type_import_declaration","type_import_on_demand_declaration",
749"type_declaration","modifiers","class_declaration","@1","@2","super","interfaces",
750"interface_type_list","class_body","class_body_declarations","class_body_declaration",
751"class_member_declaration","field_declaration","variable_declarators","variable_declarator",
752"variable_declarator_id","variable_initializer","method_declaration","@3","method_header",
753"method_declarator","formal_parameter_list","formal_parameter","throws","class_type_list",
22eed1e6
APB		 754"method_body","static_initializer","static","constructor_declaration","@4","constructor_header",
755"constructor_declarator","constructor_body","explicit_constructor_invocation",
756"this_or_super","interface_declaration","@5","@6","@7","@8","extends_interfaces",
757"interface_body","interface_member_declarations","interface_member_declaration",
758"constant_declaration","abstract_method_declaration","array_initializer","variable_initializers",
759"block","block_begin","block_end","block_statements","block_statement","local_variable_declaration_statement",
760"local_variable_declaration","statement","statement_nsi","statement_without_trailing_substatement",
761"empty_statement","label_decl","labeled_statement","labeled_statement_nsi","expression_statement",
8b27f225 762"statement_expression","if_then_statement","if_then_else_statement","if_then_else_statement_nsi",
12472854
PB		 763"switch_statement","@9","switch_expression","switch_block","switch_block_statement_groups",
764"switch_block_statement_group","switch_labels","switch_label","while_expression",
765"while_statement","while_statement_nsi","do_statement_begin","do_statement",
766"for_statement","for_statement_nsi","for_header","for_begin","for_init","for_update",
767"statement_expression_list","break_statement","continue_statement","return_statement",
768"throw_statement","synchronized_statement","synchronized","try_statement","catches",
769"catch_clause","catch_clause_parameter","finally","primary","primary_no_new_array",
770"class_instance_creation_expression","something_dot_new","argument_list","array_creation_expression",
771"dim_exprs","dim_expr","dims","field_access","method_invocation","array_access",
772"postfix_expression","post_increment_expression","post_decrement_expression",
773"unary_expression","pre_increment_expression","pre_decrement_expression","unary_expression_not_plus_minus",
774"cast_expression","multiplicative_expression","additive_expression","shift_expression",
775"relational_expression","equality_expression","and_expression","exclusive_or_expression",
776"inclusive_or_expression","conditional_and_expression","conditional_or_expression",
777"conditional_expression","assignment_expression","assignment","left_hand_side",
778"assignment_operator","expression","constant_expression", NULL
8b27f225
PB		 779};
780#endif
781
782static const short yyr1[] = { 0,
783 110, 111, 111, 111, 111, 111, 111, 112, 112, 113,
784 113, 113, 114, 114, 115, 116, 117, 118, 118, 118,
785 118, 118, 119, 119, 120, 121, 122, 123, 123, 123,
786 123, 123, 123, 123, 123, 124, 124, 125, 125, 126,
787 126, 126, 127, 127, 128, 128, 128, 129, 129, 129,
788 130, 130, 130, 130, 131, 131, 133, 132, 134, 132,
789 132, 132, 132, 132, 135, 135, 135, 135, 136, 136,
790 136, 137, 137, 137, 138, 138, 139, 139, 140, 140,
791 140, 140, 141, 141, 141, 141, 142, 142, 143, 143,
792 143, 144, 144, 144, 144, 145, 145, 145, 145, 145,
793 146, 146, 148, 147, 147, 149, 149, 149, 149, 149,
794 149, 149, 149, 149, 150, 150, 150, 150, 150, 151,
795 151, 151, 152, 152, 152, 152, 153, 153, 153, 154,
22eed1e6
APB		 796 154, 154, 155, 155, 155, 156, 156, 157, 159, 158,
797 160, 160, 161, 161, 162, 162, 162, 162, 163, 163,
798 163, 163, 164, 164, 166, 165, 167, 165, 168, 165,
799 169, 165, 165, 165, 170, 170, 170, 170, 171, 171,
800 172, 172, 173, 173, 173, 173, 174, 175, 175, 176,
1179ebc2
APB		 801 176, 176, 177, 177, 177, 178, 178, 179, 180, 181,
802 181, 182, 182, 182, 183, 184, 184, 185, 185, 185,
803 185, 185, 185, 186, 186, 186, 186, 186, 187, 187,
804 187, 187, 187, 187, 187, 187, 187, 187, 187, 188,
805 189, 190, 190, 191, 192, 192, 192, 192, 192, 192,
806 192, 192, 192, 192, 192, 192, 192, 193, 193, 193,
807 193, 193, 193, 193, 194, 194, 194, 194, 195, 196,
808 198, 197, 199, 199, 199, 199, 200, 200, 200, 200,
809 201, 201, 202, 203, 203, 204, 204, 204, 204, 204,
810 205, 206, 206, 206, 206, 207, 208, 209, 210, 210,
811 210, 210, 210, 211, 211, 212, 212, 212, 213, 214,
812 214, 214, 214, 215, 215, 216, 216, 216, 217, 217,
813 217, 217, 218, 218, 218, 218, 219, 219, 219, 219,
814 220, 220, 220, 221, 221, 221, 221, 221, 222, 223,
815 223, 223, 223, 224, 224, 225, 226, 226, 226, 226,
816 227, 227, 228, 228, 229, 229, 229, 229, 229, 229,
817 229, 229, 229, 229, 229, 229, 229, 229, 229, 230,
22eed1e6 818 230, 230, 230, 230, 230, 230, 230, 230, 230, 230,
1179ebc2
APB		 819 230, 230, 230, 231, 231, 232, 232, 232, 233, 233,
820 233, 233, 233, 233, 233, 233, 234, 234, 235, 235,
821 235, 236, 236, 236, 237, 237, 237, 238, 238, 238,
822 238, 238, 238, 238, 238, 239, 239, 239, 239, 239,
823 239, 240, 240, 240, 240, 241, 242, 243, 243, 243,
824 243, 243, 243, 243, 244, 244, 245, 245, 246, 246,
825 246, 246, 246, 246, 247, 247, 247, 247, 247, 247,
826 247, 247, 247, 248, 248, 248, 248, 248, 248, 248,
827 249, 249, 249, 249, 249, 250, 250, 250, 250, 250,
828 250, 250, 251, 251, 251, 251, 251, 251, 251, 251,
829 251, 251, 251, 252, 252, 252, 252, 252, 253, 253,
830 253, 254, 254, 254, 255, 255, 255, 256, 256, 256,
831 257, 257, 257, 258, 258, 258, 258, 258, 259, 259,
832 260, 260, 261, 261, 261, 262, 262, 263, 264
8b27f225
PB		 833};
834
835static const short yyr2[] = { 0,
836 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
837 1, 1, 1, 1, 1, 1, 1, 3, 3, 3,
838 3, 3, 1, 1, 1, 3, 1, 0, 1, 1,
839 1, 2, 2, 2, 3, 1, 2, 1, 2, 3,
840 2, 3, 1, 1, 3, 2, 3, 5, 4, 5,
841 1, 1, 1, 1, 1, 2, 0, 7, 0, 6,
842 3, 2, 3, 4, 0, 2, 3, 2, 0, 2,
843 2, 1, 3, 3, 2, 3, 1, 2, 1, 1,
844 1, 1, 1, 1, 1, 1, 3, 4, 1, 3,
845 3, 1, 3, 3, 4, 1, 3, 2, 3, 3,
846 1, 1, 0, 3, 2, 3, 3, 4, 4, 2,
847 3, 2, 3, 2, 3, 4, 3, 3, 3, 1,
848 3, 3, 2, 3, 2, 3, 0, 2, 2, 1,
22eed1e6
APB		 849 3, 3, 1, 2, 1, 2, 3, 1, 0, 3,
850 2, 3, 3, 4, 2, 3, 3, 4, 4, 5,
8b27f225
PB		 851 7, 6, 1, 1, 0, 4, 0, 5, 0, 5,
852 0, 6, 3, 4, 2, 3, 2, 3, 2, 3,
853 1, 2, 1, 1, 1, 1, 1, 2, 2, 2,
1179ebc2
APB		 854 3, 4, 1, 3, 3, 2, 3, 1, 1, 1,
855 2, 1, 1, 1, 2, 2, 3, 1, 1, 1,
8b27f225
PB		 856 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
857 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
1179ebc2
APB		 858 2, 2, 2, 2, 2, 2, 2, 2, 3, 4,
859 4, 5, 4, 5, 6, 7, 6, 1, 1, 1,
860 1, 1, 1, 1, 5, 2, 3, 4, 7, 7,
861 0, 3, 4, 2, 3, 5, 2, 3, 3, 4,
862 1, 2, 2, 1, 2, 3, 2, 2, 3, 2,
863 4, 2, 2, 3, 4, 2, 1, 7, 7, 6,
864 3, 5, 4, 7, 6, 2, 2, 3, 2, 0,
865 1, 1, 2, 0, 1, 1, 3, 3, 2, 3,
866 2, 3, 2, 3, 2, 3, 2, 3, 2, 3,
867 3, 2, 3, 5, 5, 2, 4, 3, 1, 3,
868 3, 4, 2, 1, 2, 2, 4, 2, 3, 4,
869 2, 2, 1, 1, 1, 1, 3, 1, 1, 1,
870 1, 3, 3, 3, 3, 3, 3, 3, 3, 5,
871 4, 6, 5, 4, 5, 5, 6, 3, 3, 4,
872 5, 2, 3, 3, 3, 1, 3, 3, 3, 3,
873 4, 4, 4, 4, 3, 3, 1, 2, 3, 3,
874 2, 2, 3, 3, 3, 3, 2, 3, 4, 5,
875 6, 5, 6, 4, 4, 4, 4, 3, 4, 3,
876 4, 1, 1, 1, 1, 2, 2, 1, 1, 2,
877 2, 1, 2, 2, 2, 2, 2, 2, 1, 2,
878 2, 1, 2, 2, 5, 4, 4, 5, 4, 2,
879 5, 4, 5, 1, 3, 3, 3, 3, 3, 3,
880 1, 3, 3, 3, 3, 1, 3, 3, 3, 3,
881 3, 3, 1, 3, 3, 3, 3, 3, 3, 3,
882 3, 3, 3, 1, 3, 3, 3, 3, 1, 3,
883 3, 1, 3, 3, 1, 3, 3, 1, 3, 3,
884 1, 3, 3, 1, 5, 4, 3, 5, 1, 1,
885 3, 3, 1, 1, 1, 1, 1, 1, 1
8b27f225
PB		 886};
887
888static const short yydefact[] = { 0,
889 54, 55, 0, 0, 0, 0, 53, 1, 0, 0,
890 0, 36, 43, 44, 38, 0, 51, 52, 46, 27,
891 0, 23, 24, 25, 0, 62, 0, 41, 0, 0,
892 37, 39, 0, 0, 56, 0, 0, 47, 45, 0,
893 163, 0, 0, 159, 63, 0, 69, 42, 40, 0,
894 0, 0, 61, 0, 49, 0, 26, 167, 17, 165,
895 15, 0, 156, 0, 0, 68, 16, 0, 0, 59,
896 164, 0, 161, 64, 69, 50, 48, 12, 0, 10,
897 11, 169, 0, 8, 9, 13, 14, 15, 0, 175,
898 177, 0, 176, 0, 171, 173, 174, 168, 166, 160,
899 67, 71, 72, 70, 0, 158, 0, 57, 112, 0,
900 127, 110, 0, 0, 89, 92, 127, 0, 0, 0,
901 114, 0, 0, 179, 178, 170, 172, 0, 0, 60,
902 162, 0, 0, 0, 0, 107, 98, 87, 0, 0,
903 0, 0, 106, 21, 18, 22, 20, 19, 113, 127,
1179ebc2 904 111, 0, 127, 74, 73, 55, 188, 75, 23, 0,
8b27f225 905 85, 0, 77, 79, 83, 84, 0, 80, 0, 81,
22eed1e6
APB		 906 139, 127, 86, 82, 0, 58, 118, 115, 0, 0,
907 0, 120, 129, 130, 128, 119, 117, 91, 0, 90,
1179ebc2
APB		 908 94, 0, 0, 0, 0, 0, 0, 0, 336, 0,
909 0, 0, 0, 6, 5, 2, 3, 4, 7, 335,
910 0, 403, 0, 102, 402, 333, 338, 0, 334, 339,
911 340, 341, 419, 404, 405, 434, 408, 409, 412, 422,
912 441, 446, 453, 464, 469, 472, 475, 478, 481, 484,
913 489, 498, 490, 0, 101, 99, 97, 100, 109, 88,
914 108, 186, 0, 127, 76, 78, 105, 0, 136, 0,
915 141, 0, 55, 0, 0, 277, 0, 0, 0, 0,
916 0, 0, 0, 0, 336, 0, 220, 0, 8, 403,
917 0, 0, 194, 0, 209, 0, 190, 192, 0, 193,
918 198, 210, 0, 199, 211, 0, 200, 201, 212, 251,
919 0, 202, 0, 213, 203, 290, 0, 214, 215, 216,
920 218, 217, 0, 219, 244, 243, 0, 241, 242, 239,
921 240, 238, 125, 123, 0, 116, 0, 0, 413, 403,
922 339, 341, 410, 414, 411, 418, 417, 416, 415, 0,
923 387, 0, 0, 0, 16, 0, 423, 420, 424, 421,
924 430, 0, 403, 0, 180, 183, 0, 0, 0, 0,
925 0, 95, 0, 0, 362, 0, 407, 406, 0, 0,
8b27f225 926 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1179ebc2
APB		 927 0, 0, 0, 0, 0, 0, 0, 0, 0, 496,
928 497, 0, 143, 0, 142, 135, 104, 133, 137, 188,
929 140, 0, 227, 228, 226, 246, 0, 312, 0, 301,
930 299, 0, 309, 307, 0, 273, 0, 254, 0, 323,
931 0, 287, 0, 305, 303, 0, 0, 196, 0, 0,
932 223, 221, 0, 0, 189, 187, 191, 195, 319, 403,
933 222, 225, 0, 272, 0, 403, 0, 292, 296, 289,
934 0, 0, 316, 0, 126, 124, 122, 121, 132, 131,
935 349, 344, 0, 386, 376, 375, 358, 0, 369, 377,
936 0, 370, 0, 359, 0, 0, 0, 0, 0, 0,
937 346, 337, 181, 0, 348, 343, 388, 0, 366, 398,
938 0, 347, 342, 364, 345, 365, 385, 400, 0, 363,
939 0, 438, 435, 439, 436, 440, 437, 444, 442, 445,
940 443, 450, 447, 451, 448, 452, 449, 460, 455, 462,
941 457, 459, 454, 461, 456, 463, 0, 458, 467, 465,
942 468, 466, 471, 470, 474, 473, 477, 476, 480, 479,
943 483, 482, 487, 0, 0, 492, 491, 144, 134, 403,
944 0, 0, 145, 0, 247, 0, 313, 311, 302, 300,
945 310, 308, 274, 0, 255, 0, 0, 0, 320, 324,
946 0, 321, 288, 306, 304, 337, 0, 197, 229, 0,
947 0, 0, 252, 0, 293, 0, 281, 0, 0, 318,
948 0, 394, 395, 0, 381, 382, 0, 378, 371, 0,
949 374, 372, 373, 360, 351, 0, 432, 426, 429, 0,
950 0, 427, 185, 182, 184, 389, 0, 399, 396, 0,
951 401, 397, 354, 0, 486, 0, 0, 146, 0, 0,
952 147, 248, 0, 275, 271, 0, 328, 0, 332, 331,
953 325, 322, 326, 233, 0, 230, 231, 0, 0, 0,
954 257, 0, 261, 0, 264, 0, 298, 297, 283, 0,
955 295, 0, 317, 0, 392, 0, 380, 379, 384, 383,
956 353, 361, 350, 431, 425, 433, 428, 368, 367, 390,
957 0, 355, 356, 488, 485, 0, 148, 0, 0, 0,
958 245, 0, 198, 0, 205, 206, 0, 207, 208, 0,
959 256, 329, 0, 234, 0, 0, 232, 270, 267, 268,
960 499, 0, 259, 262, 0, 258, 0, 265, 0, 0,
961 282, 0, 315, 314, 393, 352, 391, 357, 0, 149,
962 0, 0, 0, 224, 276, 0, 330, 327, 237, 235,
963 0, 269, 266, 260, 0, 280, 0, 0, 0, 150,
964 0, 249, 0, 0, 236, 278, 279, 152, 0, 0,
965 0, 0, 151, 0, 0, 0, 0, 285, 0, 250,
966 284, 0, 0, 0
8b27f225
PB		 967};
968
1179ebc2 969static const short yydefgoto[] = { 772,
22eed1e6 970 210, 278, 211, 85, 86, 68, 60, 87, 212, 22,
8b27f225 971 23, 24, 8, 9, 10, 11, 12, 13, 14, 15,
12472854 972 282, 283, 132, 105, 47, 70, 104, 130, 162, 163,
22eed1e6 973 164, 91, 114, 115, 116, 213, 166, 258, 92, 111,
1179ebc2
APB		 974 181, 182, 136, 185, 397, 168, 169, 170, 260, 171,
975 172, 401, 551, 284, 18, 43, 72, 65, 107, 44,
976 63, 94, 95, 96, 97, 214, 357, 285, 175, 436,
977 717, 287, 288, 289, 290, 692, 291, 292, 293, 294,
978 695, 295, 296, 297, 298, 696, 299, 443, 300, 583,
979 652, 653, 654, 655, 301, 302, 698, 303, 304, 305,
980 699, 306, 307, 450, 660, 661, 308, 309, 310, 311,
981 312, 313, 314, 569, 570, 571, 572, 215, 216, 217,
982 218, 488, 219, 469, 470, 471, 220, 221, 222, 223,
22eed1e6
APB		 983 224, 225, 226, 227, 228, 229, 230, 231, 232, 233,
984 234, 235, 236, 237, 238, 239, 240, 241, 242, 243,
1179ebc2 985 244, 392, 489, 712
8b27f225
PB		 986};
987
1179ebc2
APB		 988static const short yypact[] = { 456,
989-32768,-32768, 92, -32, 361, 363,-32768,-32768, 208, 445,
990 525,-32768,-32768,-32768,-32768, 617,-32768,-32768,-32768,-32768,
991 18,-32768,-32768,-32768, 45,-32768, 293,-32768, 22, 558,
992-32768,-32768, 538, 571,-32768, -32, 405,-32768,-32768, 479,
993-32768, 421, 11, 164,-32768, 432, 182,-32768,-32768, -32,
994 643, 329,-32768, 341,-32768, 59,-32768,-32768,-32768,-32768,
995 194, 968,-32768, 468, 11,-32768,-32768, 20, 471,-32768,
996-32768, 11, 164,-32768, 182,-32768,-32768,-32768, 476,-32768,
997-32768,-32768, 504, 373,-32768,-32768, 419, -79, 779,-32768,
998-32768, 61,-32768, 988,-32768,-32768,-32768,-32768,-32768,-32768,
999-32768,-32768,-32768, 440, 466,-32768, 11,-32768,-32768, 473,
1000 4,-32768, 143, -25,-32768, 722, 4, 39, 77, 475,
1001-32768, 518, 520,-32768,-32768,-32768,-32768, 526, 860,-32768,
1002-32768, 466, 615, 531, 84,-32768,-32768,-32768, 562, 2071,
1003 87, 582,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 4,
1004-32768, 362, 4,-32768,-32768, 519, 502,-32768, 529, 779,
1005-32768, 872,-32768,-32768,-32768,-32768, 19,-32768, 536,-32768,
1006-32768, 670,-32768,-32768, 1798,-32768,-32768,-32768, 583, 893,
1007 10,-32768,-32768,-32768, 634,-32768,-32768,-32768, 317,-32768,
1008-32768, 2818, 2883, 2934, 2999, 645, 34, 586,-32768, 3050,
1009 3115, 3166, 5306,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
1010 652, 795, 29,-32768, 655, 661,-32768, 587,-32768, 461,
1011-32768, 694, 833,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
1012 946, 887, 962, 806, 897, 767, 784, 786, 799, 596,
1013-32768,-32768,-32768, 832,-32768,-32768,-32768,-32768,-32768,-32768,
1014-32768,-32768, 826, 670,-32768,-32768,-32768, 150, 718, 727,
1015-32768, 773, 246, 304, 3231,-32768, 186, 2122, 23, 320,
1016 336, 93, 345, 230, 742, 5603,-32768, -32, 385, 843,
1017 714, 990,-32768, 746,-32768, 1730,-32768,-32768, 751,-32768,
1018-32768,-32768, 1866,-32768,-32768, 754,-32768,-32768,-32768,-32768,
1019 1866,-32768, 1866,-32768,-32768, 5654, 761,-32768,-32768,-32768,
1020-32768,-32768, 347,-32768, 758, 788, 833, 920, 928,-32768,
1021-32768,-32768,-32768, 898, 588,-32768, 697, 590,-32768, 606,
1022-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 217,
1023-32768, 595, 883, 745, 745, 349,-32768,-32768,-32768,-32768,
1024-32768, 747, 989, 260,-32768,-32768, 625, 291, 5371, 3282,
1025 780,-32768, 442, 3347,-32768, 388,-32768,-32768, 3398, 3463,
1026 3514, 3579, 3630, 3695, 3746, 3811, 3862, 3927, 3978, 4043,
1027 688, 4094, 4159, 4210, 4275, 4326, 4391, 4442, 2187,-32768,
1028-32768, 4507,-32768, 253,-32768,-32768,-32768, 763,-32768,-32768,
1029-32768, 1730,-32768,-32768,-32768,-32768, 4558,-32768, 66,-32768,
1030-32768, 95,-32768,-32768, 97,-32768, 4623,-32768, 4674,-32768,
1031 711,-32768, 5088,-32768,-32768, 104, 261, 757, 2238, 457,
1032-32768,-32768, -32, 2303,-32768,-32768,-32768,-32768,-32768, 1007,
1033-32768,-32768, 750,-32768, 805, 901, 893,-32768,-32768,-32768,
1034 111, 2354,-32768, 4739,-32768, 898,-32768,-32768,-32768,-32768,
1035-32768,-32768, -38, 781,-32768,-32768,-32768, 2419, 745,-32768,
1036 557, 745, 557,-32768, 2470, 4790, 179, 614, 2535, 642,
1037-32768, 5679,-32768, 2006,-32768,-32768,-32768, 556,-32768,-32768,
1038 219,-32768,-32768,-32768,-32768,-32768, 790,-32768, 229,-32768,
1039 5422,-32768,-32768,-32768,-32768,-32768,-32768,-32768, 946,-32768,
1040 946,-32768, 887,-32768, 887,-32768, 887,-32768, 962,-32768,
1041 962,-32768, 962,-32768, 962,-32768, 373,-32768,-32768, 806,
1042-32768, 806,-32768, 897,-32768, 767,-32768, 784,-32768, 786,
1043-32768, 799,-32768, 894, 809,-32768,-32768,-32768,-32768, 924,
1044 1730, 807,-32768, 1730,-32768, 265,-32768,-32768,-32768,-32768,
1045-32768,-32768,-32768, 301,-32768, 808, 390, 215, 711,-32768,
1046 536,-32768,-32768,-32768,-32768,-32768, 401, 757,-32768, 904,
1047 47, 532,-32768, 814,-32768, 5222,-32768, 5113, 810, 824,
1048 836,-32768,-32768, 5487,-32768,-32768, 243,-32768, 829, 245,
1049-32768, 829,-32768,-32768, 466, 69,-32768,-32768,-32768, 4855,
1050 5264,-32768,-32768,-32768,-32768,-32768, 4906,-32768,-32768, 5538,
1051-32768,-32768, 466, 602,-32768, 4971, 657,-32768, 1730, 2586,
1052-32768,-32768, 1932,-32768,-32768, 224,-32768, 705,-32768,-32768,
1053-32768,-32768,-32768,-32768, 2651,-32768,-32768, 931, 333, 5022,
1054-32768, 669,-32768, 1507,-32768, 5603,-32768,-32768,-32768, 869,
1055 890, 5155,-32768, 225,-32768, 619,-32768,-32768,-32768,-32768,
1056-32768,-32768, 466,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
1057 743,-32768, 466,-32768,-32768, 409,-32768, 133, 112, 417,
1058-32768, 927, 945, 1932,-32768,-32768, 1932,-32768,-32768, 906,
1059-32768, 914, 925,-32768, 1013, 154,-32768,-32768,-32768,-32768,
1060-32768, 360,-32768,-32768, 1580,-32768, 1654,-32768, 936, 1866,
1061-32768, 937,-32768,-32768,-32768,-32768,-32768,-32768, 2702,-32768,
1062 200, 4558, 1866,-32768,-32768, 2767,-32768,-32768,-32768,-32768,
1063 1036,-32768,-32768,-32768, 940,-32768, 1866, 223, 214,-32768,
1064 332,-32768, 5113, 949,-32768,-32768,-32768,-32768, 227, 1932,
1065 950, 5155,-32768, 995, 1932, 958, 1932,-32768, 1932,-32768,
1066-32768, 1056, 1061,-32768
8b27f225
PB		 1067};
1068
1069static const short yypgoto[] = {-32768,
1179ebc2
APB		 1070-32768, -60, -53, 681, -31, -121, 565,-32768, -3, 566,
1071-32768, 134,-32768, 1054, 630,-32768, 218,-32768,-32768, 759,
1072 17, 441,-32768,-32768, 1024, 1008,-32768, -127,-32768, 930,
1073-32768, 331, -122, 948, -173, -191,-32768,-32768, 379, 498,
1074 840, -323, -101,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
1075 935,-32768,-32768, 695, -30,-32768,-32768,-32768,-32768, 1050,
1076 503,-32768, 1011,-32768,-32768, 14,-32768, -104, 846, -349,
1077 -165, -278,-32768, 803, -15, 115, -546,-32768, -429,-32768,
1078-32768,-32768, -299,-32768,-32768,-32768,-32768,-32768,-32768,-32768,
1079-32768, 458, 459, -623, -362,-32768,-32768,-32768,-32768,-32768,
1080-32768,-32768, -337,-32768, -620, 811,-32768,-32768,-32768,-32768,
1081-32768,-32768,-32768,-32768, 543,-32768, 544,-32768,-32768, -120,
1082-32768, -339,-32768, 769, 279, -308, 1141, 244, 1161, 374,
1083 434, 491, -111, 515, 683, -468,-32768, 627, 684, 570,
1084 641, 731, 733, 730, 732, 734,-32768, 497, 737, 740,
1085-32768,-32768, 36,-32768
8b27f225
PB		 1086};
1087
1088
1179ebc2 1089#define YYLAST 5788
8b27f225
PB		 1090
1091
1092static const short yytable[] = { 21,
1179ebc2
APB		 1093 152, 83, 29, 458, 176, 324, 449, 437, 84, 286,
1094 59, 356, 184, 612, 67, 143, 16, 120, 38, 257,
1095 101, 50, 48, 341, 174, 16, 16, 16, 123, 362,
1096 718, 93, 59, 83, 341, 84, 473, 59, 61, 144,
1097 84, 722, 61, 478, 480, 41, 16, 647, 249, 16,
1098 16, 251, 553, 20, 315, 592, 134, 174, 88, 76,
1099 61, 124, 593, 93, 259, 61, 557, 16, 83, 672,
1100 261, -66, 179, 138, 139, 84, 346, 146, 89, 84,
1101 333, 335, 337, 339, 186, 88, 693, 246, 348, 350,
1102 88, 718, 19, 420, 581, 559, 59, 561, 173, 123,
1103 135, 83, 67, 326, 574, 62, 84, 42, 84, 327,
1104 89, 585, 647, -103, -66, -154, 39, -103, 40, 325,
1105 49, 279, 50, 342, 61, 88, 84, -93, -93, 88,
1106 61, 173, 761, 646, 342, 606, 145, 25, 27, -155,
1107 648, 766, 677, 137, 344, 160, 617, 693, 352, 180,
1108 693, 456, 395, 398, 740, 428, 88, 77, 88, 125,
1109 599, 624, 673, 602, 558, 315, 345, 421, 617, 52,
1110 54, 280, 315, 57, 147, 245, 88, 20, 160, 609,
1111 315, 187, 315, 57, 247, 315, 410, 157, 330, 330,
1112 330, 330, 179, 560, 61, 562, 330, 330, 353, 84,
1113 707, 628, 575, 694, 631, 731, 460, -30, 1, -291,
1114 586, 617, 110, 693, 740, 639, 113, 461, 693, 618,
1115 693, 433, 693, 739, 701, 723, 31, 755, 84, 621,
1116 424, 730, 279, 69, -96, 133, 554, 354, 245, -96,
1117 -96, -96, -96, 667, 157, 669, -319, 741, 396, 88,
1118 31, 2, 279, 617, 666, 110, 113, 503, 505, 507,
1119 481, 481, 3, 64, 694, 632, 179, 694, 4, 180,
1120 697, 20, 189, 84, 5, 437, 596, 441, 88, 687,
1121 681, 315, 280, 462, 411, 444, 658, 445, 449, 440,
1122 689, 485, 615, 45, 50, 700, 67, 440, 750, 440,
1123 409, 634, 446, 415, 406, 706, 7, 759, 281, 157,
1124 578, 427, 189, 617, 703, 20, 619, 137, -253, 157,
1125 416, 758, 447, 88, 61, 763, 622, 527, 425, 71,
1126 694, 697, 632, 708, 697, 694, 418, 694, -319, 694,
1127 668, 74, 670, 180, -65, 422, 548, 453, 279, 474,
1128 437, 366, 327, 482, 576, 46, 700, 486, 633, 700,
1129 742, 26, 449, 28, 608, 330, 330, 330, 330, 330,
1130 330, 330, 330, 330, 330, 330, 330, 88, 330, 330,
1131 330, 330, 330, 330, 330, 629, 433, -65, 500, 749,
1132 637, 42, -65, 84, 635, 491, 407, 697, 550, 499,
1133 412, 644, 697, 46, 697, 53, 697, 426, -96, 644,
1134 -96, 189, 417, -96, -96, -96, -96, 406, 316, 281,
1135 709, 58, 700, -157, 545, 760, 281, 700, 419, 700,
1136 315, 700, 66, 315, 281, -65, 281, 423, 437, 454,
1137 17, 475, 556, 88, -31, 1, 20, 743, 20, 17,
1138 17, 17, 564, 449, 566, -28, 1, 492, 189, 165,
1139 250, 139, 449, 640, 491, 315, 643, 315, 98, 118,
1140 17, 102, 330, 17, 17, 464, 109, 671, 330, 55,
1141 501, 118, 638, 56, 601, 358, 603, 589, 2, 591,
1142 20, 17, 165, 645, 57, 682, 497, 279, 675, 2,
1143 279, 729, 90, 597, 112, 4, 20, 167, 315, 732,
1144 3, 5, 315, 496, 491, 119, 4, 20, 149, 245,
1145 151, 577, 5, 493, -29, 1, 154, 20, 494, 316,
1146 6, 183, 495, 315, 90, 281, 316, -32, 1, 128,
1147 167, 315, 20, 7, 316, 726, 316, 280, 317, 316,
1148 280, -494, -494, 20, 7, 728, 20, -34, 1, 724,
1149 129, 20, 188, 57, 20, 133, 189, 100, 2, 161,
1150 -33, 1, 148, 315, 106, 279, 315, 179, 649, 3,
1151 117, 2, 248, 323, 84, 4, 343, 365, 455, 20,
1152 459, 5, 3, 650, 315, 463, 315, 252, 4, 315,
1153 279, 2, 161, 20, 5, 20, 330, 330, 318, 131,
1154 388, 20, 315, -138, 2, 177, 20, 691, 4, 150,
1155 153, 253, 330, 7, 5, 280, 315, 651, 99, 440,
1156 157, 4, 315, 103, 88, 78, 7, 5, 30, 315,
1157 34, 315, -35, 1, 315, 316, 315, 20, 315, 616,
1158 280, 203, 679, 600, 180, 617, 7, 492, 2, 317,
1159 35, 279, 51, 279, 78, 319, 317, 80, 20, 7,
1160 81, 20, 20, 20, 317, 20, 317, 36, 441, 317,
1161 20, 444, 389, 37, 281, 711, 2, 281, 526, 320,
1162 440, 719, 155, 440, 159, 683, 80, 457, 359, 81,
1163 20, 617, 360, 4, 746, 702, 361, 610, 178, 5,
1164 600, 280, 725, 280, 431, 649, 440, 752, 617, 318,
1165 483, 686, 134, 493, 484, 159, 318, 159, 494, 440,
1166 650, 757, 495, 328, 318, 611, 318, 78, 600, 318,
1167 2, 7, 20, 440, 691, 340, 78, 598, 2, 746,
1168 598, 752, 358, 757, 78, 363, 440, 364, -25, -25,
1169 57, 440, 281, 440, 713, 440, 281, 751, 32, 80,
1170 567, 754, 81, 20, 568, 317, 319, 384, 80, 121,
1171 492, 81, 20, 319, -495, -495, 80, 281, 32, 81,
1172 20, 319, 32, 319, 316, 385, 319, 316, 386, -25,
1173 320, 432, -338, -338, -25, -25, -25, 320, 734, 32,
1174 -25, 735, 387, 140, -25, 320, 399, 320, 141, 142,
1175 320, 400, 35, 377, 378, 379, 380, 281, 78, 316,
1176 281, 316, -340, -340, -153, 318, 727, 122, 434, 36,
1177 476, 468, 617, 477, 582, 37, 493, 358, 281, 438,
1178 281, 494, 442, 281, -338, 495, 139, 321, -338, 452,
1179 80, 549, 381, 81, 20, 20, 281, 403, 404, 2,
1180 584, 405, 316, 594, 764, 78, 316, 367, 368, 768,
1181 281, 770, 620, 771, -340, -493, -493, 359, -340, 372,
1182 373, 360, 319, 281, 625, 361, 626, 316, 281, 630,
1183 281, 636, 281, 156, 646, 316, 656, 80, 662, 78,
1184 81, 20, 382, 383, 322, 156, 320, 663, 79, 393,
1185 4, 78, 390, 391, 317, 600, 5, 317, -15, 664,
1186 79, 707, 4, -493, -493, 359, 35, 316, 5, 429,
1187 316, 80, 78, 430, 81, 20, 519, 521, 523, 525,
1188 369, 370, 371, 80, 157, 158, 81, 20, 316, 317,
1189 316, 317, 720, 316, -404, -404, 157, 255, 321, 374,
1190 375, 376, -405, -405, 80, 321, 316, 81, 20, 465,
1191 466, 467, 733, 321, 318, 321, -15, 318, 321, 586,
1192 316, -493, -493, 359, 141, 142, 316, 429, 509, 511,
1193 -204, 361, 317, 316, 736, 316, 317, 737, 316, -15,
1194 316, 2, 316, 739, -493, -493, 359, 78, 738, 318,
1195 429, 318, 530, 532, 627, 322, 79, 317, 4, 745,
1196 747, 2, 322, 35, 5, 317, 755, 78, 756, 78,
1197 322, 319, 322, 765, 319, 322, 79, 762, 4, 80,
1198 767, 769, 81, 20, 5, 773, 37, 513, 515, 517,
1199 774, 528, 318, 82, 33, 320, 318, 317, 320, 80,
1200 317, 80, 81, 20, 81, 20, 319, 75, 319, -493,
1201 -493, 359, 108, 126, 321, 479, 190, 318, 317, 361,
1202 317, 256, 394, 317, 254, 318, 552, -493, -493, 359,
1203 320, 73, 320, 360, 127, 402, 317, 430, 448, 714,
1204 715, 641, 642, 472, 534, 538, 451, 536, 540, 319,
1205 317, 542, 685, 319, 0, 0, 317, 318, 547, 0,
1206 318, 0, 0, 317, 0, 317, 0, 0, 317, 0,
1207 317, 322, 317, 320, 319, 0, 0, 320, 318, 0,
1208 318, 0, 319, 318, 0, 0, 0, 0, 0, 0,
1209 0, 0, 0, 0, 0, 0, 318, 0, 320, 0,
1210 0, 0, 0, 0, 0, 0, 320, 0, 0, 0,
1211 318, 0, 0, 0, 319, 0, 318, 319, 0, 0,
1212 0, 0, 0, 318, 0, 318, 0, 0, 318, 0,
1213 318, 0, 318, 0, 0, 319, 0, 319, 320, 0,
1214 319, 320, 0, 0, 0, 0, 0, 0, 0, 0,
1215 0, 0, 0, 319, 0, 0, 0, 0, 0, 320,
1216 0, 320, 0, 321, 320, 0, 321, 319, 0, 0,
1217 0, 0, 0, 319, 0, 0, 0, 320, 0, 0,
1218 319, 0, 319, 0, 0, 319, 0, 319, 0, 319,
1219 0, 320, 0, 0, 0, 0, 0, 320, 321, 0,
1220 321, 0, 0, 0, 320, 0, 320, 0, 0, 320,
1221 0, 320, 0, 320, 0, 0, 0, 0, 0, 0,
1222 322, 0, 0, 322, 0, 0, 0, 0, 0, 0,
22eed1e6 1223 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1179ebc2
APB		 1224 0, 321, 0, 0, 0, 321, 0, 0, 0, 0,
1225 0, 0, 0, 0, 0, 322, 0, 322, 0, 0,
1226 0, 0, 331, 331, 331, 331, 321, 0, 0, 0,
1227 331, 331, 0, 0, 321, 0, 0, 0, 0, 0,
1228 0, 0, 332, 332, 332, 332, 0, 0, 0, 0,
1229 332, 332, 0, 0, 0, 0, 0, 0, 322, 0,
1230 0, 0, 322, 0, 0, 0, 321, 0, 0, 321,
12472854 1231 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1179ebc2
APB		 1232 0, 0, 0, 322, 0, 0, 0, 321, 0, 321,
1233 0, 322, 321, 0, 0, 0, 0, 0, 0, 0,
1234 0, 0, 0, 0, 0, 321, 0, 0, 0, 0,
1235 0, 0, 0, 0, 0, 0, 0, 0, 0, 321,
1236 0, 0, 0, 322, 0, 321, 322, 0, 0, 0,
1237 0, 0, 321, 0, 321, 0, 0, 321, 0, 321,
1238 0, 321, 0, 0, 322, 0, 322, 0, 0, 322,
12472854 1239 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1179ebc2
APB		 1240 0, 0, 322, 0, 0, 0, 0, 0, 0, 0,
1241 0, 0, 0, 0, 0, 0, 322, 0, 0, 0,
1242 0, 0, 322, 0, 0, 0, 0, 0, 0, 322,
1243 0, 322, 0, 0, 322, 0, 322, 262, 322, 331,
1244 331, 331, 331, 331, 331, 331, 331, 331, 331, 331,
1245 331, 0, 331, 331, 331, 331, 331, 331, 331, 332,
1246 332, 332, 332, 332, 332, 332, 332, 332, 332, 332,
1247 332, 0, 332, 332, 332, 332, 332, 332, 332, 0,
1248 263, 194, 195, 649, 264, 265, 78, 266, 0, 0,
1249 267, 0, 0, 0, 268, 196, 0, 0, 650, 0,
1250 0, 269, 270, 5, 271, 0, 272, 273, 198, 274,
1251 262, 0, 275, 0, 0, 0, 0, 0, 80, 0,
12472854 1252 0, 81, 20, 0, 0, 0, 0, 0, 0, 276,
1179ebc2
APB		 1253 0, 157, 716, 0, 0, 277, 0, 0, 204, 205,
1254 206, 207, 0, 0, 208, 209, 331, 0, 0, 0,
1255 0, 0, 331, 263, 194, 195, 649, 264, 265, 78,
1256 266, 0, 0, 267, 0, 0, 332, 268, 196, 0,
1257 0, 650, 332, 0, 269, 270, 5, 271, 0, 272,
1258 273, 198, 274, 0, 262, 275, 0, 0, 0, 0,
1259 0, 80, 0, 0, 81, 20, 0, 0, 0, 0,
1260 0, 0, 276, 0, 157, 744, 0, 0, 277, 0,
1261 0, 204, 205, 206, 207, 0, 0, 208, 209, 0,
1262 0, 0, 0, 0, 0, 0, 0, 263, 194, 195,
1263 -263, 264, 265, 78, 266, 0, 0, 267, 0, 0,
1264 0, 268, 196, 0, 0, -263, 0, 0, 269, 270,
1265 5, 271, 0, 272, 273, 198, 274, 0, 0, 275,
1266 262, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1267 0, 0, 0, 0, 0, 0, 276, 0, 157, -263,
1268 331, 331, 277, 0, 0, 204, 205, 206, 207, 0,
1269 0, 208, 209, 0, 0, 0, 331, 0, 0, 0,
1270 332, 332, 0, 263, 194, 195, 0, 264, 265, 78,
1271 266, 0, 0, 267, 0, 0, 332, 268, 196, 0,
1272 0, 0, 0, 0, 269, 270, 5, 271, 262, 272,
1273 273, 198, 274, 0, 0, 275, 0, 0, 0, 0,
1274 0, 80, 0, 0, 81, 20, 0, 0, 0, 0,
1275 0, 0, 276, 0, 157, 435, 0, 0, 277, 0,
1276 0, 204, 205, 206, 207, 0, 0, 208, 209, 0,
1277 0, 263, 194, 195, 0, 264, 265, 78, 266, 0,
1278 0, 267, 0, 0, 0, 268, 196, 0, 0, 0,
1279 0, 0, 269, 270, 5, 271, 262, 272, 273, 198,
1280 274, 0, 0, 275, 0, 0, 0, 0, 0, 80,
1281 0, 0, 81, 20, 0, 0, 0, 0, 0, 0,
1282 276, 0, 157, 0, 0, 0, 277, 0, 0, 204,
1283 205, 206, 207, 0, 0, 208, 209, 0, 0, 439,
1284 194, 195, 0, 264, 265, 78, 266, 0, 0, 267,
1285 0, 0, 0, 268, 196, 0, 0, 0, 0, 0,
1286 269, 270, 262, 271, 0, 272, 273, 198, 274, 0,
1287 0, 275, 0, 0, 0, 0, 0, 80, 0, 0,
1288 81, 20, 0, 0, 0, 0, 0, 0, 276, 0,
1289 157, 0, 0, 0, 277, 0, 0, 204, 205, 206,
1290 207, 0, 0, 208, 209, 439, 194, 195, 0, 690,
1291 265, 78, 266, 0, 0, 267, 0, 0, 0, 268,
1292 196, 0, 0, 0, 0, 0, 269, 270, 0, 271,
1293 0, 272, 273, 198, 274, 0, 613, 275, 192, 193,
1294 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1295 0, 0, 0, 0, 276, 0, 157, 0, 0, 0,
1296 277, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1297 209, 0, 0, 0, 0, 0, 0, 0, 0, 0,
1298 194, 195, 0, 0, 0, 78, 0, 0, 0, 0,
1299 0, 0, 0, 0, 196, 0, 0, 0, 0, 0,
1300 197, 191, 0, 192, 193, 0, 0, 198, 0, 0,
12472854
PB		 1301 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1302 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
1179ebc2 1303 203, 614, 0, 0, 0, 0, 0, 204, 205, 206,
12472854 1304 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1179ebc2 1305 78, 0, 413, 0, 192, 193, 0, 0, 0, 196,
12472854
PB		 1306 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1307 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1179ebc2
APB		 1308 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1309 201, 0, 0, 202, 0, 203, 194, 195, 0, 0,
12472854 1310 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1179ebc2 1311 196, 0, 0, 0, 0, 0, 197, 543, 0, 192,
12472854
PB		 1312 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1313 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1179ebc2
APB		 1314 200, 201, 0, 0, 202, 0, 0, 0, 0, 0,
1315 414, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1316 209, 194, 195, 0, 0, 0, 78, 0, 490, 0,
12472854
PB		 1317 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1318 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
1319 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1179ebc2
APB		 1320 0, 81, 20, 0, 544, 200, 201, 0, 0, 202,
1321 0, 0, 194, 195, 0, 0, 0, 78, 204, 205,
12472854 1322 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1179ebc2 1323 0, 0, 197, 579, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1324 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1325 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
1179ebc2 1326 202, 0, 0, 0, 0, 148, 0, 0, 0, 204,
12472854 1327 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1179ebc2 1328 0, 0, 78, 0, 587, 0, 192, 193, 0, 0,
12472854
PB		 1329 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1330 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1331 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1179ebc2
APB		 1332 0, 200, 201, 0, 0, 202, 580, 0, 194, 195,
1333 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1334 208, 209, 196, 0, 0, 0, 0, 0, 197, 595,
12472854
PB		 1335 0, 192, 193, 0, 0, 198, 0, 0, 0, 199,
1336 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1179ebc2
APB		 1337 0, 0, 200, 201, 0, 0, 202, 0, 0, 0,
1338 0, 0, 588, 0, 0, 204, 205, 206, 207, 0,
12472854 1339 0, 208, 209, 194, 195, 0, 0, 0, 78, 0,
1179ebc2 1340 604, 0, 192, 193, 0, 0, 0, 196, 0, 0,
12472854 1341 0, 0, 0, 197, 0, 0, 0, 0, 0, 0,
22eed1e6
APB		 1342 198, 0, 0, 0, 199, 0, 0, 0, 0, 0,
1343 80, 0, 0, 81, 20, 0, 0, 200, 201, 0,
1179ebc2 1344 0, 202, 0, 0, 194, 195, 596, 0, 0, 78,
12472854 1345 204, 205, 206, 207, 0, 0, 208, 209, 196, 0,
1179ebc2 1346 0, 0, 0, 0, 197, 490, 0, 192, 193, 0,
22eed1e6
APB		 1347 0, 198, 0, 0, 0, 199, 0, 0, 0, 0,
1348 0, 80, 0, 0, 81, 20, 0, 0, 200, 201,
1179ebc2 1349 0, 0, 202, 605, 0, 0, 0, 0, 0, 0,
12472854 1350 0, 204, 205, 206, 207, 0, 0, 208, 209, 194,
1179ebc2 1351 195, 0, 0, 0, 78, 0, 579, 0, 192, 193,
12472854
PB		 1352 0, 0, 0, 196, 0, 0, 0, 0, 0, 197,
1353 0, 0, 0, 0, 0, 0, 198, 0, 0, 0,
1354 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1179ebc2
APB		 1355 20, 0, 0, 200, 201, 0, 0, 202, 0, 0,
1356 194, 195, 596, 0, 0, 78, 204, 205, 206, 207,
12472854 1357 0, 0, 208, 209, 196, 0, 0, 0, 0, 0,
1179ebc2 1358 197, 704, 0, 192, 193, 0, 0, 198, 0, 0,
12472854 1359 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1179ebc2 1360 81, 20, 0, 0, 200, 201, 0, 0, 202, 688,
12472854
PB		 1361 0, 0, 0, 0, 0, 0, 0, 204, 205, 206,
1362 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1179ebc2 1363 78, 0, 704, 0, 192, 193, 0, 0, 0, 196,
12472854 1364 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
22eed1e6
APB		 1365 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1366 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1179ebc2 1367 201, 0, 0, 202, 705, 0, 194, 195, 0, 0,
12472854 1368 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1179ebc2 1369 196, 0, 0, 0, 0, 0, 197, 587, 0, 192,
12472854
PB		 1370 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1371 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1179ebc2 1372 200, 201, 0, 0, 202, 748, 0, 0, 0, 0,
12472854 1373 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1179ebc2 1374 209, 194, 195, 0, 0, 0, 78, 0, 329, 0,
12472854
PB		 1375 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1376 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
22eed1e6
APB		 1377 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1378 0, 81, 20, 0, 0, 200, 201, 0, 0, 202,
1179ebc2 1379 0, 0, 194, 195, 0, 753, 0, 78, 204, 205,
12472854 1380 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1179ebc2 1381 0, 0, 197, 334, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1382 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1383 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
12472854
PB		 1384 202, 0, 0, 0, 0, 0, 0, 0, 0, 204,
1385 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1179ebc2 1386 0, 0, 78, 0, 336, 0, 192, 193, 0, 0,
12472854
PB		 1387 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1388 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1389 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1390 0, 200, 201, 0, 0, 202, 0, 0, 194, 195,
1391 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1179ebc2 1392 208, 209, 196, 0, 0, 0, 0, 0, 197, 338,
12472854
PB		 1393 0, 192, 193, 0, 0, 198, 0, 0, 0, 199,
1394 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1395 0, 0, 200, 201, 0, 0, 202, 0, 0, 0,
1396 0, 0, 0, 0, 0, 204, 205, 206, 207, 0,
1397 0, 208, 209, 194, 195, 0, 0, 0, 78, 0,
1179ebc2 1398 347, 0, 192, 193, 0, 0, 0, 196, 0, 0,
12472854 1399 0, 0, 0, 197, 0, 0, 0, 0, 0, 0,
22eed1e6
APB		 1400 198, 0, 0, 0, 199, 0, 0, 0, 0, 0,
1401 80, 0, 0, 81, 20, 0, 0, 200, 201, 0,
12472854
PB		 1402 0, 202, 0, 0, 194, 195, 0, 0, 0, 78,
1403 204, 205, 206, 207, 0, 0, 208, 209, 196, 0,
1179ebc2 1404 0, 0, 0, 0, 197, 349, 0, 192, 193, 0,
22eed1e6
APB		 1405 0, 198, 0, 0, 0, 199, 0, 0, 0, 0,
1406 0, 80, 0, 0, 81, 20, 0, 0, 200, 201,
12472854
PB		 1407 0, 0, 202, 0, 0, 0, 0, 0, 0, 0,
1408 0, 204, 205, 206, 207, 0, 0, 208, 209, 194,
1179ebc2 1409 195, 0, 0, 0, 78, 0, 351, 0, 192, 193,
12472854
PB		 1410 0, 0, 0, 196, 0, 0, 0, 0, 0, 197,
1411 0, 0, 0, 0, 0, 0, 198, 0, 0, 0,
1412 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1413 20, 0, 0, 200, 201, 0, 0, 202, 0, 0,
1414 194, 195, 0, 0, 0, 78, 204, 205, 206, 207,
1415 0, 0, 208, 209, 196, 0, 0, 0, 0, 0,
1179ebc2 1416 197, 408, 0, 192, 193, 0, 0, 198, 0, 0,
22eed1e6
APB		 1417 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1418 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
12472854
PB		 1419 0, 0, 0, 0, 0, 0, 0, 204, 205, 206,
1420 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1179ebc2 1421 78, 0, 490, 0, 192, 193, 0, 0, 0, 196,
12472854
PB		 1422 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1423 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1424 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1425 201, 0, 0, 202, 0, 0, 194, 195, 0, 0,
1426 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1179ebc2 1427 196, 0, 0, 0, 0, 0, 197, 498, 0, 192,
12472854
PB		 1428 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1429 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1430 200, 201, 0, 0, 202, 0, 0, 0, 0, 0,
1431 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1179ebc2 1432 209, 194, 195, 0, 0, 0, 78, 0, 502, 0,
12472854
PB		 1433 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1434 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
22eed1e6
APB		 1435 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1436 0, 81, 20, 0, 0, 200, 201, 0, 0, 202,
12472854
PB		 1437 0, 0, 194, 195, 0, 0, 0, 78, 204, 205,
1438 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1179ebc2 1439 0, 0, 197, 504, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1440 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1441 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
12472854
PB		 1442 202, 0, 0, 0, 0, 0, 0, 0, 0, 204,
1443 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1179ebc2 1444 0, 0, 78, 0, 506, 0, 192, 193, 0, 0,
12472854
PB		 1445 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1446 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1447 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1448 0, 200, 201, 0, 0, 202, 0, 0, 194, 195,
1449 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1179ebc2 1450 208, 209, 196, 0, 0, 0, 0, 0, 197, 508,
12472854
PB		 1451 0, 192, 193, 0, 0, 198, 0, 0, 0, 199,
1452 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1453 0, 0, 200, 201, 0, 0, 202, 0, 0, 0,
1454 0, 0, 0, 0, 0, 204, 205, 206, 207, 0,
1455 0, 208, 209, 194, 195, 0, 0, 0, 78, 0,
1179ebc2 1456 510, 0, 192, 193, 0, 0, 0, 196, 0, 0,
12472854 1457 0, 0, 0, 197, 0, 0, 0, 0, 0, 0,
22eed1e6
APB		 1458 198, 0, 0, 0, 199, 0, 0, 0, 0, 0,
1459 80, 0, 0, 81, 20, 0, 0, 200, 201, 0,
12472854
PB		 1460 0, 202, 0, 0, 194, 195, 0, 0, 0, 78,
1461 204, 205, 206, 207, 0, 0, 208, 209, 196, 0,
1179ebc2 1462 0, 0, 0, 0, 197, 512, 0, 192, 193, 0,
22eed1e6
APB		 1463 0, 198, 0, 0, 0, 199, 0, 0, 0, 0,
1464 0, 80, 0, 0, 81, 20, 0, 0, 200, 201,
12472854
PB		 1465 0, 0, 202, 0, 0, 0, 0, 0, 0, 0,
1466 0, 204, 205, 206, 207, 0, 0, 208, 209, 194,
1179ebc2 1467 195, 0, 0, 0, 78, 0, 514, 0, 192, 193,
12472854
PB		 1468 0, 0, 0, 196, 0, 0, 0, 0, 0, 197,
1469 0, 0, 0, 0, 0, 0, 198, 0, 0, 0,
1470 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1471 20, 0, 0, 200, 201, 0, 0, 202, 0, 0,
1472 194, 195, 0, 0, 0, 78, 204, 205, 206, 207,
1473 0, 0, 208, 209, 196, 0, 0, 0, 0, 0,
1179ebc2 1474 197, 516, 0, 192, 193, 0, 0, 198, 0, 0,
22eed1e6
APB		 1475 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1476 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
12472854
PB		 1477 0, 0, 0, 0, 0, 0, 0, 204, 205, 206,
1478 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1179ebc2 1479 78, 0, 518, 0, 192, 193, 0, 0, 0, 196,
12472854
PB		 1480 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1481 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1482 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1483 201, 0, 0, 202, 0, 0, 194, 195, 0, 0,
1484 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1179ebc2 1485 196, 0, 0, 0, 0, 0, 197, 520, 0, 192,
12472854
PB		 1486 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1487 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1488 200, 201, 0, 0, 202, 0, 0, 0, 0, 0,
1489 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1179ebc2 1490 209, 194, 195, 0, 0, 0, 78, 0, 522, 0,
12472854
PB		 1491 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1492 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
22eed1e6
APB		 1493 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1494 0, 81, 20, 0, 0, 200, 201, 0, 0, 202,
12472854
PB		 1495 0, 0, 194, 195, 0, 0, 0, 78, 204, 205,
1496 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1179ebc2 1497 0, 0, 197, 524, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1498 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1499 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
12472854
PB		 1500 202, 0, 0, 0, 0, 0, 0, 0, 0, 204,
1501 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1179ebc2 1502 0, 0, 78, 0, 529, 0, 192, 193, 0, 0,
12472854
PB		 1503 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1504 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1505 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1506 0, 200, 201, 0, 0, 202, 0, 0, 194, 195,
1507 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1179ebc2 1508 208, 209, 196, 0, 0, 0, 0, 0, 197, 531,
12472854
PB		 1509 0, 192, 193, 0, 0, 198, 0, 0, 0, 199,
1510 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1511 0, 0, 200, 201, 0, 0, 202, 0, 0, 0,
1512 0, 0, 0, 0, 0, 204, 205, 206, 207, 0,
1513 0, 208, 209, 194, 195, 0, 0, 0, 78, 0,
1179ebc2 1514 533, 0, 192, 193, 0, 0, 0, 196, 0, 0,
12472854 1515 0, 0, 0, 197, 0, 0, 0, 0, 0, 0,
22eed1e6
APB		 1516 198, 0, 0, 0, 199, 0, 0, 0, 0, 0,
1517 80, 0, 0, 81, 20, 0, 0, 200, 201, 0,
12472854
PB		 1518 0, 202, 0, 0, 194, 195, 0, 0, 0, 78,
1519 204, 205, 206, 207, 0, 0, 208, 209, 196, 0,
1179ebc2 1520 0, 0, 0, 0, 197, 535, 0, 192, 193, 0,
22eed1e6
APB		 1521 0, 198, 0, 0, 0, 199, 0, 0, 0, 0,
1522 0, 80, 0, 0, 81, 20, 0, 0, 200, 201,
12472854
PB		 1523 0, 0, 202, 0, 0, 0, 0, 0, 0, 0,
1524 0, 204, 205, 206, 207, 0, 0, 208, 209, 194,
1179ebc2 1525 195, 0, 0, 0, 78, 0, 537, 0, 192, 193,
12472854
PB		 1526 0, 0, 0, 196, 0, 0, 0, 0, 0, 197,
1527 0, 0, 0, 0, 0, 0, 198, 0, 0, 0,
1528 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1529 20, 0, 0, 200, 201, 0, 0, 202, 0, 0,
1530 194, 195, 0, 0, 0, 78, 204, 205, 206, 207,
1531 0, 0, 208, 209, 196, 0, 0, 0, 0, 0,
1179ebc2 1532 197, 539, 0, 192, 193, 0, 0, 198, 0, 0,
22eed1e6
APB		 1533 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1534 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
12472854
PB		 1535 0, 0, 0, 0, 0, 0, 0, 204, 205, 206,
1536 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1179ebc2 1537 78, 0, 541, 0, 192, 193, 0, 0, 0, 196,
12472854
PB		 1538 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1539 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1540 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1541 201, 0, 0, 202, 0, 0, 194, 195, 0, 0,
1542 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1179ebc2 1543 196, 0, 0, 0, 0, 0, 197, 546, 0, 192,
12472854
PB		 1544 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1545 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1546 200, 201, 0, 0, 202, 0, 0, 0, 0, 0,
1547 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1179ebc2 1548 209, 194, 195, 0, 0, 0, 78, 0, 555, 0,
12472854
PB		 1549 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1550 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
22eed1e6
APB		 1551 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1552 0, 81, 20, 0, 0, 200, 201, 0, 0, 202,
12472854
PB		 1553 0, 0, 194, 195, 0, 0, 0, 78, 204, 205,
1554 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1179ebc2 1555 0, 0, 197, 563, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1556 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1557 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
12472854
PB		 1558 202, 0, 0, 0, 0, 0, 0, 0, 0, 204,
1559 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1179ebc2 1560 0, 0, 78, 0, 565, 0, 192, 193, 0, 0,
12472854
PB		 1561 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1562 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1563 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1564 0, 200, 201, 0, 0, 202, 0, 0, 194, 195,
1565 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1179ebc2 1566 208, 209, 196, 0, 0, 0, 0, 0, 197, 590,
12472854
PB		 1567 0, 192, 193, 0, 0, 198, 0, 0, 0, 199,
1568 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1569 0, 0, 200, 201, 0, 0, 202, 0, 0, 0,
1570 0, 0, 0, 0, 0, 204, 205, 206, 207, 0,
1571 0, 208, 209, 194, 195, 0, 0, 0, 78, 0,
1179ebc2 1572 607, 0, 192, 193, 0, 0, 0, 196, 0, 0,
12472854 1573 0, 0, 0, 197, 0, 0, 0, 0, 0, 0,
22eed1e6
APB		 1574 198, 0, 0, 0, 199, 0, 0, 0, 0, 0,
1575 80, 0, 0, 81, 20, 0, 0, 200, 201, 0,
12472854
PB		 1576 0, 202, 0, 0, 194, 195, 0, 0, 0, 78,
1577 204, 205, 206, 207, 0, 0, 208, 209, 196, 0,
1179ebc2 1578 0, 0, 0, 0, 197, 674, 0, 192, 193, 0,
22eed1e6
APB		 1579 0, 198, 0, 0, 0, 199, 0, 0, 0, 0,
1580 0, 80, 0, 0, 81, 20, 0, 0, 200, 201,
12472854
PB		 1581 0, 0, 202, 0, 0, 0, 0, 0, 0, 0,
1582 0, 204, 205, 206, 207, 0, 0, 208, 209, 194,
1179ebc2 1583 195, 0, 0, 0, 78, 0, 678, 0, 192, 193,
12472854
PB		 1584 0, 0, 0, 196, 0, 0, 0, 0, 0, 197,
1585 0, 0, 0, 0, 0, 0, 198, 0, 0, 0,
1586 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1179ebc2 1587 20, 0, 0, 200, 201, 0, 0, 202, 0, 0,
12472854
PB		 1588 194, 195, 0, 0, 0, 78, 204, 205, 206, 207,
1589 0, 0, 208, 209, 196, 0, 0, 0, 0, 0,
1179ebc2 1590 197, 684, 0, 192, 193, 0, 0, 198, 0, 0,
22eed1e6 1591 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1179ebc2
APB		 1592 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
1593 0, 0, 0, 0, 0, 0, 0, 204, 205, 206,
1594 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1595 78, 0, 710, 0, 192, 193, 0, 0, 0, 196,
1596 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1597 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1598 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1599 201, 0, 0, 202, 0, 0, 194, 195, 0, 0,
1600 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1601 196, 0, 0, 0, 0, 0, 197, 0, 573, 0,
1602 0, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1603 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1604 200, 201, 0, 659, 202, 0, 0, 0, 0, 0,
1605 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1606 209, -286, -286, -286, 0, 0, 0, -286, 0, 0,
1607 0, 0, 0, 0, 0, 0, -286, 0, 0, 0,
1608 0, 0, -286, 0, 0, 721, 0, 194, 195, -286,
1609 0, 0, 78, -286, 0, 0, 0, 0, 0, -286,
1610 0, 196, -286, -286, 0, 0, 0, 197, 0, 0,
1611 -286, 0, 0, 0, 198, 0, -286, 0, 199, -286,
1612 -286, -286, -286, 0, 80, -286, -286, 81, 20, 194,
1613 195, 0, 0, 0, 78, 276, -294, 0, 0, 0,
12472854 1614 0, 0, 0, 196, 204, 205, 206, 207, 0, 197,
1179ebc2 1615 208, 209, 657, 0, 0, 0, 198, 0, 0, 0,
12472854 1616 199, 0, 0, 0, 0, 0, 80, 0, 0, 81,
1179ebc2
APB		 1617 20, 0, 0, 0, 0, 0, 0, 276, -294, 0,
1618 0, 0, 0, 0, 0, 0, 204, 205, 206, 207,
1619 0, 0, 208, 209, 676, 0, 194, 195, 0, 0,
1620 0, 78, 0, 0, 0, 0, 0, 0, 0, 0,
1621 196, 0, 0, 0, 0, 0, 197, 0, 0, 0,
1622 0, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1623 0, 0, 0, 80, 0, 0, 81, 20, 192, 193,
1624 0, 0, 0, 78, 276, 0, 0, 0, 0, 0,
1625 0, 0, 196, 204, 205, 206, 207, 0, 197, 208,
1626 209, 0, 0, 0, 0, 198, 0, 0, 0, 199,
1627 0, 0, 0, 0, 0, 80, 0, 0, 81, 20,
1628 194, 195, 200, 201, 0, 78, 202, 0, 0, 0,
1629 0, 0, 0, 0, 196, 204, 205, 206, 207, 0,
1630 197, 208, 209, 192, 193, 0, 0, 198, 0, 0,
1631 0, 199, 0, 0, 0, 0, 0, 80, 0, 0,
1632 81, 20, 0, 0, 200, 201, 0, 0, 202, 0,
1633 203, 355, 0, 0, 0, 0, 0, 204, 205, 206,
1634 207, 0, 0, 208, 209, 194, 195, 0, 0, 0,
1635 78, 0, 0, 0, 192, 193, 0, 0, 0, 196,
1636 0, 0, 0, 0, 0, 197, 0, 0, 0, 0,
1637 0, 0, 198, 0, 0, 0, 199, 0, 0, 0,
1638 0, 0, 80, 0, 0, 81, 20, 0, 0, 200,
1639 201, 0, 0, 202, 487, 0, 194, 195, 0, 0,
1640 0, 78, 204, 205, 206, 207, 0, 0, 208, 209,
1641 196, 0, 0, 0, 0, 0, 197, 0, 0, 192,
12472854
PB		 1642 193, 0, 0, 198, 0, 0, 0, 199, 0, 0,
1643 0, 0, 0, 80, 0, 0, 81, 20, 0, 0,
1179ebc2 1644 200, 201, 0, 0, 202, 623, 0, 0, 0, 0,
12472854
PB		 1645 0, 0, 0, 204, 205, 206, 207, 0, 0, 208,
1646 209, 194, 195, 0, 0, 0, 78, 0, 0, 0,
1179ebc2
APB		 1647 192, 193, 0, 0, 0, 196, 0, 0, 0, 0,
1648 0, 197, 0, 0, 0, 0, 0, 0, 198, 0,
22eed1e6
APB		 1649 0, 0, 199, 0, 0, 0, 0, 0, 80, 0,
1650 0, 81, 20, 0, 0, 200, 201, 0, 0, 202,
1179ebc2
APB		 1651 665, 0, 194, 195, 0, 0, 0, 78, 204, 205,
1652 206, 207, 0, 0, 208, 209, 196, 0, 0, 0,
1653 0, 0, 197, 0, 0, 192, 193, 0, 0, 198,
22eed1e6
APB		 1654 0, 0, 0, 199, 0, 0, 0, 0, 0, 80,
1655 0, 0, 81, 20, 0, 0, 200, 201, 0, 0,
1179ebc2
APB		 1656 202, 680, 0, 0, 0, 0, 0, 0, 0, 204,
1657 205, 206, 207, 0, 0, 208, 209, 194, 195, 0,
1658 0, 0, 78, 0, 0, 0, 0, 0, 0, 0,
1659 0, 196, 0, 0, 0, 0, 0, 197, 0, 0,
1660 0, 0, 0, 0, 198, 0, 0, 0, 199, 0,
1661 0, 0, 0, 0, 80, 0, 0, 81, 20, 0,
1662 0, 200, 201, 0, 0, 202, 0, 2, 194, 195,
1663 0, 0, 0, 78, 204, 205, 206, 207, 0, 0,
1664 208, 209, 196, 0, 0, 0, 0, 0, 197, 0,
1665 0, 0, 0, 0, 0, 198, 0, 0, 78, 199,
1666 0, 0, 0, 0, 0, 80, 0, 196, 81, 20,
1667 0, 0, 0, 197, 0, 0, 276, 0, 0, 0,
1668 198, 0, 0, 0, 199, 204, 205, 206, 207, 0,
1669 80, 208, 209, 81, 20, 0, 0, 200, 201, 0,
1670 0, 202, 0, 0, 0, 0, 0, 0, 0, 0,
1671 204, 205, 206, 207, 0, 0, 208, 209
8b27f225
PB		 1672};
1673
1674static const short yycheck[] = { 3,
1179ebc2
APB		 1675 123, 62, 6, 327, 132, 179, 306, 286, 62, 175,
1676 42, 203, 134, 482, 46, 117, 0, 97, 1, 1,
1677 1, 101, 1, 1, 129, 9, 10, 11, 89, 1,
1678 654, 62, 64, 94, 1, 89, 345, 69, 42, 1,
1679 94, 662, 46, 352, 353, 1, 30, 1, 150, 33,
1680 34, 153, 402, 86, 175, 94, 53, 162, 62, 1,
1681 64, 1, 101, 94, 169, 69, 1, 51, 129, 1,
1682 172, 52, 133, 99, 100, 129, 198, 1, 62, 133,
1683 192, 193, 194, 195, 1, 89, 633, 1, 200, 201,
1684 94, 715, 1, 1, 434, 1, 128, 1, 129, 160,
1685 97, 162, 134, 94, 1, 95, 160, 63, 162, 100,
1686 94, 1, 1, 95, 95, 93, 99, 99, 101, 180,
1687 99, 175, 101, 101, 128, 129, 180, 99, 100, 133,
1688 134, 162, 753, 1, 101, 475, 98, 4, 5, 95,
1689 94, 762, 611, 1, 198, 129, 100, 694, 202, 133,
1690 697, 325, 254, 258, 1, 278, 160, 99, 162, 99,
1691 469, 501, 94, 472, 99, 286, 198, 272, 100, 36,
1692 37, 175, 293, 40, 98, 140, 180, 86, 162, 1,
1693 301, 98, 303, 50, 98, 306, 1, 95, 192, 193,
1694 194, 195, 253, 99, 198, 99, 200, 201, 202, 253,
1695 1, 551, 99, 633, 554, 94, 328, 0, 1, 99,
1696 100, 100, 79, 760, 1, 1, 83, 1, 765, 1,
1697 767, 282, 769, 1, 1, 1, 9, 1, 282, 1,
1698 1, 99, 286, 52, 92, 93, 402, 202, 203, 97,
1699 98, 99, 100, 1, 95, 1, 1, 94, 99, 253,
1700 33, 44, 306, 100, 594, 122, 123, 369, 370, 371,
1701 1, 1, 55, 100, 694, 1, 327, 697, 61, 253,
1702 633, 86, 139, 327, 67, 554, 98, 293, 282, 629,
1703 620, 402, 286, 67, 99, 301, 586, 303, 588, 293,
1704 630, 1, 484, 1, 101, 633, 328, 301, 99, 303,
1705 265, 1, 306, 268, 1, 645, 99, 94, 175, 95,
1706 433, 276, 179, 100, 638, 86, 98, 1, 95, 95,
1707 1, 99, 306, 327, 328, 99, 98, 381, 99, 1,
1708 760, 694, 1, 1, 697, 765, 1, 767, 93, 769,
1709 98, 1, 98, 327, 52, 1, 94, 1, 402, 1,
1710 629, 218, 100, 94, 94, 63, 694, 67, 94, 697,
1711 1, 1, 662, 1, 476, 369, 370, 371, 372, 373,
22eed1e6 1712 374, 375, 376, 377, 378, 379, 380, 381, 382, 383,
1179ebc2
APB		 1713 384, 385, 386, 387, 388, 551, 447, 95, 1, 729,
1714 1, 63, 52, 447, 94, 360, 93, 760, 402, 364,
1715 267, 1, 765, 63, 767, 1, 769, 274, 92, 1,
1716 94, 278, 93, 97, 98, 99, 100, 1, 175, 286,
1717 88, 1, 760, 95, 389, 94, 293, 765, 93, 767,
1718 551, 769, 1, 554, 301, 95, 303, 93, 717, 93,
1719 0, 93, 407, 447, 0, 1, 86, 88, 86, 9,
1720 10, 11, 417, 753, 419, 0, 1, 1, 325, 129,
1721 99, 100, 762, 568, 429, 586, 571, 588, 1, 97,
1722 30, 1, 476, 33, 34, 342, 1, 605, 482, 1,
1723 93, 97, 93, 5, 471, 101, 473, 452, 44, 454,
1724 86, 51, 162, 93, 361, 623, 363, 551, 610, 44,
1725 554, 93, 62, 468, 1, 61, 86, 129, 629, 93,
1726 55, 67, 633, 72, 479, 97, 61, 86, 1, 484,
1727 1, 65, 67, 67, 0, 1, 1, 86, 72, 286,
1728 75, 1, 76, 654, 94, 402, 293, 0, 1, 100,
1729 162, 662, 86, 99, 301, 673, 303, 551, 175, 306,
1730 554, 91, 92, 86, 99, 683, 86, 0, 1, 664,
1731 95, 86, 1, 430, 86, 93, 433, 65, 44, 129,
1732 0, 1, 98, 694, 72, 629, 697, 638, 47, 55,
1733 83, 44, 1, 1, 638, 61, 1, 1, 1, 86,
1734 1, 67, 55, 62, 715, 1, 717, 96, 61, 720,
1735 654, 44, 162, 86, 67, 86, 610, 611, 175, 107,
1736 15, 86, 733, 95, 44, 1, 86, 633, 61, 122,
1737 123, 93, 626, 99, 67, 629, 747, 96, 64, 633,
1738 95, 61, 753, 69, 638, 50, 99, 67, 9, 760,
1739 11, 762, 0, 1, 765, 402, 767, 86, 769, 94,
1740 654, 95, 617, 97, 638, 100, 99, 1, 44, 286,
1741 44, 715, 33, 717, 50, 175, 293, 82, 86, 99,
1742 85, 86, 86, 86, 301, 86, 303, 61, 694, 306,
1743 86, 697, 87, 67, 551, 650, 44, 554, 1, 175,
1744 694, 656, 128, 697, 129, 94, 82, 1, 93, 85,
1745 86, 100, 97, 61, 720, 1, 101, 94, 94, 67,
1746 97, 715, 94, 717, 1, 47, 720, 733, 100, 286,
1747 96, 65, 53, 67, 100, 160, 293, 162, 72, 733,
1748 62, 747, 76, 100, 301, 94, 303, 50, 97, 306,
1749 44, 99, 86, 747, 760, 101, 50, 469, 44, 765,
1750 472, 767, 101, 769, 50, 101, 760, 97, 45, 46,
1751 627, 765, 629, 767, 96, 769, 633, 732, 10, 82,
1752 60, 736, 85, 86, 64, 402, 286, 11, 82, 1,
1753 1, 85, 86, 293, 91, 92, 82, 654, 30, 85,
1754 86, 301, 34, 303, 551, 12, 306, 554, 13, 86,
1755 286, 88, 45, 46, 91, 92, 93, 293, 694, 51,
1756 97, 697, 14, 92, 101, 301, 99, 303, 97, 98,
1757 306, 95, 44, 18, 19, 20, 21, 694, 50, 586,
1758 697, 588, 45, 46, 93, 402, 94, 59, 93, 61,
1759 94, 97, 100, 97, 95, 67, 67, 101, 715, 99,
1760 717, 72, 99, 720, 97, 76, 100, 175, 101, 99,
1761 82, 99, 57, 85, 86, 86, 733, 95, 96, 44,
1762 66, 99, 629, 93, 760, 50, 633, 45, 46, 765,
1763 747, 767, 93, 769, 97, 91, 92, 93, 101, 3,
1764 4, 97, 402, 760, 1, 101, 88, 654, 765, 93,
1765 767, 94, 769, 44, 1, 662, 93, 82, 99, 50,
1766 85, 86, 16, 17, 175, 44, 402, 94, 59, 94,
1767 61, 50, 91, 92, 551, 97, 67, 554, 86, 94,
1768 59, 1, 61, 91, 92, 93, 44, 694, 67, 97,
1769 697, 82, 50, 101, 85, 86, 377, 378, 379, 380,
1770 5, 6, 7, 82, 95, 96, 85, 86, 715, 586,
1771 717, 588, 94, 720, 45, 46, 95, 96, 286, 8,
1772 9, 10, 45, 46, 82, 293, 733, 85, 86, 97,
1773 98, 99, 56, 301, 551, 303, 86, 554, 306, 100,
1774 747, 91, 92, 93, 97, 98, 753, 97, 372, 373,
1775 56, 101, 629, 760, 99, 762, 633, 94, 765, 86,
1776 767, 44, 769, 1, 91, 92, 93, 50, 94, 586,
1777 97, 588, 382, 383, 101, 286, 59, 654, 61, 94,
1778 94, 44, 293, 44, 67, 662, 1, 50, 99, 50,
1779 301, 551, 303, 94, 554, 306, 59, 99, 61, 82,
1780 56, 94, 85, 86, 67, 0, 67, 374, 375, 376,
1781 0, 381, 629, 96, 11, 551, 633, 694, 554, 82,
1782 697, 82, 85, 86, 85, 86, 586, 54, 588, 91,
1783 92, 93, 75, 96, 402, 97, 139, 654, 715, 101,
1784 717, 162, 253, 720, 160, 662, 402, 91, 92, 93,
1785 586, 52, 588, 97, 94, 260, 733, 101, 306, 652,
1786 652, 569, 569, 345, 384, 386, 306, 385, 387, 629,
1787 747, 388, 626, 633, -1, -1, 753, 694, 392, -1,
1788 697, -1, -1, 760, -1, 762, -1, -1, 765, -1,
1789 767, 402, 769, 629, 654, -1, -1, 633, 715, -1,
1790 717, -1, 662, 720, -1, -1, -1, -1, -1, -1,
1791 -1, -1, -1, -1, -1, -1, 733, -1, 654, -1,
1792 -1, -1, -1, -1, -1, -1, 662, -1, -1, -1,
1793 747, -1, -1, -1, 694, -1, 753, 697, -1, -1,
1794 -1, -1, -1, 760, -1, 762, -1, -1, 765, -1,
1795 767, -1, 769, -1, -1, 715, -1, 717, 694, -1,
1796 720, 697, -1, -1, -1, -1, -1, -1, -1, -1,
1797 -1, -1, -1, 733, -1, -1, -1, -1, -1, 715,
1798 -1, 717, -1, 551, 720, -1, 554, 747, -1, -1,
1799 -1, -1, -1, 753, -1, -1, -1, 733, -1, -1,
1800 760, -1, 762, -1, -1, 765, -1, 767, -1, 769,
1801 -1, 747, -1, -1, -1, -1, -1, 753, 586, -1,
1802 588, -1, -1, -1, 760, -1, 762, -1, -1, 765,
1803 -1, 767, -1, 769, -1, -1, -1, -1, -1, -1,
1804 551, -1, -1, 554, -1, -1, -1, -1, -1, -1,
22eed1e6 1805 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
1179ebc2
APB		 1806 -1, 629, -1, -1, -1, 633, -1, -1, -1, -1,
1807 -1, -1, -1, -1, -1, 586, -1, 588, -1, -1,
1808 -1, -1, 192, 193, 194, 195, 654, -1, -1, -1,
1809 200, 201, -1, -1, 662, -1, -1, -1, -1, -1,
1810 -1, -1, 192, 193, 194, 195, -1, -1, -1, -1,
1811 200, 201, -1, -1, -1, -1, -1, -1, 629, -1,
1812 -1, -1, 633, -1, -1, -1, 694, -1, -1, 697,
12472854 1813 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
1179ebc2
APB		 1814 -1, -1, -1, 654, -1, -1, -1, 715, -1, 717,
1815 -1, 662, 720, -1, -1, -1, -1, -1, -1, -1,
1816 -1, -1, -1, -1, -1, 733, -1, -1, -1, -1,
1817 -1, -1, -1, -1, -1, -1, -1, -1, -1, 747,
1818 -1, -1, -1, 694, -1, 753, 697, -1, -1, -1,
1819 -1, -1, 760, -1, 762, -1, -1, 765, -1, 767,
1820 -1, 769, -1, -1, 715, -1, 717, -1, -1, 720,
12472854 1821 -1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
1179ebc2
APB		 1822 -1, -1, 733, -1, -1, -1, -1, -1, -1, -1,
1823 -1, -1, -1, -1, -1, -1, 747, -1, -1, -1,
1824 -1, -1, 753, -1, -1, -1, -1, -1, -1, 760,
1825 -1, 762, -1, -1, 765, -1, 767, 1, 769, 369,
1826 370, 371, 372, 373, 374, 375, 376, 377, 378, 379,
1827 380, -1, 382, 383, 384, 385, 386, 387, 388, 369,
1828 370, 371, 372, 373, 374, 375, 376, 377, 378, 379,
1829 380, -1, 382, 383, 384, 385, 386, 387, 388, -1,
1830 44, 45, 46, 47, 48, 49, 50, 51, -1, -1,
1831 54, -1, -1, -1, 58, 59, -1, -1, 62, -1,
1832 -1, 65, 66, 67, 68, -1, 70, 71, 72, 73,
1833 1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
12472854 1834 -1, 85, 86, -1, -1, -1, -1, -1, -1, 93,
1179ebc2
APB		 1835 -1, 95, 96, -1, -1, 99, -1, -1, 102, 103,
1836 104, 105, -1, -1, 108, 109, 476, -1, -1, -1,
1837 -1, -1, 482, 44, 45, 46, 47, 48, 49, 50,
1838 51, -1, -1, 54, -1, -1, 476, 58, 59, -1,
1839 -1, 62, 482, -1, 65, 66, 67, 68, -1, 70,
1840 71, 72, 73, -1, 1, 76, -1, -1, -1, -1,
1841 -1, 82, -1, -1, 85, 86, -1, -1, -1, -1,
1842 -1, -1, 93, -1, 95, 96, -1, -1, 99, -1,
1843 -1, 102, 103, 104, 105, -1, -1, 108, 109, -1,
1844 -1, -1, -1, -1, -1, -1, -1, 44, 45, 46,
1845 47, 48, 49, 50, 51, -1, -1, 54, -1, -1,
1846 -1, 58, 59, -1, -1, 62, -1, -1, 65, 66,
1847 67, 68, -1, 70, 71, 72, 73, -1, -1, 76,
1848 1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
1849 -1, -1, -1, -1, -1, -1, 93, -1, 95, 96,
1850 610, 611, 99, -1, -1, 102, 103, 104, 105, -1,
1851 -1, 108, 109, -1, -1, -1, 626, -1, -1, -1,
1852 610, 611, -1, 44, 45, 46, -1, 48, 49, 50,
1853 51, -1, -1, 54, -1, -1, 626, 58, 59, -1,
1854 -1, -1, -1, -1, 65, 66, 67, 68, 1, 70,
1855 71, 72, 73, -1, -1, 76, -1, -1, -1, -1,
1856 -1, 82, -1, -1, 85, 86, -1, -1, -1, -1,
1857 -1, -1, 93, -1, 95, 96, -1, -1, 99, -1,
1858 -1, 102, 103, 104, 105, -1, -1, 108, 109, -1,
1859 -1, 44, 45, 46, -1, 48, 49, 50, 51, -1,
1860 -1, 54, -1, -1, -1, 58, 59, -1, -1, -1,
1861 -1, -1, 65, 66, 67, 68, 1, 70, 71, 72,
1862 73, -1, -1, 76, -1, -1, -1, -1, -1, 82,
1863 -1, -1, 85, 86, -1, -1, -1, -1, -1, -1,
1864 93, -1, 95, -1, -1, -1, 99, -1, -1, 102,
1865 103, 104, 105, -1, -1, 108, 109, -1, -1, 44,
1866 45, 46, -1, 48, 49, 50, 51, -1, -1, 54,
1867 -1, -1, -1, 58, 59, -1, -1, -1, -1, -1,
1868 65, 66, 1, 68, -1, 70, 71, 72, 73, -1,
1869 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
1870 85, 86, -1, -1, -1, -1, -1, -1, 93, -1,
1871 95, -1, -1, -1, 99, -1, -1, 102, 103, 104,
1872 105, -1, -1, 108, 109, 44, 45, 46, -1, 48,
1873 49, 50, 51, -1, -1, 54, -1, -1, -1, 58,
1874 59, -1, -1, -1, -1, -1, 65, 66, -1, 68,
1875 -1, 70, 71, 72, 73, -1, 1, 76, 3, 4,
1876 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
1877 -1, -1, -1, -1, 93, -1, 95, -1, -1, -1,
1878 99, -1, -1, 102, 103, 104, 105, -1, -1, 108,
1879 109, -1, -1, -1, -1, -1, -1, -1, -1, -1,
1880 45, 46, -1, -1, -1, 50, -1, -1, -1, -1,
1881 -1, -1, -1, -1, 59, -1, -1, -1, -1, -1,
12472854
PB		 1882 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
1883 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
1884 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
1179ebc2 1885 95, 96, -1, -1, -1, -1, -1, 102, 103, 104,
12472854
PB		 1886 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
1887 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
1888 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
1889 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
1179ebc2
APB		 1890 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
1891 90, -1, -1, 93, -1, 95, 45, 46, -1, -1,
12472854
PB		 1892 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
1893 59, -1, -1, -1, -1, -1, 65, 1, -1, 3,
1894 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
1895 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
1179ebc2
APB		 1896 89, 90, -1, -1, 93, -1, -1, -1, -1, -1,
1897 99, -1, -1, 102, 103, 104, 105, -1, -1, 108,
12472854
PB		 1898 109, 45, 46, -1, -1, -1, 50, -1, 1, -1,
1899 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
1900 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
1901 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
1179ebc2
APB		 1902 -1, 85, 86, -1, 88, 89, 90, -1, -1, 93,
1903 -1, -1, 45, 46, -1, -1, -1, 50, 102, 103,
12472854
PB		 1904 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
1905 -1, -1, 65, 1, -1, 3, 4, -1, -1, 72,
22eed1e6
APB		 1906 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
1907 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
1179ebc2 1908 93, -1, -1, -1, -1, 98, -1, -1, -1, 102,
12472854
PB		 1909 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
1910 -1, -1, 50, -1, 1, -1, 3, 4, -1, -1,
1911 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
1912 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
1913 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
1179ebc2
APB		 1914 -1, 89, 90, -1, -1, 93, 94, -1, 45, 46,
1915 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
12472854
PB		 1916 108, 109, 59, -1, -1, -1, -1, -1, 65, 1,
1917 -1, 3, 4, -1, -1, 72, -1, -1, -1, 76,
1918 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
1179ebc2
APB		 1919 -1, -1, 89, 90, -1, -1, 93, -1, -1, -1,
1920 -1, -1, 99, -1, -1, 102, 103, 104, 105, -1,
12472854
PB		 1921 -1, 108, 109, 45, 46, -1, -1, -1, 50, -1,
1922 1, -1, 3, 4, -1, -1, -1, 59, -1, -1,
1923 -1, -1, -1, 65, -1, -1, -1, -1, -1, -1,
8b27f225
PB		 1924 72, -1, -1, -1, 76, -1, -1, -1, -1, -1,
1925 82, -1, -1, 85, 86, -1, -1, 89, 90, -1,
12472854
PB		 1926 -1, 93, -1, -1, 45, 46, 98, -1, -1, 50,
1927 102, 103, 104, 105, -1, -1, 108, 109, 59, -1,
1928 -1, -1, -1, -1, 65, 1, -1, 3, 4, -1,
22eed1e6
APB		 1929 -1, 72, -1, -1, -1, 76, -1, -1, -1, -1,
1930 -1, 82, -1, -1, 85, 86, -1, -1, 89, 90,
12472854
PB		 1931 -1, -1, 93, 94, -1, -1, -1, -1, -1, -1,
1932 -1, 102, 103, 104, 105, -1, -1, 108, 109, 45,
1933 46, -1, -1, -1, 50, -1, 1, -1, 3, 4,
1934 -1, -1, -1, 59, -1, -1, -1, -1, -1, 65,
1935 -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
1936 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
1179ebc2
APB		 1937 86, -1, -1, 89, 90, -1, -1, 93, -1, -1,
1938 45, 46, 98, -1, -1, 50, 102, 103, 104, 105,
12472854
PB		 1939 -1, -1, 108, 109, 59, -1, -1, -1, -1, -1,
1940 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
1941 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
1942 85, 86, -1, -1, 89, 90, -1, -1, 93, 94,
1943 -1, -1, -1, -1, -1, -1, -1, 102, 103, 104,
1944 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
1945 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
1946 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
8b27f225
PB		 1947 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
1948 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
1179ebc2 1949 90, -1, -1, 93, 94, -1, 45, 46, -1, -1,
12472854
PB		 1950 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
1951 59, -1, -1, -1, -1, -1, 65, 1, -1, 3,
1952 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
1953 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
1179ebc2 1954 89, 90, -1, -1, 93, 94, -1, -1, -1, -1,
12472854
PB		 1955 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
1956 109, 45, 46, -1, -1, -1, 50, -1, 1, -1,
1957 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
1958 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
8b27f225
PB		 1959 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
1960 -1, 85, 86, -1, -1, 89, 90, -1, -1, 93,
1179ebc2 1961 -1, -1, 45, 46, -1, 99, -1, 50, 102, 103,
12472854
PB		 1962 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
1963 -1, -1, 65, 1, -1, 3, 4, -1, -1, 72,
8b27f225
PB		 1964 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
1965 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
12472854
PB		 1966 93, -1, -1, -1, -1, -1, -1, -1, -1, 102,
1967 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
1968 -1, -1, 50, -1, 1, -1, 3, 4, -1, -1,
1969 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
1970 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
1971 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
1972 -1, 89, 90, -1, -1, 93, -1, -1, 45, 46,
1973 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
1974 108, 109, 59, -1, -1, -1, -1, -1, 65, 1,
1975 -1, 3, 4, -1, -1, 72, -1, -1, -1, 76,
1976 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
1977 -1, -1, 89, 90, -1, -1, 93, -1, -1, -1,
1978 -1, -1, -1, -1, -1, 102, 103, 104, 105, -1,
1979 -1, 108, 109, 45, 46, -1, -1, -1, 50, -1,
1980 1, -1, 3, 4, -1, -1, -1, 59, -1, -1,
1981 -1, -1, -1, 65, -1, -1, -1, -1, -1, -1,
8b27f225
PB		 1982 72, -1, -1, -1, 76, -1, -1, -1, -1, -1,
1983 82, -1, -1, 85, 86, -1, -1, 89, 90, -1,
12472854
PB		 1984 -1, 93, -1, -1, 45, 46, -1, -1, -1, 50,
1985 102, 103, 104, 105, -1, -1, 108, 109, 59, -1,
1986 -1, -1, -1, -1, 65, 1, -1, 3, 4, -1,
22eed1e6
APB		 1987 -1, 72, -1, -1, -1, 76, -1, -1, -1, -1,
1988 -1, 82, -1, -1, 85, 86, -1, -1, 89, 90,
12472854
PB		 1989 -1, -1, 93, -1, -1, -1, -1, -1, -1, -1,
1990 -1, 102, 103, 104, 105, -1, -1, 108, 109, 45,
1991 46, -1, -1, -1, 50, -1, 1, -1, 3, 4,
1992 -1, -1, -1, 59, -1, -1, -1, -1, -1, 65,
1993 -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
1994 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
1995 86, -1, -1, 89, 90, -1, -1, 93, -1, -1,
1996 45, 46, -1, -1, -1, 50, 102, 103, 104, 105,
1997 -1, -1, 108, 109, 59, -1, -1, -1, -1, -1,
1998 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
22eed1e6
APB		 1999 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
2000 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
12472854
PB		 2001 -1, -1, -1, -1, -1, -1, -1, 102, 103, 104,
2002 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
2003 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
2004 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
2005 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
2006 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
2007 90, -1, -1, 93, -1, -1, 45, 46, -1, -1,
2008 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
2009 59, -1, -1, -1, -1, -1, 65, 1, -1, 3,
2010 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2011 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
2012 89, 90, -1, -1, 93, -1, -1, -1, -1, -1,
2013 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
2014 109, 45, 46, -1, -1, -1, 50, -1, 1, -1,
2015 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
2016 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
8b27f225
PB		 2017 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
2018 -1, 85, 86, -1, -1, 89, 90, -1, -1, 93,
12472854
PB		 2019 -1, -1, 45, 46, -1, -1, -1, 50, 102, 103,
2020 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
2021 -1, -1, 65, 1, -1, 3, 4, -1, -1, 72,
8b27f225
PB		 2022 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
2023 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
12472854
PB		 2024 93, -1, -1, -1, -1, -1, -1, -1, -1, 102,
2025 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
2026 -1, -1, 50, -1, 1, -1, 3, 4, -1, -1,
2027 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
2028 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
2029 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
2030 -1, 89, 90, -1, -1, 93, -1, -1, 45, 46,
2031 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
2032 108, 109, 59, -1, -1, -1, -1, -1, 65, 1,
2033 -1, 3, 4, -1, -1, 72, -1, -1, -1, 76,
2034 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
2035 -1, -1, 89, 90, -1, -1, 93, -1, -1, -1,
2036 -1, -1, -1, -1, -1, 102, 103, 104, 105, -1,
2037 -1, 108, 109, 45, 46, -1, -1, -1, 50, -1,
2038 1, -1, 3, 4, -1, -1, -1, 59, -1, -1,
2039 -1, -1, -1, 65, -1, -1, -1, -1, -1, -1,
8b27f225
PB		 2040 72, -1, -1, -1, 76, -1, -1, -1, -1, -1,
2041 82, -1, -1, 85, 86, -1, -1, 89, 90, -1,
12472854
PB		 2042 -1, 93, -1, -1, 45, 46, -1, -1, -1, 50,
2043 102, 103, 104, 105, -1, -1, 108, 109, 59, -1,
2044 -1, -1, -1, -1, 65, 1, -1, 3, 4, -1,
22eed1e6
APB		 2045 -1, 72, -1, -1, -1, 76, -1, -1, -1, -1,
2046 -1, 82, -1, -1, 85, 86, -1, -1, 89, 90,
12472854
PB		 2047 -1, -1, 93, -1, -1, -1, -1, -1, -1, -1,
2048 -1, 102, 103, 104, 105, -1, -1, 108, 109, 45,
2049 46, -1, -1, -1, 50, -1, 1, -1, 3, 4,
2050 -1, -1, -1, 59, -1, -1, -1, -1, -1, 65,
2051 -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
2052 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
2053 86, -1, -1, 89, 90, -1, -1, 93, -1, -1,
2054 45, 46, -1, -1, -1, 50, 102, 103, 104, 105,
2055 -1, -1, 108, 109, 59, -1, -1, -1, -1, -1,
2056 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
22eed1e6
APB		 2057 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
2058 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
12472854
PB		 2059 -1, -1, -1, -1, -1, -1, -1, 102, 103, 104,
2060 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
2061 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
2062 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
2063 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
2064 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
2065 90, -1, -1, 93, -1, -1, 45, 46, -1, -1,
2066 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
2067 59, -1, -1, -1, -1, -1, 65, 1, -1, 3,
2068 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2069 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
2070 89, 90, -1, -1, 93, -1, -1, -1, -1, -1,
2071 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
2072 109, 45, 46, -1, -1, -1, 50, -1, 1, -1,
2073 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
2074 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
8b27f225
PB		 2075 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
2076 -1, 85, 86, -1, -1, 89, 90, -1, -1, 93,
12472854
PB		 2077 -1, -1, 45, 46, -1, -1, -1, 50, 102, 103,
2078 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
2079 -1, -1, 65, 1, -1, 3, 4, -1, -1, 72,
8b27f225
PB		 2080 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
2081 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
12472854
PB		 2082 93, -1, -1, -1, -1, -1, -1, -1, -1, 102,
2083 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
2084 -1, -1, 50, -1, 1, -1, 3, 4, -1, -1,
2085 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
2086 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
2087 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
2088 -1, 89, 90, -1, -1, 93, -1, -1, 45, 46,
2089 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
2090 108, 109, 59, -1, -1, -1, -1, -1, 65, 1,
2091 -1, 3, 4, -1, -1, 72, -1, -1, -1, 76,
2092 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
2093 -1, -1, 89, 90, -1, -1, 93, -1, -1, -1,
2094 -1, -1, -1, -1, -1, 102, 103, 104, 105, -1,
2095 -1, 108, 109, 45, 46, -1, -1, -1, 50, -1,
2096 1, -1, 3, 4, -1, -1, -1, 59, -1, -1,
2097 -1, -1, -1, 65, -1, -1, -1, -1, -1, -1,
8b27f225
PB		 2098 72, -1, -1, -1, 76, -1, -1, -1, -1, -1,
2099 82, -1, -1, 85, 86, -1, -1, 89, 90, -1,
12472854
PB		 2100 -1, 93, -1, -1, 45, 46, -1, -1, -1, 50,
2101 102, 103, 104, 105, -1, -1, 108, 109, 59, -1,
2102 -1, -1, -1, -1, 65, 1, -1, 3, 4, -1,
22eed1e6
APB		 2103 -1, 72, -1, -1, -1, 76, -1, -1, -1, -1,
2104 -1, 82, -1, -1, 85, 86, -1, -1, 89, 90,
12472854
PB		 2105 -1, -1, 93, -1, -1, -1, -1, -1, -1, -1,
2106 -1, 102, 103, 104, 105, -1, -1, 108, 109, 45,
2107 46, -1, -1, -1, 50, -1, 1, -1, 3, 4,
2108 -1, -1, -1, 59, -1, -1, -1, -1, -1, 65,
2109 -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
2110 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
2111 86, -1, -1, 89, 90, -1, -1, 93, -1, -1,
2112 45, 46, -1, -1, -1, 50, 102, 103, 104, 105,
2113 -1, -1, 108, 109, 59, -1, -1, -1, -1, -1,
2114 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
22eed1e6
APB		 2115 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
2116 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
12472854
PB		 2117 -1, -1, -1, -1, -1, -1, -1, 102, 103, 104,
2118 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
2119 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
2120 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
2121 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
2122 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
2123 90, -1, -1, 93, -1, -1, 45, 46, -1, -1,
2124 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
2125 59, -1, -1, -1, -1, -1, 65, 1, -1, 3,
2126 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2127 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
2128 89, 90, -1, -1, 93, -1, -1, -1, -1, -1,
2129 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
2130 109, 45, 46, -1, -1, -1, 50, -1, 1, -1,
2131 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
2132 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
8b27f225
PB		 2133 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
2134 -1, 85, 86, -1, -1, 89, 90, -1, -1, 93,
12472854
PB		 2135 -1, -1, 45, 46, -1, -1, -1, 50, 102, 103,
2136 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
2137 -1, -1, 65, 1, -1, 3, 4, -1, -1, 72,
8b27f225
PB		 2138 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
2139 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
12472854
PB		 2140 93, -1, -1, -1, -1, -1, -1, -1, -1, 102,
2141 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
2142 -1, -1, 50, -1, 1, -1, 3, 4, -1, -1,
2143 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
2144 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
2145 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
2146 -1, 89, 90, -1, -1, 93, -1, -1, 45, 46,
2147 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
2148 108, 109, 59, -1, -1, -1, -1, -1, 65, 1,
2149 -1, 3, 4, -1, -1, 72, -1, -1, -1, 76,
2150 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
2151 -1, -1, 89, 90, -1, -1, 93, -1, -1, -1,
2152 -1, -1, -1, -1, -1, 102, 103, 104, 105, -1,
2153 -1, 108, 109, 45, 46, -1, -1, -1, 50, -1,
2154 1, -1, 3, 4, -1, -1, -1, 59, -1, -1,
2155 -1, -1, -1, 65, -1, -1, -1, -1, -1, -1,
8b27f225
PB		 2156 72, -1, -1, -1, 76, -1, -1, -1, -1, -1,
2157 82, -1, -1, 85, 86, -1, -1, 89, 90, -1,
12472854
PB		 2158 -1, 93, -1, -1, 45, 46, -1, -1, -1, 50,
2159 102, 103, 104, 105, -1, -1, 108, 109, 59, -1,
2160 -1, -1, -1, -1, 65, 1, -1, 3, 4, -1,
22eed1e6
APB		 2161 -1, 72, -1, -1, -1, 76, -1, -1, -1, -1,
2162 -1, 82, -1, -1, 85, 86, -1, -1, 89, 90,
12472854
PB		 2163 -1, -1, 93, -1, -1, -1, -1, -1, -1, -1,
2164 -1, 102, 103, 104, 105, -1, -1, 108, 109, 45,
2165 46, -1, -1, -1, 50, -1, 1, -1, 3, 4,
2166 -1, -1, -1, 59, -1, -1, -1, -1, -1, 65,
2167 -1, -1, -1, -1, -1, -1, 72, -1, -1, -1,
2168 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
1179ebc2 2169 86, -1, -1, 89, 90, -1, -1, 93, -1, -1,
12472854
PB		 2170 45, 46, -1, -1, -1, 50, 102, 103, 104, 105,
2171 -1, -1, 108, 109, 59, -1, -1, -1, -1, -1,
1179ebc2 2172 65, 1, -1, 3, 4, -1, -1, 72, -1, -1,
22eed1e6 2173 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
1179ebc2
APB		 2174 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
2175 -1, -1, -1, -1, -1, -1, -1, 102, 103, 104,
2176 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
2177 50, -1, 1, -1, 3, 4, -1, -1, -1, 59,
2178 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
2179 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
2180 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
2181 90, -1, -1, 93, -1, -1, 45, 46, -1, -1,
2182 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
2183 59, -1, -1, -1, -1, -1, 65, -1, 1, -1,
2184 -1, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2185 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
2186 89, 90, -1, 1, 93, -1, -1, -1, -1, -1,
2187 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
2188 109, 44, 45, 46, -1, -1, -1, 50, -1, -1,
2189 -1, -1, -1, -1, -1, -1, 59, -1, -1, -1,
2190 -1, -1, 65, -1, -1, 1, -1, 45, 46, 72,
12472854
PB		 2191 -1, -1, 50, 76, -1, -1, -1, -1, -1, 82,
2192 -1, 59, 85, 86, -1, -1, -1, 65, -1, -1,
1179ebc2 2193 93, -1, -1, -1, 72, -1, 99, -1, 76, 102,
12472854 2194 103, 104, 105, -1, 82, 108, 109, 85, 86, 45,
1179ebc2 2195 46, -1, -1, -1, 50, 93, 94, -1, -1, -1,
12472854 2196 -1, -1, -1, 59, 102, 103, 104, 105, -1, 65,
1179ebc2 2197 108, 109, 1, -1, -1, -1, 72, -1, -1, -1,
12472854 2198 76, -1, -1, -1, -1, -1, 82, -1, -1, 85,
1179ebc2
APB		 2199 86, -1, -1, -1, -1, -1, -1, 93, 94, -1,
2200 -1, -1, -1, -1, -1, -1, 102, 103, 104, 105,
2201 -1, -1, 108, 109, 1, -1, 45, 46, -1, -1,
2202 -1, 50, -1, -1, -1, -1, -1, -1, -1, -1,
2203 59, -1, -1, -1, -1, -1, 65, -1, -1, -1,
2204 -1, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2205 -1, -1, -1, 82, -1, -1, 85, 86, 3, 4,
2206 -1, -1, -1, 50, 93, -1, -1, -1, -1, -1,
2207 -1, -1, 59, 102, 103, 104, 105, -1, 65, 108,
2208 109, -1, -1, -1, -1, 72, -1, -1, -1, 76,
2209 -1, -1, -1, -1, -1, 82, -1, -1, 85, 86,
2210 45, 46, 89, 90, -1, 50, 93, -1, -1, -1,
2211 -1, -1, -1, -1, 59, 102, 103, 104, 105, -1,
2212 65, 108, 109, 3, 4, -1, -1, 72, -1, -1,
2213 -1, 76, -1, -1, -1, -1, -1, 82, -1, -1,
2214 85, 86, -1, -1, 89, 90, -1, -1, 93, -1,
2215 95, 96, -1, -1, -1, -1, -1, 102, 103, 104,
2216 105, -1, -1, 108, 109, 45, 46, -1, -1, -1,
2217 50, -1, -1, -1, 3, 4, -1, -1, -1, 59,
2218 -1, -1, -1, -1, -1, 65, -1, -1, -1, -1,
2219 -1, -1, 72, -1, -1, -1, 76, -1, -1, -1,
2220 -1, -1, 82, -1, -1, 85, 86, -1, -1, 89,
2221 90, -1, -1, 93, 94, -1, 45, 46, -1, -1,
2222 -1, 50, 102, 103, 104, 105, -1, -1, 108, 109,
2223 59, -1, -1, -1, -1, -1, 65, -1, -1, 3,
12472854
PB		 2224 4, -1, -1, 72, -1, -1, -1, 76, -1, -1,
2225 -1, -1, -1, 82, -1, -1, 85, 86, -1, -1,
1179ebc2 2226 89, 90, -1, -1, 93, 94, -1, -1, -1, -1,
12472854
PB		 2227 -1, -1, -1, 102, 103, 104, 105, -1, -1, 108,
2228 109, 45, 46, -1, -1, -1, 50, -1, -1, -1,
1179ebc2
APB		 2229 3, 4, -1, -1, -1, 59, -1, -1, -1, -1,
2230 -1, 65, -1, -1, -1, -1, -1, -1, 72, -1,
8b27f225
PB		 2231 -1, -1, 76, -1, -1, -1, -1, -1, 82, -1,
2232 -1, 85, 86, -1, -1, 89, 90, -1, -1, 93,
1179ebc2
APB		 2233 94, -1, 45, 46, -1, -1, -1, 50, 102, 103,
2234 104, 105, -1, -1, 108, 109, 59, -1, -1, -1,
2235 -1, -1, 65, -1, -1, 3, 4, -1, -1, 72,
22eed1e6
APB		 2236 -1, -1, -1, 76, -1, -1, -1, -1, -1, 82,
2237 -1, -1, 85, 86, -1, -1, 89, 90, -1, -1,
1179ebc2
APB		 2238 93, 94, -1, -1, -1, -1, -1, -1, -1, 102,
2239 103, 104, 105, -1, -1, 108, 109, 45, 46, -1,
2240 -1, -1, 50, -1, -1, -1, -1, -1, -1, -1,
2241 -1, 59, -1, -1, -1, -1, -1, 65, -1, -1,
2242 -1, -1, -1, -1, 72, -1, -1, -1, 76, -1,
2243 -1, -1, -1, -1, 82, -1, -1, 85, 86, -1,
2244 -1, 89, 90, -1, -1, 93, -1, 44, 45, 46,
2245 -1, -1, -1, 50, 102, 103, 104, 105, -1, -1,
2246 108, 109, 59, -1, -1, -1, -1, -1, 65, -1,
2247 -1, -1, -1, -1, -1, 72, -1, -1, 50, 76,
2248 -1, -1, -1, -1, -1, 82, -1, 59, 85, 86,
2249 -1, -1, -1, 65, -1, -1, 93, -1, -1, -1,
2250 72, -1, -1, -1, 76, 102, 103, 104, 105, -1,
2251 82, 108, 109, 85, 86, -1, -1, 89, 90, -1,
2252 -1, 93, -1, -1, -1, -1, -1, -1, -1, -1,
2253 102, 103, 104, 105, -1, -1, 108, 109
8b27f225
PB		 2254};
2255#define YYPURE 1
2256
2257/* -*-C-*- Note some compilers choke on comments on `#line' lines. */
fa322ab5 2258#line 3 "/usr/share/misc/bison.simple"
8b27f225
PB		 2259
2260/* Skeleton output parser for bison,
2261 Copyright (C) 1984, 1989, 1990 Free Software Foundation, Inc.
2262
2263 This program is free software; you can redistribute it and/or modify
2264 it under the terms of the GNU General Public License as published by
2265 the Free Software Foundation; either version 2, or (at your option)
2266 any later version.
2267
2268 This program is distributed in the hope that it will be useful,
2269 but WITHOUT ANY WARRANTY; without even the implied warranty of
2270 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
2271 GNU General Public License for more details.
2272
2273 You should have received a copy of the GNU General Public License
2274 along with this program; if not, write to the Free Software
fa322ab5 2275 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
8b27f225
PB		 2276
2277/* As a special exception, when this file is copied by Bison into a
2278 Bison output file, you may use that output file without restriction.
2279 This special exception was added by the Free Software Foundation
2280 in version 1.24 of Bison. */
2281
2282#ifndef alloca
2283#ifdef __GNUC__
2284#define alloca __builtin_alloca
2285#else /* not GNU C. */
2286#if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__) || defined (__sparc) || defined (__sgi)
2287#include <alloca.h>
2288#else /* not sparc */
2289#if defined (MSDOS) && !defined (__TURBOC__)
2290#include <malloc.h>
2291#else /* not MSDOS, or __TURBOC__ */
2292#if defined(_AIX)
2293#include <malloc.h>
2294 #pragma alloca
2295#else /* not MSDOS, __TURBOC__, or _AIX */
2296#ifdef __hpux
2297#ifdef __cplusplus
2298extern "C" {
2299void *alloca (unsigned int);
2300};
2301#else /* not __cplusplus */
2302void *alloca ();
2303#endif /* not __cplusplus */
2304#endif /* __hpux */
2305#endif /* not _AIX */
2306#endif /* not MSDOS, or __TURBOC__ */
2307#endif /* not sparc. */
2308#endif /* not GNU C. */
2309#endif /* alloca not defined. */
2310
2311/* This is the parser code that is written into each bison parser
2312 when the %semantic_parser declaration is not specified in the grammar.
2313 It was written by Richard Stallman by simplifying the hairy parser
2314 used when %semantic_parser is specified. */
2315
2316/* Note: there must be only one dollar sign in this file.
2317 It is replaced by the list of actions, each action
2318 as one case of the switch. */
2319
2320#define yyerrok (yyerrstatus = 0)
2321#define yyclearin (yychar = YYEMPTY)
2322#define YYEMPTY -2
2323#define YYEOF 0
2324#define YYACCEPT return(0)
2325#define YYABORT return(1)
2326#define YYERROR goto yyerrlab1
2327/* Like YYERROR except do call yyerror.
2328 This remains here temporarily to ease the
2329 transition to the new meaning of YYERROR, for GCC.
2330 Once GCC version 2 has supplanted version 1, this can go. */
2331#define YYFAIL goto yyerrlab
2332#define YYRECOVERING() (!!yyerrstatus)
2333#define YYBACKUP(token, value) \
2334do \
2335 if (yychar == YYEMPTY && yylen == 1) \
2336 { yychar = (token), yylval = (value); \
2337 yychar1 = YYTRANSLATE (yychar); \
2338 YYPOPSTACK; \
2339 goto yybackup; \
2340 } \
2341 else \
2342 { yyerror ("syntax error: cannot back up"); YYERROR; } \
2343while (0)
2344
2345#define YYTERROR 1
2346#define YYERRCODE 256
2347
2348#ifndef YYPURE
2349#define YYLEX yylex()
2350#endif
2351
2352#ifdef YYPURE
2353#ifdef YYLSP_NEEDED
2354#ifdef YYLEX_PARAM
2355#define YYLEX yylex(&yylval, &yylloc, YYLEX_PARAM)
2356#else
2357#define YYLEX yylex(&yylval, &yylloc)
2358#endif
2359#else /* not YYLSP_NEEDED */
2360#ifdef YYLEX_PARAM
2361#define YYLEX yylex(&yylval, YYLEX_PARAM)
2362#else
2363#define YYLEX yylex(&yylval)
2364#endif
2365#endif /* not YYLSP_NEEDED */
2366#endif
2367
2368/* If nonreentrant, generate the variables here */
2369
2370#ifndef YYPURE
2371
2372int yychar; /* the lookahead symbol */
2373YYSTYPE yylval; /* the semantic value of the */
2374 /* lookahead symbol */
2375
2376#ifdef YYLSP_NEEDED
2377YYLTYPE yylloc; /* location data for the lookahead */
2378 /* symbol */
2379#endif
2380
2381int yynerrs; /* number of parse errors so far */
2382#endif /* not YYPURE */
2383
2384#if YYDEBUG != 0
2385int yydebug; /* nonzero means print parse trace */
2386/* Since this is uninitialized, it does not stop multiple parsers
2387 from coexisting. */
2388#endif
2389
2390/* YYINITDEPTH indicates the initial size of the parser's stacks */
2391
2392#ifndef YYINITDEPTH
2393#define YYINITDEPTH 200
2394#endif
2395
2396/* YYMAXDEPTH is the maximum size the stacks can grow to
2397 (effective only if the built-in stack extension method is used). */
2398
2399#if YYMAXDEPTH == 0
2400#undef YYMAXDEPTH
2401#endif
2402
2403#ifndef YYMAXDEPTH
2404#define YYMAXDEPTH 10000
2405#endif
2406
2407/* Prevent warning if -Wstrict-prototypes. */
2408#ifdef __GNUC__
2409int yyparse (void);
2410#endif
2411\f
2412#if __GNUC__ > 1 /* GNU C and GNU C++ define this. */
2413#define __yy_memcpy(TO,FROM,COUNT) __builtin_memcpy(TO,FROM,COUNT)
2414#else /* not GNU C or C++ */
2415#ifndef __cplusplus
2416
2417/* This is the most reliable way to avoid incompatibilities
2418 in available built-in functions on various systems. */
2419static void
2420__yy_memcpy (to, from, count)
2421 char *to;
2422 char *from;
2423 int count;
2424{
2425 register char *f = from;
2426 register char *t = to;
2427 register int i = count;
2428
2429 while (i-- > 0)
2430 *t++ = *f++;
2431}
2432
2433#else /* __cplusplus */
2434
2435/* This is the most reliable way to avoid incompatibilities
2436 in available built-in functions on various systems. */
2437static void
2438__yy_memcpy (char *to, char *from, int count)
2439{
2440 register char *f = from;
2441 register char *t = to;
2442 register int i = count;
2443
2444 while (i-- > 0)
2445 *t++ = *f++;
2446}
2447
2448#endif
2449#endif
2450\f
fa322ab5 2451#line 196 "/usr/share/misc/bison.simple"
8b27f225
PB		 2452
2453/* The user can define YYPARSE_PARAM as the name of an argument to be passed
2454 into yyparse. The argument should have type void *.
2455 It should actually point to an object.
2456 Grammar actions can access the variable by casting it
2457 to the proper pointer type. */
2458
2459#ifdef YYPARSE_PARAM
2460#ifdef __cplusplus
2461#define YYPARSE_PARAM_ARG void *YYPARSE_PARAM
2462#define YYPARSE_PARAM_DECL
2463#else /* not __cplusplus */
2464#define YYPARSE_PARAM_ARG YYPARSE_PARAM
2465#define YYPARSE_PARAM_DECL void *YYPARSE_PARAM;
2466#endif /* not __cplusplus */
2467#else /* not YYPARSE_PARAM */
2468#define YYPARSE_PARAM_ARG
2469#define YYPARSE_PARAM_DECL
2470#endif /* not YYPARSE_PARAM */
2471
2472int
2473yyparse(YYPARSE_PARAM_ARG)
2474 YYPARSE_PARAM_DECL
2475{
2476 register int yystate;
2477 register int yyn;
2478 register short *yyssp;
2479 register YYSTYPE *yyvsp;
2480 int yyerrstatus; /* number of tokens to shift before error messages enabled */
2481 int yychar1 = 0; /* lookahead token as an internal (translated) token number */
2482
2483 short yyssa[YYINITDEPTH]; /* the state stack */
2484 YYSTYPE yyvsa[YYINITDEPTH]; /* the semantic value stack */
2485
2486 short *yyss = yyssa; /* refer to the stacks thru separate pointers */
2487 YYSTYPE *yyvs = yyvsa; /* to allow yyoverflow to reallocate them elsewhere */
2488
2489#ifdef YYLSP_NEEDED
2490 YYLTYPE yylsa[YYINITDEPTH]; /* the location stack */
2491 YYLTYPE *yyls = yylsa;
2492 YYLTYPE *yylsp;
2493
2494#define YYPOPSTACK (yyvsp--, yyssp--, yylsp--)
2495#else
2496#define YYPOPSTACK (yyvsp--, yyssp--)
2497#endif
2498
2499 int yystacksize = YYINITDEPTH;
2500
2501#ifdef YYPURE
2502 int yychar;
2503 YYSTYPE yylval;
2504 int yynerrs;
2505#ifdef YYLSP_NEEDED
2506 YYLTYPE yylloc;
2507#endif
2508#endif
2509
2510 YYSTYPE yyval; /* the variable used to return */
2511 /* semantic values from the action */
2512 /* routines */
2513
2514 int yylen;
2515
2516#if YYDEBUG != 0
2517 if (yydebug)
2518 fprintf(stderr, "Starting parse\n");
2519#endif
2520
2521 yystate = 0;
2522 yyerrstatus = 0;
2523 yynerrs = 0;
2524 yychar = YYEMPTY; /* Cause a token to be read. */
2525
2526 /* Initialize stack pointers.
2527 Waste one element of value and location stack
2528 so that they stay on the same level as the state stack.
2529 The wasted elements are never initialized. */
2530
2531 yyssp = yyss - 1;
2532 yyvsp = yyvs;
2533#ifdef YYLSP_NEEDED
2534 yylsp = yyls;
2535#endif
2536
2537/* Push a new state, which is found in yystate . */
2538/* In all cases, when you get here, the value and location stacks
2539 have just been pushed. so pushing a state here evens the stacks. */
2540yynewstate:
2541
2542 *++yyssp = yystate;
2543
2544 if (yyssp >= yyss + yystacksize - 1)
2545 {
2546 /* Give user a chance to reallocate the stack */
2547 /* Use copies of these so that the &'s don't force the real ones into memory. */
2548 YYSTYPE *yyvs1 = yyvs;
2549 short *yyss1 = yyss;
2550#ifdef YYLSP_NEEDED
2551 YYLTYPE *yyls1 = yyls;
2552#endif
2553
2554 /* Get the current used size of the three stacks, in elements. */
2555 int size = yyssp - yyss + 1;
2556
2557#ifdef yyoverflow
2558 /* Each stack pointer address is followed by the size of
2559 the data in use in that stack, in bytes. */
2560#ifdef YYLSP_NEEDED
2561 /* This used to be a conditional around just the two extra args,
2562 but that might be undefined if yyoverflow is a macro. */
2563 yyoverflow("parser stack overflow",
2564 &yyss1, size * sizeof (*yyssp),
2565 &yyvs1, size * sizeof (*yyvsp),
2566 &yyls1, size * sizeof (*yylsp),
2567 &yystacksize);
2568#else
2569 yyoverflow("parser stack overflow",
2570 &yyss1, size * sizeof (*yyssp),
2571 &yyvs1, size * sizeof (*yyvsp),
2572 &yystacksize);
2573#endif
2574
2575 yyss = yyss1; yyvs = yyvs1;
2576#ifdef YYLSP_NEEDED
2577 yyls = yyls1;
2578#endif
2579#else /* no yyoverflow */
2580 /* Extend the stack our own way. */
2581 if (yystacksize >= YYMAXDEPTH)
2582 {
2583 yyerror("parser stack overflow");
2584 return 2;
2585 }
2586 yystacksize *= 2;
2587 if (yystacksize > YYMAXDEPTH)
2588 yystacksize = YYMAXDEPTH;
2589 yyss = (short *) alloca (yystacksize * sizeof (*yyssp));
2590 __yy_memcpy ((char *)yyss, (char *)yyss1, size * sizeof (*yyssp));
2591 yyvs = (YYSTYPE *) alloca (yystacksize * sizeof (*yyvsp));
2592 __yy_memcpy ((char *)yyvs, (char *)yyvs1, size * sizeof (*yyvsp));
2593#ifdef YYLSP_NEEDED
2594 yyls = (YYLTYPE *) alloca (yystacksize * sizeof (*yylsp));
2595 __yy_memcpy ((char *)yyls, (char *)yyls1, size * sizeof (*yylsp));
2596#endif
2597#endif /* no yyoverflow */
2598
2599 yyssp = yyss + size - 1;
2600 yyvsp = yyvs + size - 1;
2601#ifdef YYLSP_NEEDED
2602 yylsp = yyls + size - 1;
2603#endif
2604
2605#if YYDEBUG != 0
2606 if (yydebug)
2607 fprintf(stderr, "Stack size increased to %d\n", yystacksize);
2608#endif
2609
2610 if (yyssp >= yyss + yystacksize - 1)
2611 YYABORT;
2612 }
2613
2614#if YYDEBUG != 0
2615 if (yydebug)
2616 fprintf(stderr, "Entering state %d\n", yystate);
2617#endif
2618
2619 goto yybackup;
2620 yybackup:
2621
2622/* Do appropriate processing given the current state. */
2623/* Read a lookahead token if we need one and don't already have one. */
2624/* yyresume: */
2625
2626 /* First try to decide what to do without reference to lookahead token. */
2627
2628 yyn = yypact[yystate];
2629 if (yyn == YYFLAG)
2630 goto yydefault;
2631
2632 /* Not known => get a lookahead token if don't already have one. */
2633
2634 /* yychar is either YYEMPTY or YYEOF
2635 or a valid token in external form. */
2636
2637 if (yychar == YYEMPTY)
2638 {
2639#if YYDEBUG != 0
2640 if (yydebug)
2641 fprintf(stderr, "Reading a token: ");
2642#endif
2643 yychar = YYLEX;
2644 }
2645
2646 /* Convert token to internal form (in yychar1) for indexing tables with */
2647
2648 if (yychar <= 0) /* This means end of input. */
2649 {
2650 yychar1 = 0;
2651 yychar = YYEOF; /* Don't call YYLEX any more */
2652
2653#if YYDEBUG != 0
2654 if (yydebug)
2655 fprintf(stderr, "Now at end of input.\n");
2656#endif
2657 }
2658 else
2659 {
2660 yychar1 = YYTRANSLATE(yychar);
2661
2662#if YYDEBUG != 0
2663 if (yydebug)
2664 {
2665 fprintf (stderr, "Next token is %d (%s", yychar, yytname[yychar1]);
2666 /* Give the individual parser a way to print the precise meaning
2667 of a token, for further debugging info. */
2668#ifdef YYPRINT
2669 YYPRINT (stderr, yychar, yylval);
2670#endif
2671 fprintf (stderr, ")\n");
2672 }
2673#endif
2674 }
2675
2676 yyn += yychar1;
2677 if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
2678 goto yydefault;
2679
2680 yyn = yytable[yyn];
2681
2682 /* yyn is what to do for this token type in this state.
2683 Negative => reduce, -yyn is rule number.
2684 Positive => shift, yyn is new state.
2685 New state is final state => don't bother to shift,
2686 just return success.
2687 0, or most negative number => error. */
2688
2689 if (yyn < 0)
2690 {
2691 if (yyn == YYFLAG)
2692 goto yyerrlab;
2693 yyn = -yyn;
2694 goto yyreduce;
2695 }
2696 else if (yyn == 0)
2697 goto yyerrlab;
2698
2699 if (yyn == YYFINAL)
2700 YYACCEPT;
2701
2702 /* Shift the lookahead token. */
2703
2704#if YYDEBUG != 0
2705 if (yydebug)
2706 fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
2707#endif
2708
2709 /* Discard the token being shifted unless it is eof. */
2710 if (yychar != YYEOF)
2711 yychar = YYEMPTY;
2712
2713 *++yyvsp = yylval;
2714#ifdef YYLSP_NEEDED
2715 *++yylsp = yylloc;
2716#endif
2717
2718 /* count tokens shifted since error; after three, turn off error status. */
2719 if (yyerrstatus) yyerrstatus--;
2720
2721 yystate = yyn;
2722 goto yynewstate;
2723
2724/* Do the default action for the current state. */
2725yydefault:
2726
2727 yyn = yydefact[yystate];
2728 if (yyn == 0)
2729 goto yyerrlab;
2730
2731/* Do a reduction. yyn is the number of a rule to reduce with. */
2732yyreduce:
2733 yylen = yyr2[yyn];
2734 if (yylen > 0)
2735 yyval = yyvsp[1-yylen]; /* implement default value of the action */
2736
2737#if YYDEBUG != 0
2738 if (yydebug)
2739 {
2740 int i;
2741
2742 fprintf (stderr, "Reducing via rule %d (line %d), ",
2743 yyn, yyrline[yyn]);
2744
2745 /* Print the symbols being reduced, and their result. */
2746 for (i = yyprhs[yyn]; yyrhs[i] > 0; i++)
2747 fprintf (stderr, "%s ", yytname[yyrhs[i]]);
2748 fprintf (stderr, " -> %s\n", yytname[yyr1[yyn]]);
2749 }
2750#endif
2751
2752
2753 switch (yyn) {
2754
2755case 1:
fa322ab5 2756#line 446 "./parse.y"
8b27f225
PB		 2757{;
2758 break;}
2759case 18:
fa322ab5 2760#line 490 "./parse.y"
8b27f225
PB		 2761{
2762 yyval.node = build_java_array_type (yyvsp[-2].node, -1);
2763 CLASS_LOADED_P (yyval.node) = 1;
2764 ;
2765 break;}
2766case 19:
fa322ab5 2767#line 495 "./parse.y"
8b27f225
PB		 2768{ yyval.node = build_unresolved_array_type (yyvsp[-2].node); ;
2769 break;}
2770case 20:
fa322ab5 2771#line 497 "./parse.y"
8b27f225
PB		 2772{ yyval.node = build_unresolved_array_type (yyvsp[-2].node); ;
2773 break;}
2774case 21:
fa322ab5 2775#line 499 "./parse.y"
8b27f225
PB		 2776{RULE ("']' expected"); RECOVER;;
2777 break;}
2778case 22:
fa322ab5 2779#line 501 "./parse.y"
8b27f225
PB		 2780{RULE ("']' expected"); RECOVER;;
2781 break;}
2782case 26:
fa322ab5 2783#line 516 "./parse.y"
8b27f225
PB		 2784{ yyval.node = make_qualified_name (yyvsp[-2].node, yyvsp[0].node, yyvsp[-1].operator.location); ;
2785 break;}
2786case 28:
fa322ab5 2787#line 525 "./parse.y"
8b27f225
PB		 2788{yyval.node = NULL;;
2789 break;}
2790case 36:
fa322ab5 2791#line 537 "./parse.y"
8b27f225
PB		 2792{
2793 yyval.node = NULL;
2794 ;
2795 break;}
2796case 37:
fa322ab5 2797#line 541 "./parse.y"
8b27f225
PB		 2798{
2799 yyval.node = NULL;
2800 ;
2801 break;}
2802case 40:
fa322ab5 2803#line 553 "./parse.y"
8b27f225
PB		 2804{ ctxp->package = EXPR_WFL_NODE (yyvsp[-1].node); ;
2805 break;}
2806case 41:
fa322ab5 2807#line 555 "./parse.y"
8b27f225
PB		 2808{yyerror ("Missing name"); RECOVER;;
2809 break;}
2810case 42:
fa322ab5 2811#line 557 "./parse.y"
8b27f225
PB		 2812{yyerror ("';' expected"); RECOVER;;
2813 break;}
2814case 45:
fa322ab5 2815#line 567 "./parse.y"
8b27f225
PB		 2816{
2817 tree name = EXPR_WFL_NODE (yyvsp[-1].node), node, last_name;
2818 int i = IDENTIFIER_LENGTH (name)-1;
2819 char *last = &IDENTIFIER_POINTER (name)[i];
2820 while (last != IDENTIFIER_POINTER (name))
2821 {
2822 if (last [0] == '.')
2823 break;
2824 last--;
2825 }
2826 last_name = get_identifier (++last);
2827 if (IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (last_name))
2828 {
2829 tree err = find_name_in_single_imports (last_name);
2830 if (err && err != name)
2831 parse_error_context
2832 (yyvsp[-1].node, "Ambiguous class: `%s' and `%s'",
2833 IDENTIFIER_POINTER (name),
2834 IDENTIFIER_POINTER (err));
5e942c50
APB		 2835 else
2836 REGISTER_IMPORT (yyvsp[-1].node, last_name)
8b27f225
PB		 2837 }
2838 else
5e942c50 2839 REGISTER_IMPORT (yyvsp[-1].node, last_name);
8b27f225
PB		 2840 ;
2841 break;}
2842case 46:
fa322ab5 2843#line 593 "./parse.y"
8b27f225
PB		 2844{yyerror ("Missing name"); RECOVER;;
2845 break;}
2846case 47:
fa322ab5 2847#line 595 "./parse.y"
8b27f225
PB		 2848{yyerror ("';' expected"); RECOVER;;
2849 break;}
2850case 48:
fa322ab5 2851#line 600 "./parse.y"
8b27f225
PB		 2852{
2853 tree name = EXPR_WFL_NODE (yyvsp[-3].node);
2854 tree node = build_tree_list (yyvsp[-3].node, NULL_TREE);
63a212ed 2855 read_import_dir (yyvsp[-3].node);
8b27f225
PB		 2856 TREE_CHAIN (node) = ctxp->import_demand_list;
2857 ctxp->import_demand_list = node;
2858 ;
2859 break;}
2860case 49:
fa322ab5 2861#line 608 "./parse.y"
8b27f225
PB		 2862{yyerror ("'*' expected"); RECOVER;;
2863 break;}
2864case 50:
fa322ab5 2865#line 610 "./parse.y"
8b27f225
PB		 2866{yyerror ("';' expected"); RECOVER;;
2867 break;}
2868case 51:
fa322ab5 2869#line 615 "./parse.y"
8b27f225 2870{
22eed1e6 2871 maybe_generate_finit ();
63a212ed 2872 maybe_generate_clinit ();
8b27f225
PB		 2873 yyval.node = yyvsp[0].node;
2874 ;
2875 break;}
2876case 53:
fa322ab5 2877#line 622 "./parse.y"
8b27f225
PB		 2878{ yyval.node = NULL; ;
2879 break;}
2880case 54:
fa322ab5 2881#line 624 "./parse.y"
8b27f225
PB		 2882{
2883 YYERROR_NOW;
2884 yyerror ("Class or interface declaration expected");
2885 ;
2886 break;}
2887case 55:
fa322ab5 2888#line 635 "./parse.y"
8b27f225
PB		 2889{
2890 yyval.value = (1 << yyvsp[0].value);
2891 ;
2892 break;}
2893case 56:
fa322ab5 2894#line 639 "./parse.y"
8b27f225
PB		 2895{
2896 int acc = (1 << yyvsp[0].value);
2897 if (yyval.value & acc)
2898 parse_error_context
2899 (ctxp->modifier_ctx [yyvsp[0].value], "Modifier `%s' declared twice",
2900 java_accstring_lookup (acc));
2901 else
2902 {
2903 yyval.value |= acc;
2904 }
2905 ;
2906 break;}
2907case 57:
fa322ab5 2908#line 655 "./parse.y"
8b27f225
PB		 2909{ create_class (yyvsp[-4].value, yyvsp[-2].node, yyvsp[-1].node, yyvsp[0].node); ;
2910 break;}
2911case 58:
fa322ab5 2912#line 657 "./parse.y"
8b27f225
PB		 2913{
2914 yyval.node = yyvsp[0].node;
2915 ;
2916 break;}
2917case 59:
fa322ab5 2918#line 661 "./parse.y"
8b27f225
PB		 2919{ create_class (0, yyvsp[-2].node, yyvsp[-1].node, yyvsp[0].node); ;
2920 break;}
2921case 60:
fa322ab5 2922#line 663 "./parse.y"
8b27f225
PB		 2923{
2924 yyval.node = yyvsp[0].node;
2925 ;
2926 break;}
2927case 61:
fa322ab5 2928#line 667 "./parse.y"
8b27f225
PB		 2929{yyerror ("Missing class name"); RECOVER;;
2930 break;}
2931case 62:
fa322ab5 2932#line 669 "./parse.y"
8b27f225
PB		 2933{yyerror ("Missing class name"); RECOVER;;
2934 break;}
2935case 63:
fa322ab5 2936#line 671 "./parse.y"
8b27f225
PB		 2937{if (!ctxp->class_err) yyerror ("'{' expected"); DRECOVER(class1);;
2938 break;}
2939case 64:
fa322ab5 2940#line 673 "./parse.y"
8b27f225
PB		 2941{if (!ctxp->class_err) yyerror ("'{' expected"); RECOVER;;
2942 break;}
2943case 65:
fa322ab5 2944#line 677 "./parse.y"
8b27f225
PB		 2945{ yyval.node = NULL; ;
2946 break;}
2947case 66:
fa322ab5 2948#line 679 "./parse.y"
8b27f225
PB		 2949{ yyval.node = yyvsp[0].node; ;
2950 break;}
2951case 67:
fa322ab5 2952#line 681 "./parse.y"
8b27f225
PB		 2953{yyerror ("'{' expected"); ctxp->class_err=1;;
2954 break;}
2955case 68:
fa322ab5 2956#line 683 "./parse.y"
8b27f225
PB		 2957{yyerror ("Missing super class name"); ctxp->class_err=1;;
2958 break;}
2959case 69:
fa322ab5 2960#line 687 "./parse.y"
8b27f225
PB		 2961{ yyval.node = NULL_TREE; ;
2962 break;}
2963case 70:
fa322ab5 2964#line 689 "./parse.y"
8b27f225
PB		 2965{ yyval.node = yyvsp[0].node; ;
2966 break;}
2967case 71:
fa322ab5 2968#line 691 "./parse.y"
8b27f225
PB		 2969{
2970 ctxp->class_err=1;
2971 yyerror ("Missing interface name");
2972 ;
2973 break;}
2974case 72:
fa322ab5 2975#line 699 "./parse.y"
8b27f225
PB		 2976{
2977 ctxp->interface_number = 1;
2978 yyval.node = build_tree_list (yyvsp[0].node, NULL_TREE);
2979 ;
2980 break;}
2981case 73:
fa322ab5 2982#line 704 "./parse.y"
8b27f225
PB		 2983{
2984 ctxp->interface_number++;
2985 yyval.node = chainon (yyvsp[-2].node, build_tree_list (yyvsp[0].node, NULL_TREE));
2986 ;
2987 break;}
2988case 74:
fa322ab5 2989#line 709 "./parse.y"
8b27f225
PB		 2990{yyerror ("Missing interface name"); RECOVER;;
2991 break;}
2992case 75:
fa322ab5 2993#line 714 "./parse.y"
8b27f225
PB		 2994{ yyval.node = ctxp->current_parsed_class; ;
2995 break;}
2996case 76:
fa322ab5 2997#line 716 "./parse.y"
8b27f225
PB		 2998{ yyval.node = ctxp->current_parsed_class; ;
2999 break;}
3000case 82:
fa322ab5 3001#line 729 "./parse.y"
8b27f225
PB		 3002{ yyval.node = parse_jdk1_1_error ("instance initializer"); ;
3003 break;}
3004case 85:
fa322ab5 3005#line 736 "./parse.y"
8b27f225
PB		 3006{ yyval.node = parse_jdk1_1_error ("inner classe declaration"); ;
3007 break;}
3008case 86:
fa322ab5 3009#line 738 "./parse.y"
8b27f225
PB		 3010{ yyval.node = parse_jdk1_1_error ("inner interface declaration"); ;
3011 break;}
3012case 87:
fa322ab5 3013#line 744 "./parse.y"
8b27f225
PB		 3014{ register_fields (0, yyvsp[-2].node, yyvsp[-1].node); ;
3015 break;}
3016case 88:
fa322ab5 3017#line 746 "./parse.y"
8b27f225
PB		 3018{
3019 check_modifiers
3020 ("Illegal modifier `%s' for field declaration",
3021 yyvsp[-3].value, FIELD_MODIFIERS);
3022 check_modifiers_consistency (yyvsp[-3].value);
3023 register_fields (yyvsp[-3].value, yyvsp[-2].node, yyvsp[-1].node);
3024 ;
3025 break;}
3026case 90:
fa322ab5 3027#line 759 "./parse.y"
8b27f225
PB		 3028{ yyval.node = chainon (yyvsp[-2].node, yyvsp[0].node); ;
3029 break;}
3030case 91:
fa322ab5 3031#line 761 "./parse.y"
8b27f225
PB		 3032{yyerror ("Missing term"); RECOVER;;
3033 break;}
3034case 92:
fa322ab5 3035#line 766 "./parse.y"
8b27f225
PB		 3036{ yyval.node = build_tree_list (yyvsp[0].node, NULL_TREE); ;
3037 break;}
3038case 93:
fa322ab5 3039#line 768 "./parse.y"
8b27f225
PB		 3040{
3041 if (java_error_count)
3042 yyvsp[0].node = NULL_TREE;
3043 yyval.node = build_tree_list
3044 (yyvsp[-2].node, build_assignment (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[-2].node, yyvsp[0].node));
3045 ;
3046 break;}
3047case 94:
fa322ab5 3048#line 775 "./parse.y"
8b27f225
PB		 3049{
3050 yyerror ("Missing variable initializer");
3051 yyval.node = build_tree_list (yyvsp[-2].node, NULL_TREE);
3052 RECOVER;
3053 ;
3054 break;}
3055case 95:
fa322ab5 3056#line 781 "./parse.y"
8b27f225
PB		 3057{
3058 yyerror ("';' expected");
3059 yyval.node = build_tree_list (yyvsp[-3].node, NULL_TREE);
3060 RECOVER;
3061 ;
3062 break;}
3063case 97:
fa322ab5 3064#line 791 "./parse.y"
8b27f225
PB		 3065{ yyval.node = build_unresolved_array_type (yyvsp[-2].node); ;
3066 break;}
3067case 98:
fa322ab5 3068#line 793 "./parse.y"
8b27f225
PB		 3069{yyerror ("Invalid declaration"); DRECOVER(vdi);;
3070 break;}
3071case 99:
fa322ab5 3072#line 795 "./parse.y"
8b27f225
PB		 3073{yyerror ("']' expected"); DRECOVER(vdi);;
3074 break;}
3075case 100:
fa322ab5 3076#line 797 "./parse.y"
8b27f225
PB		 3077{yyerror ("Unbalanced ']'"); DRECOVER(vdi);;
3078 break;}
8b27f225 3079case 103:
fa322ab5 3080#line 808 "./parse.y"
8b27f225
PB		 3081{
3082 current_function_decl = yyvsp[0].node;
3083 source_start_java_method (current_function_decl);
3084 ;
3085 break;}
3086case 104:
fa322ab5 3087#line 813 "./parse.y"
22eed1e6 3088{ complete_method_declaration (yyvsp[0].node); ;
8b27f225
PB		 3089 break;}
3090case 105:
fa322ab5 3091#line 815 "./parse.y"
8b27f225
PB		 3092{YYNOT_TWICE yyerror ("'{' expected"); RECOVER;;
3093 break;}
3094case 106:
fa322ab5 3095#line 820 "./parse.y"
8b27f225
PB		 3096{ yyval.node = method_header (0, yyvsp[-2].node, yyvsp[-1].node, yyvsp[0].node); ;
3097 break;}
3098case 107:
fa322ab5 3099#line 822 "./parse.y"
8b27f225
PB		 3100{ yyval.node = method_header (0, void_type_node, yyvsp[-1].node, yyvsp[0].node); ;
3101 break;}
3102case 108:
fa322ab5 3103#line 824 "./parse.y"
8b27f225
PB		 3104{ yyval.node = method_header (yyvsp[-3].value, yyvsp[-2].node, yyvsp[-1].node, yyvsp[0].node); ;
3105 break;}
3106case 109:
fa322ab5 3107#line 826 "./parse.y"
8b27f225
PB		 3108{ yyval.node = method_header (yyvsp[-3].value, void_type_node, yyvsp[-1].node, yyvsp[0].node); ;
3109 break;}
3110case 110:
fa322ab5 3111#line 828 "./parse.y"
8b27f225
PB		 3112{RECOVER;;
3113 break;}
3114case 111:
fa322ab5 3115#line 830 "./parse.y"
8b27f225
PB		 3116{RECOVER;;
3117 break;}
3118case 112:
fa322ab5 3119#line 832 "./parse.y"
8b27f225
PB		 3120{yyerror ("Identifier expected"); RECOVER;;
3121 break;}
3122case 113:
fa322ab5 3123#line 834 "./parse.y"
8b27f225
PB		 3124{yyerror ("Identifier expected"); RECOVER;;
3125 break;}
3126case 114:
fa322ab5 3127#line 836 "./parse.y"
8b27f225
PB		 3128{
3129 yyerror ("Invalid method declaration, return type required");
3130 RECOVER;
3131 ;
3132 break;}
3133case 115:
fa322ab5 3134#line 844 "./parse.y"
8b27f225
PB		 3135{ yyval.node = method_declarator (yyvsp[-2].node, NULL_TREE); ;
3136 break;}
3137case 116:
fa322ab5 3138#line 846 "./parse.y"
8b27f225
PB		 3139{ yyval.node = method_declarator (yyvsp[-3].node, yyvsp[-1].node); ;
3140 break;}
3141case 117:
fa322ab5 3142#line 848 "./parse.y"
8b27f225 3143{
1886c9d8
APB		 3144 EXPR_WFL_LINECOL (wfl_operator) = yyvsp[-1].operator.location;
3145 TREE_PURPOSE (yyvsp[-2].node) =
3146 build_unresolved_array_type (TREE_PURPOSE (yyvsp[-2].node));
3147 parse_warning_context
3148 (wfl_operator,
3149 "Discouraged form of returned type specification");
8b27f225
PB		 3150 ;
3151 break;}
3152case 118:
fa322ab5 3153#line 857 "./parse.y"
8b27f225
PB		 3154{yyerror ("')' expected"); DRECOVER(method_declarator);;
3155 break;}
3156case 119:
fa322ab5 3157#line 859 "./parse.y"
8b27f225
PB		 3158{yyerror ("']' expected"); RECOVER;;
3159 break;}
3160case 120:
fa322ab5 3161#line 864 "./parse.y"
8b27f225
PB		 3162{
3163 ctxp->formal_parameter_number = 1;
3164 ;
3165 break;}
3166case 121:
fa322ab5 3167#line 868 "./parse.y"
8b27f225
PB		 3168{
3169 ctxp->formal_parameter_number += 1;
3170 yyval.node = chainon (yyvsp[-2].node, yyvsp[0].node);
3171 ;
3172 break;}
3173case 122:
fa322ab5 3174#line 873 "./parse.y"
8b27f225
PB		 3175{yyerror ("Missing formal parameter term"); RECOVER;;
3176 break;}
3177case 123:
fa322ab5 3178#line 878 "./parse.y"
8b27f225
PB		 3179{
3180 yyval.node = build_tree_list (yyvsp[0].node, yyvsp[-1].node);
3181 ;
3182 break;}
3183case 124:
fa322ab5 3184#line 882 "./parse.y"
c877974e 3185{ yyval.node = parse_jdk1_1_error ("final parameters"); ;
8b27f225
PB		 3186 break;}
3187case 125:
fa322ab5 3188#line 884 "./parse.y"
8b27f225
PB		 3189{yyerror ("Missing identifier"); RECOVER;;
3190 break;}
3191case 126:
fa322ab5 3192#line 886 "./parse.y"
8b27f225
PB		 3193{
3194 SOURCE_FRONTEND_DEBUG (("Modifiers: %d", yyvsp[-2].value));
3195 yyerror ("Missing identifier"); RECOVER;
3196 ;
3197 break;}
3198case 127:
fa322ab5 3199#line 893 "./parse.y"
8b27f225
PB		 3200{ yyval.node = NULL_TREE; ;
3201 break;}
3202case 128:
fa322ab5 3203#line 895 "./parse.y"
8b27f225
PB		 3204{ yyval.node = yyvsp[0].node; ;
3205 break;}
3206case 129:
fa322ab5 3207#line 897 "./parse.y"
8b27f225
PB		 3208{yyerror ("Missing class type term"); RECOVER;;
3209 break;}
3210case 130:
fa322ab5 3211#line 902 "./parse.y"
c877974e 3212{ yyval.node = build_tree_list (yyvsp[0].node, yyvsp[0].node); ;
8b27f225
PB		 3213 break;}
3214case 131:
fa322ab5 3215#line 904 "./parse.y"
c877974e 3216{ yyval.node = tree_cons (yyvsp[0].node, yyvsp[0].node, yyvsp[-2].node); ;
8b27f225
PB		 3217 break;}
3218case 132:
fa322ab5 3219#line 906 "./parse.y"
8b27f225
PB		 3220{yyerror ("Missing class type term"); RECOVER;;
3221 break;}
3222case 135:
fa322ab5 3223#line 913 "./parse.y"
8b27f225
PB		 3224{ yyval.node = NULL_TREE; ;
3225 break;}
3226case 136:
fa322ab5 3227#line 919 "./parse.y"
8b27f225
PB		 3228{
3229 RULE ("STATIC_INITIALIZER");
3230 ;
3231 break;}
3232case 137:
fa322ab5 3233#line 923 "./parse.y"
8b27f225
PB		 3234{
3235 RULE ("STATIC_INITIALIZER");
3236 ;
3237 break;}
3238case 138:
fa322ab5 3239#line 930 "./parse.y"
8b27f225
PB		 3240{
3241 SOURCE_FRONTEND_DEBUG (("Modifiers: %d", yyvsp[0].value));
3242 ;
3243 break;}
3244case 139:
fa322ab5 3245#line 938 "./parse.y"
8b27f225 3246{
22eed1e6
APB		 3247 current_function_decl = yyvsp[0].node;
3248 source_start_java_method (current_function_decl);
8b27f225
PB		 3249 ;
3250 break;}
3251case 140:
fa322ab5 3252#line 943 "./parse.y"
22eed1e6
APB		 3253{ complete_method_declaration (yyvsp[0].node); ;
3254 break;}
3255case 141:
fa322ab5 3256#line 948 "./parse.y"
22eed1e6
APB		 3257{ yyval.node = method_header (0, NULL_TREE, yyvsp[-1].node, yyvsp[0].node); ;
3258 break;}
3259case 142:
fa322ab5 3260#line 950 "./parse.y"
22eed1e6
APB		 3261{ yyval.node = method_header (yyvsp[-2].value, NULL_TREE, yyvsp[-1].node, yyvsp[0].node); ;
3262 break;}
3263case 143:
fa322ab5 3264#line 955 "./parse.y"
22eed1e6
APB		 3265{ yyval.node = method_declarator (yyvsp[-2].node, NULL_TREE); ;
3266 break;}
3267case 144:
fa322ab5 3268#line 957 "./parse.y"
22eed1e6
APB		 3269{ yyval.node = method_declarator (yyvsp[-3].node, yyvsp[-1].node); ;
3270 break;}
3271case 145:
fa322ab5 3272#line 965 "./parse.y"
22eed1e6 3273{
c877974e 3274 BLOCK_EXPR_BODY (yyvsp[0].node) = empty_stmt_node;
22eed1e6 3275 yyval.node = yyvsp[0].node;
8b27f225
PB		 3276 ;
3277 break;}
22eed1e6 3278case 146:
fa322ab5 3279#line 970 "./parse.y"
22eed1e6
APB		 3280{ yyval.node = yyvsp[0].node; ;
3281 break;}
3282case 147:
fa322ab5 3283#line 972 "./parse.y"
22eed1e6
APB		 3284{ yyval.node = yyvsp[0].node; ;
3285 break;}
3286case 148:
fa322ab5 3287#line 974 "./parse.y"
22eed1e6
APB		 3288{ yyval.node = yyvsp[0].node; ;
3289 break;}
3290case 149:
fa322ab5 3291#line 980 "./parse.y"
22eed1e6
APB		 3292{
3293 yyval.node = build_method_invocation (yyvsp[-3].node, NULL_TREE);
3294 yyval.node = build_debugable_stmt (EXPR_WFL_LINECOL (yyvsp[-3].node), yyval.node);
3295 yyval.node = java_method_add_stmt (current_function_decl, yyval.node);
8b27f225
PB		 3296 ;
3297 break;}
22eed1e6 3298case 150:
fa322ab5 3299#line 986 "./parse.y"
22eed1e6
APB		 3300{
3301 yyval.node = build_method_invocation (yyvsp[-4].node, yyvsp[-2].node);
3302 yyval.node = build_debugable_stmt (EXPR_WFL_LINECOL (yyvsp[-4].node), yyval.node);
3303 yyval.node = java_method_add_stmt (current_function_decl, yyval.node);
8b27f225
PB		 3304 ;
3305 break;}
3306case 151:
fa322ab5 3307#line 994 "./parse.y"
8b27f225
PB		 3308{yyval.node = parse_jdk1_1_error ("explicit constructor invocation"); ;
3309 break;}
3310case 152:
fa322ab5 3311#line 996 "./parse.y"
8b27f225
PB		 3312{yyval.node = parse_jdk1_1_error ("explicit constructor invocation"); ;
3313 break;}
3314case 153:
fa322ab5 3315#line 1001 "./parse.y"
8b27f225
PB		 3316{
3317 tree wfl = build_wfl_node (this_identifier_node,
3318 input_filename, 0, 0);
3319 EXPR_WFL_LINECOL (wfl) = yyvsp[0].operator.location;
3320 yyval.node = wfl;
3321 ;
3322 break;}
3323case 154:
fa322ab5 3324#line 1008 "./parse.y"
8b27f225
PB		 3325{
3326 tree wfl = build_wfl_node (super_identifier_node,
3327 input_filename, 0, 0);
3328 EXPR_WFL_LINECOL (wfl) = yyvsp[0].operator.location;
3329 yyval.node = wfl;
3330 ;
3331 break;}
3332case 155:
fa322ab5 3333#line 1020 "./parse.y"
8b27f225
PB		 3334{ create_interface (0, yyvsp[0].node, NULL_TREE); ;
3335 break;}
3336case 156:
fa322ab5 3337#line 1022 "./parse.y"
8b27f225
PB		 3338{
3339 yyval.node = yyvsp[0].node;
3340 ;
3341 break;}
3342case 157:
fa322ab5 3343#line 1026 "./parse.y"
8b27f225
PB		 3344{ create_interface (yyvsp[-2].value, yyvsp[0].node, NULL_TREE); ;
3345 break;}
3346case 158:
fa322ab5 3347#line 1028 "./parse.y"
8b27f225
PB		 3348{
3349 yyval.node = yyvsp[0].node;
3350 ;
3351 break;}
3352case 159:
fa322ab5 3353#line 1032 "./parse.y"
8b27f225
PB		 3354{ create_interface (0, yyvsp[-1].node, yyvsp[0].node); ;
3355 break;}
3356case 160:
fa322ab5 3357#line 1034 "./parse.y"
8b27f225
PB		 3358{
3359 yyval.node = yyvsp[0].node;
3360 ;
3361 break;}
3362case 161:
fa322ab5 3363#line 1038 "./parse.y"
8b27f225
PB		 3364{ create_interface (yyvsp[-3].value, yyvsp[-1].node, yyvsp[0].node); ;
3365 break;}
3366case 162:
fa322ab5 3367#line 1040 "./parse.y"
8b27f225
PB		 3368{
3369 yyval.node = yyvsp[0].node;
3370 ;
3371 break;}
3372case 163:
fa322ab5 3373#line 1044 "./parse.y"
8b27f225
PB		 3374{yyerror ("(here)'{' expected"); RECOVER;;
3375 break;}
3376case 164:
fa322ab5 3377#line 1046 "./parse.y"
8b27f225
PB		 3378{yyerror ("(there)'{' expected"); RECOVER;;
3379 break;}
3380case 165:
fa322ab5 3381#line 1051 "./parse.y"
8b27f225
PB		 3382{
3383 ctxp->interface_number = 1;
3384 yyval.node = build_tree_list (yyvsp[0].node, NULL_TREE);
3385 ;
3386 break;}
3387case 166:
fa322ab5 3388#line 1056 "./parse.y"
8b27f225
PB		 3389{
3390 ctxp->interface_number++;
3391 yyval.node = chainon (yyvsp[-2].node, build_tree_list (yyvsp[0].node, NULL_TREE));
3392 ;
3393 break;}
3394case 167:
fa322ab5 3395#line 1061 "./parse.y"
8b27f225
PB		 3396{yyerror ("Invalid interface type"); RECOVER;;
3397 break;}
3398case 168:
fa322ab5 3399#line 1063 "./parse.y"
8b27f225
PB		 3400{yyerror ("Missing term"); RECOVER;;
3401 break;}
3402case 169:
fa322ab5 3403#line 1068 "./parse.y"
8b27f225
PB		 3404{ yyval.node = NULL_TREE; ;
3405 break;}
3406case 170:
fa322ab5 3407#line 1070 "./parse.y"
8b27f225
PB		 3408{ yyval.node = NULL_TREE; ;
3409 break;}
3410case 175:
fa322ab5 3411#line 1082 "./parse.y"
8b27f225
PB		 3412{ yyval.node = parse_jdk1_1_error ("inner class declaration"); ;
3413 break;}
3414case 176:
fa322ab5 3415#line 1084 "./parse.y"
8b27f225
PB		 3416{ yyval.node = parse_jdk1_1_error ("inner interface declaration"); ;
3417 break;}
3418case 178:
fa322ab5 3419#line 1093 "./parse.y"
8b27f225
PB		 3420{
3421 check_abstract_method_header (yyvsp[-1].node);
3422 current_function_decl = NULL_TREE; /* FIXME ? */
3423 ;
3424 break;}
3425case 179:
fa322ab5 3426#line 1098 "./parse.y"
8b27f225
PB		 3427{yyerror ("';' expected"); RECOVER;;
3428 break;}
3429case 180:
fa322ab5 3430#line 1104 "./parse.y"
1179ebc2 3431{ yyval.node = build_new_array_init (yyvsp[-1].operator.location, NULL_TREE); ;
8b27f225
PB		 3432 break;}
3433case 181:
fa322ab5 3434#line 1106 "./parse.y"
f8976021 3435{ yyval.node = build_new_array_init (yyvsp[-2].operator.location, yyvsp[-1].node); ;
8b27f225
PB		 3436 break;}
3437case 182:
fa322ab5 3438#line 1108 "./parse.y"
f8976021 3439{ yyval.node = build_new_array_init (yyvsp[-3].operator.location, yyvsp[-2].node); ;
ac825856 3440 break;}
1179ebc2 3441case 183:
fa322ab5 3442#line 1113 "./parse.y"
f8976021
APB		 3443{
3444 yyval.node = tree_cons (maybe_build_array_element_wfl (yyvsp[0].node),
3445 yyvsp[0].node, NULL_TREE);
3446 ;
ac825856 3447 break;}
1179ebc2 3448case 184:
fa322ab5 3449#line 1118 "./parse.y"
1179ebc2
APB		 3450{
3451 yyval.node = tree_cons (maybe_build_array_element_wfl (yyvsp[0].node), yyvsp[0].node, yyvsp[-2].node);
3452 ;
8b27f225 3453 break;}
1179ebc2 3454case 185:
fa322ab5 3455#line 1122 "./parse.y"
8b27f225
PB		 3456{yyerror ("Missing term"); RECOVER;;
3457 break;}
1179ebc2 3458case 186:
fa322ab5 3459#line 1128 "./parse.y"
c877974e 3460{ yyval.node = empty_stmt_node; ;
8b27f225 3461 break;}
1179ebc2 3462case 187:
fa322ab5 3463#line 1130 "./parse.y"
22eed1e6 3464{ yyval.node = yyvsp[0].node; ;
8b27f225 3465 break;}
1179ebc2 3466case 188:
fa322ab5 3467#line 1135 "./parse.y"
22eed1e6
APB		 3468{ enter_block (); ;
3469 break;}
1179ebc2 3470case 189:
fa322ab5 3471#line 1140 "./parse.y"
8b27f225
PB		 3472{
3473 maybe_absorb_scoping_blocks ();
3474 yyval.node = exit_block ();
3475 ;
3476 break;}
1179ebc2 3477case 193:
fa322ab5 3478#line 1154 "./parse.y"
12472854 3479{ java_method_add_stmt (current_function_decl, yyvsp[0].node); ;
8b27f225 3480 break;}
1179ebc2 3481case 194:
fa322ab5 3482#line 1156 "./parse.y"
12472854 3483{ parse_jdk1_1_error ("inner class declaration"); ;
8b27f225 3484 break;}
1179ebc2 3485case 196:
fa322ab5 3486#line 1165 "./parse.y"
8b27f225
PB		 3487{ declare_local_variables (0, yyvsp[-1].node, yyvsp[0].node); ;
3488 break;}
1179ebc2 3489case 197:
fa322ab5 3490#line 1167 "./parse.y"
8b27f225
PB		 3491{ declare_local_variables (yyvsp[-2].value, yyvsp[-1].node, yyvsp[0].node); ;
3492 break;}
1179ebc2 3493case 203:
fa322ab5 3494#line 1177 "./parse.y"
8b27f225
PB		 3495{
3496 /* If the for loop is unlabeled, we must return the
3497 block it was defined it. It our last chance to
3498 get a hold on it. */
3499 if (!LOOP_HAS_LABEL_P (yyval.node))
3500 yyval.node = exit_block ();
3501 ;
3502 break;}
1179ebc2 3503case 220:
fa322ab5 3504#line 1210 "./parse.y"
c877974e 3505{ yyval.node = empty_stmt_node; ;
8b27f225 3506 break;}
1179ebc2 3507case 221:
fa322ab5 3508#line 1215 "./parse.y"
8b27f225
PB		 3509{
3510 yyval.node = build_labeled_block (EXPR_WFL_LINECOL (yyvsp[-1].node),
3511 EXPR_WFL_NODE (yyvsp[-1].node));
3512 pushlevel (2);
3513 push_labeled_block (yyval.node);
3514 PUSH_LABELED_BLOCK (yyval.node);
3515 ;
3516 break;}
1179ebc2 3517case 222:
fa322ab5 3518#line 1226 "./parse.y"
8b27f225
PB		 3519{
3520 yyval.node = complete_labeled_statement (yyvsp[-1].node, yyvsp[0].node);
3521 pop_labeled_block ();
3522 POP_LABELED_BLOCK ();
3523 ;
3524 break;}
1179ebc2 3525case 223:
fa322ab5 3526#line 1232 "./parse.y"
8b27f225
PB		 3527{yyerror ("':' expected"); RECOVER;;
3528 break;}
1179ebc2 3529case 224:
fa322ab5 3530#line 1237 "./parse.y"
8b27f225
PB		 3531{
3532 yyval.node = complete_labeled_statement (yyvsp[-1].node, yyvsp[0].node);
3533 pop_labeled_block ();
3534 POP_LABELED_BLOCK ();
3535 ;
3536 break;}
1179ebc2 3537case 225:
fa322ab5 3538#line 1248 "./parse.y"
8b27f225
PB		 3539{
3540 /* We have a statement. Generate a WFL around it so
3541 we can debug it */
3542 yyval.node = build_expr_wfl (yyvsp[-1].node, input_filename, lineno, 0);
3543 /* We know we have a statement, so set the debug
3544 info to be eventually generate here. */
3545 yyval.node = JAVA_MAYBE_GENERATE_DEBUG_INFO (yyval.node);
3546 ;
3547 break;}
1179ebc2 3548case 226:
fa322ab5 3549#line 1257 "./parse.y"
8b27f225
PB		 3550{
3551 if (ctxp->prevent_ese != lineno)
3552 yyerror ("Invalid expression statement");
3553 DRECOVER (expr_stmt);
3554 ;
3555 break;}
1179ebc2 3556case 227:
fa322ab5 3557#line 1263 "./parse.y"
8b27f225
PB		 3558{
3559 if (ctxp->prevent_ese != lineno)
3560 yyerror ("Invalid expression statement");
3561 DRECOVER (expr_stmt);
3562 ;
3563 break;}
1179ebc2 3564case 228:
fa322ab5 3565#line 1269 "./parse.y"
22eed1e6
APB		 3566{
3567 if (ctxp->prevent_ese != lineno)
3568 yyerror ("Invalid expression statement");
3569 DRECOVER (expr_stmt);
3570 ;
8b27f225 3571 break;}
1179ebc2 3572case 229:
fa322ab5 3573#line 1275 "./parse.y"
22eed1e6 3574{yyerror ("')' expected"); RECOVER;;
8b27f225 3575 break;}
1179ebc2 3576case 230:
fa322ab5 3577#line 1277 "./parse.y"
22eed1e6
APB		 3578{
3579 yyerror ("Constructor invocation must be first "
3580 "thing in a constructor");
3581 RECOVER;
3582 ;
8b27f225 3583 break;}
1179ebc2 3584case 231:
fa322ab5 3585#line 1283 "./parse.y"
22eed1e6 3586{yyerror ("')' expected"); RECOVER;;
8b27f225 3587 break;}
1179ebc2 3588case 232:
fa322ab5 3589#line 1285 "./parse.y"
22eed1e6
APB		 3590{
3591 yyerror ("Constructor invocation must be first "
3592 "thing in a constructor");
3593 RECOVER;
3594 ;
8b27f225 3595 break;}
1179ebc2 3596case 233:
fa322ab5 3597#line 1291 "./parse.y"
22eed1e6 3598{yyerror ("'(' expected"); RECOVER;;
8b27f225 3599 break;}
1179ebc2 3600case 234:
fa322ab5 3601#line 1293 "./parse.y"
1179ebc2
APB		 3602{yyerror ("')' expected"); RECOVER;;
3603 break;}
8b27f225 3604case 235:
fa322ab5 3605#line 1295 "./parse.y"
8b27f225
PB		 3606{yyerror ("')' expected"); RECOVER;;
3607 break;}
3608case 236:
fa322ab5 3609#line 1297 "./parse.y"
1179ebc2 3610{yyerror ("';' expected"); RECOVER;;
8b27f225
PB		 3611 break;}
3612case 237:
fa322ab5 3613#line 1299 "./parse.y"
8b27f225
PB		 3614{yyerror ("';' expected"); RECOVER;;
3615 break;}
1179ebc2 3616case 245:
fa322ab5 3617#line 1314 "./parse.y"
1179ebc2 3618{ yyval.node = build_if_else_statement (yyvsp[-3].operator.location, yyvsp[-2].node, yyvsp[0].node, NULL_TREE); ;
8b27f225
PB		 3619 break;}
3620case 246:
fa322ab5 3621#line 1316 "./parse.y"
1179ebc2 3622{yyerror ("'(' expected"); RECOVER;;
8b27f225
PB		 3623 break;}
3624case 247:
fa322ab5 3625#line 1318 "./parse.y"
1179ebc2 3626{yyerror ("Missing term"); RECOVER;;
8b27f225
PB		 3627 break;}
3628case 248:
fa322ab5 3629#line 1320 "./parse.y"
1179ebc2 3630{yyerror ("')' expected"); RECOVER;;
8b27f225
PB		 3631 break;}
3632case 249:
fa322ab5 3633#line 1325 "./parse.y"
1179ebc2 3634{ yyval.node = build_if_else_statement (yyvsp[-5].operator.location, yyvsp[-4].node, yyvsp[-2].node, yyvsp[0].node); ;
8b27f225
PB		 3635 break;}
3636case 250:
fa322ab5 3637#line 1330 "./parse.y"
8b27f225
PB		 3638{ yyval.node = build_if_else_statement (yyvsp[-5].operator.location, yyvsp[-4].node, yyvsp[-2].node, yyvsp[0].node); ;
3639 break;}
3640case 251:
fa322ab5 3641#line 1335 "./parse.y"
12472854
PB		 3642{
3643 enter_block ();
8b27f225
PB		 3644 ;
3645 break;}
1179ebc2 3646case 252:
fa322ab5 3647#line 1339 "./parse.y"
8b27f225 3648{
12472854 3649 /* Make into "proper list" of COMPOUND_EXPRs.
f8976021
APB		 3650 I.e. make the last statment also have its own
3651 COMPOUND_EXPR. */
12472854
PB		 3652 maybe_absorb_scoping_blocks ();
3653 TREE_OPERAND (yyvsp[-2].node, 1) = exit_block ();
3654 yyval.node = build_debugable_stmt (EXPR_WFL_LINECOL (yyvsp[-2].node), yyvsp[-2].node);
8b27f225
PB		 3655 ;
3656 break;}
1179ebc2 3657case 253:
fa322ab5 3658#line 1351 "./parse.y"
12472854
PB		 3659{
3660 yyval.node = build (SWITCH_EXPR, NULL_TREE, yyvsp[-1].node, NULL_TREE);
3661 EXPR_WFL_LINECOL (yyval.node) = yyvsp[-2].operator.location;
3662 ;
8b27f225 3663 break;}
1179ebc2 3664case 254:
fa322ab5 3665#line 1356 "./parse.y"
12472854 3666{yyerror ("'(' expected"); RECOVER;;
8b27f225 3667 break;}
1179ebc2 3668case 255:
fa322ab5 3669#line 1358 "./parse.y"
12472854 3670{yyerror ("Missing term or ')'"); DRECOVER(switch_statement);;
8b27f225 3671 break;}
1179ebc2 3672case 256:
fa322ab5 3673#line 1360 "./parse.y"
1179ebc2
APB		 3674{yyerror ("'{' expected"); RECOVER;;
3675 break;}
22eed1e6 3676case 257:
fa322ab5 3677#line 1368 "./parse.y"
1179ebc2 3678{ yyval.node = NULL_TREE; ;
8b27f225 3679 break;}
f8976021 3680case 258:
fa322ab5 3681#line 1370 "./parse.y"
f8976021
APB		 3682{ yyval.node = NULL_TREE; ;
3683 break;}
3684case 259:
fa322ab5 3685#line 1372 "./parse.y"
f8976021
APB		 3686{ yyval.node = NULL_TREE; ;
3687 break;}
3688case 260:
fa322ab5 3689#line 1374 "./parse.y"
f8976021
APB		 3690{ yyval.node = NULL_TREE; ;
3691 break;}
1179ebc2 3692case 266:
fa322ab5 3693#line 1393 "./parse.y"
8b27f225 3694{
12472854
PB		 3695 tree lab = build1 (CASE_EXPR, NULL_TREE, yyvsp[-1].node);
3696 EXPR_WFL_LINECOL (lab) = yyvsp[-2].operator.location;
3697 java_method_add_stmt (current_function_decl, lab);
8b27f225
PB		 3698 ;
3699 break;}
1179ebc2 3700case 267:
fa322ab5 3701#line 1399 "./parse.y"
8b27f225 3702{
12472854
PB		 3703 tree lab = build1 (DEFAULT_EXPR, NULL_TREE, NULL_TREE);
3704 EXPR_WFL_LINECOL (lab) = yyvsp[-1].operator.location;
3705 java_method_add_stmt (current_function_decl, lab);
8b27f225
PB		 3706 ;
3707 break;}
1179ebc2 3708case 268:
fa322ab5 3709#line 1405 "./parse.y"
22eed1e6 3710{yyerror ("Missing or invalid constant expression"); RECOVER;;
8b27f225 3711 break;}
1179ebc2 3712case 269:
fa322ab5 3713#line 1407 "./parse.y"
8b27f225
PB		 3714{yyerror ("':' expected"); RECOVER;;
3715 break;}
1179ebc2 3716case 270:
fa322ab5 3717#line 1409 "./parse.y"
22eed1e6
APB		 3718{yyerror ("':' expected"); RECOVER;;
3719 break;}
1179ebc2 3720case 271:
fa322ab5 3721#line 1414 "./parse.y"
8b27f225
PB		 3722{
3723 tree body = build_loop_body (yyvsp[-2].operator.location, yyvsp[-1].node, 0);
3724 yyval.node = build_new_loop (body);
3725 ;
3726 break;}
1179ebc2 3727case 272:
fa322ab5 3728#line 1422 "./parse.y"
8b27f225
PB		 3729{ yyval.node = complete_loop_body (0, NULL_TREE, yyvsp[0].node, 0); ;
3730 break;}
1179ebc2 3731case 273:
fa322ab5 3732#line 1424 "./parse.y"
8b27f225
PB		 3733{YYERROR_NOW; yyerror ("'(' expected"); RECOVER;;
3734 break;}
1179ebc2 3735case 274:
fa322ab5 3736#line 1426 "./parse.y"
8b27f225
PB		 3737{yyerror ("Missing term and ')' expected"); RECOVER;;
3738 break;}
1179ebc2 3739case 275:
fa322ab5 3740#line 1428 "./parse.y"
8b27f225
PB		 3741{yyerror ("')' expected"); RECOVER;;
3742 break;}
1179ebc2 3743case 276:
fa322ab5 3744#line 1433 "./parse.y"
8b27f225
PB		 3745{ yyval.node = complete_loop_body (0, NULL_TREE, yyvsp[0].node, 0); ;
3746 break;}
1179ebc2 3747case 277:
fa322ab5 3748#line 1438 "./parse.y"
8b27f225
PB		 3749{
3750 tree body = build_loop_body (0, NULL_TREE, 1);
3751 yyval.node = build_new_loop (body);
3752 ;
3753 break;}
1179ebc2 3754case 278:
fa322ab5 3755#line 1447 "./parse.y"
8b27f225
PB		 3756{ yyval.node = complete_loop_body (yyvsp[-3].operator.location, yyvsp[-2].node, yyvsp[-5].node, 1); ;
3757 break;}
1179ebc2 3758case 279:
fa322ab5 3759#line 1452 "./parse.y"
8b27f225
PB		 3760{ yyval.node = complete_for_loop (EXPR_WFL_LINECOL (yyvsp[-4].node), yyvsp[-4].node, yyvsp[-2].node, yyvsp[0].node);;
3761 break;}
1179ebc2 3762case 280:
fa322ab5 3763#line 1454 "./parse.y"
8b27f225
PB		 3764{
3765 yyval.node = complete_for_loop (0, NULL_TREE, yyvsp[-2].node, yyvsp[0].node);
3766 /* We have not condition, so we get rid of the EXIT_EXPR */
3767 LOOP_EXPR_BODY_CONDITION_EXPR (LOOP_EXPR_BODY (yyval.node), 0) =
c877974e 3768 empty_stmt_node;
8b27f225
PB		 3769 ;
3770 break;}
1179ebc2 3771case 281:
fa322ab5 3772#line 1461 "./parse.y"
22eed1e6 3773{yyerror ("Invalid control expression"); RECOVER;;
8b27f225 3774 break;}
1179ebc2 3775case 282:
fa322ab5 3776#line 1463 "./parse.y"
8b27f225
PB		 3777{yyerror ("Invalid update expression"); RECOVER;;
3778 break;}
1179ebc2 3779case 283:
fa322ab5 3780#line 1465 "./parse.y"
22eed1e6 3781{yyerror ("Invalid update expression"); RECOVER;;
8b27f225 3782 break;}
1179ebc2 3783case 284:
fa322ab5 3784#line 1470 "./parse.y"
22eed1e6
APB		 3785{ yyval.node = complete_for_loop (EXPR_WFL_LINECOL (yyvsp[-4].node), yyvsp[-4].node, yyvsp[-2].node, yyvsp[0].node);;
3786 break;}
1179ebc2 3787case 285:
fa322ab5 3788#line 1472 "./parse.y"
8b27f225
PB		 3789{
3790 yyval.node = complete_for_loop (0, NULL_TREE, yyvsp[-2].node, yyvsp[0].node);
3791 /* We have not condition, so we get rid of the EXIT_EXPR */
3792 LOOP_EXPR_BODY_CONDITION_EXPR (LOOP_EXPR_BODY (yyval.node), 0) =
c877974e 3793 empty_stmt_node;
8b27f225
PB		 3794 ;
3795 break;}
1179ebc2 3796case 286:
fa322ab5 3797#line 1482 "./parse.y"
8b27f225
PB		 3798{
3799 /* This scope defined for local variable that may be
3800 defined within the scope of the for loop */
3801 enter_block ();
3802 ;
3803 break;}
1179ebc2 3804case 287:
fa322ab5 3805#line 1488 "./parse.y"
8b27f225
PB		 3806{yyerror ("'(' expected"); DRECOVER(for_1);;
3807 break;}
1179ebc2 3808case 288:
fa322ab5 3809#line 1490 "./parse.y"
8b27f225
PB		 3810{yyerror ("Invalid init statement"); RECOVER;;
3811 break;}
1179ebc2 3812case 289:
fa322ab5 3813#line 1495 "./parse.y"
8b27f225
PB		 3814{
3815 /* We now declare the loop body. The loop is
3816 declared as a for loop. */
3817 tree body = build_loop_body (0, NULL_TREE, 0);
3818 yyval.node = build_new_loop (body);
3819 IS_FOR_LOOP_P (yyval.node) = 1;
3820 /* The loop is added to the current block the for
3821 statement is defined within */
3822 java_method_add_stmt (current_function_decl, yyval.node);
3823 ;
3824 break;}
1179ebc2 3825case 290:
fa322ab5 3826#line 1507 "./parse.y"
c877974e 3827{ yyval.node = empty_stmt_node; ;
8b27f225 3828 break;}
1179ebc2 3829case 291:
fa322ab5 3830#line 1509 "./parse.y"
8b27f225
PB		 3831{
3832 /* Init statement recorded within the previously
3833 defined block scope */
3834 yyval.node = java_method_add_stmt (current_function_decl, yyvsp[0].node);
3835 ;
3836 break;}
1179ebc2 3837case 292:
fa322ab5 3838#line 1515 "./parse.y"
8b27f225
PB		 3839{
3840 /* Local variable are recorded within the previously
3841 defined block scope */
3842 yyval.node = NULL_TREE;
3843 ;
3844 break;}
1179ebc2 3845case 293:
fa322ab5 3846#line 1521 "./parse.y"
8b27f225
PB		 3847{yyerror ("';' expected"); DRECOVER(for_init_1);;
3848 break;}
1179ebc2 3849case 294:
fa322ab5 3850#line 1525 "./parse.y"
c877974e 3851{yyval.node = empty_stmt_node;;
8b27f225 3852 break;}
1179ebc2 3853case 295:
fa322ab5 3854#line 1527 "./parse.y"
8b27f225
PB		 3855{ yyval.node = build_debugable_stmt (BUILD_LOCATION (), yyvsp[0].node); ;
3856 break;}
1179ebc2 3857case 296:
fa322ab5 3858#line 1532 "./parse.y"
8b27f225
PB		 3859{ yyval.node = add_stmt_to_compound (NULL_TREE, NULL_TREE, yyvsp[0].node); ;
3860 break;}
1179ebc2 3861case 297:
fa322ab5 3862#line 1534 "./parse.y"
8b27f225
PB		 3863{ yyval.node = add_stmt_to_compound (yyvsp[-2].node, NULL_TREE, yyvsp[0].node); ;
3864 break;}
1179ebc2 3865case 298:
fa322ab5 3866#line 1536 "./parse.y"
8b27f225
PB		 3867{yyerror ("Missing term"); RECOVER;;
3868 break;}
1179ebc2 3869case 299:
fa322ab5 3870#line 1541 "./parse.y"
8b27f225
PB		 3871{ yyval.node = build_bc_statement (yyvsp[-1].operator.location, 1, NULL_TREE); ;
3872 break;}
1179ebc2 3873case 300:
fa322ab5 3874#line 1543 "./parse.y"
8b27f225
PB		 3875{ yyval.node = build_bc_statement (yyvsp[-2].operator.location, 1, yyvsp[-1].node); ;
3876 break;}
1179ebc2 3877case 301:
fa322ab5 3878#line 1545 "./parse.y"
8b27f225
PB		 3879{yyerror ("Missing term"); RECOVER;;
3880 break;}
1179ebc2 3881case 302:
fa322ab5 3882#line 1547 "./parse.y"
8b27f225
PB		 3883{yyerror ("';' expected"); RECOVER;;
3884 break;}
1179ebc2 3885case 303:
fa322ab5 3886#line 1552 "./parse.y"
8b27f225
PB		 3887{ yyval.node = build_bc_statement (yyvsp[-1].operator.location, 0, NULL_TREE); ;
3888 break;}
1179ebc2 3889case 304:
fa322ab5 3890#line 1554 "./parse.y"
8b27f225
PB		 3891{ yyval.node = build_bc_statement (yyvsp[-2].operator.location, 0, yyvsp[-1].node); ;
3892 break;}
1179ebc2 3893case 305:
fa322ab5 3894#line 1556 "./parse.y"
8b27f225
PB		 3895{yyerror ("Missing term"); RECOVER;;
3896 break;}
1179ebc2 3897case 306:
fa322ab5 3898#line 1558 "./parse.y"
8b27f225
PB		 3899{yyerror ("';' expected"); RECOVER;;
3900 break;}
1179ebc2 3901case 307:
fa322ab5 3902#line 1563 "./parse.y"
8b27f225
PB		 3903{ yyval.node = build_return (yyvsp[-1].operator.location, NULL_TREE); ;
3904 break;}
1179ebc2 3905case 308:
fa322ab5 3906#line 1565 "./parse.y"
8b27f225
PB		 3907{ yyval.node = build_return (yyvsp[-2].operator.location, yyvsp[-1].node); ;
3908 break;}
1179ebc2 3909case 309:
fa322ab5 3910#line 1567 "./parse.y"
8b27f225
PB		 3911{yyerror ("Missing term"); RECOVER;;
3912 break;}
1179ebc2 3913case 310:
fa322ab5 3914#line 1569 "./parse.y"
8b27f225
PB		 3915{yyerror ("';' expected"); RECOVER;;
3916 break;}
1179ebc2 3917case 311:
fa322ab5 3918#line 1574 "./parse.y"
8b27f225
PB		 3919{
3920 yyval.node = build1 (THROW_EXPR, NULL_TREE, yyvsp[-1].node);
3921 EXPR_WFL_LINECOL (yyval.node) = yyvsp[-2].operator.location;
3922 ;
3923 break;}
1179ebc2 3924case 312:
fa322ab5 3925#line 1579 "./parse.y"
8b27f225
PB		 3926{yyerror ("Missing term"); RECOVER;;
3927 break;}
1179ebc2 3928case 313:
fa322ab5 3929#line 1581 "./parse.y"
8b27f225
PB		 3930{yyerror ("';' expected"); RECOVER;;
3931 break;}
1179ebc2 3932case 314:
fa322ab5 3933#line 1586 "./parse.y"
8b27f225
PB		 3934{
3935 yyval.node = build (SYNCHRONIZED_EXPR, NULL_TREE, yyvsp[-2].node, yyvsp[0].node);
3936 EXPR_WFL_LINECOL (yyval.node) =
3937 EXPR_WFL_LINECOL (MODIFIER_WFL (SYNCHRONIZED_TK));
3938 ;
3939 break;}
1179ebc2 3940case 315:
fa322ab5 3941#line 1592 "./parse.y"
22eed1e6 3942{yyerror ("'{' expected"); RECOVER;;
8b27f225 3943 break;}
1179ebc2 3944case 316:
fa322ab5 3945#line 1594 "./parse.y"
22eed1e6 3946{yyerror ("'(' expected"); RECOVER;;
8b27f225 3947 break;}
1179ebc2 3948case 317:
fa322ab5 3949#line 1596 "./parse.y"
8b27f225
PB		 3950{yyerror ("Missing term"); RECOVER;;
3951 break;}
1179ebc2 3952case 318:
fa322ab5 3953#line 1598 "./parse.y"
22eed1e6
APB		 3954{yyerror ("Missing term"); RECOVER;;
3955 break;}
1179ebc2 3956case 319:
fa322ab5 3957#line 1603 "./parse.y"
8b27f225
PB		 3958{
3959 if ((1 << yyvsp[0].value) != ACC_SYNCHRONIZED)
3960 fatal ("synchronized was '%d' - yyparse", (1 << yyvsp[0].value));
3961 ;
3962 break;}
1179ebc2 3963case 320:
fa322ab5 3964#line 1611 "./parse.y"
8b27f225
PB		 3965{ yyval.node = build_try_statement (yyvsp[-2].operator.location, yyvsp[-1].node, yyvsp[0].node, NULL_TREE); ;
3966 break;}
1179ebc2 3967case 321:
fa322ab5 3968#line 1613 "./parse.y"
8b27f225
PB		 3969{ yyval.node = build_try_statement (yyvsp[-2].operator.location, yyvsp[-1].node, NULL_TREE, yyvsp[0].node); ;
3970 break;}
1179ebc2 3971case 322:
fa322ab5 3972#line 1615 "./parse.y"
8b27f225
PB		 3973{ yyval.node = build_try_statement (yyvsp[-3].operator.location, yyvsp[-2].node, yyvsp[-1].node, yyvsp[0].node); ;
3974 break;}
1179ebc2 3975case 323:
fa322ab5 3976#line 1617 "./parse.y"
8b27f225
PB		 3977{yyerror ("'{' expected"); DRECOVER (try_statement);;
3978 break;}
1179ebc2 3979case 325:
fa322ab5 3980#line 1623 "./parse.y"
8b27f225
PB		 3981{
3982 TREE_CHAIN (yyvsp[0].node) = yyvsp[-1].node;
3983 yyval.node = yyvsp[0].node;
3984 ;
3985 break;}
1179ebc2 3986case 326:
fa322ab5 3987#line 1631 "./parse.y"
8b27f225
PB		 3988{
3989 java_method_add_stmt (current_function_decl, yyvsp[0].node);
3990 exit_block ();
3991 yyval.node = yyvsp[-1].node;
3992 ;
3993 break;}
1179ebc2 3994case 327:
fa322ab5 3995#line 1639 "./parse.y"
8b27f225
PB		 3996{
3997 /* We add a block to define a scope for
3998 formal_parameter (CCBP). The formal parameter is
3999 declared initialized by the appropriate function
4000 call */
4001 tree ccpb = enter_block ();
c877974e
APB		 4002 tree init = build_assignment (ASSIGN_TK, yyvsp[-2].operator.location,
4003 TREE_PURPOSE (yyvsp[-1].node),
4004 soft_exceptioninfo_call_node);
8b27f225
PB		 4005 declare_local_variables (0, TREE_VALUE (yyvsp[-1].node),
4006 build_tree_list (TREE_PURPOSE (yyvsp[-1].node),
4007 init));
4008 yyval.node = build1 (CATCH_EXPR, NULL_TREE, ccpb);
4009 EXPR_WFL_LINECOL (yyval.node) = yyvsp[-3].operator.location;
4010 ;
4011 break;}
1179ebc2 4012case 328:
fa322ab5 4013#line 1655 "./parse.y"
8b27f225
PB		 4014{yyerror ("'(' expected"); RECOVER;;
4015 break;}
1179ebc2 4016case 329:
fa322ab5 4017#line 1657 "./parse.y"
8b27f225
PB		 4018{yyerror ("Missing term or ')' expected"); DRECOVER (2);;
4019 break;}
1179ebc2 4020case 330:
fa322ab5 4021#line 1659 "./parse.y"
8b27f225
PB		 4022{yyerror ("')' expected"); DRECOVER (1);;
4023 break;}
1179ebc2 4024case 331:
fa322ab5 4025#line 1664 "./parse.y"
8b27f225
PB		 4026{
4027 yyval.node = build (FINALLY_EXPR, NULL_TREE,
4028 create_label_decl (generate_name ()), yyvsp[0].node);
4029 ;
4030 break;}
1179ebc2 4031case 332:
fa322ab5 4032#line 1669 "./parse.y"
8b27f225
PB		 4033{yyerror ("'{' expected"); RECOVER; ;
4034 break;}
1179ebc2 4035case 336:
fa322ab5 4036#line 1681 "./parse.y"
8b27f225
PB		 4037{ yyval.node = build_this (yyvsp[0].operator.location); ;
4038 break;}
1179ebc2 4039case 337:
fa322ab5 4040#line 1683 "./parse.y"
8b27f225
PB		 4041{yyval.node = yyvsp[-1].node;;
4042 break;}
1179ebc2 4043case 342:
fa322ab5 4044#line 1692 "./parse.y"
c877974e 4045{ yyval.node = parse_jdk1_1_error ("named class literals"); ;
8b27f225 4046 break;}
1179ebc2 4047case 343:
fa322ab5 4048#line 1694 "./parse.y"
c877974e 4049{ yyval.node = build_class_ref (yyvsp[-2].node); ;
8b27f225 4050 break;}
1179ebc2 4051case 344:
fa322ab5 4052#line 1696 "./parse.y"
c877974e 4053{ yyval.node = build_class_ref (void_type_node); ;
8b27f225 4054 break;}
1179ebc2 4055case 345:
fa322ab5 4056#line 1701 "./parse.y"
22eed1e6 4057{ yyval.node = parse_jdk1_1_error ("class literals"); ;
8b27f225 4058 break;}
1179ebc2 4059case 346:
fa322ab5 4060#line 1703 "./parse.y"
22eed1e6 4061{yyerror ("')' expected"); RECOVER;;
8b27f225 4062 break;}
1179ebc2 4063case 347:
fa322ab5 4064#line 1705 "./parse.y"
22eed1e6 4065{yyerror ("'class' or 'this' expected" ); RECOVER;;
8b27f225 4066 break;}
1179ebc2 4067case 348:
fa322ab5 4068#line 1707 "./parse.y"
8b27f225
PB		 4069{yyerror ("'class' expected" ); RECOVER;;
4070 break;}
1179ebc2 4071case 349:
fa322ab5 4072#line 1709 "./parse.y"
22eed1e6 4073{yyerror ("'class' expected" ); RECOVER;;
8b27f225 4074 break;}
1179ebc2 4075case 350:
fa322ab5 4076#line 1714 "./parse.y"
22eed1e6 4077{ yyval.node = build_new_invocation (yyvsp[-3].node, yyvsp[-1].node); ;
8b27f225 4078 break;}
1179ebc2 4079case 351:
fa322ab5 4080#line 1716 "./parse.y"
22eed1e6 4081{ yyval.node = build_new_invocation (yyvsp[-2].node, NULL_TREE); ;
8b27f225 4082 break;}
1179ebc2 4083case 352:
fa322ab5 4084#line 1721 "./parse.y"
8b27f225
PB		 4085{ yyval.node = parse_jdk1_1_error ("inner class instance creation"); ;
4086 break;}
1179ebc2 4087case 353:
fa322ab5 4088#line 1723 "./parse.y"
22eed1e6 4089{ yyval.node = parse_jdk1_1_error ("inner class instance creation"); ;
8b27f225 4090 break;}
1179ebc2 4091case 358:
fa322ab5 4092#line 1732 "./parse.y"
22eed1e6 4093{yyerror ("'(' expected"); DRECOVER(new_1);;
8b27f225 4094 break;}
1179ebc2 4095case 359:
fa322ab5 4096#line 1734 "./parse.y"
22eed1e6 4097{yyerror ("'(' expected"); RECOVER;;
8b27f225 4098 break;}
1179ebc2 4099case 360:
fa322ab5 4100#line 1736 "./parse.y"
22eed1e6 4101{yyerror ("')' or term expected"); RECOVER;;
8b27f225 4102 break;}
1179ebc2 4103case 361:
fa322ab5 4104#line 1738 "./parse.y"
22eed1e6 4105{yyerror ("')' expected"); RECOVER;;
8b27f225 4106 break;}
1179ebc2 4107case 362:
fa322ab5 4108#line 1740 "./parse.y"
22eed1e6
APB		 4109{YYERROR_NOW; yyerror ("Identifier expected"); RECOVER;;
4110 break;}
1179ebc2 4111case 363:
fa322ab5 4112#line 1742 "./parse.y"
8b27f225
PB		 4113{yyerror ("'(' expected"); RECOVER;;
4114 break;}
1179ebc2 4115case 366:
fa322ab5 4116#line 1752 "./parse.y"
8b27f225
PB		 4117{
4118 yyval.node = tree_cons (NULL_TREE, yyvsp[0].node, NULL_TREE);
4119 ctxp->formal_parameter_number = 1;
4120 ;
4121 break;}
1179ebc2 4122case 367:
fa322ab5 4123#line 1757 "./parse.y"
8b27f225
PB		 4124{
4125 ctxp->formal_parameter_number += 1;
4126 yyval.node = tree_cons (NULL_TREE, yyvsp[0].node, yyvsp[-2].node);
4127 ;
4128 break;}
1179ebc2 4129case 368:
fa322ab5 4130#line 1762 "./parse.y"
22eed1e6 4131{yyerror ("Missing term"); RECOVER;;
8b27f225 4132 break;}
1179ebc2 4133case 369:
fa322ab5 4134#line 1767 "./parse.y"
1179ebc2
APB		 4135{ yyval.node = build_newarray_node (yyvsp[-1].node, yyvsp[0].node, 0); ;
4136 break;}
8b27f225 4137case 370:
fa322ab5 4138#line 1769 "./parse.y"
8b27f225
PB		 4139{ yyval.node = build_newarray_node (yyvsp[-1].node, yyvsp[0].node, 0); ;
4140 break;}
4141case 371:
fa322ab5 4142#line 1771 "./parse.y"
1179ebc2 4143{ yyval.node = build_newarray_node (yyvsp[-2].node, yyvsp[-1].node, ctxp->osb_number); ;
8b27f225
PB		 4144 break;}
4145case 372:
fa322ab5 4146#line 1773 "./parse.y"
8b27f225
PB		 4147{ yyval.node = build_newarray_node (yyvsp[-2].node, yyvsp[-1].node, ctxp->osb_number); ;
4148 break;}
4149case 373:
fa322ab5 4150#line 1777 "./parse.y"
1179ebc2 4151{ yyval.node = parse_jdk1_1_error ("anonymous array"); ;
8b27f225
PB		 4152 break;}
4153case 374:
fa322ab5 4154#line 1779 "./parse.y"
8b27f225
PB		 4155{ yyval.node = parse_jdk1_1_error ("anonymous array"); ;
4156 break;}
4157case 375:
fa322ab5 4158#line 1781 "./parse.y"
22eed1e6 4159{yyerror ("'[' expected"); DRECOVER ("]");;
8b27f225 4160 break;}
1179ebc2 4161case 376:
fa322ab5 4162#line 1783 "./parse.y"
22eed1e6 4163{yyerror ("']' expected"); RECOVER;;
8b27f225 4164 break;}
1179ebc2 4165case 377:
fa322ab5 4166#line 1788 "./parse.y"
22eed1e6 4167{ yyval.node = build_tree_list (NULL_TREE, yyvsp[0].node); ;
8b27f225 4168 break;}
1179ebc2 4169case 378:
fa322ab5 4170#line 1790 "./parse.y"
22eed1e6
APB		 4171{ yyval.node = tree_cons (NULL_TREE, yyvsp[0].node, yyval.node); ;
4172 break;}
1179ebc2 4173case 379:
fa322ab5 4174#line 1795 "./parse.y"
8b27f225
PB		 4175{
4176 EXPR_WFL_LINECOL (yyvsp[-1].node) = yyvsp[-2].operator.location;
4177 yyval.node = yyvsp[-1].node;
4178 ;
4179 break;}
1179ebc2 4180case 380:
fa322ab5 4181#line 1800 "./parse.y"
8b27f225
PB		 4182{yyerror ("']' expected"); RECOVER;;
4183 break;}
1179ebc2 4184case 381:
fa322ab5 4185#line 1802 "./parse.y"
8b27f225
PB		 4186{
4187 yyerror ("Missing term");
4188 yyerror ("']' expected");
4189 RECOVER;
4190 ;
4191 break;}
1179ebc2 4192case 382:
fa322ab5 4193#line 1811 "./parse.y"
8b27f225
PB		 4194{ ctxp->osb_number = 1; ;
4195 break;}
1179ebc2 4196case 383:
fa322ab5 4197#line 1813 "./parse.y"
8b27f225
PB		 4198{ ctxp->osb_number++; ;
4199 break;}
1179ebc2 4200case 384:
fa322ab5 4201#line 1815 "./parse.y"
8b27f225
PB		 4202{ yyerror ("']' expected"); RECOVER;;
4203 break;}
1179ebc2 4204case 385:
fa322ab5 4205#line 1820 "./parse.y"
8b27f225
PB		 4206{ yyval.node = make_qualified_primary (yyvsp[-2].node, yyvsp[0].node, yyvsp[-1].operator.location); ;
4207 break;}
1179ebc2 4208case 386:
fa322ab5 4209#line 1824 "./parse.y"
8b27f225
PB		 4210{
4211 tree super_wfl =
4212 build_wfl_node (super_identifier_node,
4213 input_filename, 0, 0);
4214 EXPR_WFL_LINECOL (super_wfl) = yyvsp[-2].operator.location;
22eed1e6
APB		 4215 yyval.node = make_qualified_name (super_wfl, yyvsp[0].node, yyvsp[-1].operator.location);
4216 ;
8b27f225 4217 break;}
1179ebc2 4218case 387:
fa322ab5 4219#line 1832 "./parse.y"
22eed1e6 4220{yyerror ("Field expected"); DRECOVER (super_field_acces);;
8b27f225 4221 break;}
1179ebc2 4222case 388:
fa322ab5 4223#line 1837 "./parse.y"
22eed1e6 4224{ yyval.node = build_method_invocation (yyvsp[-2].node, NULL_TREE); ;
8b27f225 4225 break;}
1179ebc2 4226case 389:
fa322ab5 4227#line 1839 "./parse.y"
22eed1e6 4228{ yyval.node = build_method_invocation (yyvsp[-3].node, yyvsp[-1].node); ;
8b27f225 4229 break;}
1179ebc2 4230case 390:
fa322ab5 4231#line 1841 "./parse.y"
8b27f225 4232{
22eed1e6
APB		 4233 if (TREE_CODE (yyvsp[-4].node) == THIS_EXPR)
4234 yyval.node = build_this_super_qualified_invocation
4235 (1, yyvsp[-2].node, NULL_TREE, 0, yyvsp[-3].operator.location);
4236 else
4237 {
4238 tree invok = build_method_invocation (yyvsp[-2].node, NULL_TREE);
4239 yyval.node = make_qualified_primary (yyvsp[-4].node, invok, yyvsp[-3].operator.location);
4240 }
8b27f225
PB		 4241 ;
4242 break;}
1179ebc2 4243case 391:
fa322ab5 4244#line 1852 "./parse.y"
22eed1e6
APB		 4245{
4246 if (TREE_CODE (yyvsp[-5].node) == THIS_EXPR)
4247 yyval.node = build_this_super_qualified_invocation
4248 (1, yyvsp[-3].node, yyvsp[-1].node, 0, yyvsp[-4].operator.location);
4249 else
4250 {
4251 tree invok = build_method_invocation (yyvsp[-3].node, yyvsp[-1].node);
4252 yyval.node = make_qualified_primary (yyvsp[-5].node, invok, yyvsp[-4].operator.location);
4253 }
8b27f225
PB		 4254 ;
4255 break;}
1179ebc2 4256case 392:
fa322ab5 4257#line 1863 "./parse.y"
22eed1e6
APB		 4258{
4259 yyval.node = build_this_super_qualified_invocation
4260 (0, yyvsp[-2].node, NULL_TREE, yyvsp[-4].operator.location, yyvsp[-3].operator.location);
8b27f225
PB		 4261 ;
4262 break;}
1179ebc2 4263case 393:
fa322ab5 4264#line 1868 "./parse.y"
22eed1e6
APB		 4265{
4266 yyval.node = build_this_super_qualified_invocation
4267 (0, yyvsp[-3].node, yyvsp[-1].node, yyvsp[-5].operator.location, yyvsp[-4].operator.location);
4268 ;
8b27f225 4269 break;}
1179ebc2 4270case 394:
fa322ab5 4271#line 1877 "./parse.y"
1179ebc2
APB		 4272{ yyerror ("'(' expected"); DRECOVER (method_invocation); ;
4273 break;}
8b27f225 4274case 395:
fa322ab5 4275#line 1879 "./parse.y"
8b27f225
PB		 4276{ yyerror ("'(' expected"); DRECOVER (method_invocation); ;
4277 break;}
4278case 396:
fa322ab5 4279#line 1884 "./parse.y"
1179ebc2 4280{ yyval.node = build_array_ref (yyvsp[-2].operator.location, yyvsp[-3].node, yyvsp[-1].node); ;
8b27f225
PB		 4281 break;}
4282case 397:
fa322ab5 4283#line 1886 "./parse.y"
8b27f225
PB		 4284{ yyval.node = build_array_ref (yyvsp[-2].operator.location, yyvsp[-3].node, yyvsp[-1].node); ;
4285 break;}
4286case 398:
fa322ab5 4287#line 1888 "./parse.y"
8b27f225
PB		 4288{
4289 yyerror ("Missing term and ']' expected");
4290 DRECOVER(array_access);
4291 ;
4292 break;}
1179ebc2 4293case 399:
fa322ab5 4294#line 1893 "./parse.y"
8b27f225
PB		 4295{
4296 yyerror ("']' expected");
4297 DRECOVER(array_access);
4298 ;
4299 break;}
1179ebc2 4300case 400:
fa322ab5 4301#line 1898 "./parse.y"
8b27f225
PB		 4302{
4303 yyerror ("Missing term and ']' expected");
4304 DRECOVER(array_access);
4305 ;
4306 break;}
1179ebc2 4307case 401:
fa322ab5 4308#line 1903 "./parse.y"
8b27f225
PB		 4309{
4310 yyerror ("']' expected");
4311 DRECOVER(array_access);
4312 ;
4313 break;}
1179ebc2 4314case 406:
fa322ab5 4315#line 1918 "./parse.y"
8b27f225
PB		 4316{ yyval.node = build_incdec (yyvsp[0].operator.token, yyvsp[0].operator.location, yyvsp[-1].node, 1); ;
4317 break;}
1179ebc2 4318case 407:
fa322ab5 4319#line 1923 "./parse.y"
22eed1e6 4320{ yyval.node = build_incdec (yyvsp[0].operator.token, yyvsp[0].operator.location, yyvsp[-1].node, 1); ;
8b27f225 4321 break;}
1179ebc2 4322case 410:
fa322ab5 4323#line 1930 "./parse.y"
8b27f225
PB		 4324{yyval.node = build_unaryop (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node); ;
4325 break;}
1179ebc2 4326case 411:
fa322ab5 4327#line 1932 "./parse.y"
22eed1e6 4328{yyval.node = build_unaryop (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node); ;
8b27f225 4329 break;}
1179ebc2 4330case 413:
fa322ab5 4331#line 1935 "./parse.y"
8b27f225
PB		 4332{yyerror ("Missing term"); RECOVER;
4333 break;}
1179ebc2 4334case 414:
fa322ab5 4335#line 1937 "./parse.y"
22eed1e6 4336{yyerror ("Missing term"); RECOVER;
8b27f225 4337 break;}
1179ebc2 4338case 415:
fa322ab5 4339#line 1942 "./parse.y"
22eed1e6 4340{yyval.node = build_incdec (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node, 0); ;
8b27f225 4341 break;}
1179ebc2 4342case 416:
fa322ab5 4343#line 1944 "./parse.y"
22eed1e6 4344{yyerror ("Missing term"); RECOVER;
8b27f225 4345 break;}
1179ebc2 4346case 417:
fa322ab5 4347#line 1949 "./parse.y"
22eed1e6 4348{yyval.node = build_incdec (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node, 0); ;
8b27f225 4349 break;}
1179ebc2 4350case 418:
fa322ab5 4351#line 1951 "./parse.y"
22eed1e6 4352{yyerror ("Missing term"); RECOVER;
8b27f225 4353 break;}
1179ebc2 4354case 420:
fa322ab5 4355#line 1957 "./parse.y"
8b27f225
PB		 4356{yyval.node = build_unaryop (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node); ;
4357 break;}
1179ebc2 4358case 421:
fa322ab5 4359#line 1959 "./parse.y"
22eed1e6 4360{yyval.node = build_unaryop (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[0].node); ;
8b27f225 4361 break;}
1179ebc2 4362case 423:
fa322ab5 4363#line 1962 "./parse.y"
8b27f225
PB		 4364{yyerror ("Missing term"); RECOVER;
4365 break;}
1179ebc2 4366case 424:
fa322ab5 4367#line 1964 "./parse.y"
22eed1e6
APB		 4368{yyerror ("Missing term"); RECOVER;
4369 break;}
1179ebc2 4370case 425:
fa322ab5 4371#line 1969 "./parse.y"
8b27f225
PB		 4372{
4373 tree type = yyvsp[-3].node;
4374 while (ctxp->osb_number--)
4375 type = build_java_array_type (type, -1);
4376 yyval.node = build_cast (yyvsp[-4].operator.location, type, yyvsp[0].node);
4377 ;
4378 break;}
1179ebc2 4379case 426:
fa322ab5 4380#line 1976 "./parse.y"
8b27f225
PB		 4381{ yyval.node = build_cast (yyvsp[-3].operator.location, yyvsp[-2].node, yyvsp[0].node); ;
4382 break;}
1179ebc2 4383case 427:
fa322ab5 4384#line 1978 "./parse.y"
22eed1e6
APB		 4385{ yyval.node = build_cast (yyvsp[-3].operator.location, yyvsp[-2].node, yyvsp[0].node); ;
4386 break;}
1179ebc2 4387case 428:
fa322ab5 4388#line 1980 "./parse.y"
8b27f225
PB		 4389{
4390 char *ptr;
4391 while (ctxp->osb_number--)
4392 obstack_1grow (&temporary_obstack, '[');
4393 obstack_grow0 (&temporary_obstack,
4394 IDENTIFIER_POINTER (EXPR_WFL_NODE (yyvsp[-3].node)),
4395 IDENTIFIER_LENGTH (EXPR_WFL_NODE (yyvsp[-3].node)));
4396 ptr = obstack_finish (&temporary_obstack);
4397 EXPR_WFL_NODE (yyvsp[-3].node) = get_identifier (ptr);
4398 yyval.node = build_cast (yyvsp[-4].operator.location, yyvsp[-3].node, yyvsp[0].node);
4399 ;
4400 break;}
1179ebc2 4401case 429:
fa322ab5 4402#line 1992 "./parse.y"
8b27f225
PB		 4403{yyerror ("']' expected, invalid type expression");;
4404 break;}
1179ebc2 4405case 430:
fa322ab5 4406#line 1994 "./parse.y"
8b27f225
PB		 4407{
4408 if (ctxp->prevent_ese != lineno)
4409 yyerror ("Invalid type expression"); RECOVER;
4410 RECOVER;
4411 ;
4412 break;}
1179ebc2 4413case 431:
fa322ab5 4414#line 2000 "./parse.y"
8b27f225
PB		 4415{yyerror ("Missing term"); RECOVER;;
4416 break;}
1179ebc2 4417case 432:
fa322ab5 4418#line 2002 "./parse.y"
8b27f225
PB		 4419{yyerror ("Missing term"); RECOVER;;
4420 break;}
1179ebc2 4421case 433:
fa322ab5 4422#line 2004 "./parse.y"
22eed1e6
APB		 4423{yyerror ("Missing term"); RECOVER;;
4424 break;}
1179ebc2 4425case 435:
fa322ab5 4426#line 2010 "./parse.y"
8b27f225
PB		 4427{
4428 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token),
4429 yyvsp[-1].operator.location, yyvsp[-2].node, yyvsp[0].node);
4430 ;
4431 break;}
1179ebc2 4432case 436:
fa322ab5 4433#line 2015 "./parse.y"
8b27f225
PB		 4434{
4435 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4436 yyvsp[-2].node, yyvsp[0].node);
4437 ;
4438 break;}
1179ebc2 4439case 437:
fa322ab5 4440#line 2020 "./parse.y"
8b27f225
PB		 4441{
4442 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4443 yyvsp[-2].node, yyvsp[0].node);
4444 ;
4445 break;}
1179ebc2 4446case 438:
fa322ab5 4447#line 2025 "./parse.y"
8b27f225
PB		 4448{yyerror ("Missing term"); RECOVER;;
4449 break;}
1179ebc2 4450case 439:
fa322ab5 4451#line 2027 "./parse.y"
22eed1e6
APB		 4452{yyerror ("Missing term"); RECOVER;;
4453 break;}
1179ebc2 4454case 440:
fa322ab5 4455#line 2029 "./parse.y"
8b27f225
PB		 4456{yyerror ("Missing term"); RECOVER;;
4457 break;}
1179ebc2 4458case 442:
fa322ab5 4459#line 2035 "./parse.y"
8b27f225
PB		 4460{
4461 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4462 yyvsp[-2].node, yyvsp[0].node);
4463 ;
4464 break;}
1179ebc2 4465case 443:
fa322ab5 4466#line 2040 "./parse.y"
8b27f225
PB		 4467{
4468 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4469 yyvsp[-2].node, yyvsp[0].node);
4470 ;
4471 break;}
1179ebc2 4472case 444:
fa322ab5 4473#line 2045 "./parse.y"
8b27f225
PB		 4474{yyerror ("Missing term"); RECOVER;;
4475 break;}
1179ebc2 4476case 445:
fa322ab5 4477#line 2047 "./parse.y"
8b27f225
PB		 4478{yyerror ("Missing term"); RECOVER;;
4479 break;}
1179ebc2 4480case 447:
fa322ab5 4481#line 2053 "./parse.y"
8b27f225
PB		 4482{
4483 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4484 yyvsp[-2].node, yyvsp[0].node);
4485 ;
4486 break;}
1179ebc2 4487case 448:
fa322ab5 4488#line 2058 "./parse.y"
8b27f225
PB		 4489{
4490 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4491 yyvsp[-2].node, yyvsp[0].node);
4492 ;
4493 break;}
1179ebc2 4494case 449:
fa322ab5 4495#line 2063 "./parse.y"
8b27f225
PB		 4496{
4497 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4498 yyvsp[-2].node, yyvsp[0].node);
4499 ;
4500 break;}
1179ebc2 4501case 450:
fa322ab5 4502#line 2068 "./parse.y"
1179ebc2
APB		 4503{yyerror ("Missing term"); RECOVER;;
4504 break;}
8b27f225 4505case 451:
fa322ab5 4506#line 2070 "./parse.y"
8b27f225
PB		 4507{yyerror ("Missing term"); RECOVER;;
4508 break;}
4509case 452:
fa322ab5 4510#line 2072 "./parse.y"
8b27f225
PB		 4511{yyerror ("Missing term"); RECOVER;;
4512 break;}
1179ebc2 4513case 454:
fa322ab5 4514#line 2078 "./parse.y"
1179ebc2
APB		 4515{
4516 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4517 yyvsp[-2].node, yyvsp[0].node);
4518 ;
8b27f225
PB		 4519 break;}
4520case 455:
fa322ab5 4521#line 2083 "./parse.y"
8b27f225
PB		 4522{
4523 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4524 yyvsp[-2].node, yyvsp[0].node);
4525 ;
4526 break;}
4527case 456:
fa322ab5 4528#line 2088 "./parse.y"
8b27f225
PB		 4529{
4530 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4531 yyvsp[-2].node, yyvsp[0].node);
4532 ;
4533 break;}
4534case 457:
fa322ab5 4535#line 2093 "./parse.y"
8b27f225
PB		 4536{
4537 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4538 yyvsp[-2].node, yyvsp[0].node);
4539 ;
4540 break;}
22eed1e6 4541case 458:
fa322ab5 4542#line 2098 "./parse.y"
1179ebc2 4543{ yyval.node = build_binop (INSTANCEOF_EXPR, yyvsp[-1].operator.location, yyvsp[-2].node, yyvsp[0].node); ;
8b27f225 4544 break;}
5e942c50 4545case 459:
fa322ab5 4546#line 2100 "./parse.y"
1179ebc2 4547{yyerror ("Missing term"); RECOVER;;
5e942c50 4548 break;}
8b27f225 4549case 460:
fa322ab5 4550#line 2102 "./parse.y"
8b27f225
PB		 4551{yyerror ("Missing term"); RECOVER;;
4552 break;}
4553case 461:
fa322ab5 4554#line 2104 "./parse.y"
8b27f225
PB		 4555{yyerror ("Missing term"); RECOVER;;
4556 break;}
4557case 462:
fa322ab5 4558#line 2106 "./parse.y"
8b27f225
PB		 4559{yyerror ("Missing term"); RECOVER;;
4560 break;}
4561case 463:
fa322ab5 4562#line 2108 "./parse.y"
8b27f225
PB		 4563{yyerror ("Invalid reference type"); RECOVER;;
4564 break;}
1179ebc2 4565case 465:
fa322ab5 4566#line 2114 "./parse.y"
8b27f225
PB		 4567{
4568 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4569 yyvsp[-2].node, yyvsp[0].node);
4570 ;
4571 break;}
1179ebc2 4572case 466:
fa322ab5 4573#line 2119 "./parse.y"
8b27f225
PB		 4574{
4575 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4576 yyvsp[-2].node, yyvsp[0].node);
4577 ;
4578 break;}
1179ebc2 4579case 467:
fa322ab5 4580#line 2124 "./parse.y"
8b27f225
PB		 4581{yyerror ("Missing term"); RECOVER;;
4582 break;}
1179ebc2 4583case 468:
fa322ab5 4584#line 2126 "./parse.y"
8b27f225
PB		 4585{yyerror ("Missing term"); RECOVER;;
4586 break;}
1179ebc2 4587case 470:
fa322ab5 4588#line 2132 "./parse.y"
8b27f225
PB		 4589{
4590 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4591 yyvsp[-2].node, yyvsp[0].node);
4592 ;
4593 break;}
1179ebc2 4594case 471:
fa322ab5 4595#line 2137 "./parse.y"
8b27f225
PB		 4596{yyerror ("Missing term"); RECOVER;;
4597 break;}
1179ebc2 4598case 473:
fa322ab5 4599#line 2143 "./parse.y"
8b27f225
PB		 4600{
4601 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4602 yyvsp[-2].node, yyvsp[0].node);
4603 ;
4604 break;}
1179ebc2 4605case 474:
fa322ab5 4606#line 2148 "./parse.y"
8b27f225
PB		 4607{yyerror ("Missing term"); RECOVER;;
4608 break;}
1179ebc2 4609case 476:
fa322ab5 4610#line 2154 "./parse.y"
8b27f225
PB		 4611{
4612 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4613 yyvsp[-2].node, yyvsp[0].node);
4614 ;
4615 break;}
1179ebc2 4616case 477:
fa322ab5 4617#line 2159 "./parse.y"
8b27f225
PB		 4618{yyerror ("Missing term"); RECOVER;;
4619 break;}
1179ebc2 4620case 479:
fa322ab5 4621#line 2165 "./parse.y"
8b27f225
PB		 4622{
4623 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4624 yyvsp[-2].node, yyvsp[0].node);
4625 ;
4626 break;}
1179ebc2 4627case 480:
fa322ab5 4628#line 2170 "./parse.y"
8b27f225
PB		 4629{yyerror ("Missing term"); RECOVER;;
4630 break;}
1179ebc2 4631case 482:
fa322ab5 4632#line 2176 "./parse.y"
8b27f225
PB		 4633{
4634 yyval.node = build_binop (BINOP_LOOKUP (yyvsp[-1].operator.token), yyvsp[-1].operator.location,
4635 yyvsp[-2].node, yyvsp[0].node);
4636 ;
4637 break;}
1179ebc2 4638case 483:
fa322ab5 4639#line 2181 "./parse.y"
8b27f225
PB		 4640{yyerror ("Missing term"); RECOVER;;
4641 break;}
1179ebc2 4642case 485:
fa322ab5 4643#line 2187 "./parse.y"
22eed1e6
APB		 4644{
4645 yyval.node = build (CONDITIONAL_EXPR, NULL_TREE, yyvsp[-4].node, yyvsp[-2].node, yyvsp[0].node);
4646 EXPR_WFL_LINECOL (yyval.node) = yyvsp[-3].operator.location;
4647 ;
4648 break;}
1179ebc2 4649case 486:
fa322ab5 4650#line 2192 "./parse.y"
8b27f225
PB		 4651{
4652 YYERROR_NOW;
4653 yyerror ("Missing term");
4654 DRECOVER (1);
4655 ;
4656 break;}
1179ebc2 4657case 487:
fa322ab5 4658#line 2198 "./parse.y"
8b27f225
PB		 4659{yyerror ("Missing term"); DRECOVER (2);;
4660 break;}
1179ebc2 4661case 488:
fa322ab5 4662#line 2200 "./parse.y"
8b27f225
PB		 4663{yyerror ("Missing term"); DRECOVER (3);;
4664 break;}
1179ebc2 4665case 491:
fa322ab5 4666#line 2210 "./parse.y"
8b27f225
PB		 4667{ yyval.node = build_assignment (yyvsp[-1].operator.token, yyvsp[-1].operator.location, yyvsp[-2].node, yyvsp[0].node); ;
4668 break;}
1179ebc2 4669case 492:
fa322ab5 4670#line 2212 "./parse.y"
8b27f225
PB		 4671{
4672 if (ctxp->prevent_ese != lineno)
4673 yyerror ("Missing term");
4674 DRECOVER (assign);
4675 ;
4676 break;}
4677}
4678 /* the action file gets copied in in place of this dollarsign */
fa322ab5 4679#line 498 "/usr/share/misc/bison.simple"
8b27f225
PB		 4680\f
4681 yyvsp -= yylen;
4682 yyssp -= yylen;
4683#ifdef YYLSP_NEEDED
4684 yylsp -= yylen;
4685#endif
4686
4687#if YYDEBUG != 0
4688 if (yydebug)
4689 {
4690 short *ssp1 = yyss - 1;
4691 fprintf (stderr, "state stack now");
4692 while (ssp1 != yyssp)
4693 fprintf (stderr, " %d", *++ssp1);
4694 fprintf (stderr, "\n");
4695 }
4696#endif
4697
4698 *++yyvsp = yyval;
4699
4700#ifdef YYLSP_NEEDED
4701 yylsp++;
4702 if (yylen == 0)
4703 {
4704 yylsp->first_line = yylloc.first_line;
4705 yylsp->first_column = yylloc.first_column;
4706 yylsp->last_line = (yylsp-1)->last_line;
4707 yylsp->last_column = (yylsp-1)->last_column;
4708 yylsp->text = 0;
4709 }
4710 else
4711 {
4712 yylsp->last_line = (yylsp+yylen-1)->last_line;
4713 yylsp->last_column = (yylsp+yylen-1)->last_column;
4714 }
4715#endif
4716
4717 /* Now "shift" the result of the reduction.
4718 Determine what state that goes to,
4719 based on the state we popped back to
4720 and the rule number reduced by. */
4721
4722 yyn = yyr1[yyn];
4723
4724 yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
4725 if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
4726 yystate = yytable[yystate];
4727 else
4728 yystate = yydefgoto[yyn - YYNTBASE];
4729
4730 goto yynewstate;
4731
4732yyerrlab: /* here on detecting error */
4733
4734 if (! yyerrstatus)
4735 /* If not already recovering from an error, report this error. */
4736 {
4737 ++yynerrs;
4738
4739#ifdef YYERROR_VERBOSE
4740 yyn = yypact[yystate];
4741
4742 if (yyn > YYFLAG && yyn < YYLAST)
4743 {
4744 int size = 0;
4745 char *msg;
4746 int x, count;
4747
4748 count = 0;
4749 /* Start X at -yyn if nec to avoid negative indexes in yycheck. */
4750 for (x = (yyn < 0 ? -yyn : 0);
4751 x < (sizeof(yytname) / sizeof(char *)); x++)
4752 if (yycheck[x + yyn] == x)
4753 size += strlen(yytname[x]) + 15, count++;
4754 msg = (char *) malloc(size + 15);
4755 if (msg != 0)
4756 {
4757 strcpy(msg, "parse error");
4758
4759 if (count < 5)
4760 {
4761 count = 0;
4762 for (x = (yyn < 0 ? -yyn : 0);
4763 x < (sizeof(yytname) / sizeof(char *)); x++)
4764 if (yycheck[x + yyn] == x)
4765 {
4766 strcat(msg, count == 0 ? ", expecting `" : " or `");
4767 strcat(msg, yytname[x]);
4768 strcat(msg, "'");
4769 count++;
4770 }
4771 }
4772 yyerror(msg);
4773 free(msg);
4774 }
4775 else
4776 yyerror ("parse error; also virtual memory exceeded");
4777 }
4778 else
4779#endif /* YYERROR_VERBOSE */
4780 yyerror("parse error");
4781 }
4782
4783 goto yyerrlab1;
4784yyerrlab1: /* here on error raised explicitly by an action */
4785
4786 if (yyerrstatus == 3)
4787 {
4788 /* if just tried and failed to reuse lookahead token after an error, discard it. */
4789
4790 /* return failure if at end of input */
4791 if (yychar == YYEOF)
4792 YYABORT;
4793
4794#if YYDEBUG != 0
4795 if (yydebug)
4796 fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
4797#endif
4798
4799 yychar = YYEMPTY;
4800 }
4801
4802 /* Else will try to reuse lookahead token
4803 after shifting the error token. */
4804
4805 yyerrstatus = 3; /* Each real token shifted decrements this */
4806
4807 goto yyerrhandle;
4808
4809yyerrdefault: /* current state does not do anything special for the error token. */
4810
4811#if 0
4812 /* This is wrong; only states that explicitly want error tokens
4813 should shift them. */
4814 yyn = yydefact[yystate]; /* If its default is to accept any token, ok. Otherwise pop it.*/
4815 if (yyn) goto yydefault;
4816#endif
4817
4818yyerrpop: /* pop the current state because it cannot handle the error token */
4819
4820 if (yyssp == yyss) YYABORT;
4821 yyvsp--;
4822 yystate = *--yyssp;
4823#ifdef YYLSP_NEEDED
4824 yylsp--;
4825#endif
4826
4827#if YYDEBUG != 0
4828 if (yydebug)
4829 {
4830 short *ssp1 = yyss - 1;
4831 fprintf (stderr, "Error: state stack now");
4832 while (ssp1 != yyssp)
4833 fprintf (stderr, " %d", *++ssp1);
4834 fprintf (stderr, "\n");
4835 }
4836#endif
4837
4838yyerrhandle:
4839
4840 yyn = yypact[yystate];
4841 if (yyn == YYFLAG)
4842 goto yyerrdefault;
4843
4844 yyn += YYTERROR;
4845 if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
4846 goto yyerrdefault;
4847
4848 yyn = yytable[yyn];
4849 if (yyn < 0)
4850 {
4851 if (yyn == YYFLAG)
4852 goto yyerrpop;
4853 yyn = -yyn;
4854 goto yyreduce;
4855 }
4856 else if (yyn == 0)
4857 goto yyerrpop;
4858
4859 if (yyn == YYFINAL)
4860 YYACCEPT;
4861
4862#if YYDEBUG != 0
4863 if (yydebug)
4864 fprintf(stderr, "Shifting error token, ");
4865#endif
4866
4867 *++yyvsp = yylval;
4868#ifdef YYLSP_NEEDED
4869 *++yylsp = yylloc;
4870#endif
4871
4872 yystate = yyn;
4873 goto yynewstate;
4874}
fa322ab5 4875#line 2238 "./parse.y"
8b27f225
PB		 4876
4877\f
4878
4879#include "lex.c"
4880
4881/* Flag for the error report routine to issue the error the first time
4882 it's called (overriding the default behavior which is to drop the
4883 first invocation and honor the second one, taking advantage of a
4884 richer context. */
4885static int force_error = 0;
4886
4887/* Create a new parser context and make it the current one. */
4888
4889void
4890java_push_parser_context ()
4891{
4892 struct parser_ctxt *new =
23a79c61 4893 (struct parser_ctxt *)xmalloc(sizeof (struct parser_ctxt));
8b27f225
PB		 4894
4895 bzero (new, sizeof (struct parser_ctxt));
4896 new->next = ctxp;
4897 ctxp = new;
4898 if (ctxp->next)
5e942c50
APB		 4899 {
4900 ctxp->incomplete_class = ctxp->next->incomplete_class;
4901 ctxp->gclass_list = ctxp->next->gclass_list;
4902 }
8b27f225
PB		 4903}
4904
22eed1e6
APB		 4905/* If the first file of a file list was a class file, no context
4906 exists for a source file to be parsed. This boolean remembers that
4907 java_parser_context_save_global might have created a dummy one, so
4908 that java_parser_context_restore_global can pop it. */
4909static int extra_ctxp_pushed_p = 0;
4910
8b27f225
PB		 4911void
4912java_parser_context_save_global ()
4913{
22eed1e6
APB		 4914 if (!ctxp)
4915 {
4916 java_push_parser_context ();
4917 extra_ctxp_pushed_p = 1;
4918 }
8b27f225
PB		 4919 ctxp->finput = finput;
4920 ctxp->lineno = lineno;
4921 ctxp->current_class = current_class;
4922 ctxp->filename = input_filename;
4923 ctxp->current_function_decl = current_function_decl;
4924}
4925
4926void
4927java_parser_context_restore_global ()
4928{
4929 finput = ctxp->finput;
4930 lineno = ctxp->lineno;
4931 current_class = ctxp->current_class;
4932 input_filename = ctxp->filename;
4933 current_function_decl = ctxp->current_function_decl;
23a79c61 4934 if (!ctxp->next && extra_ctxp_pushed_p)
22eed1e6
APB		 4935 {
4936 java_pop_parser_context (0);
4937 extra_ctxp_pushed_p = 0;
4938 }
8b27f225
PB		 4939}
4940
4941void
b351b287
APB		 4942java_pop_parser_context (generate)
4943 int generate;
8b27f225
PB		 4944{
4945 tree current;
5e942c50 4946 struct parser_ctxt *toFree, *next;
8b27f225 4947
5e942c50
APB		 4948 if (!ctxp)
4949 return;
4950
4951 toFree = ctxp;
4952 next = ctxp->next;
8b27f225
PB		 4953 if (next)
4954 {
4955 next->incomplete_class = ctxp->incomplete_class;
5e942c50 4956 next->gclass_list = ctxp->gclass_list;
8b27f225
PB		 4957 lineno = ctxp->lineno;
4958 finput = ctxp->finput;
4959 current_class = ctxp->current_class;
4960 }
4961
4962 /* Set the single import class file flag to 0 for the current list
4963 of imported things */
4964 for (current = ctxp->import_list; current; current = TREE_CHAIN (current))
4965 IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (TREE_PURPOSE (current)) = 0;
4966
4967 /* And restore those of the previous context */
4968 if ((ctxp = next)) /* Assignment is really meant here */
4969 for (current = ctxp->import_list; current; current = TREE_CHAIN (current))
4970 IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (TREE_PURPOSE (current)) = 1;
4971
b351b287
APB		 4972 if (generate)
4973 {
4974 toFree->next = ctxp_for_generation;
4975 ctxp_for_generation = toFree;
4976 }
4977 else
4978 free (toFree);
8b27f225
PB		 4979}
4980
4981/* Reporting JDK1.1 features not implemented */
4982
4983static tree
4984parse_jdk1_1_error (msg)
4985 char *msg;
4986{
4987 sorry (": `%s' JDK1.1(TM) feature", msg);
4988 java_error_count++;
c877974e 4989 return empty_stmt_node;
8b27f225
PB		 4990}
4991
4992static int do_warning = 0;
4993
4994void
4995yyerror (msg)
4996 char *msg;
4997{
4998 static java_lc elc;
4999 static int prev_lineno;
5000 static char *prev_msg;
5001
5002 int save_lineno;
5003 char *remainder, *code_from_source;
5004 extern struct obstack temporary_obstack;
5005
5006 if (!force_error && prev_lineno == lineno)
5007 return;
5008
5009 /* Save current error location but report latter, when the context is
5010 richer. */
5011 if (ctxp->java_error_flag == 0)
5012 {
5013 ctxp->java_error_flag = 1;
5014 elc = ctxp->elc;
5015 /* Do something to use the previous line if we're reaching the
5016 end of the file... */
5017#ifdef VERBOSE_SKELETON
5018 printf ("* Error detected (%s)\n", (msg ? msg : "(null)"));
5019#endif
5020 return;
5021 }
5022
5023 /* Ignore duplicate message on the same line. BTW, this is dubious. FIXME */
5024 if (!force_error && msg == prev_msg && prev_lineno == elc.line)
5025 return;
5026
5027 ctxp->java_error_flag = 0;
5028 if (do_warning)
5029 java_warning_count++;
5030 else
5031 java_error_count++;
5032
5033 if (elc.col == 0 && msg[1] == ';')
5034 {
5035 elc.col = ctxp->p_line->char_col-1;
5036 elc.line = ctxp->p_line->lineno;
5037 }
5038
5039 save_lineno = lineno;
5040 prev_lineno = lineno = elc.line;
5041 prev_msg = msg;
5042
5043 code_from_source = java_get_line_col (ctxp->filename, elc.line, elc.col);
5044 obstack_grow0 (&temporary_obstack,
5045 code_from_source, strlen (code_from_source));
5046 remainder = obstack_finish (&temporary_obstack);
5047 if (do_warning)
5048 warning ("%s.\n%s", msg, remainder);
5049 else
5050 error ("%s.\n%s", msg, remainder);
5051
5052 /* This allow us to cheaply avoid an extra 'Invalid expression
5053 statement' error report when errors have been already reported on
5054 the same line. This occurs when we report an error but don't have
5055 a synchronization point other than ';', which
5056 expression_statement is the only one to take care of. */
5057 ctxp->prevent_ese = lineno = save_lineno;
5058}
5059
5060static void
12472854 5061issue_warning_error_from_context (cl, msg, ap)
5e942c50
APB		 5062 tree cl;
5063 char *msg;
12472854 5064 va_list ap;
5e942c50 5065{
1886c9d8 5066 char *saved, *saved_input_filename;
12472854
PB		 5067 char buffer [4096];
5068 vsprintf (buffer, msg, ap);
5069 force_error = 1;
5e942c50
APB		 5070
5071 ctxp->elc.line = EXPR_WFL_LINENO (cl);
82371d41
APB		 5072 ctxp->elc.col = (EXPR_WFL_COLNO (cl) == 0xfff ? -1 :
5073 (EXPR_WFL_COLNO (cl) == 0xffe ? -2 : EXPR_WFL_COLNO (cl)));
5e942c50
APB		 5074
5075 /* We have a CL, that's a good reason for using it if it contains data */
5076 saved = ctxp->filename;
5077 if (TREE_CODE (cl) == EXPR_WITH_FILE_LOCATION && EXPR_WFL_FILENAME_NODE (cl))
5078 ctxp->filename = EXPR_WFL_FILENAME (cl);
1886c9d8
APB		 5079 saved_input_filename = input_filename;
5080 input_filename = ctxp->filename;
12472854
PB		 5081 java_error (NULL);
5082 java_error (buffer);
5e942c50 5083 ctxp->filename = saved;
1886c9d8 5084 input_filename = saved_input_filename;
12472854 5085 force_error = 0;
5e942c50
APB		 5086}
5087
8b27f225
PB		 5088/* Issue an error message at a current source line CL */
5089
12472854 5090void
8b27f225
PB		 5091parse_error_context VPROTO ((tree cl, char *msg, ...))
5092{
5093#ifndef __STDC__
5094 tree cl;
5095 char *msg;
5096#endif
8b27f225
PB		 5097 va_list ap;
5098
5099 VA_START (ap, msg);
5100#ifndef __STDC__
5101 cl = va_arg (ap, tree);
5102 msg = va_arg (ap, char *);
5103#endif
12472854
PB		 5104 issue_warning_error_from_context (cl, msg, ap);
5105 va_end (ap);
8b27f225
PB		 5106}
5107
5108/* Issue a warning at a current source line CL */
5109
5110static void
5111parse_warning_context VPROTO ((tree cl, char *msg, ...))
5112{
5113#ifndef __STDC__
5114 tree cl;
5115 char *msg;
5116#endif
8b27f225
PB		 5117 va_list ap;
5118
5119 VA_START (ap, msg);
5120#ifndef __STDC__
5121 cl = va_arg (ap, tree);
5122 msg = va_arg (ap, char *);
5123#endif
8b27f225 5124
c877974e 5125 force_error = do_warning = 1;
12472854 5126 issue_warning_error_from_context (cl, msg, ap);
c877974e 5127 do_warning = force_error = 0;
12472854 5128 va_end (ap);
8b27f225
PB		 5129}
5130
82371d41
APB		 5131static tree
5132find_expr_with_wfl (node)
5133 tree node;
5134{
5135 while (node)
5136 {
5137 char code;
5138 tree to_return;
5139
5140 switch (TREE_CODE (node))
5141 {
5142 case BLOCK:
5143 return find_expr_with_wfl (BLOCK_EXPR_BODY (node));
5144
5145 case COMPOUND_EXPR:
5146 to_return = find_expr_with_wfl (TREE_OPERAND (node, 0));
5147 if (to_return)
5148 return to_return;
5149 to_return = find_expr_with_wfl (TREE_OPERAND (node, 1));
5150 return to_return;
5151
5152 case LOOP_EXPR:
5153 return find_expr_with_wfl (TREE_OPERAND (node, 0));
5154
5155 case LABELED_BLOCK_EXPR:
5156 return find_expr_with_wfl (TREE_OPERAND (node, 1));
5157 default:
5158 code = TREE_CODE_CLASS (TREE_CODE (node));
5159 if (((code == '1') || (code == '2') || (code == 'e'))
5160 && EXPR_WFL_LINECOL (node))
5161 return node;
5162 }
5163 }
5164 return NULL_TREE;
5165}
5166
5167/* Issue a missing return statement error. Uses METHOD to figure the
5168 last line of the method the error occurs in. */
5169
5170static void
5171missing_return_error (method)
5172 tree method;
5173{
5174 EXPR_WFL_SET_LINECOL (wfl_operator, DECL_SOURCE_LINE_LAST (method), -2);
5175 parse_error_context (wfl_operator, "Missing return statement");
5176}
5177
5178/* Issue an unreachable statement error. From NODE, find the next
5179 statement to report appropriately. */
5180static void
5181unreachable_stmt_error (node)
5182 tree node;
5183{
5184 /* Browse node to find the next expression node that has a WFL. Use
5185 the location to report the error */
5186 if (TREE_CODE (node) == COMPOUND_EXPR)
5187 node = find_expr_with_wfl (TREE_OPERAND (node, 1));
5188 else
5189 node = find_expr_with_wfl (node);
5190
5191 if (node)
5192 {
5193 EXPR_WFL_SET_LINECOL (wfl_operator, EXPR_WFL_LINENO (node), -2);
5194 parse_error_context (wfl_operator, "Unreachable statement");
5195 }
5196 else
5197 fatal ("Can't get valid statement - unreachable_stmt_error");
5198}
5199
c877974e 5200int
8b27f225
PB		 5201java_report_errors ()
5202{
5203 if (java_error_count)
5204 fprintf (stderr, "%d error%s",
5205 java_error_count, (java_error_count == 1 ? "" : "s"));
5206 if (java_warning_count)
5207 fprintf (stderr, "%s%d warning%s", (java_error_count ? ", " : ""),
5208 java_warning_count, (java_warning_count == 1 ? "" : "s"));
5209 if (java_error_count || java_warning_count)
5210 putc ('\n', stderr);
c877974e 5211 return java_error_count;
8b27f225
PB		 5212}
5213
5214static char *
5215java_accstring_lookup (flags)
5216 int flags;
5217{
5218 static char buffer [80];
5219#define COPY_RETURN(S) {strcpy (buffer, S); return buffer;}
5220
5221 /* Access modifier looked-up first for easier report on forbidden
5222 access. */
5223 if (flags & ACC_PUBLIC) COPY_RETURN ("public");
5224 if (flags & ACC_PRIVATE) COPY_RETURN ("private");
5225 if (flags & ACC_PROTECTED) COPY_RETURN ("protected");
5226 if (flags & ACC_STATIC) COPY_RETURN ("static");
5227 if (flags & ACC_FINAL) COPY_RETURN ("final");
5228 if (flags & ACC_SYNCHRONIZED) COPY_RETURN ("synchronized");
5229 if (flags & ACC_VOLATILE) COPY_RETURN ("volatile");
5230 if (flags & ACC_TRANSIENT) COPY_RETURN ("transient");
5231 if (flags & ACC_NATIVE) COPY_RETURN ("native");
5232 if (flags & ACC_INTERFACE) COPY_RETURN ("interface");
5233 if (flags & ACC_ABSTRACT) COPY_RETURN ("abstract");
5234
5235 buffer [0] = '\0';
5236 return buffer;
5237#undef COPY_RETURN
5238}
5239
5240/* Issuing error messages upon redefinition of classes, interfaces or
5241 variables. */
5242
5243static void
5244classitf_redefinition_error (context, id, decl, cl)
5245 char *context;
5246 tree id, decl, cl;
5247{
5248 parse_error_context (cl, "%s `%s' already defined in %s:%d",
5249 context, IDENTIFIER_POINTER (id),
5250 DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl));
5251 /* Here we should point out where its redefined. It's a unicode. FIXME */
5252}
5253
5254static void
5255variable_redefinition_error (context, name, type, line)
5256 tree context, name, type;
5257 int line;
5258{
5259 char *type_name;
5260
5261 /* Figure a proper name for type. We might haven't resolved it */
c877974e
APB		 5262 if (TREE_CODE (type) == POINTER_TYPE && !TREE_TYPE (type))
5263 type_name = IDENTIFIER_POINTER (TYPE_NAME (type));
8b27f225
PB		 5264 else
5265 type_name = lang_printable_name (type, 0);
5266
5267 parse_error_context (context,
5268 "Variable `%s' is already defined in this method and "
5269 "was declared `%s %s' at line %d",
5270 IDENTIFIER_POINTER (name),
5271 type_name, IDENTIFIER_POINTER (name), line);
5272}
5273
5274static tree
5275build_array_from_name (type, type_wfl, name, ret_name)
5276 tree type, type_wfl, name, *ret_name;
5277{
5278 int more_dims = 0;
5279 char *string;
5280
5281 /* Eventually get more dims */
5282 string = IDENTIFIER_POINTER (name);
5283 while (string [more_dims] == '[')
5284 more_dims++;
5285
5286 /* If we have, then craft a new type for this variable */
5287 if (more_dims)
5288 {
5289 name = get_identifier (&more_dims [string]);
5290
5291 /* If type already is a reference on an array, get the base type */
5292 if ((TREE_CODE (type) == POINTER_TYPE) &&
5293 TYPE_ARRAY_P (TREE_TYPE (type)))
5294 type = TREE_TYPE (type);
5295
5296 /* Building the first dimension of a primitive type uses this
5297 function */
5298 if (JPRIMITIVE_TYPE_P (type))
5299 {
5300 type = build_java_array_type (type, -1);
22eed1e6 5301 CLASS_LOADED_P (type) = 1;
8b27f225
PB		 5302 more_dims--;
5303 }
5304 /* Otherwise, if we have a WFL for this type, use it (the type
5305 is already an array on an unresolved type, and we just keep
5306 on adding dimensions) */
5307 else if (type_wfl)
5308 type = type_wfl;
5309
5310 /* Add all the dimensions */
5311 while (more_dims--)
5312 type = build_unresolved_array_type (type);
5313
5314 /* The type may have been incomplete in the first place */
5315 if (type_wfl)
5316 type = obtain_incomplete_type (type);
5317 }
5318
5319 *ret_name = name;
5320 return type;
5321}
5322
5323/* Build something that the type identifier resolver will identify as
5324 being an array to an unresolved type. TYPE_WFL is a WFL on a
5325 identifier. */
5326
5327static tree
5328build_unresolved_array_type (type_or_wfl)
5329 tree type_or_wfl;
5330{
5331 char *ptr;
5332
1886c9d8 5333 /* TYPE_OR_WFL might be an array on a resolved type. In this case,
8b27f225
PB		 5334 just create a array type */
5335 if (TREE_CODE (type_or_wfl) == RECORD_TYPE)
5336 {
5337 tree type = build_java_array_type (type_or_wfl, -1);
5338 CLASS_LOADED_P (type) = CLASS_LOADED_P (type_or_wfl);
5339 return type;
5340 }
5341
5342 obstack_1grow (&temporary_obstack, '[');
5343 obstack_grow0 (&temporary_obstack,
5344 IDENTIFIER_POINTER (EXPR_WFL_NODE (type_or_wfl)),
5345 IDENTIFIER_LENGTH (EXPR_WFL_NODE (type_or_wfl)));
5346 ptr = obstack_finish (&temporary_obstack);
5347 return build_expr_wfl (get_identifier (ptr),
5348 EXPR_WFL_FILENAME (type_or_wfl),
5349 EXPR_WFL_LINENO (type_or_wfl),
5350 EXPR_WFL_COLNO (type_or_wfl));
5351}
5352
5353/* Check modifiers. If one doesn't fit, retrieve it in its declaration line
5354 and point it out. */
5355
5356static void
5357check_modifiers (message, value, mask)
5358 char *message;
5359 int value;
5360 int mask;
5361{
5362 /* Should point out the one that don't fit. ASCII/unicode,
5363 going backward. FIXME */
5364 if (value & ~mask)
5365 {
5366 int i, remainder = value & ~mask;
5367 for (i = 0; i <= 10; i++)
5368 if ((1 << i) & remainder)
5369 parse_error_context (ctxp->modifier_ctx [i], message,
5370 java_accstring_lookup (1 << i));
5371 }
5372}
5373
5374static void
5375parser_add_interface (class_decl, interface_decl, wfl)
5376 tree class_decl, interface_decl, wfl;
5377{
5378 if (maybe_add_interface (TREE_TYPE (class_decl), TREE_TYPE (interface_decl)))
5379 parse_error_context (wfl, "Interface `%s' repeated",
5380 IDENTIFIER_POINTER (DECL_NAME (interface_decl)));
5381}
5382
5383/* Bulk of common class/interface checks. Return 1 if an error was
5384 encountered. TAG is 0 for a class, 1 for an interface. */
5385
5386static int
5387check_class_interface_creation (is_interface, flags, raw_name, qualified_name, decl, cl)
5388 int is_interface, flags;
5389 tree raw_name, qualified_name, decl, cl;
5390{
5391 tree node;
5392
5393 if (!quiet_flag)
5394 fprintf (stderr, " %s %s", (is_interface ? "interface" : "class"),
5395 IDENTIFIER_POINTER (qualified_name));
5396
5397 /* Scope of an interface/class type name:
5398 - Can't be imported by a single type import
5399 - Can't already exists in the package */
5400 if (IS_A_SINGLE_IMPORT_CLASSFILE_NAME_P (raw_name)
5401 && (node = find_name_in_single_imports (raw_name)))
5402 {
5403 parse_error_context
5404 (cl, "%s name `%s' clashes with imported type `%s'",
5405 (is_interface ? "Interface" : "Class"),
5406 IDENTIFIER_POINTER (raw_name), IDENTIFIER_POINTER (node));
5407 return 1;
5408 }
5409 if (decl && CLASS_COMPLETE_P (decl))
5410 {
5411 classitf_redefinition_error ((is_interface ? "Interface" : "Class"),
5412 qualified_name, decl, cl);
5413 return 1;
5414 }
5415
5416 /* If public, file name should match class/interface name */
5417 if (flags & ACC_PUBLIC)
5418 {
5419 char *f;
5420
5421 /* Contains OS dependent assumption on path separator. FIXME */
5422 for (f = &input_filename [strlen (input_filename)];
fa322ab5
TT		 5423 f != input_filename && f[0] != '/' && f[0] != DIR_SEPARATOR;
5424 f--)
5425 ;
847fe791 5426 if (f[0] == '/' || f[0] == DIR_SEPARATOR)
8b27f225
PB		 5427 f++;
5428 if (strncmp (IDENTIFIER_POINTER (raw_name),
5429 f , IDENTIFIER_LENGTH (raw_name)) ||
5430 f [IDENTIFIER_LENGTH (raw_name)] != '.')
5431 parse_error_context (cl, "Public %s `%s' must be defined in a file "
5432 "called `%s.java'",
5433 (is_interface ? "interface" : "class"),
5434 IDENTIFIER_POINTER (qualified_name),
5435 IDENTIFIER_POINTER (raw_name));
5436 }
5437
5438 check_modifiers ((is_interface ?
5439 "Illegal modifier `%s' for interface declaration" :
5440 "Illegal modifier `%s' for class declaration"), flags,
5441 (is_interface ? INTERFACE_MODIFIERS : CLASS_MODIFIERS));
5442 return 0;
5443}
5444
5445/* If DECL is NULL, create and push a new DECL, record the current
5446 line CL and do other maintenance things. */
5447
5448static tree
5449maybe_create_class_interface_decl (decl, qualified_name, cl)
5450 tree decl, qualified_name, cl;
5451{
5e942c50 5452 if (!decl)
8b27f225
PB		 5453 decl = push_class (make_class (), qualified_name);
5454
5455 /* Take care of the file and line business */
5456 DECL_SOURCE_FILE (decl) = EXPR_WFL_FILENAME (cl);
5457 DECL_SOURCE_LINE (decl) = EXPR_WFL_LINENO (cl);
5458 CLASS_FROM_SOURCE_P (TREE_TYPE (decl)) = 1;
b351b287
APB		 5459 CLASS_FROM_CURRENTLY_COMPILED_SOURCE_P (TREE_TYPE (decl)) =
5460 IS_A_COMMAND_LINE_FILENAME_P (EXPR_WFL_FILENAME_NODE (cl));
8b27f225
PB		 5461
5462 ctxp->current_parsed_class = decl;
5463
5464 /* Link the declaration to the already seen ones */
5465 TREE_CHAIN (decl) = ctxp->class_list;
5466 ctxp->class_list = decl;
5e942c50 5467
23a79c61 5468 /* Create a new nodes in the global lists */
5e942c50 5469 ctxp->gclass_list = tree_cons (NULL_TREE, decl, ctxp->gclass_list);
23a79c61 5470 all_class_list = tree_cons (NULL_TREE, decl, all_class_list);
5e942c50 5471
8b27f225
PB		 5472 /* Install a new dependency list element */
5473 create_jdep_list (ctxp);
5474
5475 SOURCE_FRONTEND_DEBUG (("Defining class/interface %s",
5476 IDENTIFIER_POINTER (qualified_name)));
5477 return decl;
5478}
5479
5480static void
5481add_superinterfaces (decl, interface_list)
5482 tree decl, interface_list;
5483{
5484 tree node;
5485 /* Superinterface(s): if present and defined, parser_check_super_interface ()
5486 takes care of ensuring that:
5487 - This is an accessible interface type,
5488 - Circularity detection.
5489 parser_add_interface is then called. If present but not defined,
5490 the check operation is delayed until the super interface gets
5491 defined. */
5492 for (node = interface_list; node; node = TREE_CHAIN (node))
5493 {
5e942c50
APB		 5494 tree current = TREE_PURPOSE (node);
5495 tree idecl = IDENTIFIER_CLASS_VALUE (EXPR_WFL_NODE (current));
5496 if (idecl && CLASS_LOADED_P (TREE_TYPE (idecl)))
8b27f225 5497 {
5e942c50
APB		 5498 if (!parser_check_super_interface (idecl, decl, current))
5499 parser_add_interface (decl, idecl, current);
8b27f225
PB		 5500 }
5501 else
5502 register_incomplete_type (JDEP_INTERFACE,
5503 current, decl, NULL_TREE);
5504 }
5505}
5506
5507/* Create an interface in pass1 and return its decl. Return the
5508 interface's decl in pass 2. */
5509
5510static tree
5511create_interface (flags, id, super)
5512 int flags;
5513 tree id, super;
5514{
5515 tree raw_name = EXPR_WFL_NODE (id);
5516 tree q_name = parser_qualified_classname (id);
5517 tree decl = IDENTIFIER_CLASS_VALUE (q_name);
5518
5519 EXPR_WFL_NODE (id) = q_name; /* Keep source location, even if refined. */
5520
5521 /* Basic checks: scope, redefinition, modifiers */
5522 if (check_class_interface_creation (1, flags, raw_name, q_name, decl, id))
5523 return NULL_TREE;
5524
5525 /* Interface modifiers check
5526 - public/abstract allowed (already done at that point)
5527 - abstract is obsolete (comes first, it's a warning, or should be)
5528 - Can't use twice the same (checked in the modifier rule) */
c877974e 5529 if ((flags & ACC_ABSTRACT) && flag_redundant)
8b27f225
PB		 5530 parse_warning_context
5531 (MODIFIER_WFL (ABSTRACT_TK),
c877974e 5532 "Redundant use of `abstract' modifier. Interface `%s' is implicitely "
8b27f225 5533 "abstract", IDENTIFIER_POINTER (raw_name));
8b27f225
PB		 5534
5535 /* Create a new decl if DECL is NULL, otherwise fix it */
5536 decl = maybe_create_class_interface_decl (decl, q_name, id);
5537
5538 /* Set super info and mark the class a complete */
5539 set_super_info (ACC_ABSTRACT | ACC_INTERFACE | flags, TREE_TYPE (decl),
5540 object_type_node, ctxp->interface_number);
5541 ctxp->interface_number = 0;
5542 CLASS_COMPLETE_P (decl) = 1;
5543 add_superinterfaces (decl, super);
5544
5545 return decl;
5546}
5547
5548/* Create an class in pass1 and return its decl. Return class
5549 interface's decl in pass 2. */
5550
5551static tree
5552create_class (flags, id, super, interfaces)
5553 int flags;
5554 tree id, super, interfaces;
5555{
5556 tree raw_name = EXPR_WFL_NODE (id);
5557 tree class_id, decl;
5558 tree super_decl = NULL, super_decl_type;
5559
5560 class_id = parser_qualified_classname (id);
5561 decl = IDENTIFIER_CLASS_VALUE (class_id);
5e942c50 5562 ctxp->current_parsed_class_un = EXPR_WFL_NODE (id);
8b27f225
PB		 5563 EXPR_WFL_NODE (id) = class_id;
5564
5565 /* Basic check: scope, redefinition, modifiers */
5566 if (check_class_interface_creation (0, flags, raw_name, class_id, decl, id))
5567 return NULL_TREE;
5568
5569 /* Class modifier check:
5570 - Allowed modifier (already done at that point)
5571 - abstract AND final forbidden
5572 - Public classes defined in the correct file */
5573 if ((flags & ACC_ABSTRACT) && (flags & ACC_FINAL))
5574 parse_error_context (id, "Class `%s' can't be declared both abstract "
5575 "and final", IDENTIFIER_POINTER (raw_name));
5576
5577 /* Create a new decl if DECL is NULL, otherwise fix it */
5578 decl = maybe_create_class_interface_decl (decl, class_id, id);
5579
5580 /* If SUPER exists, use it, otherwise use Object */
5581 if (super)
5582 {
5583 /* Can't extend java.lang.Object */
5584 if (TREE_TYPE (IDENTIFIER_CLASS_VALUE (class_id)) == object_type_node)
5585 {
5586 parse_error_context (id, "Can't extend `java.lang.Object'");
5587 return NULL_TREE;
5588 }
5589
5590 /* The class is known and exists if there is a decl. Otherwise,
5591 postpone the operation and do it later. */
5592 super_decl = IDENTIFIER_CLASS_VALUE (EXPR_WFL_NODE (super));
5593 if (super_decl)
5594 {
5595 parser_check_super (super_decl, decl, id);
5596 super_decl_type = TREE_TYPE (super_decl);
5597 }
5598 else
82371d41 5599 super_decl_type =
8b27f225
PB		 5600 register_incomplete_type (JDEP_SUPER, super, decl, NULL_TREE);
5601 }
5602 else if (TREE_TYPE (decl) != object_type_node)
5603 super_decl_type = object_type_node;
5604 /* We're defining java.lang.Object */
5605 else
5606 super_decl_type = NULL_TREE;
5607
5608 /* Set super info and mark the class a complete */
5609 set_super_info (flags, TREE_TYPE (decl), super_decl_type,
5610 ctxp->interface_number);
5611 ctxp->interface_number = 0;
5612 CLASS_COMPLETE_P (decl) = 1;
5613 add_superinterfaces (decl, interfaces);
5614
5e942c50
APB		 5615 /* Eventually sets the @deprecated tag flag */
5616 CHECK_DEPRECATED (decl);
5617
8b27f225
PB		 5618 return decl;
5619}
5620
5621/* Can't use lookup_field () since we don't want to load the class and
5622 can't set the CLASS_LOADED_P flag */
5623
5624static tree
5625find_field (class, name)
5626 tree class;
5627 tree name;
5628{
5629 tree decl;
5630 for (decl = TYPE_FIELDS (class); decl; decl = TREE_CHAIN (decl))
5631 {
5632 if (DECL_NAME (decl) == name)
5633 return decl;
5634 }
5635 return NULL_TREE;
5636}
5637
5638/* Wrap around lookup_field that doesn't potentially upset the value
5639 of CLASS */
5640
5641static tree
5642lookup_field_wrapper (class, name)
5643 tree class, name;
5644{
5645 tree type = class;
5b09b33e 5646 tree decl;
c877974e 5647 java_parser_context_save_global ();
5b09b33e 5648 decl = lookup_field (&type, name);
c877974e 5649 java_parser_context_restore_global ();
5b09b33e 5650 return decl;
8b27f225
PB		 5651}
5652
5653/* Find duplicate field within the same class declarations and report
5654 the error. Returns 1 if a duplicated field was found, 0
5655 otherwise. */
5656
5657static int
5658duplicate_declaration_error_p (new_field_name, new_type, cl)
5659 tree new_field_name, new_type, cl;
5660{
5661 /* This might be modified to work with method decl as well */
5662 tree decl = find_field (TREE_TYPE (ctxp->current_parsed_class),
5663 new_field_name);
5664 if (decl)
5665 {
4a5f66c3
APB		 5666 char *t1 = strdup (purify_type_name
5667 ((TREE_CODE (new_type) == POINTER_TYPE
5668 && TREE_TYPE (new_type) == NULL_TREE) ?
5669 IDENTIFIER_POINTER (TYPE_NAME (new_type)) :
5670 lang_printable_name (new_type, 1)));
c877974e
APB		 5671 /* The type may not have been completed by the time we report
5672 the error */
4a5f66c3
APB		 5673 char *t2 = strdup (purify_type_name
5674 ((TREE_CODE (TREE_TYPE (decl)) == POINTER_TYPE
c877974e
APB		 5675 && TREE_TYPE (TREE_TYPE (decl)) == NULL_TREE) ?
5676 IDENTIFIER_POINTER (TYPE_NAME (TREE_TYPE (decl))) :
5677 lang_printable_name (TREE_TYPE (decl), 1)));
8b27f225
PB		 5678 parse_error_context
5679 (cl , "Duplicate variable declaration: `%s %s' was `%s %s' (%s:%d)",
5680 t1, IDENTIFIER_POINTER (new_field_name),
5681 t2, IDENTIFIER_POINTER (DECL_NAME (decl)),
5682 DECL_SOURCE_FILE (decl), DECL_SOURCE_LINE (decl));
5683 free (t1);
5684 free (t2);
5685 return 1;
5686 }
5687 return 0;
5688}
5689
5690/* Field registration routine. If TYPE doesn't exist, field
5691 declarations are linked to the undefined TYPE dependency list, to
5692 be later resolved in java_complete_class () */
5693
5694static void
5695register_fields (flags, type, variable_list)
5696 int flags;
5697 tree type, variable_list;
5698{
5699 tree current, saved_type;
5700 tree class_type = TREE_TYPE (ctxp->current_parsed_class);
5701 int saved_lineno = lineno;
5702 int must_chain = 0;
5703 tree wfl = NULL_TREE;
5704
5705 /* If we're adding fields to interfaces, those fields are public,
5706 static, final */
5707 if (CLASS_INTERFACE (TYPE_NAME (class_type)))
5708 {
5709 OBSOLETE_MODIFIER_WARNING (MODIFIER_WFL (PUBLIC_TK),
5710 flags, ACC_PUBLIC,
5711 "%s", "interface field(s)");
5712 OBSOLETE_MODIFIER_WARNING (MODIFIER_WFL (STATIC_TK),
5713 flags, ACC_STATIC,
5714 "%s", "interface field(s)");
5715 OBSOLETE_MODIFIER_WARNING (MODIFIER_WFL (FINAL_TK),
5716 flags, ACC_FINAL, "%s", "interface field(s)");
5717 check_modifiers ("Illegal interface member modifier `%s'", flags,
5718 INTERFACE_FIELD_MODIFIERS);
5719 flags |= (ACC_PUBLIC | ACC_STATIC | ACC_FINAL);
5720 }
5721
5722 /* Obtain a suitable type for resolution, if necessary */
5723 SET_TYPE_FOR_RESOLUTION (type, wfl, must_chain);
5724
5725 /* If TYPE is fully resolved and we don't have a reference, make one */
1886c9d8 5726 PROMOTE_RECORD_IF_COMPLETE (type, must_chain);
8b27f225
PB		 5727
5728 for (current = variable_list, saved_type = type; current;
5729 current = TREE_CHAIN (current), type = saved_type)
5730 {
c877974e 5731 tree real_type;
8b27f225
PB		 5732 tree field_decl;
5733 tree cl = TREE_PURPOSE (current);
5734 tree init = TREE_VALUE (current);
5735 tree current_name = EXPR_WFL_NODE (cl);
5736
5737 /* Process NAME, as it may specify extra dimension(s) for it */
5738 type = build_array_from_name (type, wfl, current_name, &current_name);
5739
8b27f225
PB		 5740 /* Type adjustment. We may have just readjusted TYPE because
5741 the variable specified more dimensions. Make sure we have
22eed1e6
APB		 5742 a reference if we can and don't have one already. Also
5743 change the name if we have an init. */
5744 if (type != saved_type)
5745 {
1886c9d8 5746 PROMOTE_RECORD_IF_COMPLETE (type, must_chain);
22eed1e6
APB		 5747 if (init)
5748 EXPR_WFL_NODE (TREE_OPERAND (init, 0)) = current_name;
5749 }
8b27f225 5750
c877974e
APB		 5751 real_type = GET_REAL_TYPE (type);
5752 /* Check for redeclarations */
5753 if (duplicate_declaration_error_p (current_name, real_type, cl))
5754 continue;
5755
8b27f225 5756 /* Set lineno to the line the field was found and create a
5e942c50 5757 declaration for it. Eventually sets the @deprecated tag flag. */
8b27f225 5758 lineno = EXPR_WFL_LINENO (cl);
c877974e 5759 field_decl = add_field (class_type, current_name, real_type, flags);
5e942c50 5760 CHECK_DEPRECATED (field_decl);
8b27f225
PB		 5761
5762 /* Check if we must chain. */
5763 if (must_chain)
5764 register_incomplete_type (JDEP_FIELD, wfl, field_decl, type);
5765
5766 /* Default value of a static field is 0 and it is considered
5767 initialized. */
5768 if (flags & ACC_STATIC)
5769 INITIALIZED_P (field_decl) = 1;
5770
5771 /* If we have an initialization value tied to the field */
5772 if (init)
5773 {
5774 /* The field is declared static */
5775 if (flags & ACC_STATIC)
5776 {
63a212ed
PB		 5777 /* We include the field and its initialization part into
5778 a list used to generate <clinit>. After <clinit> is
5779 walked, fields initialization will be processed and
5780 fields initialized with know constants will be taken
5781 out of <clinit> and have ther DECL_INITIAL set
5782 appropriately. */
5783 TREE_CHAIN (init) = ctxp->static_initialized;
5784 ctxp->static_initialized = init;
5b09b33e 5785 DECL_INITIAL (field_decl) = TREE_OPERAND (init, 1);
8b27f225 5786 }
5e942c50
APB		 5787 /* A non-static field declared with an immediate initialization is
5788 to be initialized in <init>, if any. This field is remembered
5789 to be processed at the time of the generation of <init>. */
8b27f225
PB		 5790 else
5791 {
5792 TREE_CHAIN (init) = ctxp->non_static_initialized;
5793 ctxp->non_static_initialized = init;
5794 }
63a212ed 5795 INITIALIZED_P (field_decl) = 1;
5b09b33e 5796 MODIFY_EXPR_FROM_INITIALIZATION_P (init) = 1;
8b27f225
PB		 5797 }
5798 }
5799 lineno = saved_lineno;
5800}
5801
ac825856 5802/* Generate the method $finit$ that initializes fields initialized
22eed1e6
APB		 5803 upon declaration. */
5804
5805static void
5806maybe_generate_finit ()
5807{
5808 tree mdecl, current;
5809
5810 if (!ctxp->non_static_initialized || java_error_count)
5811 return;
5812
5813 mdecl = create_artificial_method (TREE_TYPE (ctxp->current_parsed_class),
ac825856 5814 ACC_PRIVATE, void_type_node,
82371d41 5815 finit_identifier_node, end_params_node);
22eed1e6
APB		 5816 start_artificial_method_body (mdecl);
5817
5818 ctxp->non_static_initialized = nreverse (ctxp->non_static_initialized);
5819 for (current = ctxp->non_static_initialized; current;
5820 current = TREE_CHAIN (current))
5821 java_method_add_stmt (mdecl,
5822 build_debugable_stmt (EXPR_WFL_LINECOL (current),
5823 current));
5824
5825 end_artificial_method_body (mdecl);
5826 CLASS_HAS_FINIT_P (TREE_TYPE (ctxp->current_parsed_class)) = 1;
5827 ctxp->non_static_initialized = NULL_TREE;
5828}
5829
8b27f225
PB		 5830/* Check whether it is necessary to generate a <clinit> for the class
5831 we just parsed. */
5832
5833static void
5834maybe_generate_clinit ()
5835{
22eed1e6 5836 tree mdecl, c;
8b27f225
PB		 5837
5838 if (!ctxp->static_initialized || java_error_count)
5839 return;
5840
22eed1e6
APB		 5841 mdecl = create_artificial_method (TREE_TYPE (ctxp->current_parsed_class),
5842 ACC_STATIC, void_type_node,
82371d41 5843 clinit_identifier_node, end_params_node);
22eed1e6 5844 start_artificial_method_body (mdecl);
8b27f225
PB		 5845
5846 /* Keep initialization in order to enforce 8.5 */
5847 ctxp->static_initialized = nreverse (ctxp->static_initialized);
5848
5849 /* We process the list of assignment we produced as the result of
5850 the declaration of initialized static field and add them as
5851 statement to the <clinit> method. */
5852 for (c = ctxp->static_initialized; c; c = TREE_CHAIN (c))
5853 {
5854 /* We build the assignment expression that will initialize the
5855 field to its value. There are strict rules on static
5856 initializers (8.5). FIXME */
22eed1e6
APB		 5857 java_method_add_stmt (mdecl,
5858 build_debugable_stmt (EXPR_WFL_LINECOL (c), c));
8b27f225
PB		 5859 }
5860
22eed1e6 5861 end_artificial_method_body (mdecl);
8b27f225
PB		 5862 ctxp->static_initialized = NULL_TREE;
5863}
5864
5865/* Shared accros method_declarator and method_header to remember the
5866 patch stage that was reached during the declaration of the method.
5867 A method DECL is built differently is there is no patch
5868 (JDEP_NO_PATCH) or a patch (JDEP_METHOD or JDEP_METHOD_RETURN)
5869 pending on the currently defined method. */
5870
5871static int patch_stage;
5872
5873/* Check the method declaration and add the method to its current
5874 class. If the argument list is known to contain incomplete types,
5875 the method is partially added and the registration will be resume
22eed1e6
APB		 5876 once the method arguments resolved. If TYPE is NULL, we're dealing
5877 with a constructor. */
8b27f225
PB		 5878
5879static tree
5880method_header (flags, type, mdecl, throws)
5881 int flags;
5882 tree type, mdecl, throws;
5883{
5884 tree meth = TREE_VALUE (mdecl);
5885 tree id = TREE_PURPOSE (mdecl);
5886 tree this_class = TREE_TYPE (ctxp->current_parsed_class);
1886c9d8 5887 tree type_wfl = NULL_TREE;
4a5f66c3 5888 tree meth_name = NULL_TREE, current, orig_arg;
8b27f225 5889 int saved_lineno;
1886c9d8 5890 int constructor_ok = 0, must_chain;
8b27f225
PB		 5891
5892 check_modifiers_consistency (flags);
5893
5894 /* There are some forbidden modifiers for an abstract method and its
5895 class must be abstract as well. */
22eed1e6 5896 if (type && (flags & ACC_ABSTRACT))
8b27f225
PB		 5897 {
5898 ABSTRACT_CHECK (flags, ACC_PRIVATE, id, "Private");
5899 ABSTRACT_CHECK (flags, ACC_STATIC, id, "Static");
5900 ABSTRACT_CHECK (flags, ACC_FINAL, id, "Final");
5901 ABSTRACT_CHECK (flags, ACC_NATIVE, id, "Native");
5902 ABSTRACT_CHECK (flags, ACC_SYNCHRONIZED,id, "Synchronized");
5903 if (!CLASS_ABSTRACT (TYPE_NAME (this_class)))
5904 parse_error_context
5905 (id, "Class `%s' must be declared abstract to define abstract "
5906 "method `%s'",
5907 IDENTIFIER_POINTER (DECL_NAME (ctxp->current_parsed_class)),
5908 IDENTIFIER_POINTER (EXPR_WFL_NODE (id)));
5909 }
22eed1e6
APB		 5910 /* Things to be checked when declaring a constructor */
5911 if (!type)
5912 {
5913 int ec = java_error_count;
5914 /* 8.6: Constructor declarations: we might be trying to define a
5915 method without specifying a return type. */
5e942c50 5916 if (EXPR_WFL_NODE (id) != ctxp->current_parsed_class_un)
22eed1e6
APB		 5917 parse_error_context
5918 (id, "Invalid method declaration, return type required");
5919 /* 8.6.3: Constructor modifiers */
5920 else
5921 {
5922 JCONSTRUCTOR_CHECK (flags, ACC_ABSTRACT, id, "abstract");
5923 JCONSTRUCTOR_CHECK (flags, ACC_STATIC, id, "static");
5924 JCONSTRUCTOR_CHECK (flags, ACC_FINAL, id, "final");
5925 JCONSTRUCTOR_CHECK (flags, ACC_NATIVE, id, "native");
5926 JCONSTRUCTOR_CHECK (flags, ACC_SYNCHRONIZED, id, "synchronized");
5927 }
5928 /* If we found error here, we don't consider it's OK to tread
5929 the method definition as a constructor, for the rest of this
5930 function */
5931 if (ec == java_error_count)
5932 constructor_ok = 1;
5933 }
8b27f225
PB		 5934
5935 /* Method declared within the scope of an interface are implicitly
5936 abstract and public. Conflicts with other erroneously provided
5937 modifiers are check right after. */
5938
5939 if (CLASS_INTERFACE (TYPE_NAME (this_class)))
5940 {
5941 /* If FLAGS isn't set because of a modifier, turn the
5942 corresponding modifier WFL to NULL so we issue a warning on
5943 the obsolete use of the modifier */
5944 if (!(flags & ACC_PUBLIC))
5945 MODIFIER_WFL (PUBLIC_TK) = NULL;
5946 if (!(flags & ACC_ABSTRACT))
5947 MODIFIER_WFL (ABSTRACT_TK) = NULL;
5948 flags |= ACC_PUBLIC;
5949 flags |= ACC_ABSTRACT;
5950 }
5951
5952 /* Modifiers context reset moved up, so abstract method declaration
5953 modifiers can be later checked. */
5954
22eed1e6
APB		 5955 /* Set constructor returned type to void and method name to <init>,
5956 unless we found an error identifier the constructor (in which
5957 case we retain the original name) */
5958 if (!type)
5959 {
5960 type = void_type_node;
5961 if (constructor_ok)
5962 meth_name = init_identifier_node;
5963 }
5964 else
5965 meth_name = EXPR_WFL_NODE (id);
8b27f225 5966
1886c9d8
APB		 5967 /* Do the returned type resolution and registration if necessary */
5968 SET_TYPE_FOR_RESOLUTION (type, type_wfl, must_chain);
5969
4a5f66c3
APB		 5970 if (meth_name)
5971 type = build_array_from_name (type, type_wfl, meth_name, &meth_name);
1886c9d8
APB		 5972 EXPR_WFL_NODE (id) = meth_name;
5973 PROMOTE_RECORD_IF_COMPLETE (type, must_chain);
5974
5975 if (must_chain)
8b27f225 5976 {
1886c9d8
APB		 5977 patch_stage = JDEP_METHOD_RETURN;
5978 register_incomplete_type (patch_stage, type_wfl, id, type);
5979 TREE_TYPE (meth) = GET_REAL_TYPE (type);
8b27f225 5980 }
5e942c50 5981 else
1886c9d8 5982 TREE_TYPE (meth) = type;
8b27f225
PB		 5983
5984 saved_lineno = lineno;
5985 /* When defining an abstract or interface method, the curly
5986 bracket at level 1 doesn't exist because there is no function
5987 body */
5988 lineno = (ctxp->first_ccb_indent1 ? ctxp->first_ccb_indent1 :
5989 EXPR_WFL_LINENO (id));
5990
5e942c50
APB		 5991 /* Remember the original argument list */
5992 orig_arg = TYPE_ARG_TYPES (meth);
5993
8b27f225
PB		 5994 if (patch_stage) /* includes ret type and/or all args */
5995 {
5996 jdep *jdep;
5997 meth = add_method_1 (this_class, flags, meth_name, meth);
5998 /* Patch for the return type */
5999 if (patch_stage == JDEP_METHOD_RETURN)
6000 {
6001 jdep = CLASSD_LAST (ctxp->classd_list);
6002 JDEP_GET_PATCH (jdep) = &TREE_TYPE (TREE_TYPE (meth));
6003 }
6004 /* This is the stop JDEP. METH allows the function's signature
6005 to be computed. */
6006 register_incomplete_type (JDEP_METHOD_END, NULL_TREE, meth, NULL_TREE);
6007 }
6008 else
5e942c50
APB		 6009 meth = add_method (this_class, flags, meth_name,
6010 build_java_signature (meth));
6011
6012 /* Fix the method argument list so we have the argument name
6013 information */
6014 fix_method_argument_names (orig_arg, meth);
6015
6016 /* Register the parameter number and re-install the current line
6017 number */
8b27f225
PB		 6018 DECL_MAX_LOCALS (meth) = ctxp->formal_parameter_number+1;
6019 lineno = saved_lineno;
6020
6021 /* Register exception specified by the `throws' keyword for
6022 resolution and set the method decl appropriate field to the list.
6023 Note: the grammar ensures that what we get here are class
6024 types. */
6025 if (throws)
6026 {
6027 throws = nreverse (throws);
6028 for (current = throws; current; current = TREE_CHAIN (current))
6029 {
6030 register_incomplete_type (JDEP_EXCEPTION, TREE_VALUE (current),
6031 NULL_TREE, NULL_TREE);
6032 JDEP_GET_PATCH (CLASSD_LAST (ctxp->classd_list)) =
6033 &TREE_VALUE (current);
6034 }
22eed1e6
APB		 6035 DECL_FUNCTION_THROWS (meth) = throws;
6036 }
6037
6038 /* We set the DECL_NAME to ID so we can track the location where
6039 the function was declared. This allow us to report
6040 redefinition error accurately. When method are verified,
6041 DECL_NAME is reinstalled properly (using the content of the
6042 WFL node ID) (see check_method_redefinition). We don't do that
6043 when Object is being defined. Constructor <init> names will be
6044 reinstalled the same way. */
6045 if (TREE_TYPE (ctxp->current_parsed_class) != object_type_node)
6046 DECL_NAME (meth) = id;
6047
6048 /* Set the flag if we correctly processed a constructor */
6049 if (constructor_ok)
6050 DECL_CONSTRUCTOR_P (meth) = 1;
6051
5e942c50
APB		 6052 /* Eventually set the @deprecated tag flag */
6053 CHECK_DEPRECATED (meth);
6054
22eed1e6
APB		 6055 return meth;
6056}
6057
5e942c50
APB		 6058static void
6059fix_method_argument_names (orig_arg, meth)
6060 tree orig_arg, meth;
6061{
6062 tree arg = TYPE_ARG_TYPES (TREE_TYPE (meth));
6063 if (TREE_CODE (TREE_TYPE (meth)) == METHOD_TYPE)
6064 {
6065 TREE_PURPOSE (arg) = this_identifier_node;
6066 arg = TREE_CHAIN (arg);
6067 }
82371d41 6068 while (orig_arg != end_params_node)
5e942c50
APB		 6069 {
6070 TREE_PURPOSE (arg) = TREE_PURPOSE (orig_arg);
6071 orig_arg = TREE_CHAIN (orig_arg);
6072 arg = TREE_CHAIN (arg);
6073 }
6074}
6075
22eed1e6
APB		 6076/* Complete the method declaration with METHOD_BODY. */
6077
6078static void
6079complete_method_declaration (method_body)
6080 tree method_body;
6081{
6082 BLOCK_EXPR_BODY (DECL_FUNCTION_BODY (current_function_decl)) = method_body;
6083 maybe_absorb_scoping_blocks ();
6084 /* Exit function's body */
6085 exit_block ();
6086 /* Merge last line of the function with first line, directly in the
6087 function decl. It will be used to emit correct debug info. */
6088 DECL_SOURCE_LINE_MERGE (current_function_decl, ctxp->last_ccb_indent1);
6089}
6090
6091/* Build a an error message for constructor circularity errors. */
6092
6093static char *
6094constructor_circularity_msg (from, to)
6095 tree from, to;
6096{
6097 static char string [4096];
6098 char *t = strdup (lang_printable_name (from, 0));
6099 sprintf (string, "`%s' invokes `%s'", t, lang_printable_name (to, 0));
6100 free (t);
6101 return string;
6102}
6103
6104/* Verify a circular call to METH. Return 1 if an error is found, 0
6105 otherwise. */
6106
6107static int
6108verify_constructor_circularity (meth, current)
6109 tree meth, current;
6110{
6111 static tree list = NULL_TREE;
6112 tree c;
6113 for (c = DECL_CONSTRUCTOR_CALLS (current); c; c = TREE_CHAIN (c))
6114 {
6115 if (TREE_VALUE (c) == meth)
6116 {
6117 char *t;
6118 if (list)
6119 {
6120 tree liste;
6121 list = nreverse (list);
6122 for (liste = list; liste; liste = TREE_CHAIN (liste))
6123 {
6124 parse_error_context
6125 (TREE_PURPOSE (TREE_PURPOSE (liste)),
6126 constructor_circularity_msg
6127 (TREE_VALUE (liste), TREE_VALUE (TREE_PURPOSE (liste))));
6128 java_error_count--;
6129 }
6130 }
6131 t = strdup (lang_printable_name (meth, 0));
6132 parse_error_context (TREE_PURPOSE (c),
6133 "%s: recursive invocation of constructor `%s'",
6134 constructor_circularity_msg (current, meth), t);
6135 free (t);
6136 list = NULL_TREE;
6137 return 1;
6138 }
8b27f225 6139 }
22eed1e6
APB		 6140 for (c = DECL_CONSTRUCTOR_CALLS (current); c; c = TREE_CHAIN (c))
6141 {
6142 list = tree_cons (c, current, list);
6143 if (verify_constructor_circularity (meth, TREE_VALUE (c)))
6144 return 1;
6145 list = TREE_CHAIN (list);
6146 }
6147 return 0;
8b27f225
PB		 6148}
6149
6150/* Check modifiers that can be declared but exclusively */
6151
6152static void
6153check_modifiers_consistency (flags)
6154 int flags;
6155{
6156 int acc_count = 0;
6157 tree cl = NULL_TREE;
6158
6159 THIS_MODIFIER_ONLY (flags, ACC_PUBLIC, 0, acc_count, cl);
6160 THIS_MODIFIER_ONLY (flags, ACC_PRIVATE, 1, acc_count, cl);
6161 THIS_MODIFIER_ONLY (flags, ACC_PROTECTED, 2, acc_count, cl);
6162 if (acc_count > 1)
6163 parse_error_context
6164 (cl, "Inconsistent member declaration. At most one of `public', "
6165 "`private', or `protected' may be specified");
6166}
6167
6168/* Check the methode header METH for abstract specifics features */
6169
6170static void
6171check_abstract_method_header (meth)
6172 tree meth;
6173{
6174 int flags = get_access_flags_from_decl (meth);
6175 /* DECL_NAME might still be a WFL node */
c877974e 6176 tree name = GET_METHOD_NAME (meth);
8b27f225
PB		 6177
6178 OBSOLETE_MODIFIER_WARNING (MODIFIER_WFL (ABSTRACT_TK), flags,
6179 ACC_ABSTRACT, "abstract method `%s'",
6180 IDENTIFIER_POINTER (name));
6181 OBSOLETE_MODIFIER_WARNING (MODIFIER_WFL (PUBLIC_TK), flags,
6182 ACC_PUBLIC, "abstract method `%s'",
6183 IDENTIFIER_POINTER (name));
6184
6185 check_modifiers ("Illegal modifier `%s' for interface method",
6186 flags, INTERFACE_METHOD_MODIFIERS);
6187}
6188
6189/* Create a FUNCTION_TYPE node and start augmenting it with the
6190 declared function arguments. Arguments type that can't be resolved
6191 are left as they are, but the returned node is marked as containing
6192 incomplete types. */
6193
6194static tree
6195method_declarator (id, list)
6196 tree id, list;
6197{
6198 tree arg_types = NULL_TREE, current, node;
6199 tree meth = make_node (FUNCTION_TYPE);
6200 jdep *jdep;
6201
6202 patch_stage = JDEP_NO_PATCH;
6203
6204 for (current = list; current; current = TREE_CHAIN (current))
6205 {
6206 int must_chain = 0;
6207 tree wfl_name = TREE_PURPOSE (current);
6208 tree type = TREE_VALUE (current);
6209 tree name = EXPR_WFL_NODE (wfl_name);
6210 tree already, arg_node;
6211 tree type_wfl = NULL_TREE;
23a79c61 6212 tree real_type;
8b27f225
PB		 6213
6214 /* Obtain a suitable type for resolution, if necessary */
6215 SET_TYPE_FOR_RESOLUTION (type, type_wfl, must_chain);
6216
6217 /* Process NAME, as it may specify extra dimension(s) for it */
6218 type = build_array_from_name (type, type_wfl, name, &name);
6219 EXPR_WFL_NODE (wfl_name) = name;
6220
23a79c61
APB		 6221 real_type = GET_REAL_TYPE (type);
6222 if (TREE_CODE (real_type) == RECORD_TYPE)
6223 {
6224 real_type = promote_type (real_type);
6225 if (TREE_CODE (type) == TREE_LIST)
6226 TREE_PURPOSE (type) = real_type;
6227 }
5e942c50 6228
8b27f225
PB		 6229 /* Check redefinition */
6230 for (already = arg_types; already; already = TREE_CHAIN (already))
6231 if (TREE_PURPOSE (already) == name)
6232 {
6233 parse_error_context
6234 (wfl_name, "Variable `%s' is used more than once in the "
6235 "argument list of method `%s'", IDENTIFIER_POINTER (name),
6236 IDENTIFIER_POINTER (EXPR_WFL_NODE (id)));
6237 break;
6238 }
6239
6240 /* If we've an incomplete argument type, we know there is a location
6241 to patch when the type get resolved, later. */
6242 jdep = NULL;
6243 if (must_chain)
6244 {
6245 patch_stage = JDEP_METHOD;
6246 type = register_incomplete_type (patch_stage,
6247 type_wfl, wfl_name, type);
6248 jdep = CLASSD_LAST (ctxp->classd_list);
6249 JDEP_MISC (jdep) = id;
6250 }
6251
6252 /* The argument node: a name and a (possibly) incomplete type */
23a79c61 6253 arg_node = build_tree_list (name, real_type);
8b27f225
PB		 6254 if (jdep)
6255 JDEP_GET_PATCH (jdep) = &TREE_VALUE (arg_node);
6256 TREE_CHAIN (arg_node) = arg_types;
6257 arg_types = arg_node;
6258 }
82371d41 6259 TYPE_ARG_TYPES (meth) = chainon (nreverse (arg_types), end_params_node);
8b27f225
PB		 6260 node = build_tree_list (id, meth);
6261 return node;
6262}
6263
6264static int
6265unresolved_type_p (wfl, returned)
6266 tree wfl;
6267 tree *returned;
6268
6269{
6270 if (TREE_CODE (wfl) == EXPR_WITH_FILE_LOCATION)
6271 {
6272 tree decl = IDENTIFIER_CLASS_VALUE (EXPR_WFL_NODE (wfl));
6273 if (returned)
6274 *returned = (decl ? TREE_TYPE (decl) : NULL_TREE);
6275 return 1;
6276 }
6277 if (returned)
6278 *returned = wfl;
6279 return 0;
6280}
6281
6282/* From NAME, build a qualified identifier node using the
6283 qualification from the current package definition. */
6284
6285static tree
6286parser_qualified_classname (name)
6287 tree name;
6288{
6289 if (ctxp->package)
6290 return merge_qualified_name (ctxp->package, EXPR_WFL_NODE (name));
6291 else
6292 return EXPR_WFL_NODE (name);
6293}
6294
6295/* Called once the type a interface extends is resolved. Returns 0 if
6296 everything is OK. */
6297
6298static int
6299parser_check_super_interface (super_decl, this_decl, this_wfl)
6300 tree super_decl, this_decl, this_wfl;
6301{
6302 tree super_type = TREE_TYPE (super_decl);
6303
6304 /* Has to be an interface */
6305 if (!CLASS_INTERFACE (TYPE_NAME (TREE_TYPE (super_decl))))
6306 {
6307 parse_error_context
6308 (this_wfl, "Can't use %s `%s' to implement/extend %s `%s'",
6309 (TYPE_ARRAY_P (super_type) ? "array" : "class"),
6310 IDENTIFIER_POINTER (DECL_NAME (super_decl)),
6311 (CLASS_INTERFACE (TYPE_NAME (TREE_TYPE (this_decl))) ?
6312 "interface" : "class"),
6313 IDENTIFIER_POINTER (DECL_NAME (this_decl)));
6314 return 1;
6315 }
6316
6317 /* Check scope: same package OK, other package: OK if public */
6318 if (check_pkg_class_access (DECL_NAME (super_decl), lookup_cl (this_decl)))
6319 return 1;
6320
6321 SOURCE_FRONTEND_DEBUG (("Completing interface %s with %s",
6322 IDENTIFIER_POINTER (DECL_NAME (this_decl)),
6323 IDENTIFIER_POINTER (DECL_NAME (super_decl))));
6324 return 0;
6325}
6326
6327/* Makes sure that SUPER_DECL is suitable to extend THIS_DECL. Returns
6328 0 if everthing is OK. */
6329
6330static int
6331parser_check_super (super_decl, this_decl, wfl)
6332 tree super_decl, this_decl, wfl;
6333{
6334 tree super_type = TREE_TYPE (super_decl);
6335
6336 /* SUPER should be a CLASS (neither an array nor an interface) */
6337 if (TYPE_ARRAY_P (super_type) || CLASS_INTERFACE (TYPE_NAME (super_type)))
6338 {
6339 parse_error_context
6340 (wfl, "Class `%s' can't subclass %s `%s'",
6341 IDENTIFIER_POINTER (DECL_NAME (this_decl)),
6342 (CLASS_INTERFACE (TYPE_NAME (super_type)) ? "interface" : "array"),
6343 IDENTIFIER_POINTER (DECL_NAME (super_decl)));
6344 return 1;
6345 }
6346
6347 if (CLASS_FINAL (TYPE_NAME (super_type)))
6348 {
6349 parse_error_context (wfl, "Can't subclass final classes: %s",
6350 IDENTIFIER_POINTER (DECL_NAME (super_decl)));
6351 return 1;
6352 }
6353
6354 /* Check scope: same package OK, other package: OK if public */
6355 if (check_pkg_class_access (DECL_NAME (super_decl), wfl))
6356 return 1;
6357
6358 SOURCE_FRONTEND_DEBUG (("Completing class %s with %s",
6359 IDENTIFIER_POINTER (DECL_NAME (this_decl)),
6360 IDENTIFIER_POINTER (DECL_NAME (super_decl))));
6361 return 0;
6362}
6363
6364/* Create a new dependency list and link it (in a LIFO manner) to the
6365 CTXP list of type dependency list. */
6366
6367static void
6368create_jdep_list (ctxp)
6369 struct parser_ctxt *ctxp;
6370{
23a79c61 6371 jdeplist *new = (jdeplist *)xmalloc (sizeof (jdeplist));
8b27f225
PB		 6372 new->first = new->last = NULL;
6373 new->next = ctxp->classd_list;
6374 ctxp->classd_list = new;
6375}
6376
6377static jdeplist *
6378reverse_jdep_list (ctxp)
6379 struct parser_ctxt *ctxp;
6380{
6381 register jdeplist *prev = NULL, *current, *next;
6382 for (current = ctxp->classd_list; current; current = next)
6383 {
6384 next = current->next;
6385 current->next = prev;
6386 prev = current;
6387 }
6388 return prev;
6389}
6390
23a79c61
APB		 6391/* Create a fake pointer based on the ID stored in
6392 TYPE_NAME. TYPE_NAME can be a WFL or a incomplete type asking to be
6393 registered again. */
8b27f225
PB		 6394
6395static tree
23a79c61
APB		 6396obtain_incomplete_type (type_name)
6397 tree type_name;
8b27f225 6398{
23a79c61
APB		 6399 tree ptr, name;
6400
6401 if (TREE_CODE (type_name) == EXPR_WITH_FILE_LOCATION)
6402 name = EXPR_WFL_NODE (type_name);
6403 else if (INCOMPLETE_TYPE_P (type_name))
6404 name = TYPE_NAME (type_name);
6405 else
6406 fatal ("invalid type name - obtain_incomplete_type");
8b27f225
PB		 6407
6408 for (ptr = ctxp->incomplete_class; ptr; ptr = TREE_CHAIN (ptr))
6409 if (TYPE_NAME (TREE_PURPOSE (ptr)) == name)
6410 break;
6411
6412 if (!ptr)
6413 {
6414 tree core;
6415 push_obstacks (&permanent_obstack, &permanent_obstack);
6416 BUILD_PTR_FROM_NAME (core, name);
c877974e 6417 layout_type (core);
8b27f225
PB		 6418 ptr = build_tree_list (core, NULL_TREE);
6419 pop_obstacks ();
6420 TREE_CHAIN (ptr) = ctxp->incomplete_class;
6421 ctxp->incomplete_class = ptr;
6422 }
6423
6424 return ptr;
6425}
6426
6427/* Register a incomplete type whose name is WFL. Reuse PTR if PTR is
6428 non NULL instead of computing a new fake type based on WFL. The new
6429 dependency is inserted in the current type dependency list, in FIFO
6430 manner. */
6431
6432static tree
6433register_incomplete_type (kind, wfl, decl, ptr)
6434 int kind;
6435 tree wfl, decl, ptr;
6436{
23a79c61 6437 jdep *new = (jdep *)xmalloc (sizeof (jdep));
8b27f225 6438
8b27f225
PB		 6439 if (!ptr && kind != JDEP_METHOD_END) /* JDEP_METHOD_END is a mere marker */
6440 ptr = obtain_incomplete_type (wfl);
6441
6442 JDEP_KIND (new) = kind;
6443 JDEP_DECL (new) = decl;
6444 JDEP_SOLV (new) = ptr;
6445 JDEP_WFL (new) = wfl;
6446 JDEP_CHAIN (new) = NULL;
6447 JDEP_MISC (new) = NULL_TREE;
6448 JDEP_GET_PATCH (new) = (tree *)NULL;
6449
6450 JDEP_INSERT (ctxp->classd_list, new);
6451
6452 return ptr;
6453}
6454
6455void
6456java_check_circular_reference ()
6457{
6458 tree current;
6459 for (current = ctxp->class_list; current; current = TREE_CHAIN (current))
6460 {
6461 tree type = TREE_TYPE (current);
6462 if (CLASS_INTERFACE (TYPE_NAME (type)))
6463 {
6464 /* Check all interfaces this class extends */
6465 tree basetype_vec = TYPE_BINFO_BASETYPES (type);
6466 int n, i;
6467
6468 if (!basetype_vec)
6469 return;
6470 n = TREE_VEC_LENGTH (basetype_vec);
6471 for (i = 0; i < n; i++)
6472 {
6473 tree vec_elt = TREE_VEC_ELT (basetype_vec, i);
6474 if (vec_elt && BINFO_TYPE (vec_elt) != object_type_node
6475 && interface_of_p (type, BINFO_TYPE (vec_elt)))
6476 parse_error_context (lookup_cl (current),
6477 "Cyclic interface inheritance");
6478 }
6479 }
6480 else
6481 if (inherits_from_p (CLASSTYPE_SUPER (type), type))
6482 parse_error_context (lookup_cl (current),
6483 "Cyclic class inheritance");
6484 }
6485}
6486
23a79c61
APB		 6487/* safe_layout_class just makes sure that we can load a class without
6488 disrupting the current_class, input_file, lineno, etc, information
6489 about the class processed currently. */
6490
8b27f225
PB		 6491void
6492safe_layout_class (class)
6493 tree class;
6494{
6495 tree save_current_class = current_class;
6496 char *save_input_filename = input_filename;
6497 int save_lineno = lineno;
5e942c50 6498
8b27f225 6499 push_obstacks (&permanent_obstack, &permanent_obstack);
5e942c50 6500
8b27f225
PB		 6501 layout_class (class);
6502 pop_obstacks ();
5e942c50 6503
8b27f225
PB		 6504 current_class = save_current_class;
6505 input_filename = save_input_filename;
6506 lineno = save_lineno;
6507 CLASS_LOADED_P (class) = 1;
6508}
6509
6510static tree
6511jdep_resolve_class (dep)
6512 jdep *dep;
6513{
6514 tree decl;
6515
23a79c61
APB		 6516 if (JDEP_RESOLVED_P (dep))
6517 decl = JDEP_RESOLVED_DECL (dep);
6518 else
8b27f225 6519 {
23a79c61
APB		 6520 decl = resolve_class (JDEP_TO_RESOLVE (dep),
6521 JDEP_DECL (dep), JDEP_WFL (dep));
8b27f225
PB		 6522 JDEP_RESOLVED (dep, decl);
6523 }
23a79c61 6524
8b27f225 6525 if (!decl)
23a79c61
APB		 6526 complete_class_report_errors (dep);
6527
8b27f225
PB		 6528 return decl;
6529}
6530
6531/* Complete unsatisfied class declaration and their dependencies */
6532
6533void
6534java_complete_class ()
6535{
6536 tree cclass;
6537 jdeplist *cclassd;
6538 int error_found;
6539 tree type;
6540
6541 push_obstacks (&permanent_obstack, &permanent_obstack);
6542
6543 /* Process imports and reverse the import on demand list */
6544 process_imports ();
6545 if (ctxp->import_demand_list)
6546 ctxp->import_demand_list = nreverse (ctxp->import_demand_list);
6547
6548 /* Rever things so we have the right order */
6549 ctxp->class_list = nreverse (ctxp->class_list);
6550 ctxp->classd_list = reverse_jdep_list (ctxp);
c877974e 6551
8b27f225
PB		 6552 for (cclassd = ctxp->classd_list, cclass = ctxp->class_list;
6553 cclass && cclassd;
6554 cclass = TREE_CHAIN (cclass), cclassd = CLASSD_CHAIN (cclassd))
6555 {
6556 jdep *dep;
6557 for (dep = CLASSD_FIRST (cclassd); dep; dep = JDEP_CHAIN (dep))
6558 {
6559 tree decl;
8b27f225
PB		 6560 if (!(decl = jdep_resolve_class (dep)))
6561 continue;
6562
6563 /* Now it's time to patch */
6564 switch (JDEP_KIND (dep))
6565 {
6566 case JDEP_SUPER:
6567 /* Simply patch super */
6568 if (parser_check_super (decl, JDEP_DECL (dep), JDEP_WFL (dep)))
6569 continue;
6570 BINFO_TYPE (TREE_VEC_ELT (BINFO_BASETYPES (TYPE_BINFO
6571 (TREE_TYPE (JDEP_DECL (dep)))), 0)) = TREE_TYPE (decl);
6572 break;
6573
6574 case JDEP_FIELD:
6575 {
6576 /* We do part of the job done in add_field */
6577 tree field_decl = JDEP_DECL (dep);
6578 tree field_type = TREE_TYPE (decl);
6579 push_obstacks (&permanent_obstack, &permanent_obstack);
6580 if (TREE_CODE (field_type) == RECORD_TYPE)
6581 field_type = promote_type (field_type);
6582 pop_obstacks ();
6583 TREE_TYPE (field_decl) = field_type;
5e942c50
APB		 6584 DECL_ALIGN (field_decl) = 0;
6585 layout_decl (field_decl, 0);
8b27f225
PB		 6586 SOURCE_FRONTEND_DEBUG
6587 (("Completed field/var decl `%s' with `%s'",
6588 IDENTIFIER_POINTER (DECL_NAME (field_decl)),
6589 IDENTIFIER_POINTER (DECL_NAME (decl))));
6590 break;
6591 }
6592 case JDEP_METHOD: /* We start patching a method */
6593 case JDEP_METHOD_RETURN:
6594 error_found = 0;
6595 while (1)
6596 {
6597 if (decl)
6598 {
6599 type = TREE_TYPE(decl);
6600 if (TREE_CODE (type) == RECORD_TYPE)
6601 type = promote_type (type);
6602 JDEP_APPLY_PATCH (dep, type);
6603 SOURCE_FRONTEND_DEBUG
6604 (((JDEP_KIND (dep) == JDEP_METHOD_RETURN ?
6605 "Completing fct `%s' with ret type `%s'":
6606 "Completing arg `%s' with type `%s'"),
6607 IDENTIFIER_POINTER (EXPR_WFL_NODE
6608 (JDEP_DECL_WFL (dep))),
6609 IDENTIFIER_POINTER (DECL_NAME (decl))));
6610 }
6611 else
6612 error_found = 1;
6613 dep = JDEP_CHAIN (dep);
6614 if (JDEP_KIND (dep) == JDEP_METHOD_END)
6615 break;
6616 else
6617 decl = jdep_resolve_class (dep);
6618 }
6619 if (!error_found)
6620 {
6621 tree mdecl = JDEP_DECL (dep), signature;
6622 push_obstacks (&permanent_obstack, &permanent_obstack);
6623 /* Recompute and reset the signature */
6624 signature = build_java_signature (TREE_TYPE (mdecl));
6625 set_java_signature (TREE_TYPE (mdecl), signature);
6626 pop_obstacks ();
6627 }
6628 else
6629 continue;
6630 break;
6631
6632 case JDEP_INTERFACE:
6633 if (parser_check_super_interface (decl, JDEP_DECL (dep),
6634 JDEP_WFL (dep)))
6635 continue;
6636 parser_add_interface (JDEP_DECL (dep), decl, JDEP_WFL (dep));
6637 break;
6638
6639 case JDEP_PARM:
6640 case JDEP_VARIABLE:
6641 type = TREE_TYPE(decl);
6642 if (TREE_CODE (type) == RECORD_TYPE)
6643 type = promote_type (type);
6644 JDEP_APPLY_PATCH (dep, type);
6645 break;
6646
6647 case JDEP_TYPE:
6648 JDEP_APPLY_PATCH (dep, TREE_TYPE (decl));
6649 SOURCE_FRONTEND_DEBUG
6650 (("Completing a random type dependency on a '%s' node",
6651 tree_code_name [TREE_CODE (JDEP_DECL (dep))]));
6652 break;
6653
6654 case JDEP_EXCEPTION:
c877974e
APB		 6655 JDEP_APPLY_PATCH (dep, TREE_TYPE (decl));
6656 SOURCE_FRONTEND_DEBUG
6657 (("Completing `%s' `throws' argument node",
6658 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_WFL (dep)))));
8b27f225
PB		 6659 break;
6660
6661 default:
6662 fatal ("Can't handle patch code %d - java_complete_class",
6663 JDEP_KIND (dep));
6664 }
6665 }
6666 }
6667 pop_obstacks ();
6668 return;
6669}
6670
6671/* Resolve class CLASS_TYPE. Handle the case of trying to resolve an
6672 array. */
6673
6674static tree
6675resolve_class (class_type, decl, cl)
6676 tree class_type, decl, cl;
6677{
6678 char *name = IDENTIFIER_POINTER (TYPE_NAME (class_type));
6679 char *base = name;
6680 tree resolved_type, resolved_type_decl;
6681
6682 /* 1- Check to see if we have an array. If true, find what we really
6683 want to resolve */
6684 while (name[0] == '[')
6685 name++;
6686 if (base != name)
6687 TYPE_NAME (class_type) = get_identifier (name);
6688
6689 /* 2- Resolve the bare type */
6690 if (!(resolved_type_decl = do_resolve_class (class_type, decl, cl)))
6691 return NULL_TREE;
6692 resolved_type = TREE_TYPE (resolved_type_decl);
6693
6694 /* 3- If we have and array, reconstruct the array down to its nesting */
6695 if (base != name)
6696 {
6697 while (base != name)
6698 {
6699 if (TREE_CODE (resolved_type) == RECORD_TYPE)
6700 resolved_type = promote_type (resolved_type);
6701 resolved_type = build_java_array_type (resolved_type, -1);
6702 CLASS_LOADED_P (resolved_type) = 1;
6703 name--;
6704 }
6705 /* Build a fake decl for this, since this is what is expected to
6706 be returned. */
6707 resolved_type_decl =
6708 build_decl (TYPE_DECL, TYPE_NAME (resolved_type), resolved_type);
6709 /* Figure how those two things are important for error report. FIXME */
6710 DECL_SOURCE_LINE (resolved_type_decl) = 0;
6711 DECL_SOURCE_FILE (resolved_type_decl) = input_filename;
6712 }
6713 return resolved_type_decl;
6714}
6715
6716/* Effectively perform the resolution of class CLASS_TYPE. DECL or CL
6717 are used to report error messages. */
6718
6719static tree
6720do_resolve_class (class_type, decl, cl)
6721 tree class_type;
6722 tree decl;
6723 tree cl;
6724{
6725 tree new_class_decl;
6726 tree original_name = NULL_TREE;
6727
6728 /* Do not try to replace TYPE_NAME (class_type) by a variable, since
6729 its is changed by find_in_imports{_on_demand} */
6730
6731 /* 1- Check for the type in single imports */
6732 if (find_in_imports (class_type))
6733 return NULL_TREE;
6734
6735 /* 2- And check for the type in the current compilation unit. If it fails,
6736 try with a name qualified with the package name if appropriate. */
8b27f225
PB		 6737 if ((new_class_decl = IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type))))
6738 {
6739 if (!CLASS_LOADED_P (TREE_TYPE (new_class_decl)) &&
6740 !CLASS_FROM_SOURCE_P (TREE_TYPE (new_class_decl)))
6741 load_class (TYPE_NAME (class_type), 0);
6742 return IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type));
6743 }
6744
6745 original_name = TYPE_NAME (class_type);
6746 if (!QUALIFIED_P (TYPE_NAME (class_type)) && ctxp->package)
6747 TYPE_NAME (class_type) = merge_qualified_name (ctxp->package,
6748 TYPE_NAME (class_type));
5e942c50
APB		 6749 if (!(new_class_decl = IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type))))
6750 load_class (TYPE_NAME (class_type), 0);
8b27f225
PB		 6751 if ((new_class_decl = IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type))))
6752 {
6753 if (!CLASS_LOADED_P (TREE_TYPE (new_class_decl)) &&
6754 !CLASS_FROM_SOURCE_P (TREE_TYPE (new_class_decl)))
6755 load_class (TYPE_NAME (class_type), 0);
6756 return IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type));
6757 }
6758 TYPE_NAME (class_type) = original_name;
6759
6760 /* 3- Check an other compilation unit that bears the name of type */
6761 load_class (TYPE_NAME (class_type), 0);
6762 if (check_pkg_class_access (TYPE_NAME (class_type),
6763 (cl ? cl : lookup_cl (decl))))
6764 return NULL_TREE;
6765
6766 if ((new_class_decl = IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type))))
6767 return new_class_decl;
6768
6769 /* 4- Check the import on demands. Don't allow bar.baz to be
6770 imported from foo.* */
6771 if (!QUALIFIED_P (TYPE_NAME (class_type)))
6772 if (find_in_imports_on_demand (class_type))
6773 return NULL_TREE;
6774
6775 /* 5- Last call for a resolution */
6776 return IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type));
6777}
6778
6779/* Resolve NAME and lay it out (if not done and if not the current
23a79c61
APB		 6780 parsed class). Return a decl node. This function is meant to be
6781 called when type resolution is necessary during the walk pass. */
8b27f225
PB		 6782
6783static tree
c877974e
APB		 6784resolve_and_layout (something, cl)
6785 tree something;
8b27f225
PB		 6786 tree cl;
6787{
c877974e
APB		 6788 tree decl;
6789
23a79c61
APB		 6790 /* Don't do that on the current class */
6791 if (something == current_class)
6792 return TYPE_NAME (current_class);
c877974e 6793
23a79c61 6794 /* Don't do anything for void and other primitive types */
c877974e
APB		 6795 if (JPRIMITIVE_TYPE_P (something) || something == void_type_node)
6796 return NULL_TREE;
6797
23a79c61
APB		 6798 /* Pointer types can be reall pointer types or fake pointers. When
6799 finding a real pointer, recheck for primitive types */
6800 if (TREE_CODE (something) == POINTER_TYPE)
6801 {
6802 if (TREE_TYPE (something))
6803 {
6804 something = TREE_TYPE (something);
6805 if (JPRIMITIVE_TYPE_P (something) || something == void_type_node)
6806 return NULL_TREE;
6807 }
6808 else
6809 something = TYPE_NAME (something);
6810 }
6811
6812 /* Don't do anything for arrays of primitive types */
6813 if (TREE_CODE (something) == RECORD_TYPE && TYPE_ARRAY_P (something)
6814 && JPRIMITIVE_TYPE_P (TYPE_ARRAY_ELEMENT (something)))
6815 return NULL_TREE;
6816
6817 /* If something is not and IDENTIFIER_NODE, it can be a a TYPE_DECL
6818 or a real TYPE */
c877974e
APB		 6819 if (TREE_CODE (something) != IDENTIFIER_NODE)
6820 something = (TREE_CODE (TYPE_NAME (something)) == TYPE_DECL ?
6821 DECL_NAME (TYPE_NAME (something)) : TYPE_NAME (something));
6822
23a79c61
APB		 6823 if (!(decl = resolve_no_layout (something, cl)))
6824 return NULL_TREE;
6825
6826 /* Resolve and layout if necessary */
6827 layout_class_methods (TREE_TYPE (decl));
6828 if (CLASS_FROM_SOURCE_P (TREE_TYPE (decl)))
6829 CHECK_METHODS (decl);
6830 if (TREE_TYPE (decl) != current_class && !CLASS_LOADED_P (TREE_TYPE (decl)))
8b27f225 6831 safe_layout_class (TREE_TYPE (decl));
23a79c61 6832
8b27f225
PB		 6833 return decl;
6834}
6835
6836/* Resolve a class, returns its decl but doesn't perform any
6837 layout. The current parsing context is saved and restored */
6838
6839static tree
6840resolve_no_layout (name, cl)
6841 tree name, cl;
6842{
6843 tree ptr, decl;
6844 BUILD_PTR_FROM_NAME (ptr, name);
6845 java_parser_context_save_global ();
6846 decl = resolve_class (ptr, NULL_TREE, cl);
6847 java_parser_context_restore_global ();
6848
6849 return decl;
6850}
6851
23a79c61 6852/* Called when reporting errors. Skip leader '[' in a complex array
82371d41 6853 type description that failed to be resolved. */
8b27f225
PB		 6854
6855static char *
6856purify_type_name (name)
6857 char *name;
6858{
6859 while (*name && *name == '[')
6860 name++;
6861 return name;
6862}
6863
6864/* The type CURRENT refers to can't be found. We print error messages. */
6865
6866static void
6867complete_class_report_errors (dep)
6868 jdep *dep;
6869{
23a79c61
APB		 6870 char *name;
6871
6872 if (!JDEP_WFL (dep))
6873 return;
6874
6875 name = IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_WFL (dep)));
8b27f225
PB		 6876 switch (JDEP_KIND (dep))
6877 {
6878 case JDEP_SUPER:
6879 parse_error_context
6880 (JDEP_WFL (dep), "Superclass `%s' of class `%s' not found",
23a79c61 6881 purify_type_name (name),
8b27f225
PB		 6882 IDENTIFIER_POINTER (DECL_NAME (JDEP_DECL (dep))));
6883 break;
6884 case JDEP_FIELD:
6885 parse_error_context
6886 (JDEP_WFL (dep), "Type `%s' not found in declaration of field `%s'",
23a79c61 6887 purify_type_name (name),
8b27f225
PB		 6888 IDENTIFIER_POINTER (DECL_NAME (JDEP_DECL (dep))));
6889 break;
6890 case JDEP_METHOD: /* Covers arguments */
6891 parse_error_context
6892 (JDEP_WFL (dep), "Type `%s' not found in the declaration of the "
6893 "argument `%s' of method `%s'",
23a79c61 6894 purify_type_name (name),
8b27f225
PB		 6895 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_DECL_WFL (dep))),
6896 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_MISC (dep))));
6897 break;
6898 case JDEP_METHOD_RETURN: /* Covers return type */
6899 parse_error_context
6900 (JDEP_WFL (dep), "Type `%s' not found in the declaration of the "
6901 "return type of method `%s'",
23a79c61 6902 purify_type_name (name),
8b27f225
PB		 6903 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_DECL_WFL (dep))));
6904 break;
6905 case JDEP_INTERFACE:
6906 parse_error_context
6907 (JDEP_WFL (dep), "Superinterface `%s' of %s `%s' not found",
6908 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_WFL (dep))),
6909 (CLASS_OR_INTERFACE (JDEP_DECL (dep), "class", "interface")),
6910 IDENTIFIER_POINTER (DECL_NAME (JDEP_DECL (dep))));
6911 break;
6912 case JDEP_VARIABLE:
6913 parse_error_context
6914 (JDEP_WFL (dep), "Type `%s' not found in the declaration of the "
6915 "local variable `%s'",
6916 purify_type_name (IDENTIFIER_POINTER
6917 (EXPR_WFL_NODE (JDEP_WFL (dep)))),
6918 IDENTIFIER_POINTER (DECL_NAME (JDEP_DECL (dep))));
6919 break;
6920 case JDEP_EXCEPTION: /* As specified by `throws' */
6921 parse_error_context
6922 (JDEP_WFL (dep), "Class `%s' not found in `throws'",
6923 IDENTIFIER_POINTER (EXPR_WFL_NODE (JDEP_WFL (dep))));
6924 break;
6925 default:
6926 /* Fix for -Wall. Just break doing nothing. The error will be
6927 caught later */
6928 break;
6929 }
6930}
6931
6932/* Check uninitialized final. */
6933
6934void
6935java_check_final ()
6936{
6937}
6938
22eed1e6
APB		 6939/* Return a static string containing the DECL prototype string. If
6940 DECL is a constructor, use the class name instead of the form
6941 <init> */
6942
6943static char *
6944get_printable_method_name (decl)
6945 tree decl;
6946{
6947 char *to_return;
6948 tree name;
6949
6950 if (DECL_CONSTRUCTOR_P (decl))
6951 {
6952 name = DECL_NAME (decl);
5e942c50 6953 DECL_NAME (decl) = DECL_NAME (TYPE_NAME (DECL_CONTEXT (decl)));
22eed1e6
APB		 6954 }
6955
6956 to_return = lang_printable_name (decl, 0);
6957 if (DECL_CONSTRUCTOR_P (decl))
6958 DECL_NAME (decl) = name;
6959
6960 return to_return;
6961}
6962
5e942c50
APB		 6963/* Reinstall the proper DECL_NAME on METHOD. Return 0 if the method
6964 nevertheless needs to be verfied, 1 otherwise. */
6965
6966static int
6967reset_method_name (method)
6968 tree method;
6969{
6970 if (DECL_NAME (method) != clinit_identifier_node
6971 && DECL_NAME (method) != finit_identifier_node)
6972 {
6973 /* NAME is just the plain name when Object is being defined */
6974 if (DECL_CONTEXT (method) != object_type_node)
c877974e
APB		 6975 DECL_NAME (method) = (DECL_CONSTRUCTOR_P (method) ?
6976 init_identifier_node : GET_METHOD_NAME (method));
5e942c50
APB		 6977 return 0;
6978 }
6979 else
6980 return 1;
6981}
6982
c877974e
APB		 6983/* Return the name of METHOD_DECL, when DECL_NAME is a WFL */
6984
6985tree
6986java_get_real_method_name (method_decl)
6987 tree method_decl;
6988{
6989 tree method_name = DECL_NAME (method_decl);
6990 if (DECL_CONSTRUCTOR_P (method_decl))
6991 return init_identifier_node;
82371d41
APB		 6992
6993 /* Explain here why METHOD_DECL doesn't have the DECL_CONSTRUCTUR_P
6994 and still can be a constructor. FIXME */
6995
23a79c61
APB		 6996 /* Don't confuse method only bearing the name of their class as
6997 constructors */
82371d41
APB		 6998 else if (!CLASS_FROM_SOURCE_P (DECL_CONTEXT (method_decl))
6999 && ctxp
7000 && ctxp->current_parsed_class_un == EXPR_WFL_NODE (method_name)
23a79c61
APB		 7001 && get_access_flags_from_decl (method_decl) <= ACC_PROTECTED
7002 && TREE_TYPE (TREE_TYPE (method_decl)) == void_type_node)
c877974e
APB		 7003 return init_identifier_node;
7004 else
7005 return EXPR_WFL_NODE (method_name);
7006}
7007
22eed1e6
APB		 7008/* Track method being redefined inside the same class. As a side
7009 effect, set DECL_NAME to an IDENTIFIER (prior entering this
7010 function it's a FWL, so we can track errors more accurately */
7011
8b27f225
PB		 7012static int
7013check_method_redefinition (class, method)
7014 tree class, method;
7015{
7016 tree redef, name;
7017 tree cl = DECL_NAME (method);
c3f2a476 7018 tree sig = TYPE_ARGUMENT_SIGNATURE (TREE_TYPE (method));
ac825856 7019 /* decl name of artificial <clinit> and $finit$ doesn't need to be fixed and
8b27f225 7020 checked */
5e942c50
APB		 7021
7022 /* Reset the method name before running the check. If it returns 1,
7023 the method doesn't need to be verified with respect to method
7024 redeclaration and we return 0 */
7025 if (reset_method_name (method))
8b27f225 7026 return 0;
5e942c50
APB		 7027
7028 name = DECL_NAME (method);
8b27f225
PB		 7029 for (redef = TYPE_METHODS (class); redef; redef = TREE_CHAIN (redef))
7030 {
c3f2a476 7031 if (redef == method)
8b27f225 7032 break;
c3f2a476
APB		 7033 if (DECL_NAME (redef) == name
7034 && sig == TYPE_ARGUMENT_SIGNATURE (TREE_TYPE (redef)))
8b27f225 7035 {
22eed1e6
APB		 7036 parse_error_context
7037 (cl, "Duplicate %s declaration `%s'",
7038 (DECL_CONSTRUCTOR_P (redef) ? "constructor" : "method"),
7039 get_printable_method_name (redef));
8b27f225
PB		 7040 return 1;
7041 }
7042 }
7043 return 0;
7044}
7045
7046/* Check all the methods of CLASS. Methods are first completed then
7047 checked according to regular method existance rules.
7048 If no constructor were encountered, then build its declaration. */
7049
7050static void
7051java_check_regular_methods (class_decl)
7052 tree class_decl;
7053{
5e942c50 7054 int saw_constructor = 0;
8b27f225
PB		 7055 tree method;
7056 tree class = CLASS_TO_HANDLE_TYPE (TREE_TYPE (class_decl));
7057 tree super_class = CLASSTYPE_SUPER (class);
5e942c50 7058 tree saved_found_wfl = NULL_TREE, found = NULL_TREE;
c877974e
APB		 7059 tree mthrows;
7060
7061 /* It is not necessary to check methods defined in java.lang.Object */
7062 if (class == object_type_node)
7063 return;
8b27f225 7064
23a79c61
APB		 7065 if (!TYPE_NVIRTUALS (class))
7066 TYPE_METHODS (class) = nreverse (TYPE_METHODS (class));
8b27f225
PB		 7067
7068 /* Should take interfaces into account. FIXME */
7069 for (method = TYPE_METHODS (class); method; method = TREE_CHAIN (method))
7070 {
5e942c50 7071 tree sig;
8b27f225
PB		 7072 tree method_wfl = DECL_NAME (method);
7073 int aflags;
7074
5e942c50
APB		 7075 /* If we previously found something and its name was saved,
7076 reinstall it now */
7077 if (found && saved_found_wfl)
7078 DECL_NAME (found) = saved_found_wfl;
7079
8b27f225
PB		 7080 /* Check for redefinitions */
7081 if (check_method_redefinition (class, method))
7082 continue;
7083
22eed1e6
APB		 7084 /* If we see one constructor a mark so we don't generate the
7085 default one. Also skip other verifications: constructors
7086 can't be inherited hence hiden or overriden */
7087 if (DECL_CONSTRUCTOR_P (method))
7088 {
7089 saw_constructor = 1;
7090 continue;
7091 }
7092
c877974e
APB		 7093 /* We verify things thrown by the method. They must inherits from
7094 java.lang.Throwable */
7095 for (mthrows = DECL_FUNCTION_THROWS (method);
7096 mthrows; mthrows = TREE_CHAIN (mthrows))
7097 {
7098 if (!inherits_from_p (TREE_VALUE (mthrows), throwable_type_node))
7099 parse_error_context
7100 (TREE_PURPOSE (mthrows), "Class `%s' in `throws' clause must be "
7101 "a subclass of class `java.lang.Throwable'",
7102 IDENTIFIER_POINTER
7103 (DECL_NAME (TYPE_NAME (TREE_VALUE (mthrows)))));
7104 }
7105
8b27f225 7106 sig = build_java_argument_signature (TREE_TYPE (method));
8b27f225
PB		 7107 found = lookup_argument_method (super_class, DECL_NAME (method), sig);
7108
5e942c50 7109 /* Nothing overrides or it's a private method. */
8b27f225 7110 if (!found || (found && METHOD_PRIVATE (found)))
5e942c50
APB		 7111 continue;
7112
7113 /* If found wasn't verified, it's DECL_NAME won't be set properly.
7114 We set it temporarily for the sake of the error report. */
7115 saved_found_wfl = DECL_NAME (found);
7116 reset_method_name (found);
7117
8b27f225
PB		 7118 /* Can't override a method with the same name and different return
7119 types. */
7120 if (TREE_TYPE (TREE_TYPE (found)) != TREE_TYPE (TREE_TYPE (method)))
7121 {
7122 char *t = strdup (lang_printable_name (TREE_TYPE (TREE_TYPE (found)),
7123 0));
7124 parse_error_context
7125 (method_wfl,
7126 "Method `%s' was defined with return type `%s' in class `%s'",
7127 lang_printable_name (found, 0), t,
7128 IDENTIFIER_POINTER
7129 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7130 free (t);
7131 }
7132
7133 /* Can't override final. Can't override static. */
7134 if (METHOD_FINAL (found) || METHOD_STATIC (found))
7135 {
7136 /* Static *can* override static */
7137 if (METHOD_STATIC (found) && METHOD_STATIC (method))
7138 continue;
7139 parse_error_context
7140 (method_wfl,
7141 "%s methods can't be overriden. Method `%s' is %s in class `%s'",
7142 (METHOD_FINAL (found) ? "Final" : "Static"),
7143 lang_printable_name (found, 0),
7144 (METHOD_FINAL (found) ? "final" : "static"),
7145 IDENTIFIER_POINTER
7146 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7147 continue;
7148 }
7149 /* Static method can't override instance method. */
7150 if (METHOD_STATIC (method))
7151 {
7152 parse_error_context
7153 (method_wfl,
7154 "Instance methods can't be overriden by a static method. Method "
7155 "`%s' is an instance method in class `%s'",
7156 lang_printable_name (found, 0),
7157 IDENTIFIER_POINTER
7158 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7159 continue;
7160 }
5e942c50
APB		 7161
7162 aflags = get_access_flags_from_decl (found);
7163 /* - Overriding/hiding public must be public
7164 - Overriding/hiding protected must be protected or public
7165 - If the overriden or hidden method has default (package)
7166 access, then the overriding or hiding method must not be
7167 private; otherwise, a compile-time error occurs */
7168 if ((METHOD_PUBLIC (found) && !METHOD_PUBLIC (method))
7169 || (METHOD_PROTECTED (found)
7170 && !(METHOD_PUBLIC (method) || METHOD_PROTECTED (method)))
7171 || (!(aflags & (ACC_PUBLIC | ACC_PRIVATE | ACC_STATIC))
7172 && METHOD_PRIVATE (method)))
8b27f225
PB		 7173 {
7174 parse_error_context
7175 (method_wfl,
7176 "Methods can't be overridden to be more private. Method `%s' is "
5e942c50
APB		 7177 "not %s in class `%s'", lang_printable_name (method, 0),
7178 (METHOD_PUBLIC (method) ? "public" :
7179 (METHOD_PRIVATE (method) ? "private" : "protected")),
7180 IDENTIFIER_POINTER (DECL_NAME
7181 (TYPE_NAME (DECL_CONTEXT (found)))));
8b27f225
PB		 7182 continue;
7183 }
7184
7185 /* Overriding methods must have compatible `throws' clauses on checked
7186 exceptions, if any */
7187 check_throws_clauses (method, method_wfl, found);
7188
7189 /* If the method has default access in an other package, then
7190 issue a warning that the current method doesn't override the
5e942c50
APB		 7191 one that was found elsewhere. Do not issue this warning when
7192 the match was found in java.lang.Object. */
7193 if (DECL_CONTEXT (found) != object_type_node
7194 && (!aflags || (aflags > ACC_PROTECTED))
c877974e
APB		 7195 && !class_in_current_package (DECL_CONTEXT (found))
7196 && flag_not_overriding)
8b27f225
PB		 7197 parse_warning_context
7198 (method_wfl, "Method `%s' in class `%s' does not "
7199 "override the corresponding method in class `%s', which is "
7200 "private to a different package",
7201 lang_printable_name (found, 0),
7202 IDENTIFIER_POINTER (DECL_NAME (class_decl)),
7203 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7204
8b27f225
PB		 7205 /* Inheriting multiple methods with the same signature. FIXME */
7206 }
7207
5e942c50
APB		 7208 /* Don't forget eventual pending found and saved_found_wfl. Take
7209 into account that we might have exited because we saw an
7210 aritifical method as the last entry. */
7211
7212 if (found && !DECL_ARTIFICIAL (found) && saved_found_wfl)
7213 DECL_NAME (found) = saved_found_wfl;
7214
23a79c61
APB		 7215 if (!TYPE_NVIRTUALS (class))
7216 TYPE_METHODS (class) = nreverse (TYPE_METHODS (class));
8b27f225 7217
22eed1e6 7218 if (!saw_constructor)
8b27f225 7219 {
23a79c61
APB		 7220 /* No constructor seen, we craft one, at line 0. Since this
7221 operation takes place after we laid methods out
7222 (layout_class_methods), we prepare the its DECL
7223 appropriately. */
22eed1e6
APB		 7224 int flags;
7225 tree decl;
7226
7227 /* If the class is declared PUBLIC, the default constructor is
7228 PUBLIC otherwise it has default access implied by no access
7229 modifiers. */
7230 flags = (get_access_flags_from_decl (class_decl) & ACC_PUBLIC ?
7231 ACC_PUBLIC : 0);
7232 decl = create_artificial_method (class, flags, void_type_node,
82371d41 7233 init_identifier_node, end_params_node);
8b27f225 7234 DECL_CONSTRUCTOR_P (decl) = 1;
23a79c61 7235 layout_class_method (TREE_TYPE (class_decl), NULL_TREE, decl, NULL_TREE);
8b27f225
PB		 7236 }
7237}
7238
7239/* Return a non zero value if the `throws' clause of METHOD (if any)
7240 is incompatible with the `throws' clause of FOUND (if any). */
7241
7242static void
7243check_throws_clauses (method, method_wfl, found)
7244 tree method, method_wfl, found;
7245{
7246 tree mthrows, fthrows;
7247
c877974e
APB		 7248 /* Can't check these things with class loaded from bytecode. FIXME */
7249 if (!CLASS_FROM_SOURCE_P (DECL_CONTEXT (found)))
7250 return;
7251
8b27f225
PB		 7252 for (mthrows = DECL_FUNCTION_THROWS (method);
7253 mthrows; mthrows = TREE_CHAIN (mthrows))
7254 {
7255 /* We don't verify unchecked expressions */
c877974e 7256 if (IS_UNCHECKED_EXCEPTION_P (TREE_VALUE (mthrows)))
8b27f225
PB		 7257 continue;
7258 /* Checked expression must be compatible */
7259 for (fthrows = DECL_FUNCTION_THROWS (found);
7260 fthrows; fthrows = TREE_CHAIN (fthrows))
7261 if (inherits_from_p (TREE_VALUE (mthrows), TREE_VALUE (fthrows)))
7262 break;
7263 if (!fthrows)
7264 {
7265 parse_error_context
7266 (method_wfl, "Invalid checked exception class `%s' in "
7267 "`throws' clause. The exception must be a subclass of an "
7268 "exception thrown by `%s' from class `%s'",
7269 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (TREE_VALUE (mthrows)))),
7270 lang_printable_name (found, 0),
7271 IDENTIFIER_POINTER
7272 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7273 }
7274 }
7275}
7276
7277/* Check abstract method of interface INTERFACE */
7278
7279static void
5e942c50
APB		 7280java_check_abstract_methods (interface_decl)
7281 tree interface_decl;
8b27f225
PB		 7282{
7283 int i, n;
7284 tree method, basetype_vec, found;
5e942c50 7285 tree interface = TREE_TYPE (interface_decl);
8b27f225
PB		 7286
7287 for (method = TYPE_METHODS (interface); method; method = TREE_CHAIN (method))
7288 {
7289 tree method_wfl = DECL_NAME (method);
7290
7291 /* 2- Check for double definition inside the defining interface */
7292 if (check_method_redefinition (interface, method))
7293 continue;
7294
7295 /* 3- Overriding is OK as far as we preserve the return type and
7296 the thrown exceptions (FIXME) */
7297 found = lookup_java_interface_method2 (interface, method);
7298 if (found)
7299 {
5e942c50
APB		 7300 char *t;
7301 tree saved_found_wfl = DECL_NAME (found);
7302 reset_method_name (found);
7303 t = strdup (lang_printable_name (TREE_TYPE (TREE_TYPE (found)), 0));
8b27f225
PB		 7304 parse_error_context
7305 (method_wfl,
5e942c50 7306 "Method `%s' was defined with return type `%s' in class `%s'",
8b27f225
PB		 7307 lang_printable_name (found, 0), t,
7308 IDENTIFIER_POINTER
7309 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7310 free (t);
7311 continue;
5e942c50
APB		 7312
7313 DECL_NAME (found) = saved_found_wfl;
8b27f225
PB		 7314 }
7315 }
7316
7317 /* 4- Inherited methods can't differ by their returned types */
7318 if (!(basetype_vec = TYPE_BINFO_BASETYPES (interface)))
7319 return;
7320 n = TREE_VEC_LENGTH (basetype_vec);
7321 for (i = 0; i < n; i++)
7322 {
7323 tree sub_interface_method, sub_interface;
7324 tree vec_elt = TREE_VEC_ELT (basetype_vec, i);
7325 if (!vec_elt)
7326 continue;
7327 sub_interface = BINFO_TYPE (vec_elt);
7328 for (sub_interface_method = TYPE_METHODS (sub_interface);
7329 sub_interface_method;
7330 sub_interface_method = TREE_CHAIN (sub_interface_method))
7331 {
7332 found = lookup_java_interface_method2 (interface,
7333 sub_interface_method);
7334 if (found && (found != sub_interface_method))
5e942c50
APB		 7335 {
7336 tree saved_found_wfl = DECL_NAME (found);
7337 reset_method_name (found);
7338 parse_error_context
7339 (lookup_cl (sub_interface_method),
7340 "Interface `%s' inherits method `%s' from interface `%s'. "
7341 "This method is redefined with a different return type in "
7342 "interface `%s'",
7343 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (interface))),
7344 lang_printable_name (found, 0),
7345 IDENTIFIER_POINTER
7346 (DECL_NAME (TYPE_NAME
7347 (DECL_CONTEXT (sub_interface_method)))),
7348 IDENTIFIER_POINTER
7349 (DECL_NAME (TYPE_NAME (DECL_CONTEXT (found)))));
7350 DECL_NAME (found) = saved_found_wfl;
7351 }
8b27f225
PB		 7352 }
7353 }
7354}
7355
8b27f225
PB		 7356/* Lookup methods in interfaces using their name and partial
7357 signature. Return a matching method only if their types differ. */
7358
7359static tree
7360lookup_java_interface_method2 (class, method_decl)
7361 tree class, method_decl;
7362{
7363 int i, n;
7364 tree basetype_vec = TYPE_BINFO_BASETYPES (class), to_return;
7365
7366 if (!basetype_vec)
7367 return NULL_TREE;
7368
7369 n = TREE_VEC_LENGTH (basetype_vec);
7370 for (i = 0; i < n; i++)
7371 {
7372 tree vec_elt = TREE_VEC_ELT (basetype_vec, i), to_return;
7373 if ((BINFO_TYPE (vec_elt) != object_type_node)
7374 && (to_return =
7375 lookup_java_method2 (BINFO_TYPE (vec_elt), method_decl, 1)))
7376 return to_return;
7377 }
7378 for (i = 0; i < n; i++)
7379 {
7380 to_return = lookup_java_interface_method2
7381 (BINFO_TYPE (TREE_VEC_ELT (basetype_vec, i)), method_decl);
7382 if (to_return)
7383 return to_return;
7384 }
7385
7386 return NULL_TREE;
7387}
7388
7389/* Lookup method using their name and partial signature. Return a
7390 matching method only if their types differ. */
7391
7392static tree
7393lookup_java_method2 (clas, method_decl, do_interface)
7394 tree clas, method_decl;
7395 int do_interface;
7396{
5e942c50
APB		 7397 tree method, method_signature, method_name, method_type, name;
7398
8b27f225 7399 method_signature = build_java_argument_signature (TREE_TYPE (method_decl));
5e942c50
APB		 7400 name = DECL_NAME (method_decl);
7401 method_name = (TREE_CODE (name) == EXPR_WITH_FILE_LOCATION ?
7402 EXPR_WFL_NODE (name) : name);
8b27f225
PB		 7403 method_type = TREE_TYPE (TREE_TYPE (method_decl));
7404
7405 while (clas != NULL_TREE)
7406 {
7407 for (method = TYPE_METHODS (clas);
7408 method != NULL_TREE; method = TREE_CHAIN (method))
7409 {
7410 tree method_sig = build_java_argument_signature (TREE_TYPE (method));
5e942c50
APB		 7411 tree name = DECL_NAME (method);
7412 if ((TREE_CODE (name) == EXPR_WITH_FILE_LOCATION ?
7413 EXPR_WFL_NODE (name) : name) == method_name
8b27f225
PB		 7414 && method_sig == method_signature
7415 && TREE_TYPE (TREE_TYPE (method)) != method_type)
5e942c50 7416 return method;
8b27f225
PB		 7417 }
7418 clas = (do_interface ? NULL_TREE : CLASSTYPE_SUPER (clas));
7419 }
7420 return NULL_TREE;
7421}
7422
7423/* Return the line that matches DECL line number. Used during error
7424 report */
7425
7426static tree
7427lookup_cl (decl)
7428 tree decl;
7429{
7430 static tree cl = NULL_TREE;
7431
7432 if (!decl)
7433 return NULL_TREE;
7434
7435 if (cl == NULL_TREE)
7436 cl = build_expr_wfl (NULL_TREE, NULL, 0, 0);
7437
7438 EXPR_WFL_FILENAME_NODE (cl) = get_identifier (DECL_SOURCE_FILE (decl));
7439 EXPR_WFL_SET_LINECOL (cl, DECL_SOURCE_LINE_FIRST (decl), -1);
7440
7441 return cl;
7442}
7443
7444/* Look for a simple name in the single-type import list */
7445
7446static tree
7447find_name_in_single_imports (name)
7448 tree name;
7449{
7450 tree node;
7451
7452 for (node = ctxp->import_list; node; node = TREE_CHAIN (node))
7453 if (TREE_VALUE (node) == name)
7454 return (EXPR_WFL_NODE (TREE_PURPOSE (node)));
7455
7456 return NULL_TREE;
7457}
7458
7459/* Process all single-type import. */
7460
7461static int
7462process_imports ()
7463{
7464 tree import;
7465 int error_found;
7466
7467 for (import = ctxp->import_list; import; import = TREE_CHAIN (import))
7468 {
7469 tree to_be_found = EXPR_WFL_NODE (TREE_PURPOSE (import));
7470
7471 /* Don't load twice something already defined. */
7472 if (IDENTIFIER_CLASS_VALUE (to_be_found))
7473 continue;
7474 QUALIFIED_P (to_be_found) = 1;
7475 load_class (to_be_found, 0);
7476 error_found =
7477 check_pkg_class_access (to_be_found, TREE_PURPOSE (import));
7478 if (!IDENTIFIER_CLASS_VALUE (to_be_found))
7479 {
7480 parse_error_context (TREE_PURPOSE (import),
7481 "Class or interface `%s' not found in import",
7482 IDENTIFIER_POINTER (to_be_found));
7483 return 1;
7484 }
7485 if (error_found)
7486 return 1;
7487 }
7488 return 0;
7489}
7490
7491/* Possibly find a class imported by a single-type import statement. Return
7492 1 if an error occured, 0 otherwise. */
7493
7494static int
7495find_in_imports (class_type)
7496 tree class_type;
7497{
7498 tree import;
7499
7500 for (import = ctxp->import_list; import; import = TREE_CHAIN (import))
7501 if (TREE_VALUE (import) == TYPE_NAME (class_type))
7502 {
7503 TYPE_NAME (class_type) = EXPR_WFL_NODE (TREE_PURPOSE (import));
7504 QUALIFIED_P (TYPE_NAME (class_type)) = 1;
8b27f225
PB		 7505 }
7506 return 0;
7507}
7508
8b27f225 7509static int
63a212ed
PB		 7510note_possible_classname (name, len)
7511 char *name;
7512 int len;
8b27f225 7513{
63a212ed
PB		 7514 tree node;
7515 if (len > 5 && strncmp (&name [len-5], ".java", 5) == 0)
7516 len = len - 5;
7517 else if (len > 6 && strncmp (&name [len-6], ".class", 6) == 0)
7518 len = len - 6;
8b27f225 7519 else
63a212ed
PB		 7520 return 0;
7521 node = ident_subst (name, len, "", '/', '.', "");
7522 IS_A_CLASSFILE_NAME (node) = 1; /* Or soon to be */
7523 QUALIFIED_P (node) = 1; /* As soon as we turn / into . */
7524 return 1;
8b27f225
PB		 7525}
7526
7527/* Read a import directory, gathering potential match for further type
7528 references. Indifferently reads a filesystem or a ZIP archive
7529 directory. */
7530
7531static void
7532read_import_dir (wfl)
7533 tree wfl;
7534{
63a212ed
PB		 7535 tree package_id = EXPR_WFL_NODE (wfl);
7536 char *package_name = IDENTIFIER_POINTER (package_id);
7537 int package_length = IDENTIFIER_LENGTH (package_id);
8b27f225
PB		 7538 DIR *dirp = NULL;
7539 JCF jcfr, *jcf, *saved_jcf = current_jcf;
8b27f225 7540
63a212ed
PB		 7541 int found = 0;
7542 int k;
7543 void *entry;
7544 struct buffer filename[1];
7545
8b27f225 7546
63a212ed
PB		 7547 if (IS_AN_IMPORT_ON_DEMAND_P (package_id))
7548 return;
7549 IS_AN_IMPORT_ON_DEMAND_P (package_id) = 1;
7550
7551 BUFFER_INIT (filename);
7552 buffer_grow (filename, package_length + 100);
8b27f225 7553
63a212ed
PB		 7554 for (entry = jcf_path_start (); entry != NULL; entry = jcf_path_next (entry))
7555 {
7556 char *entry_name = jcf_path_name (entry);
7557 int entry_length = strlen (entry_name);
7558 if (jcf_path_is_zipfile (entry))
7559 {
7560 ZipFile *zipf;
7561 buffer_grow (filename, entry_length);
7562 memcpy (filename->data, entry_name, entry_length - 1);
7563 filename->data[entry_length-1] = '\0';
7564 zipf = opendir_in_zip (filename->data, jcf_path_is_system (entry));
7565 if (zipf == NULL)
7566 error ("malformed .zip archive in CLASSPATH: %s", entry_name);
7567 else
7568 {
7569 ZipDirectory *zipd = (ZipDirectory *) zipf->central_directory;
7570 BUFFER_RESET (filename);
7571 for (k = 0; k < package_length; k++)
7572 {
7573 char ch = package_name[k];
7574 *filename->ptr++ = ch == '.' ? '/' : ch;
7575 }
7576 *filename->ptr++ = '/';
7577
7578 for (; k < zipf->count; k++, zipd = ZIPDIR_NEXT (zipd))
7579 {
7580 char *current_entry = ZIPDIR_FILENAME (zipd);
7581 int current_entry_len = zipd->filename_length;
7582
7583 if (strncmp (filename->data, current_entry,
7584 BUFFER_LENGTH (filename)) != 0)
7585 continue;
7586 found += note_possible_classname (current_entry,
7587 current_entry_len);
7588 }
7589 }
7590 }
7591 else
7592 {
7593 BUFFER_RESET (filename);
7594 buffer_grow (filename, entry_length + package_length + 4);
7595 strcpy (filename->data, entry_name);
7596 filename->ptr = filename->data + entry_length;
7597 for (k = 0; k < package_length; k++)
7598 {
7599 char ch = package_name[k];
7600 *filename->ptr++ = ch == '.' ? '/' : ch;
7601 }
7602 *filename->ptr = '\0';
7603
7604 dirp = opendir (filename->data);
7605 if (dirp == NULL)
7606 continue;
7607 *filename->ptr++ = '/';
7608 for (;;)
7609 {
7610 int java_or_class = 0;
7611 int len;
7612 char *d_name;
7613 struct dirent *direntp = readdir (dirp);
7614 if (!direntp)
7615 break;
7616 d_name = direntp->d_name;
7617 len = strlen (direntp->d_name);
7618 buffer_grow (filename, len+1);
7619 strcpy (filename->ptr, d_name);
7620 found += note_possible_classname (filename->data + entry_length,
7621 package_length+len+1);
7622 }
7623 if (dirp)
7624 closedir (dirp);
7625 }
7626 }
7627
7628 free (filename->data);
7629
7630 /* Here we should have a unified way of retrieving an entry, to be
7631 indexed. */
7632 if (!found)
8b27f225
PB		 7633 {
7634 static int first = 1;
7635 if (first)
7636 {
7637 char buffer [256];
7638 sprintf (buffer, "Can't find default package `%s'. Check "
7639 "the CLASSPATH environment variable and the access to the "
63a212ed 7640 "archives.", package_name);
8b27f225
PB		 7641 error (buffer);
7642 java_error_count++;
7643 first = 0;
7644 }
7645 else
63a212ed
PB		 7646 parse_error_context (wfl, "Package `%s' not found in import",
7647 package_name);
8b27f225
PB		 7648 current_jcf = saved_jcf;
7649 return;
7650 }
8b27f225
PB		 7651 current_jcf = saved_jcf;
7652}
7653
7654/* Possibly find a type in the import on demands specified
7655 types. Returns 1 if an error occured, 0 otherwise. Run throught the
7656 entire list, to detected potential double definitions. */
7657
7658static int
7659find_in_imports_on_demand (class_type)
7660 tree class_type;
7661{
7662 tree node, import, node_to_use;
7663 int seen_once = -1;
7664 tree cl;
7665
7666 for (import = ctxp->import_demand_list; import; import = TREE_CHAIN (import))
7667 {
7668 char *id_name;
7669 obstack_grow (&temporary_obstack,
7670 IDENTIFIER_POINTER (EXPR_WFL_NODE (TREE_PURPOSE (import))),
7671 IDENTIFIER_LENGTH (EXPR_WFL_NODE (TREE_PURPOSE (import))));
63a212ed 7672 obstack_1grow (&temporary_obstack, '.');
8b27f225
PB		 7673 obstack_grow0 (&temporary_obstack,
7674 IDENTIFIER_POINTER (TYPE_NAME (class_type)),
7675 IDENTIFIER_LENGTH (TYPE_NAME (class_type)));
7676 id_name = obstack_finish (&temporary_obstack);
7677
7678 node = maybe_get_identifier (id_name);
7679 if (node && IS_A_CLASSFILE_NAME (node))
7680 {
7681 if (seen_once < 0)
7682 {
7683 cl = TREE_PURPOSE (import);
7684 seen_once = 1;
7685 node_to_use = node;
7686 }
7687 else
7688 {
7689 seen_once++;
7690 parse_error_context
7691 (import, "Type `%s' also potentially defined in package `%s'",
7692 IDENTIFIER_POINTER (TYPE_NAME (class_type)),
7693 IDENTIFIER_POINTER (EXPR_WFL_NODE (TREE_PURPOSE (import))));
7694 }
7695 }
7696 }
7697
7698 if (seen_once == 1)
7699 {
7700 /* Setup lineno so that it refers to the line of the import (in
7701 case we parse a class file and encounter errors */
7702 tree decl;
7703 int saved_lineno = lineno;
7704 lineno = EXPR_WFL_LINENO (cl);
63a212ed 7705 TYPE_NAME (class_type) = node_to_use;
8b27f225
PB		 7706 QUALIFIED_P (TYPE_NAME (class_type)) = 1;
7707 decl = IDENTIFIER_CLASS_VALUE (TYPE_NAME (class_type));
7708 /* If there is no DECL set for the class or if the class isn't
7709 loaded and not seen in source yet, the load */
7710 if (!decl || (!CLASS_LOADED_P (TREE_TYPE (decl))
7711 && !CLASS_FROM_SOURCE_P (TREE_TYPE (decl))))
7712 load_class (node_to_use, 0);
7713 lineno = saved_lineno;
7714 return check_pkg_class_access (TYPE_NAME (class_type), cl);
7715 }
7716 else
7717 return (seen_once < 0 ? 0 : seen_once); /* It's ok not to have found */
7718}
7719
5e942c50
APB		 7720static tree
7721resolve_package (pkg, next)
7722 tree pkg, *next;
7723{
7724 tree type_name = NULL_TREE;
7725 char *name = IDENTIFIER_POINTER (EXPR_WFL_NODE (pkg));
7726
7727 /* The trick is to determine when the package name stops and were
7728 the name of something contained in the package starts. Then we
7729 return a fully qualified name of what we want to get. */
7730
7731 /* Do a quick search on well known package names */
7732 if (!strncmp (name, "java.lang.reflect", 17))
7733 {
7734 *next =
7735 TREE_CHAIN (TREE_CHAIN (TREE_CHAIN (EXPR_WFL_QUALIFICATION (pkg))));
7736 type_name = lookup_package_type (name, 17);
7737 }
7738 else if (!strncmp (name, "java.lang", 9))
7739 {
7740 *next = TREE_CHAIN (TREE_CHAIN (EXPR_WFL_QUALIFICATION (pkg)));
7741 type_name = lookup_package_type (name, 9);
7742 }
7743 else
7744 return NULL_TREE; /* FIXME, search all imported packages. */
7745
7746 return type_name;
7747}
7748
7749static tree
7750lookup_package_type (name, from)
7751 char *name;
7752 int from;
7753{
7754 char subname [128];
7755 char *sub = &name[from+1];
7756 while (*sub != '.' && *sub)
7757 sub++;
7758 strncpy (subname, name, sub-name);
7759 subname [sub-name] = '\0';
7760 return get_identifier (subname);
7761}
7762
8b27f225
PB		 7763/* Check that CLASS_NAME refers to a PUBLIC class. Return 0 if no
7764 access violations were found, 1 otherwise. */
7765
7766static int
7767check_pkg_class_access (class_name, cl)
7768 tree class_name;
7769 tree cl;
7770{
7771 tree type;
7772
7773 if (!QUALIFIED_P (class_name) || !IDENTIFIER_CLASS_VALUE (class_name))
7774 return 0;
7775
7776 if (!(type = TREE_TYPE (IDENTIFIER_CLASS_VALUE (class_name))))
7777 return 0;
7778
7779 if (!CLASS_PUBLIC (TYPE_NAME (type)))
7780 {
7781 parse_error_context
7782 (cl, "Can't access %s `%s'. Only public classes and interfaces in "
7783 "other packages can be accessed",
7784 (CLASS_INTERFACE (TYPE_NAME (type)) ? "interface" : "class"),
7785 IDENTIFIER_POINTER (class_name));
7786 return 1;
7787 }
7788 return 0;
7789}
7790
7791/* Local variable declaration. */
7792
7793static void
7794declare_local_variables (modifier, type, vlist)
7795 int modifier;
7796 tree type;
7797 tree vlist;
7798{
7799 tree decl, current, saved_type;
7800 tree type_wfl = NULL_TREE;
7801 int must_chain = 0;
7802
7803 /* Push a new block if statement were seen between the last time we
7804 pushed a block and now. Keep a cound of block to close */
7805 if (BLOCK_EXPR_BODY (DECL_FUNCTION_BODY (current_function_decl)))
7806 {
7807 tree body = DECL_FUNCTION_BODY (current_function_decl);
7808 tree b = enter_block ();
7809 BLOCK_EXPR_ORIGIN(b) = body;
7810 }
7811
7812 if (modifier)
7813 {
7814 int i;
7815 for (i = 0; i <= 10; i++) if (1 << i & modifier) break;
c877974e
APB		 7816 if (modifier == ACC_FINAL)
7817 {
7818 if (flag_static_local_jdk1_1)
7819 parse_warning_context (ctxp->modifier_ctx [i],
7820 "Unsupported JDK1.1 `final' local variable "
7821 "(treated as non final)");
7822 }
7823 else
7824 {
7825 parse_error_context
7826 (ctxp->modifier_ctx [i],
7827 "Only `final' is allowed as a local variables modifier");
7828 return;
7829 }
8b27f225
PB		 7830 }
7831
7832 /* Obtain an incomplete type if TYPE is not complete. TYPE_WFL will
7833 hold the TYPE value if a new incomplete has to be created (as
7834 opposed to being found already existing and reused). */
7835 SET_TYPE_FOR_RESOLUTION (type, type_wfl, must_chain);
7836
7837 /* If TYPE is fully resolved and we don't have a reference, make one */
1886c9d8 7838 PROMOTE_RECORD_IF_COMPLETE (type, must_chain);
8b27f225
PB		 7839
7840 /* Go through all the declared variables */
7841 for (current = vlist, saved_type = type; current;
7842 current = TREE_CHAIN (current), type = saved_type)
7843 {
c877974e 7844 tree other, real_type;
8b27f225
PB		 7845 tree wfl = TREE_PURPOSE (current);
7846 tree name = EXPR_WFL_NODE (wfl);
7847 tree init = TREE_VALUE (current);
7848
7849 /* Process NAME, as it may specify extra dimension(s) for it */
7850 type = build_array_from_name (type, type_wfl, name, &name);
7851
7852 /* Variable redefinition check */
7853 if ((other = lookup_name_in_blocks (name)))
7854 {
7855 variable_redefinition_error (wfl, name, TREE_TYPE (other),
7856 DECL_SOURCE_LINE (other));
7857 continue;
7858 }
7859
7860 /* Type adjustment. We may have just readjusted TYPE because
7861 the variable specified more dimensions. Make sure we have
7862 a reference if we can and don't have one already. */
1886c9d8 7863 PROMOTE_RECORD_IF_COMPLETE (type, must_chain);
c877974e
APB		 7864
7865 real_type = GET_REAL_TYPE (type);
8b27f225
PB		 7866 /* Never layout this decl. This will be done when its scope
7867 will be entered */
c877974e 7868 decl = build_decl (VAR_DECL, name, real_type);
8b27f225
PB		 7869 BLOCK_CHAIN_DECL (decl);
7870
7871 /* Don't try to use an INIT statement when an error was found */
7872 if (init && java_error_count)
7873 init = NULL_TREE;
7874
7875 /* Add the initialization function to the current function's code */
7876 if (init)
7877 {
7878 /* Name might have been readjusted */
7879 EXPR_WFL_NODE (TREE_OPERAND (init, 0)) = name;
7880 MODIFY_EXPR_FROM_INITIALIZATION_P (init) = 1;
7881 java_method_add_stmt (current_function_decl,
7882 build_debugable_stmt (EXPR_WFL_LINECOL (init),
7883 init));
7884 }
7885
7886 /* Setup dependency the type of the decl */
7887 if (must_chain)
7888 {
7889 jdep *dep;
7890 register_incomplete_type (JDEP_VARIABLE, type_wfl, decl, type);
7891 dep = CLASSD_LAST (ctxp->classd_list);
7892 JDEP_GET_PATCH (dep) = &TREE_TYPE (decl);
7893 }
7894 }
7895 SOURCE_FRONTEND_DEBUG (("Defined locals"));
7896}
7897
7898/* Called during parsing. Build decls from argument list. */
7899
7900static void
7901source_start_java_method (fndecl)
7902 tree fndecl;
7903{
7904 tree tem;
7905 tree parm_decl;
7906 int i;
7907
7908 current_function_decl = fndecl;
7909
7910 /* New scope for the function */
7911 enter_block ();
7912 for (tem = TYPE_ARG_TYPES (TREE_TYPE (fndecl)), i = 0;
82371d41 7913 tem != end_params_node; tem = TREE_CHAIN (tem), i++)
8b27f225
PB		 7914 {
7915 tree type = TREE_VALUE (tem);
7916 tree name = TREE_PURPOSE (tem);
7917
23a79c61
APB		 7918 /* If type is incomplete. Create an incomplete decl and ask for
7919 the decl to be patched later */
8b27f225
PB		 7920 if (INCOMPLETE_TYPE_P (type))
7921 {
7922 jdep *jdep;
c877974e
APB		 7923 tree real_type = GET_REAL_TYPE (type);
7924 parm_decl = build_decl (PARM_DECL, name, real_type);
23a79c61 7925 type = obtain_incomplete_type (type);
8b27f225
PB		 7926 register_incomplete_type (JDEP_PARM, NULL_TREE, NULL_TREE, type);
7927 jdep = CLASSD_LAST (ctxp->classd_list);
7928 JDEP_MISC (jdep) = name;
7929 JDEP_GET_PATCH (jdep) = &TREE_TYPE (parm_decl);
7930 }
7931 else
7932 parm_decl = build_decl (PARM_DECL, name, type);
7933
7934 BLOCK_CHAIN_DECL (parm_decl);
7935 }
7936 tem = BLOCK_EXPR_DECLS (DECL_FUNCTION_BODY (current_function_decl));
7937 BLOCK_EXPR_DECLS (DECL_FUNCTION_BODY (current_function_decl)) =
7938 nreverse (tem);
7939 DECL_ARG_SLOT_COUNT (current_function_decl) = i;
7940}
7941
22eed1e6
APB		 7942/* Called during parsing. Creates an artificial method declaration. */
7943
7944static tree
7945create_artificial_method (class, flags, type, name, args)
7946 tree class;
7947 int flags;
7948 tree type, name, args;
7949{
7950 int saved_lineno = lineno;
7951 tree mdecl;
7952
7953 lineno = 0;
7954 mdecl = make_node (FUNCTION_TYPE);
7955 TREE_TYPE (mdecl) = type;
7956 TYPE_ARG_TYPES (mdecl) = args;
7957 mdecl = add_method (class, flags, name, build_java_signature (mdecl));
7958 lineno = saved_lineno;
7959 DECL_ARTIFICIAL (mdecl) = 1;
7960 return mdecl;
7961}
7962
7963/* Starts the body if an artifical method. */
7964
7965static void
7966start_artificial_method_body (mdecl)
7967 tree mdecl;
7968{
7969 DECL_SOURCE_LINE (mdecl) = 1;
7970 DECL_SOURCE_LINE_MERGE (mdecl, 1);
7971 source_start_java_method (mdecl);
7972 enter_block ();
7973}
7974
7975static void
7976end_artificial_method_body (mdecl)
7977 tree mdecl;
7978{
7979 BLOCK_EXPR_BODY (DECL_FUNCTION_BODY (mdecl)) = exit_block ();
7980 exit_block ();
7981}
7982
8b27f225
PB		 7983/* Called during expansion. Push decls formerly built from argument
7984 list so they're usable during expansion. */
7985
7986static void
7987expand_start_java_method (fndecl)
7988 tree fndecl;
7989{
7990 tree tem, *ptr;
7991
7992 current_function_decl = fndecl;
7993
7994 announce_function (fndecl);
7995 pushlevel (1); /* Push parameters */
7996 ptr = &DECL_ARGUMENTS (fndecl);
7997 tem = BLOCK_EXPR_DECLS (DECL_FUNCTION_BODY (current_function_decl));
7998 while (tem)
7999 {
8000 tree next = TREE_CHAIN (tem);
8001 tree type = TREE_TYPE (tem);
8002#ifdef PROMOTE_PROTOTYPES
8003 if (TYPE_PRECISION (type) < TYPE_PRECISION (integer_type_node)
8004 && INTEGRAL_TYPE_P (type))
8005 type = integer_type_node;
8006#endif
8007 DECL_ARG_TYPE (tem) = type;
8008 layout_decl (tem, 0);
8009 pushdecl (tem);
8010 INITIALIZED_P (tem) = 1; /* Parms are initialized */
8011 *ptr = tem;
8012 ptr = &TREE_CHAIN (tem);
8013 tem = next;
8014 }
8015 *ptr = NULL_TREE;
8016 pushdecl_force_head (DECL_ARGUMENTS (fndecl));
8017 lineno = DECL_SOURCE_LINE_FIRST (fndecl);
8018 complete_start_java_method (fndecl);
8019}
8020
8021/* Terminate a function and expand its body. */
8022
8023static void
8024source_end_java_method ()
8025{
8026 tree fndecl = current_function_decl;
8027
8028 java_parser_context_save_global ();
8029 lineno = ctxp->last_ccb_indent1;
8030
8031 /* Set EH language codes */
8032 java_set_exception_lang_code ();
8033
8034 /* Generate function's code */
8035 if (BLOCK_EXPR_BODY (DECL_FUNCTION_BODY (fndecl))
8036 && ! flag_emit_class_files)
8037 expand_expr_stmt (BLOCK_EXPR_BODY (DECL_FUNCTION_BODY (fndecl)));
8038
8039 /* pop out of its parameters */
8040 pushdecl_force_head (DECL_ARGUMENTS (fndecl));
8041 poplevel (1, 0, 1);
8042 BLOCK_SUPERCONTEXT (DECL_INITIAL (fndecl)) = fndecl;
8043
8044 /* Generate rtl for function exit. */
8045 if (! flag_emit_class_files)
8046 {
8047 lineno = DECL_SOURCE_LINE_LAST (fndecl);
8048 /* Emit catch-finally clauses */
8049 emit_handlers ();
8050 expand_function_end (input_filename, lineno, 0);
8051
8052 /* Run the optimizers and output assembler code for this function. */
8053 rest_of_compilation (fndecl);
8054 }
8055
8056 current_function_decl = NULL_TREE;
8057 /* permanent_allocation (1); */
8058 java_parser_context_restore_global ();
8059}
8060
8061/* Record EXPR in the current function block. Complements compound
8062 expression second operand if necessary. */
8063
8064tree
8065java_method_add_stmt (fndecl, expr)
8066 tree fndecl, expr;
8067{
8068 return add_stmt_to_block (DECL_FUNCTION_BODY (fndecl), NULL_TREE, expr);
8069}
8070
8071static tree
8072add_stmt_to_block (b, type, stmt)
8073 tree b, type, stmt;
8074{
8075 tree body = BLOCK_EXPR_BODY (b), c;
8076
8077 if (java_error_count)
8078 return body;
8079
8080 if ((c = add_stmt_to_compound (body, type, stmt)) == body)
8081 return body;
8082
8083 BLOCK_EXPR_BODY (b) = c;
8084 TREE_SIDE_EFFECTS (c) = 1;
8085 return c;
8086}
8087
8088/* Add STMT to EXISTING if possible, otherwise create a new
8089 COMPOUND_EXPR and add STMT to it. */
8090
8091static tree
8092add_stmt_to_compound (existing, type, stmt)
8093 tree existing, type, stmt;
8094{
12472854
PB		 8095 if (existing)
8096 return build (COMPOUND_EXPR, type, existing, stmt);
8b27f225 8097 else
12472854 8098 return stmt;
8b27f225
PB		 8099}
8100
8101/* Hold THIS for the scope of the current public method decl. */
8102static tree current_this;
8103
1886c9d8
APB		 8104void java_layout_seen_class_methods ()
8105{
8106 tree previous_list = all_class_list;
8107 tree end = NULL_TREE;
8108 tree current;
8109
8110 while (1)
8111 {
8112 for (current = previous_list;
8113 current != end; current = TREE_CHAIN (current))
8114 layout_class_methods (TREE_TYPE (TREE_VALUE (current)));
8115
8116 if (previous_list != all_class_list)
8117 {
8118 end = previous_list;
8119 previous_list = all_class_list;
8120 }
8121 else
8122 break;
8123 }
8124}
8125
23a79c61
APB		 8126/* Layout the methods of all classes loaded in one way on an
8127 other. Check methods of source parsed classes. Then reorder the
8128 fields and layout the classes or the type of all source parsed
8129 classes */
8b27f225
PB		 8130
8131void
8132java_layout_classes ()
8133{
8134 tree current;
5e942c50 8135
23a79c61 8136 /* Layout the methods of all classes seen so far */
1886c9d8 8137 java_layout_seen_class_methods ();
23a79c61
APB		 8138 java_parse_abort_on_error ();
8139 all_class_list = NULL_TREE;
8140
8141 /* Then check the methods of all parsed classes */
8142 for (current = ctxp->gclass_list; current; current = TREE_CHAIN (current))
8143 if (CLASS_FROM_SOURCE_P (TREE_TYPE (TREE_VALUE (current))))
8144 CHECK_METHODS (TREE_VALUE (current));
8145 java_parse_abort_on_error ();
8146
5e942c50 8147 for (current = ctxp->gclass_list; current; current = TREE_CHAIN (current))
8b27f225 8148 {
5e942c50 8149 current_class = TREE_TYPE (TREE_VALUE (current));
22eed1e6 8150
c877974e
APB		 8151 /* Reverse the fields, but leave the dummy field in front.
8152 Fields are already ordered for Object and Class */
8153 if (TYPE_FIELDS (current_class) && current_class != object_type_node
8154 && current_class != class_type_node)
8155 {
23a79c61
APB		 8156 /* If the dummy field is there, reverse the right fields and
8157 just layout the type for proper fields offset */
c877974e
APB		 8158 if (!DECL_NAME (TYPE_FIELDS (current_class)))
8159 {
8160 tree fields = TYPE_FIELDS (current_class);
8161 TREE_CHAIN (fields) = nreverse (TREE_CHAIN (fields));
8162 TYPE_SIZE (current_class) = NULL_TREE;
8163 layout_type (current_class);
8164 }
23a79c61
APB		 8165 /* We don't have a dummy field, we need to layout the class,
8166 after having reversed the fields */
c877974e
APB		 8167 else
8168 {
8169 TYPE_FIELDS (current_class) =
8170 nreverse (TYPE_FIELDS (current_class));
8171 TYPE_SIZE (current_class) = NULL_TREE;
8172 layout_class (current_class);
8173 }
8174 }
23a79c61
APB		 8175 else
8176 layout_class (current_class);
5e942c50 8177
c877974e
APB		 8178 /* From now on, the class is considered completely loaded */
8179 CLASS_LOADED_P (current_class) = 1;
8180
5e942c50
APB		 8181 /* Error reported by the caller */
8182 if (java_error_count)
8183 return;
8b27f225 8184 }
23a79c61
APB		 8185
8186 /* We might have reloaded classes durign the process of laying out
8187 classes for code generation. We must layout the methods of those
8188 late additions, as constructor checks might use them */
1886c9d8 8189 java_layout_seen_class_methods ();
23a79c61 8190 java_parse_abort_on_error ();
8b27f225
PB		 8191}
8192
8193/* Expand all methods in all registered classes. */
8194
8195void
8196java_complete_expand_methods ()
8197{
8198 tree current;
8199
8200 for (current = ctxp->class_list; current; current = TREE_CHAIN (current))
8201 {
8202 tree class_type = CLASS_TO_HANDLE_TYPE (TREE_TYPE (current));
8203 tree decl;
8204
8205 current_class = TREE_TYPE (current);
8206
8207 /* Initialize a new constant pool */
8208 init_outgoing_cpool ();
8209
63a212ed
PB		 8210 /* We want <clinit> (if any) to be processed first. */
8211 decl = tree_last (TYPE_METHODS (class_type));
8212 if (decl && DECL_NAME (decl) == clinit_identifier_node)
8213 {
8214 tree list = nreverse (TYPE_METHODS (class_type));
8215 list = TREE_CHAIN (list);
8216 TREE_CHAIN (decl) = NULL_TREE;
8217 TYPE_METHODS (class_type) = chainon (decl, nreverse (list));
8218 }
8219
8b27f225
PB		 8220 /* Don't process function bodies in interfaces */
8221 if (!CLASS_INTERFACE (TYPE_NAME (current_class)))
8222 for (decl = TYPE_METHODS (class_type); decl; decl = TREE_CHAIN (decl))
8223 {
8224 current_function_decl = decl;
8225 /* Don't generate debug info on line zero when expanding a
8226 generated constructor. */
8227 if (DECL_CONSTRUCTOR_P (decl) && !DECL_FUNCTION_BODY (decl))
8228 {
8229 /* If we found errors, it's too dangerous to try to generate
8230 and expand a constructor */
8231 if (!java_error_count)
8232 {
8233 restore_line_number_status (1);
8234 java_complete_expand_method (decl);
8235 restore_line_number_status (0);
8236 }
8237 }
5e942c50
APB		 8238 else if (METHOD_ABSTRACT (decl) || METHOD_NATIVE (decl))
8239 continue;
8240 else
8b27f225
PB		 8241 java_complete_expand_method (decl);
8242 }
8243
22eed1e6
APB		 8244 /* Now verify constructor circularity (stop after the first one
8245 we find) */
8246 if (!CLASS_INTERFACE (TYPE_NAME (current_class)))
8247 for (decl = TYPE_METHODS (class_type); decl; decl = TREE_CHAIN (decl))
8248 if (DECL_CONSTRUCTOR_P (decl) &&
8249 verify_constructor_circularity (decl, decl))
8250 break;
8251
8b27f225
PB		 8252 /* Make the class data, register it and run the rest of decl
8253 compilation on it */
63a212ed
PB		 8254 if (!java_error_count)
8255 {
8256 if (flag_emit_class_files)
8257 write_classfile (current_class);
8258 else
8259 finish_class (current_class);
8260 }
8b27f225
PB		 8261 }
8262}
8263
8264/* Hold a list of catch clauses list. The first element of this list is
8265 the list of the catch clauses of the currently analysed try block. */
8266static tree currently_caught_type_list;
8267
8268/* Complete and expand a method. */
8269
8270static void
8271java_complete_expand_method (mdecl)
8272 tree mdecl;
8273{
22eed1e6
APB		 8274 /* Fix constructors before expanding them */
8275 if (DECL_CONSTRUCTOR_P (mdecl))
8276 fix_constructors (mdecl);
8b27f225 8277
22eed1e6 8278 /* Expand functions that have a body */
8b27f225
PB		 8279 if (DECL_FUNCTION_BODY (mdecl))
8280 {
c877974e
APB		 8281 tree fbody = DECL_FUNCTION_BODY (mdecl);
8282 tree block_body = BLOCK_EXPR_BODY (fbody);
8b27f225
PB		 8283 expand_start_java_method (mdecl);
8284
8285 current_this
8286 = (!METHOD_STATIC (mdecl) ?
8287 BLOCK_EXPR_DECLS (DECL_FUNCTION_BODY (mdecl)) : NULL_TREE);
8288
8289 /* Purge the `throws' list of unchecked exceptions */
8290 purge_unchecked_exceptions (mdecl);
8291
8292 /* Install exceptions thrown with `throws' */
8293 PUSH_EXCEPTIONS (DECL_FUNCTION_THROWS (mdecl));
8294
c877974e
APB		 8295 if (block_body != NULL_TREE)
8296 block_body = java_complete_tree (block_body);
8297 BLOCK_EXPR_BODY (fbody) = block_body;
5e942c50 8298
c877974e
APB		 8299 if ((block_body == NULL_TREE || CAN_COMPLETE_NORMALLY (block_body))
8300 && TREE_CODE (TREE_TYPE (TREE_TYPE (mdecl))) != VOID_TYPE)
82371d41 8301 missing_return_error (current_function_decl);
63a212ed 8302
8b27f225
PB		 8303 /* Don't go any further if we've found error(s) during the
8304 expansion */
8305 if (!java_error_count)
8306 source_end_java_method ();
22eed1e6
APB		 8307 else
8308 {
8309 pushdecl_force_head (DECL_ARGUMENTS (mdecl));
8310 poplevel (1, 0, 1);
8311 }
8b27f225
PB		 8312
8313 /* Pop the exceptions and sanity check */
8314 POP_EXCEPTIONS();
8315 if (currently_caught_type_list)
8316 fatal ("Exception list non empty - java_complete_expand_method");
8317 }
8318}
8319
22eed1e6
APB		 8320/* Craft a body for default constructor. Patch existing constructor
8321 bodies with call to super() and field initialization statements if
8322 necessary. */
8323
8324static void
8325fix_constructors (mdecl)
8326 tree mdecl;
8327{
8328 tree body = DECL_FUNCTION_BODY (mdecl);
22eed1e6 8329
22eed1e6
APB		 8330 if (!body)
8331 {
ac825856
APB		 8332 /* The constructor body must be crafted by hand. It's the
8333 constructor we defined when we realize we didn't have the
8334 CLASSNAME() constructor */
8335
22eed1e6
APB		 8336 tree compound;
8337
8338 /* It is an error for the compiler to generate a default
8339 constructor if the superclass doesn't have a constructor that
8340 takes no argument */
8341 if (verify_constructor_super ())
8342 {
8343 tree sclass_decl = TYPE_NAME (CLASSTYPE_SUPER (current_class));
8344 char *n = IDENTIFIER_POINTER (DECL_NAME (sclass_decl));
8345 parse_error_context (lookup_cl (TYPE_NAME (current_class)),
8346 "No constructor matching `%s()' found in "
8347 "class `%s'", n, n);
8348 }
8349
8350 start_artificial_method_body (mdecl);
8351
8352 /* We don't generate a super constructor invocation if we're
8353 compiling java.lang.Object. build_super_invocation takes care
8354 of that. */
8355 compound = java_method_add_stmt (mdecl, build_super_invocation ());
22eed1e6
APB		 8356
8357 end_artificial_method_body (mdecl);
8358 }
8359 /* Search for an explicit constructor invocation */
8360 else
8361 {
8362 int found = 0;
8363 tree main_block = BLOCK_EXPR_BODY (body);
8364 tree compound = NULL_TREE;
8365
8366 while (body)
8367 switch (TREE_CODE (body))
8368 {
8369 case CALL_EXPR:
8370 found = CALL_EXPLICIT_CONSTRUCTOR_P (body);
8371 body = NULL_TREE;
8372 break;
8373 case COMPOUND_EXPR:
8374 case EXPR_WITH_FILE_LOCATION:
8375 body = TREE_OPERAND (body, 0);
8376 break;
8377 case BLOCK:
8378 body = BLOCK_EXPR_BODY (body);
8379 break;
8380 default:
8381 found = 0;
8382 body = NULL_TREE;
8383 }
8384 /* The constructor is missing an invocation of super() */
8385 if (!found)
8386 compound = add_stmt_to_compound (compound, NULL_TREE,
8387 build_super_invocation ());
8388
22eed1e6
APB		 8389 /* Fix the constructor main block if we're adding extra stmts */
8390 if (compound)
8391 {
8392 compound = add_stmt_to_compound (compound, NULL_TREE,
8393 BLOCK_EXPR_BODY (main_block));
8394 BLOCK_EXPR_BODY (main_block) = compound;
8395 }
8396 }
8397}
8398
8399/* Browse constructors in the super class, searching for a constructor
8400 that doesn't take any argument. Return 0 if one is found, 1
8401 otherwise. */
8402
8403static int
8404verify_constructor_super ()
8405{
8406 tree class = CLASSTYPE_SUPER (current_class);
8407 if (!class)
8408 return 0;
8409
8410 if (class)
8411 {
8412 tree mdecl;
8413 for (mdecl = TYPE_METHODS (class); mdecl; mdecl = TREE_CHAIN (mdecl))
8414 {
8415 if (DECL_CONSTRUCTOR_P (mdecl)
82371d41 8416 && TREE_CHAIN (TYPE_ARG_TYPES (TREE_TYPE (mdecl))) == end_params_node)
22eed1e6
APB		 8417 return 0;
8418 }
8419 }
8420 return 1;
8421}
8422
8b27f225
PB		 8423/* Expand finals. */
8424
8425void
8426java_expand_finals ()
8427{
8428}
8429
22eed1e6 8430/* Generate code for all context remembered for code generation. */
b351b287
APB		 8431
8432void
8433java_expand_classes ()
8434{
23a79c61
APB		 8435 java_parse_abort_on_error ();
8436 if (!(ctxp = ctxp_for_generation))
5e942c50
APB		 8437 return;
8438 java_layout_classes ();
8439 java_parse_abort_on_error ();
8440
b351b287
APB		 8441 for (; ctxp_for_generation; ctxp_for_generation = ctxp_for_generation->next)
8442 {
8443 ctxp = ctxp_for_generation;
8444 lang_init_source (2); /* Error msgs have method prototypes */
8445 java_complete_expand_methods (); /* Complete and expand method bodies */
8446 java_parse_abort_on_error ();
8447 java_expand_finals (); /* Expand and check the finals */
8448 java_parse_abort_on_error ();
8449 java_check_final (); /* Check unitialized final */
8450 java_parse_abort_on_error ();
8451 }
b351b287
APB		 8452}
8453
8b27f225
PB		 8454/* Wrap non WFL PRIMARY around a WFL and set EXPR_WFL_QUALIFICATION to
8455 a tree list node containing RIGHT. Fore coming RIGHTs will be
8456 chained to this hook. LOCATION contains the location of the
8457 separating `.' operator. */
8458
8459static tree
8460make_qualified_primary (primary, right, location)
8461 tree primary, right;
8462 int location;
8463{
8464 tree wfl;
8465
8466 /* We want to process THIS . xxx symbolicaly, to keep it consistent
8467 with the way we're processing SUPER. A THIS from a primary as a
8468 different form than a SUPER. Turn THIS into something symbolic */
8469 if (TREE_CODE (primary) == THIS_EXPR)
8470 {
8471 wfl = build_wfl_node (this_identifier_node, input_filename, 0, 0);
8472 EXPR_WFL_LINECOL (wfl) = EXPR_WFL_LINECOL (primary);
8473 wfl = make_qualified_name (wfl, right, location);
8474 PRIMARY_P (wfl) = 1;
8475 return wfl;
8476 }
8477 /* Other non WFL node are wrapped around a WFL */
8478 else if (TREE_CODE (primary) != EXPR_WITH_FILE_LOCATION)
8479 {
8480 wfl = build_expr_wfl (NULL_TREE, ctxp->filename, 0, 0);
8481 EXPR_WFL_LINECOL (wfl) = EXPR_WFL_LINECOL (primary);
8482 EXPR_WFL_QUALIFICATION (wfl) = build_tree_list (primary, NULL_TREE);
8483 }
8484 else
8485 {
8486 wfl = primary;
8487 if (!EXPR_WFL_QUALIFICATION (primary))
8488 EXPR_WFL_QUALIFICATION (primary) =
8489 build_tree_list (primary, NULL_TREE);
8490 }
8491
8492 EXPR_WFL_LINECOL (right) = location;
8493 chainon (EXPR_WFL_QUALIFICATION (wfl), build_tree_list (right, NULL_TREE));
8494 PRIMARY_P (wfl) = 1;
8495 return wfl;
8496}
8497
8498/* Simple merge of two name separated by a `.' */
8499
8500static tree
8501merge_qualified_name (left, right)
8502 tree left, right;
8503{
8504 tree node;
8505 obstack_grow (&temporary_obstack, IDENTIFIER_POINTER (left),
8506 IDENTIFIER_LENGTH (left));
8507 obstack_1grow (&temporary_obstack, '.');
8508 obstack_grow0 (&temporary_obstack, IDENTIFIER_POINTER (right),
8509 IDENTIFIER_LENGTH (right));
8510 node = get_identifier (obstack_base (&temporary_obstack));
8511 obstack_free (&temporary_obstack, obstack_base (&temporary_obstack));
8512 QUALIFIED_P (node) = 1;
8513 return node;
8514}
8515
8516/* Merge the two parts of a qualified name into LEFT. Set the
8517 location information of the resulting node to LOCATION, usually
8518 inherited from the location information of the `.' operator. */
8519
8520static tree
8521make_qualified_name (left, right, location)
8522 tree left, right;
8523 int location;
8524{
8525 tree left_id = EXPR_WFL_NODE (left);
8526 tree right_id = EXPR_WFL_NODE (right);
8527 tree wfl, merge;
8528
8529 merge = merge_qualified_name (left_id, right_id);
8530
8531 /* Left wasn't qualified and is now qualified */
8532 if (!QUALIFIED_P (left_id))
8533 {
8534 tree wfl = build_expr_wfl (left_id, ctxp->filename, 0, 0);
8535 EXPR_WFL_LINECOL (wfl) = EXPR_WFL_LINECOL (left);
8536 EXPR_WFL_QUALIFICATION (left) = build_tree_list (wfl, NULL_TREE);
8537 }
8538
8539 wfl = build_expr_wfl (right_id, ctxp->filename, 0, 0);
8540 EXPR_WFL_LINECOL (wfl) = location;
8541 chainon (EXPR_WFL_QUALIFICATION (left), build_tree_list (wfl, NULL_TREE));
8542
8543 EXPR_WFL_NODE (left) = merge;
8544 return left;
8545}
8546
8547/* Extract the last identifier component of the qualified in WFL. The
8548 last identifier is removed from the linked list */
8549
8550static tree
8551cut_identifier_in_qualified (wfl)
8552 tree wfl;
8553{
8554 tree q;
8555 tree previous = NULL_TREE;
8556 for (q = EXPR_WFL_QUALIFICATION (wfl); ; previous = q, q = TREE_CHAIN (q))
8557 if (!TREE_CHAIN (q))
8558 {
8559 if (!previous)
8560 fatal ("Operating on a non qualified qualified WFL - "
8561 "cut_identifier_in_qualified");
8562 TREE_CHAIN (previous) = NULL_TREE;
8563 return TREE_PURPOSE (q);
8564 }
8565}
8566
8567/* Resolve the expression name NAME. Return its decl. */
8568
8569static tree
5e942c50 8570resolve_expression_name (id, orig)
8b27f225 8571 tree id;
5e942c50 8572 tree *orig;
8b27f225
PB		 8573{
8574 tree name = EXPR_WFL_NODE (id);
8575 tree decl;
8576
8577 /* 6.5.5.1: Simple expression names */
8578 if (!PRIMARY_P (id) && !QUALIFIED_P (name))
8579 {
8580 /* 15.13.1: NAME can appear within the scope of a local variable
8581 declaration */
8582 if ((decl = IDENTIFIER_LOCAL_VALUE (name)))
8583 return decl;
8584
8585 /* 15.13.1: NAME can appear within a class declaration */
8586 else
8587 {
8588 decl = lookup_field_wrapper (current_class, name);
8589 if (decl)
8590 {
8591 int fs = FIELD_STATIC (decl);
8592 /* Instance variable (8.3.1.1) can't appear within
8593 static method, static initializer or initializer for
8594 a static variable. */
8595 if (!fs && METHOD_STATIC (current_function_decl))
8596 {
8597 parse_error_context
8598 (id, "Can't make a static reference to nonstatic variable "
8599 "`%s' in class `%s'",
8600 IDENTIFIER_POINTER (name),
8601 IDENTIFIER_POINTER (DECL_NAME
8602 (TYPE_NAME (current_class))));
8603 return error_mark_node;
8604 }
22eed1e6
APB		 8605 /* Instance variables can't appear as an argument of
8606 an explicit constructor invocation */
8607 if (!fs && ctxp->explicit_constructor_p)
8608 {
8609 parse_error_context
8610 (id, "Can't reference `%s' before the superclass "
8611 "constructor has been called", IDENTIFIER_POINTER (name));
8612 return error_mark_node;
8613 }
5e942c50
APB		 8614
8615 /* Otherwise build what it takes to access the field */
8b27f225
PB		 8616 decl = build_field_ref ((fs ? NULL_TREE : current_this),
8617 current_class, name);
5e942c50
APB		 8618 if (fs && !flag_emit_class_files)
8619 decl = build_class_init (current_class, decl);
8620 /* We may be asked to save the real field access node */
8621 if (orig)
8622 *orig = decl;
8623 /* And we return what we got */
5b09b33e 8624 return decl;
8b27f225
PB		 8625 }
8626 /* Fall down to error report on undefined variable */
8627 }
8628 }
8629 /* 6.5.5.2 Qualified Expression Names */
8630 else
8631 {
5e942c50
APB		 8632 if (orig)
8633 *orig = NULL_TREE;
8b27f225
PB		 8634 qualify_ambiguous_name (id);
8635 /* 15.10.1 Field Access Using a Primary and/or Expression Name */
8636 /* 15.10.2: Accessing Superclass Members using super */
8637 return resolve_field_access (id, NULL, NULL);
8638 }
8639
8640 /* We've got an error here */
8641 parse_error_context (id, "Undefined variable `%s'",
8642 IDENTIFIER_POINTER (name));
8643
8644 return error_mark_node;
8645}
8646
8647/* 15.10.1 Field Acess Using a Primary and/or Expression Name.
8648 We return something suitable to generate the field access. We also
8649 return the field decl in FIELD_DECL and its type in FIELD_TYPE. If
8650 recipient's address can be null. */
8651
8652static tree
8653resolve_field_access (qual_wfl, field_decl, field_type)
8654 tree qual_wfl;
8655 tree *field_decl, *field_type;
8656{
8657 int is_static = 0;
8658 tree field_ref;
8659 tree decl, where_found, type_found;
8660
8661 if (resolve_qualified_expression_name (qual_wfl, &decl,
8662 &where_found, &type_found))
8663 return error_mark_node;
8664
8665 /* Resolve the LENGTH field of an array here */
8666 if (DECL_NAME (decl) == length_identifier_node && TYPE_ARRAY_P (type_found)
8667 && ! flag_emit_class_files)
8668 {
8669 tree length = build_java_array_length_access (where_found);
8670 field_ref =
8671 build_java_arraynull_check (type_found, length, int_type_node);
8672 }
8673 /* We might have been trying to resolve field.method(). In which
8674 case, the resolution is over and decl is the answer */
8675 else if (DECL_P (decl) && IDENTIFIER_LOCAL_VALUE (DECL_NAME (decl)) == decl)
8676 field_ref = decl;
8677 else if (DECL_P (decl))
8678 {
5e942c50
APB		 8679 int static_final_found = 0;
8680 if (!type_found)
8681 type_found = DECL_CONTEXT (decl);
8b27f225 8682 is_static = DECL_P (decl) && FIELD_STATIC (decl);
5e942c50
APB		 8683 if (FIELD_FINAL (decl)
8684 && JPRIMITIVE_TYPE_P (TREE_TYPE (decl))
8685 && DECL_LANG_SPECIFIC (decl)
63a212ed 8686 && DECL_INITIAL (decl))
5e942c50 8687 {
63a212ed 8688 field_ref = DECL_INITIAL (decl);
5e942c50
APB		 8689 static_final_found = 1;
8690 }
8691 else
8692 field_ref = build_field_ref ((is_static ? NULL_TREE : where_found),
8693 type_found, DECL_NAME (decl));
8b27f225
PB		 8694 if (field_ref == error_mark_node)
8695 return error_mark_node;
c877974e 8696 if (is_static && !static_final_found && !flag_emit_class_files)
8b27f225
PB		 8697 {
8698 field_ref = build_class_init (type_found, field_ref);
8699 /* If the static field was identified by an expression that
8700 needs to be generated, make the field access a compound
8701 expression whose first part of the evaluation of the
8702 field selector part. */
c877974e
APB		 8703 if (where_found && TREE_CODE (where_found) != TYPE_DECL
8704 && TREE_CODE (where_found) != RECORD_TYPE)
8b27f225
PB		 8705 {
8706 tree type = QUAL_DECL_TYPE (field_ref);
8707 field_ref = build (COMPOUND_EXPR, type, where_found, field_ref);
8708 }
8709 }
8710 }
8711 else
8712 field_ref = decl;
8713
8714 if (field_decl)
8715 *field_decl = decl;
8716 if (field_type)
c877974e
APB		 8717 *field_type = (QUAL_DECL_TYPE (decl) ?
8718 QUAL_DECL_TYPE (decl) : TREE_TYPE (decl));
8b27f225
PB		 8719 return field_ref;
8720}
8721
8722/* 6.5.5.2: Qualified Expression Names */
8723
8724static int
8725resolve_qualified_expression_name (wfl, found_decl, where_found, type_found)
8726 tree wfl;
8727 tree *found_decl, *type_found, *where_found;
8728{
8729 int from_type = 0; /* Field search initiated from a type */
8730 int from_super = 0, from_cast = 0;
8731 int previous_call_static = 0;
8732 int is_static;
8733 tree decl = NULL_TREE, type = NULL_TREE, q;
c877974e 8734 *type_found = *where_found = NULL_TREE;
8b27f225
PB		 8735
8736 for (q = EXPR_WFL_QUALIFICATION (wfl); q; q = TREE_CHAIN (q))
8737 {
8738 tree qual_wfl = QUAL_WFL (q);
8739
8740 /* 15.10.1 Field Access Using a Primary */
8b27f225
PB		 8741 switch (TREE_CODE (qual_wfl))
8742 {
8743 case CALL_EXPR:
8744 case NEW_CLASS_EXPR:
8745 /* If the access to the function call is a non static field,
8746 build the code to access it. */
8747 if (DECL_P (decl) && !FIELD_STATIC (decl))
8748 {
ac825856
APB		 8749 decl = maybe_access_field (decl, *where_found,
8750 DECL_CONTEXT (decl));
8b27f225
PB		 8751 if (decl == error_mark_node)
8752 return 1;
8753 }
8754 /* And code for the function call */
8755 if (complete_function_arguments (qual_wfl))
8756 return 1;
ac825856
APB		 8757 if (from_super && TREE_CODE (qual_wfl) == CALL_EXPR)
8758 CALL_USING_SUPER (qual_wfl) = 1;
8b27f225 8759 *where_found =
ac825856 8760 patch_method_invocation (qual_wfl, decl, type, &is_static, NULL);
8b27f225
PB		 8761 if (*where_found == error_mark_node)
8762 return 1;
8763 *type_found = type = QUAL_DECL_TYPE (*where_found);
8764
8765 /* If the previous call was static and this one is too,
8766 build a compound expression to hold the two (because in
8767 that case, previous function calls aren't transported as
8768 forcoming function's argument. */
8769 if (previous_call_static && is_static)
8770 {
8771 decl = build (COMPOUND_EXPR, type, decl, *where_found);
8772 TREE_SIDE_EFFECTS (decl) = 1;
8773 }
8774 else
8775 {
8776 previous_call_static = is_static;
8777 decl = *where_found;
8778 }
8779 continue;
8780
8781 case CONVERT_EXPR:
8782 *where_found = decl = java_complete_tree (qual_wfl);
8783 if (decl == error_mark_node)
8784 return 1;
8785 *type_found = type = QUAL_DECL_TYPE (decl);
8786 from_cast = 1;
8787 continue;
8788
22eed1e6 8789 case CONDITIONAL_EXPR:
5e942c50 8790 case STRING_CST:
22eed1e6
APB		 8791 *where_found = decl = java_complete_tree (qual_wfl);
8792 if (decl == error_mark_node)
8793 return 1;
8794 *type_found = type = QUAL_DECL_TYPE (decl);
8795 continue;
8796
8b27f225
PB		 8797 case ARRAY_REF:
8798 /* If the access to the function call is a non static field,
8799 build the code to access it. */
8800 if (DECL_P (decl) && !FIELD_STATIC (decl))
8801 {
8802 decl = maybe_access_field (decl, *where_found, type);
8803 if (decl == error_mark_node)
8804 return 1;
8805 }
8806 /* And code for the array reference expression */
8807 decl = java_complete_tree (qual_wfl);
8808 if (decl == error_mark_node)
8809 return 1;
8810 type = QUAL_DECL_TYPE (decl);
8811 continue;
8812
8813 default:
8814 /* Fix for -Wall Just go to the next statement. Don't
8815 continue */
8816 }
8817
8818 /* If we fall here, we weren't processing a (static) function call. */
8819 previous_call_static = 0;
8820
8821 /* It can be the keyword THIS */
8822 if (EXPR_WFL_NODE (qual_wfl) == this_identifier_node)
8823 {
8824 if (!current_this)
8825 {
8826 parse_error_context
8827 (wfl, "Keyword `this' used outside allowed context");
8828 return 1;
8829 }
8830 /* We have to generate code for intermediate acess */
8831 *where_found = decl = current_this;
5e942c50 8832 *type_found = type = QUAL_DECL_TYPE (decl);
8b27f225
PB		 8833 continue;
8834 }
8835
8836 /* 15.10.2 Accessing Superclass Members using SUPER */
8837 if (EXPR_WFL_NODE (qual_wfl) == super_identifier_node)
8838 {
8839 tree node;
8840 /* Check on the restricted use of SUPER */
8841 if (METHOD_STATIC (current_function_decl)
8842 || current_class == object_type_node)
8843 {
8844 parse_error_context
8845 (wfl, "Keyword `super' used outside allowed context");
8846 return 1;
8847 }
8848 /* Otherwise, treat SUPER as (SUPER_CLASS)THIS */
8849 node = build_cast (EXPR_WFL_LINECOL (qual_wfl),
8850 CLASSTYPE_SUPER (current_class),
8851 build_this (EXPR_WFL_LINECOL (qual_wfl)));
8852 *where_found = decl = java_complete_tree (node);
22eed1e6
APB		 8853 if (decl == error_mark_node)
8854 return 1;
8b27f225
PB		 8855 *type_found = type = QUAL_DECL_TYPE (decl);
8856 from_super = from_type = 1;
8857 continue;
8858 }
8859
8860 /* 15.13.1: Can't search for field name in packages, so we
8861 assume a variable/class name was meant. */
8862 if (RESOLVE_PACKAGE_NAME_P (qual_wfl))
8863 {
5e942c50
APB		 8864 tree name = resolve_package (wfl, &q);
8865 if (name)
8866 {
8867 *where_found = decl = resolve_no_layout (name, qual_wfl);
8868 /* We wan't to be absolutely that the class is laid
8869 out. We're going to search something inside it. */
8870 *type_found = type = TREE_TYPE (decl);
8871 layout_class (type);
8872 from_type = 1;
8873 /* Should be a list, really. FIXME */
8874 RESOLVE_EXPRESSION_NAME_P (QUAL_WFL (TREE_CHAIN (q))) = 1;
8875 RESOLVE_PACKAGE_NAME_P (QUAL_WFL (TREE_CHAIN (q))) = 0;
8876 }
8b27f225 8877 else
5e942c50
APB		 8878 {
8879 if (from_super || from_cast)
8880 parse_error_context
8881 ((from_cast ? qual_wfl : wfl),
8882 "No variable `%s' defined in class `%s'",
8883 IDENTIFIER_POINTER (EXPR_WFL_NODE (qual_wfl)),
8884 lang_printable_name (type, 0));
8885 else
8886 parse_error_context
8887 (qual_wfl, "Undefined variable or class name: `%s'",
8888 IDENTIFIER_POINTER (EXPR_WFL_NODE (qual_wfl)));
8889 return 1;
8890 }
8b27f225
PB		 8891 }
8892
8893 /* We have a type name. It's been already resolved when the
8894 expression was qualified. */
8895 else if (RESOLVE_TYPE_NAME_P (qual_wfl))
8896 {
8897 if (!(decl = QUAL_RESOLUTION (q)))
8898 return 1; /* Error reported already */
8899
8900 if (not_accessible_p (TREE_TYPE (decl), decl, 0))
8901 {
8902 parse_error_context
8903 (qual_wfl, "Can't access %s field `%s.%s' from `%s'",
8904 java_accstring_lookup (get_access_flags_from_decl (decl)),
8905 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))),
8906 IDENTIFIER_POINTER (DECL_NAME (decl)),
8907 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (current_class))));
8908 return 1;
8909 }
5e942c50 8910 check_deprecation (qual_wfl, decl);
8b27f225
PB		 8911
8912 type = TREE_TYPE (decl);
8913 from_type = 1;
8914 }
8915 /* We resolve and expression name */
8916 else
8917 {
8918 tree field_decl;
8919
8920 /* If there exists an early resolution, use it. That occurs
8921 only once and we know that there are more things to
8922 come. Don't do that when processing something after SUPER
8923 (we need more thing to be put in place below */
8924 if (!from_super && QUAL_RESOLUTION (q))
8925 {
8926 decl = QUAL_RESOLUTION (q);
c877974e 8927 if (!type)
5e942c50 8928 {
c877974e
APB		 8929 if (!FIELD_STATIC (decl))
8930 *where_found = current_this;
8931 else
8932 {
8933 *where_found = TREE_TYPE (decl);
8934 if (TREE_CODE (*where_found) == POINTER_TYPE)
8935 *where_found = TREE_TYPE (*where_found);
8936 }
5e942c50 8937 }
8b27f225
PB		 8938 }
8939
8940 /* We have to search for a field, knowing the type of its
8941 container. The flag FROM_TYPE indicates that we resolved
8942 the last member of the expression as a type name, which
5e942c50
APB		 8943 means that for the resolution of this field, we'll look
8944 for other errors than if it was resolved as a member of
8945 an other field. */
8b27f225
PB		 8946 else
8947 {
8948 int is_static;
5e942c50
APB		 8949 tree field_decl_type; /* For layout */
8950
8b27f225
PB		 8951 if (!from_type && !JREFERENCE_TYPE_P (type))
8952 {
8953 parse_error_context
8954 (qual_wfl, "Attempt to reference field `%s' in `%s %s'",
8955 IDENTIFIER_POINTER (EXPR_WFL_NODE (qual_wfl)),
8956 lang_printable_name (type, 0),
8957 IDENTIFIER_POINTER (DECL_NAME (field_decl)));
8958 return 1;
8959 }
8960
8961 if (!(field_decl =
8962 lookup_field_wrapper (type, EXPR_WFL_NODE (qual_wfl))))
8963 {
8964 parse_error_context
8965 (qual_wfl, "No variable `%s' defined in class `%s'",
8966 IDENTIFIER_POINTER (EXPR_WFL_NODE (qual_wfl)),
8967 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))));
8968 return 1;
8969 }
5e942c50
APB		 8970
8971 /* Layout the type of field_decl, since we may need
c877974e
APB		 8972 it. Don't do primitive types or loaded classes. The
8973 situation of non primitive arrays may not handled
8974 properly here. FIXME */
5e942c50
APB		 8975 if (TREE_CODE (TREE_TYPE (field_decl)) == POINTER_TYPE)
8976 field_decl_type = TREE_TYPE (TREE_TYPE (field_decl));
8977 else
8978 field_decl_type = TREE_TYPE (field_decl);
8979 if (!JPRIMITIVE_TYPE_P (field_decl_type)
c877974e
APB		 8980 && !CLASS_LOADED_P (field_decl_type)
8981 && !TYPE_ARRAY_P (field_decl_type))
8982 resolve_and_layout (field_decl_type, NULL_TREE);
8983 if (TYPE_ARRAY_P (field_decl_type))
8984 CLASS_LOADED_P (field_decl_type) = 1;
8b27f225
PB		 8985
8986 /* Check on accessibility here */
8987 if (not_accessible_p (type, field_decl, from_super))
8988 {
8989 parse_error_context
8990 (qual_wfl,
8991 "Can't access %s field `%s.%s' from `%s'",
8992 java_accstring_lookup
8993 (get_access_flags_from_decl (field_decl)),
8994 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))),
8995 IDENTIFIER_POINTER (DECL_NAME (field_decl)),
8996 IDENTIFIER_POINTER
8997 (DECL_NAME (TYPE_NAME (current_class))));
8998 return 1;
8999 }
5e942c50 9000 check_deprecation (qual_wfl, field_decl);
8b27f225
PB		 9001
9002 /* There are things to check when fields are accessed
9003 from type. There are no restrictions on a static
9004 declaration of the field when it is accessed from an
9005 interface */
9006 is_static = FIELD_STATIC (field_decl);
9007 if (!from_super && from_type
9008 && !TYPE_INTERFACE_P (type) && !is_static)
9009 {
9010 parse_error_context
9011 (qual_wfl, "Can't make a static reference to nonstatic "
9012 "variable `%s' in class `%s'",
9013 IDENTIFIER_POINTER (EXPR_WFL_NODE (qual_wfl)),
9014 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))));
9015 return 1;
9016 }
9017 from_cast = from_super = 0;
9018
5e942c50
APB		 9019 /* If we need to generate something to get a proper
9020 handle on what this field is accessed from, do it
9021 now. */
8b27f225
PB		 9022 if (!is_static)
9023 {
9024 decl = maybe_access_field (decl, *where_found, *type_found);
9025 if (decl == error_mark_node)
9026 return 1;
9027 }
9028
9029 /* We want to keep the location were found it, and the type
9030 we found. */
9031 *where_found = decl;
9032 *type_found = type;
9033
9034 /* This is the decl found and eventually the next one to
9035 search from */
9036 decl = field_decl;
9037 }
9038 from_type = 0;
9039 type = QUAL_DECL_TYPE (decl);
9040 }
9041 }
9042 *found_decl = decl;
9043 return 0;
9044}
9045
9046/* 6.6 Qualified name and access control. Returns 1 if MEMBER (a decl)
9047 can't be accessed from REFERENCE (a record type). */
9048
9049int not_accessible_p (reference, member, from_super)
9050 tree reference, member;
9051 int from_super;
9052{
9053 int access_flag = get_access_flags_from_decl (member);
9054
9055 /* Access always granted for members declared public */
9056 if (access_flag & ACC_PUBLIC)
9057 return 0;
9058
9059 /* Check access on protected members */
9060 if (access_flag & ACC_PROTECTED)
9061 {
9062 /* Access granted if it occurs from within the package
9063 containing the class in which the protected member is
9064 declared */
9065 if (class_in_current_package (DECL_CONTEXT (member)))
9066 return 0;
9067
c877974e
APB		 9068 /* If accessed with the form `super.member', then access is granted */
9069 if (from_super)
9070 return 0;
8b27f225 9071
c877974e
APB		 9072 /* Otherwise, access is granted if occuring from the class where
9073 member is declared or a subclass of it */
9074 if (inherits_from_p (reference, current_class))
9075 return 0;
8b27f225
PB		 9076 return 1;
9077 }
9078
9079 /* Check access on private members. Access is granted only if it
c877974e 9080 occurs from within the class in witch it is declared */
8b27f225
PB		 9081 if (access_flag & ACC_PRIVATE)
9082 return (current_class == DECL_CONTEXT (member) ? 0 : 1);
9083
9084 /* Default access are permitted only when occuring within the
9085 package in which the type (REFERENCE) is declared. In other words,
9086 REFERENCE is defined in the current package */
9087 if (ctxp->package)
9088 return !class_in_current_package (reference);
9089
9090 /* Otherwise, access is granted */
9091 return 0;
9092}
9093
5e942c50
APB		 9094/* Test deprecated decl access. */
9095static void
9096check_deprecation (wfl, decl)
9097 tree wfl, decl;
9098{
9099 char *file = DECL_SOURCE_FILE (decl);
9100 /* Complain if the field is deprecated and the file it was defined
9101 in isn't compiled at the same time the file which contains its
9102 use is */
9103 if (DECL_DEPRECATED (decl)
9104 && !IS_A_COMMAND_LINE_FILENAME_P (get_identifier (file)))
9105 {
9106 char the [20];
9107 switch (TREE_CODE (decl))
9108 {
9109 case FUNCTION_DECL:
9110 strcpy (the, "method");
9111 break;
9112 case FIELD_DECL:
9113 strcpy (the, "field");
9114 break;
9115 case TYPE_DECL:
9116 strcpy (the, "class");
9117 break;
9118 default:
9119 fatal ("unexpected DECL code - check_deprecation");
9120 }
9121 parse_warning_context
9122 (wfl, "The %s `%s' in class `%s' has been deprecated",
9123 the, lang_printable_name (decl, 0),
9124 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (DECL_CONTEXT (decl)))));
9125 }
9126}
9127
8b27f225
PB		 9128/* Returns 1 if class was declared in the current package, 0 otherwise */
9129
9130static int
9131class_in_current_package (class)
9132 tree class;
9133{
9134 static tree cache = NULL_TREE;
9135 int qualified_flag;
9136 tree left;
9137
9138 if (cache == class)
9139 return 1;
9140
9141 qualified_flag = QUALIFIED_P (DECL_NAME (TYPE_NAME (class)));
9142
9143 /* If the current package is empty and the name of CLASS is
9144 qualified, class isn't in the current package. If there is a
9145 current package and the name of the CLASS is not qualified, class
9146 isn't in the current package */
9147 if ((!ctxp->package && qualified_flag) || (ctxp->package && !qualified_flag))
9148 return 0;
9149
9150 /* If there is not package and the name of CLASS isn't qualified,
9151 they belong to the same unnamed package */
9152 if (!ctxp->package && !qualified_flag)
9153 return 1;
9154
9155 /* Compare the left part of the name of CLASS with the package name */
9156 breakdown_qualified (&left, NULL, DECL_NAME (TYPE_NAME (class)));
9157 if (ctxp->package == left)
9158 {
9159 cache = class;
9160 return 1;
9161 }
9162 return 0;
9163}
9164
9165/* This function may generate code to access DECL from WHERE. This is
9166 done only if certain conditions meet. */
9167
9168static tree
9169maybe_access_field (decl, where, type)
9170 tree decl, where, type;
9171{
5e942c50
APB		 9172 if (TREE_CODE (decl) == FIELD_DECL && decl != current_this
9173 && !FIELD_STATIC (decl))
8b27f225
PB		 9174 decl = build_field_ref (where ? where : current_this,
9175 (type ? type : DECL_CONTEXT (decl)),
9176 DECL_NAME (decl));
9177 return decl;
9178}
9179
12472854 9180/* Build a method invocation, by patching PATCH. If non NULL
8b27f225
PB		 9181 and according to the situation, PRIMARY and WHERE may be
9182 used. IS_STATIC is set to 1 if the invoked function is static. */
9183
9184static tree
ac825856 9185patch_method_invocation (patch, primary, where, is_static, ret_decl)
8b27f225
PB		 9186 tree patch, primary, where;
9187 int *is_static;
9188 tree *ret_decl;
9189{
9190 tree wfl = TREE_OPERAND (patch, 0);
9191 tree args = TREE_OPERAND (patch, 1);
9192 tree name = EXPR_WFL_NODE (wfl);
5e942c50 9193 tree list;
22eed1e6 9194 int is_static_flag = 0;
ac825856 9195 int is_super_init = 0;
8b27f225
PB		 9196
9197 /* Should be overriden if everything goes well. Otherwise, if
9198 something fails, it should keep this value. It stop the
9199 evaluation of a bogus assignment. See java_complete_tree,
9200 MODIFY_EXPR: for the reasons why we sometimes want to keep on
9201 evaluating an assignment */
9202 TREE_TYPE (patch) = error_mark_node;
9203
9204 /* Since lookup functions are messing with line numbers, save the
9205 context now. */
9206 java_parser_context_save_global ();
9207
9208 /* 15.11.1: Compile-Time Step 1: Determine Class or Interface to Search */
9209
9210 /* Resolution of qualified name, excluding constructors */
9211 if (QUALIFIED_P (name) && !CALL_CONSTRUCTOR_P (patch))
9212 {
9213 tree class_decl, identifier, identifier_wfl;
9214 /* Extract the last IDENTIFIER of the qualified
9215 expression. This is a wfl and we will use it's location
9216 data during error report. */
9217 identifier_wfl = cut_identifier_in_qualified (wfl);
9218 identifier = EXPR_WFL_NODE (identifier_wfl);
9219
9220 /* Given the context, IDENTIFIER is syntactically qualified
9221 as a MethodName. We need to qualify what's before */
9222 qualify_ambiguous_name (wfl);
9223
9224 /* Package resolution are erroneous */
9225 if (RESOLVE_PACKAGE_NAME_P (wfl))
9226 {
9227 tree remainder;
9228 breakdown_qualified (&remainder, NULL, EXPR_WFL_NODE (wfl));
9229 parse_error_context (wfl, "Can't search method `%s' in package "
9230 "`%s'",IDENTIFIER_POINTER (identifier),
9231 IDENTIFIER_POINTER (remainder));
9232 PATCH_METHOD_RETURN_ERROR ();
9233 }
9234 /* We're resolving a call from a type */
9235 else if (RESOLVE_TYPE_NAME_P (wfl))
9236 {
9237 tree decl = QUAL_RESOLUTION (EXPR_WFL_QUALIFICATION (wfl));
9238 tree name = DECL_NAME (decl);
9239 tree type;
9240
9241 class_decl = resolve_and_layout (name, wfl);
9242 if (CLASS_INTERFACE (decl))
9243 {
9244 parse_error_context
9245 (identifier_wfl, "Can't make static reference to method "
9246 "`%s' in interface `%s'", IDENTIFIER_POINTER (identifier),
9247 IDENTIFIER_POINTER (name));
9248 PATCH_METHOD_RETURN_ERROR ();
9249 }
9250 /* Look the method up in the type selector. The method ought
9251 to be static. */
9252 type = TREE_TYPE (class_decl);
9253 list = lookup_method_invoke (0, wfl, type, identifier, args);
9254 if (list && !METHOD_STATIC (list))
9255 {
9256 char *fct_name = strdup (lang_printable_name (list, 0));
9257 parse_error_context
9258 (identifier_wfl,
9259 "Can't make static reference to method `%s %s' in class `%s'",
9260 lang_printable_name (TREE_TYPE (TREE_TYPE (list)), 0),
9261 fct_name, IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (type))));
9262 free (fct_name);
9263 PATCH_METHOD_RETURN_ERROR ();
9264 }
5e942c50 9265 args = nreverse (args);
8b27f225
PB		 9266 }
9267 /* We're resolving an expression name */
9268 else
9269 {
9270 tree field, type;
9271
9272 /* 1- Find the field to which the call applies */
9273 field = resolve_field_access (wfl, NULL, &type);
9274 if (field == error_mark_node)
9275 PATCH_METHOD_RETURN_ERROR ();
c3f2a476
APB		 9276 /* field is used in lieu of a primary. It alows us not to
9277 report errors on erroneous use of `this' in
9278 constructors. */
9279 primary = field;
8b27f225
PB		 9280
9281 /* 2- Do the layout of the class where the last field
9282 was found, so we can search it. */
c877974e 9283 class_decl = resolve_and_layout (type, NULL_TREE);
59e4a38e 9284 if (class_decl != NULL_TREE)
c877974e
APB		 9285 type = TREE_TYPE (class_decl);
9286
8b27f225
PB		 9287 /* 3- Retrieve a filtered list of method matches, Refine
9288 if necessary. In any cases, point out errors. */
9289 list = lookup_method_invoke (0, identifier_wfl, type,
9290 identifier, args);
9291
9292 /* 4- Add the field as an argument */
9293 args = tree_cons (NULL_TREE, field, nreverse (args));
9294 }
9295
5e942c50 9296 /* IDENTIFIER_WFL will be used to report any problem further */
8b27f225
PB		 9297 wfl = identifier_wfl;
9298 }
9299 /* Resolution of simple names, names generated after a primary: or
9300 constructors */
9301 else
9302 {
9303 tree class_to_search;
9304 int lc; /* Looking for Constructor */
9305
9306 /* We search constructor in their target class */
9307 if (CALL_CONSTRUCTOR_P (patch))
9308 {
22eed1e6
APB		 9309 if (TREE_CODE (patch) == NEW_CLASS_EXPR)
9310 class_to_search = EXPR_WFL_NODE (wfl);
9311 else if (EXPR_WFL_NODE (TREE_OPERAND (patch, 0)) ==
9312 this_identifier_node)
9313 class_to_search = NULL_TREE;
9314 else if (EXPR_WFL_NODE (TREE_OPERAND (patch, 0)) ==
9315 super_identifier_node)
8b27f225 9316 {
ac825856 9317 is_super_init = 1;
22eed1e6
APB		 9318 if (CLASSTYPE_SUPER (current_class))
9319 class_to_search =
9320 DECL_NAME (TYPE_NAME (CLASSTYPE_SUPER (current_class)));
9321 else
9322 {
9323 parse_error_context (wfl, "Can't invoke super constructor "
9324 "on java.lang.Object");
9325 PATCH_METHOD_RETURN_ERROR ();
9326 }
8b27f225 9327 }
22eed1e6
APB		 9328
9329 /* Class to search is NULL if we're searching the current one */
9330 if (class_to_search)
8b27f225 9331 {
23a79c61
APB		 9332 class_to_search = resolve_and_layout (class_to_search,
9333 NULL_TREE);
22eed1e6
APB		 9334 if (!class_to_search)
9335 {
9336 parse_error_context
9337 (wfl, "Class `%s' not found in type declaration",
9338 IDENTIFIER_POINTER (EXPR_WFL_NODE (wfl)));
9339 PATCH_METHOD_RETURN_ERROR ();
9340 }
9341
5e942c50
APB		 9342 /* Can't instantiate an abstract class, but we can
9343 invoke it's constructor. It's use within the `new'
9344 context is denied here. */
9345 if (CLASS_ABSTRACT (class_to_search)
9346 && TREE_CODE (patch) == NEW_CLASS_EXPR)
22eed1e6
APB		 9347 {
9348 parse_error_context
9349 (wfl, "Class `%s' is an abstract class. It can't be "
9350 "instantiated", IDENTIFIER_POINTER (EXPR_WFL_NODE (wfl)));
9351 PATCH_METHOD_RETURN_ERROR ();
9352 }
9353 class_to_search = TREE_TYPE (class_to_search);
8b27f225 9354 }
22eed1e6
APB		 9355 else
9356 class_to_search = current_class;
8b27f225
PB		 9357 lc = 1;
9358 }
9359 /* This is a regular search in the local class, unless an
9360 alternate class is specified. */
9361 else
9362 {
9363 class_to_search = (where ? where : current_class);
9364 lc = 0;
9365 }
9366
9367 /* NAME is a simple identifier or comes from a primary. Search
9368 in the class whose declaration contain the method being
9369 invoked. */
c877974e 9370 resolve_and_layout (class_to_search, NULL_TREE);
8b27f225
PB		 9371 list = lookup_method_invoke (lc, wfl, class_to_search, name, args);
9372
9373 /* Don't continue if no method were found, as the next statement
9374 can't be executed then. */
9375 if (!list)
9376 PATCH_METHOD_RETURN_ERROR ();
9377
9378 /* Check for static reference if non static methods */
9379 if (check_for_static_method_reference (wfl, patch, list,
9380 class_to_search, primary))
9381 PATCH_METHOD_RETURN_ERROR ();
9382
22eed1e6
APB		 9383 /* Non static methods are called with the current object extra
9384 argument. If patch a `new TYPE()', the argument is the value
9385 returned by the object allocator. If method is resolved as a
9386 primary, use the primary otherwise use the current THIS. */
8b27f225 9387 args = nreverse (args);
22eed1e6 9388 if (!METHOD_STATIC (list) && TREE_CODE (patch) != NEW_CLASS_EXPR)
8b27f225 9389 args = tree_cons (NULL_TREE, primary ? primary : current_this, args);
8b27f225
PB		 9390 }
9391
9392 /* Merge point of all resolution schemes. If we have nothing, this
9393 is an error, already signaled */
9394 if (!list)
9395 PATCH_METHOD_RETURN_ERROR ();
9396
9397 /* Check accessibility, position the is_static flag, build and
9398 return the call */
c877974e 9399 if (not_accessible_p (DECL_CONTEXT (current_function_decl), list, 0))
8b27f225
PB		 9400 {
9401 char *fct_name = strdup (lang_printable_name (list, 0));
9402 parse_error_context
9403 (wfl, "Can't access %s method `%s %s.%s' from `%s'",
9404 java_accstring_lookup (get_access_flags_from_decl (list)),
9405 lang_printable_name (TREE_TYPE (TREE_TYPE (list)), 0),
5e942c50
APB		 9406 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (DECL_CONTEXT (list)))),
9407 fct_name, IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (current_class))));
8b27f225
PB		 9408 free (fct_name);
9409 PATCH_METHOD_RETURN_ERROR ();
9410 }
5e942c50 9411 check_deprecation (wfl, list);
22eed1e6
APB		 9412
9413 is_static_flag = METHOD_STATIC (list);
9414
c3f2a476
APB		 9415 /* In the context of an explicit constructor invocation, we can't
9416 invoke any method relying on `this'. Exceptions are: we're
9417 invoking a static function, primary exists and is not the current
9418 this, we're creating a new object. */
22eed1e6 9419 if (ctxp->explicit_constructor_p
c3f2a476
APB		 9420 && !is_static_flag
9421 && (!primary || primary == current_this)
9422 && (TREE_CODE (patch) != NEW_CLASS_EXPR))
22eed1e6
APB		 9423 {
9424 parse_error_context
9425 (wfl, "Can't reference `this' before the superclass constructor has "
9426 "been called");
9427 PATCH_METHOD_RETURN_ERROR ();
9428 }
8b27f225 9429 java_parser_context_restore_global ();
22eed1e6
APB		 9430 if (is_static)
9431 *is_static = is_static_flag;
8b27f225
PB		 9432 /* Sometimes, we want the decl of the selected method. Such as for
9433 EH checking */
9434 if (ret_decl)
9435 *ret_decl = list;
ac825856
APB		 9436 patch = patch_invoke (patch, list, args);
9437 if (is_super_init && CLASS_HAS_FINIT_P (current_class))
9438 {
9439 /* Generate the code used to initialize fields declared with an
9440 initialization statement. For now, it returns a call the the
9441 artificial function $finit$, if required. */
9442
9443 tree finit_call =
9444 build_method_invocation (build_expr_wfl (finit_identifier_node,
9445 input_filename, 0, 0),
9446 NULL_TREE);
9447 patch = build (COMPOUND_EXPR, void_type_node, patch,
9448 java_complete_tree (finit_call));
9449 CAN_COMPLETE_NORMALLY (patch) = 1;
9450 }
9451 return patch;
8b27f225
PB		 9452}
9453
9454/* Check that we're not trying to do a static reference to a method in
9455 non static method. Return 1 if it's the case, 0 otherwise. */
9456
9457static int
9458check_for_static_method_reference (wfl, node, method, where, primary)
9459 tree wfl, node, method, where, primary;
9460{
9461 if (METHOD_STATIC (current_function_decl)
9462 && !METHOD_STATIC (method) && !primary && !CALL_CONSTRUCTOR_P (node))
9463 {
9464 char *fct_name = strdup (lang_printable_name (method, 0));
9465 parse_error_context
9466 (wfl, "Can't make static reference to method `%s %s' in class `%s'",
9467 lang_printable_name (TREE_TYPE (TREE_TYPE (method)), 0), fct_name,
9468 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (where))));
9469 free (fct_name);
9470 return 1;
9471 }
9472 return 0;
9473}
9474
9475/* Patch an invoke expression METHOD and ARGS, based on its invocation
9476 mode. */
9477
9478static tree
ac825856 9479patch_invoke (patch, method, args)
8b27f225
PB		 9480 tree patch, method, args;
9481{
8b27f225 9482 tree dtable, func;
8b27f225
PB		 9483 tree original_call, t, ta;
9484
5e942c50
APB		 9485 /* Last step for args: convert build-in types. If we're dealing with
9486 a new TYPE() type call, the first argument to the constructor
9487 isn't found in the incomming argument list, but delivered by
9488 `new' */
9489 t = TYPE_ARG_TYPES (TREE_TYPE (method));
9490 if (TREE_CODE (patch) == NEW_CLASS_EXPR)
9491 t = TREE_CHAIN (t);
ac825856
APB		 9492 for (ta = args; t != end_params_node && ta;
9493 t = TREE_CHAIN (t), ta = TREE_CHAIN (ta))
8b27f225
PB		 9494 if (JPRIMITIVE_TYPE_P (TREE_TYPE (TREE_VALUE (ta))) &&
9495 TREE_TYPE (TREE_VALUE (ta)) != TREE_VALUE (t))
9496 TREE_VALUE (ta) = convert (TREE_VALUE (t), TREE_VALUE (ta));
22eed1e6 9497
12472854
PB		 9498 if (flag_emit_class_files)
9499 func = method;
9500 else
8b27f225 9501 {
12472854 9502 tree signature = build_java_signature (TREE_TYPE (method));
ac825856 9503 switch (invocation_mode (method, CALL_USING_SUPER (patch)))
12472854
PB		 9504 {
9505 case INVOKE_VIRTUAL:
9506 dtable = invoke_build_dtable (0, args);
9507 func = build_invokevirtual (dtable, method);
9508 break;
8b27f225 9509
12472854
PB		 9510 case INVOKE_SUPER:
9511 case INVOKE_STATIC:
9512 func = build_known_method_ref (method, TREE_TYPE (method),
9513 DECL_CONTEXT (method),
9514 signature, args);
9515 break;
8b27f225 9516
12472854
PB		 9517 case INVOKE_INTERFACE:
9518 dtable = invoke_build_dtable (1, args);
9519 func = build_invokeinterface (dtable, DECL_NAME (method), signature);
9520 break;
5e942c50 9521
12472854 9522 default:
ac825856 9523 fatal ("internal error - unknown invocation_mode result");
12472854
PB		 9524 }
9525
9526 /* Ensure self_type is initialized, (invokestatic). FIXME */
9527 func = build1 (NOP_EXPR, build_pointer_type (TREE_TYPE (method)), func);
8b27f225
PB		 9528 }
9529
8b27f225
PB		 9530 TREE_TYPE (patch) = TREE_TYPE (TREE_TYPE (method));
9531 TREE_OPERAND (patch, 0) = func;
9532 TREE_OPERAND (patch, 1) = args;
9533 original_call = patch;
9534
22eed1e6
APB		 9535 /* We're processing a `new TYPE ()' form. New is called an its
9536 returned value is the first argument to the constructor. We build
9537 a COMPOUND_EXPR and use saved expression so that the overall NEW
9538 expression value is a pointer to a newly created and initialized
9539 class. */
9540 if (TREE_CODE (original_call) == NEW_CLASS_EXPR)
8b27f225
PB		 9541 {
9542 tree class = DECL_CONTEXT (method);
9543 tree c1, saved_new, size, new;
12472854
PB		 9544 if (flag_emit_class_files)
9545 {
9546 TREE_TYPE (patch) = build_pointer_type (class);
9547 return patch;
9548 }
8b27f225
PB		 9549 if (!TYPE_SIZE (class))
9550 safe_layout_class (class);
9551 size = size_in_bytes (class);
9552 new = build (CALL_EXPR, promote_type (class),
9553 build_address_of (alloc_object_node),
9554 tree_cons (NULL_TREE, build_class_ref (class),
9555 build_tree_list (NULL_TREE,
9556 size_in_bytes (class))),
9557 NULL_TREE);
9558 saved_new = save_expr (new);
9559 c1 = build_tree_list (NULL_TREE, saved_new);
9560 TREE_CHAIN (c1) = TREE_OPERAND (original_call, 1);
9561 TREE_OPERAND (original_call, 1) = c1;
9562 TREE_SET_CODE (original_call, CALL_EXPR);
9563 patch = build (COMPOUND_EXPR, TREE_TYPE (new), patch, saved_new);
9564 }
9565 return patch;
9566}
9567
9568static int
9569invocation_mode (method, super)
9570 tree method;
9571 int super;
9572{
9573 int access = get_access_flags_from_decl (method);
9574
22eed1e6
APB		 9575 if (super)
9576 return INVOKE_SUPER;
9577
82371d41 9578 if (access & ACC_STATIC || access & ACC_FINAL || access & ACC_PRIVATE)
8b27f225
PB		 9579 return INVOKE_STATIC;
9580
9581 if (CLASS_FINAL (TYPE_NAME (DECL_CONTEXT (method))))
9582 return INVOKE_STATIC;
9583
8b27f225
PB		 9584 if (CLASS_INTERFACE (TYPE_NAME (DECL_CONTEXT (method))))
9585 return INVOKE_INTERFACE;
9586
9587 if (DECL_CONSTRUCTOR_P (method))
9588 return INVOKE_STATIC;
22eed1e6 9589
8b27f225
PB		 9590 return INVOKE_VIRTUAL;
9591}
9592
9593/* Retrieve a refined list of matching methods. It covers the step
9594 15.11.2 (Compile-Time Step 2) */
9595
9596static tree
9597lookup_method_invoke (lc, cl, class, name, arg_list)
9598 int lc;
9599 tree cl;
9600 tree class, name, arg_list;
9601{
82371d41 9602 tree atl = end_params_node; /* Arg Type List */
c877974e 9603 tree method, signature, list, node;
8b27f225
PB		 9604 char *candidates; /* Used for error report */
9605
5e942c50 9606 /* Fix the arguments */
8b27f225
PB		 9607 for (node = arg_list; node; node = TREE_CHAIN (node))
9608 {
c877974e
APB		 9609 tree current_arg = TREE_VALUE (node);
9610 /* Integer constant 0 passed as itself, not as a type */
9611 if (current_arg != integer_zero_node)
9612 current_arg = TREE_TYPE (TREE_VALUE (node));
9613 /* Non primitive type may have to be resolved */
9614 if (current_arg != integer_zero_node
9615 && !JPRIMITIVE_TYPE_P (current_arg))
9616 resolve_and_layout (current_arg, NULL_TREE);
9617 /* And promoted */
8b27f225 9618 if (TREE_CODE (current_arg) == RECORD_TYPE)
c877974e 9619 current_arg = promote_type (current_arg);
5e942c50 9620 atl = tree_cons (NULL_TREE, current_arg, atl);
8b27f225
PB		 9621 }
9622
5e942c50
APB		 9623 /* Find all candidates and then refine the list, searching for the
9624 most specific method. */
9625 list = find_applicable_accessible_methods_list (lc, class, name, atl);
9626 list = find_most_specific_methods_list (list);
8b27f225
PB		 9627 if (list && !TREE_CHAIN (list))
9628 return TREE_VALUE (list);
9629
9630 /* Issue an error. List candidates if any. Candidates are listed
9631 only if accessible (non accessible methods may end-up here for
9632 the sake of a better error report). */
9633 candidates = NULL;
9634 if (list)
9635 {
9636 tree current;
9637 obstack_grow (&temporary_obstack, ". Candidates are:\n", 18);
9638 for (current = list; current; current = TREE_CHAIN (current))
9639 {
9640 tree cm = TREE_VALUE (current);
9641 char string [4096];
9642 if (!cm || not_accessible_p (class, cm, 0))
9643 continue;
8b27f225 9644 sprintf
22eed1e6
APB		 9645 (string, " `%s' in `%s'%s",
9646 get_printable_method_name (cm),
8b27f225
PB		 9647 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (DECL_CONTEXT (cm)))),
9648 (TREE_CHAIN (current) ? "\n" : ""));
9649 obstack_grow (&temporary_obstack, string, strlen (string));
9650 }
9651 obstack_1grow (&temporary_obstack, '\0');
9652 candidates = obstack_finish (&temporary_obstack);
9653 }
9654 /* Issue the error message */
c877974e
APB		 9655 for (node = atl; node; node = TREE_CHAIN (node))
9656 if (TREE_VALUE (node) == integer_zero_node)
9657 TREE_VALUE (node) = long_type_node;
9658 method = make_node (FUNCTION_TYPE);
9659 TYPE_ARG_TYPES (method) = atl;
8b27f225 9660 signature = build_java_argument_signature (method);
22eed1e6
APB		 9661 parse_error_context (cl, "Can't find %s `%s(%s)' in class `%s'%s",
9662 (lc ? "constructor" : "method"),
9663 (lc ?
9664 IDENTIFIER_POINTER(DECL_NAME (TYPE_NAME (class))) :
9665 IDENTIFIER_POINTER (name)),
8b27f225
PB		 9666 IDENTIFIER_POINTER (signature),
9667 IDENTIFIER_POINTER (DECL_NAME (TYPE_NAME (class))),
9668 (candidates ? candidates : ""));
9669 return NULL_TREE;
9670}
9671
5e942c50
APB		 9672/* 15.11.2.1: Find Methods that are Applicable and Accessible. LC is 1
9673 when we're looking for a constructor. */
8b27f225
PB		 9674
9675static tree
5e942c50
APB		 9676find_applicable_accessible_methods_list (lc, class, name, arglist)
9677 int lc;
8b27f225
PB		 9678 tree class, name, arglist;
9679{
9680 tree method;
9681 tree list = NULL_TREE, all_list = NULL_TREE;
9682
9683 while (class != NULL_TREE)
9684 {
9685 for (method = TYPE_METHODS (class);
9686 method != NULL_TREE; method = TREE_CHAIN (method))
9687 {
5e942c50 9688 if (lc && !DECL_CONSTRUCTOR_P (method))
8b27f225 9689 continue;
5e942c50 9690 else if (!lc && (DECL_CONSTRUCTOR_P (method)
c877974e 9691 || (GET_METHOD_NAME (method) != name)))
5e942c50
APB		 9692 continue;
9693
8b27f225
PB		 9694 if (argument_types_convertible (method, arglist))
9695 {
9696 /* Retain accessible methods only */
c877974e
APB		 9697 if (!not_accessible_p (DECL_CONTEXT (current_function_decl),
9698 method, 0))
8b27f225
PB		 9699 list = tree_cons (NULL_TREE, method, list);
9700 else
9701 /* Also retain all selected method here */
9702 all_list = tree_cons (NULL_TREE, method, list);
9703 }
9704 }
5e942c50
APB		 9705 /* When dealing with constructor, stop here, otherwise search
9706 other classes */
9707 class = (lc ? NULL_TREE : CLASSTYPE_SUPER (class));
8b27f225
PB		 9708 }
9709 /* Either return the list obtained or all selected (but
9710 inaccessible) methods for better error report. */
9711 return (!list ? all_list : list);
9712}
9713
9714/* 15.11.2.2 Choose the Most Specific Method */
9715
9716static tree
9717find_most_specific_methods_list (list)
9718 tree list;
9719{
9720 int max = 0;
9721 tree current, new_list = NULL_TREE;
9722 for (current = list; current; current = TREE_CHAIN (current))
9723 {
9724 tree method;
9725 DECL_SPECIFIC_COUNT (TREE_VALUE (current)) = 0;
9726
9727 for (method = list; method; method = TREE_CHAIN (method))
9728 {
9729 /* Don't test a method against itself */
9730 if (method == current)
9731 continue;
9732
9733 /* Compare arguments and location where method where declared */
9734 if (argument_types_convertible (TREE_VALUE (method),
9735 TREE_VALUE (current))
9736 && valid_method_invocation_conversion_p
9737 (DECL_CONTEXT (TREE_VALUE (method)),
9738 DECL_CONTEXT (TREE_VALUE (current))))
9739 {
9740 int v = ++DECL_SPECIFIC_COUNT (TREE_VALUE (current));
9741 max = (v > max ? v : max);
9742 }
9743 }
9744 }
9745
9746 /* Review the list and select the maximally specific methods */
9747 for (current = list; current; current = TREE_CHAIN (current))
9748 if (DECL_SPECIFIC_COUNT (TREE_VALUE (current)) == max)
9749 new_list = tree_cons (NULL_TREE, TREE_VALUE (current), new_list);
9750
9751 /* If we can't find one, lower expectations and try to gather multiple
9752 maximally specific methods */
9753 while (!new_list)
9754 {
9755 while (--max > 0)
9756 {
9757 if (DECL_SPECIFIC_COUNT (TREE_VALUE (current)) == max)
9758 new_list = tree_cons (NULL_TREE, TREE_VALUE (current), new_list);
9759 }
9760 return new_list;
9761 }
9762
9763 return new_list;
9764}
9765
9766/* Make sure that the type of each M2_OR_ARGLIST arguments can be
9767 converted by method invocation conversion (5.3) to the type of the
9768 corresponding parameter of M1. Implementation expects M2_OR_ARGLIST
9769 to change less often than M1. */
9770
9771static int
9772argument_types_convertible (m1, m2_or_arglist)
9773 tree m1, m2_or_arglist;
9774{
9775 static tree m2_arg_value = NULL_TREE;
9776 static tree m2_arg_cache = NULL_TREE;
9777
9778 register tree m1_arg, m2_arg;
9779
9780 m1_arg = TYPE_ARG_TYPES (TREE_TYPE (m1));
9781 if (!METHOD_STATIC (m1))
9782 m1_arg = TREE_CHAIN (m1_arg);
9783
9784 if (m2_arg_value == m2_or_arglist)
9785 m2_arg = m2_arg_cache;
9786 else
9787 {
9788 /* M2_OR_ARGLIST can be a function DECL or a raw list of
9789 argument types */
9790 if (m2_or_arglist && TREE_CODE (m2_or_arglist) == FUNCTION_DECL)
9791 {
9792 m2_arg = TYPE_ARG_TYPES (TREE_TYPE (m2_or_arglist));
9793 if (!METHOD_STATIC (m2_or_arglist))
9794 m2_arg = TREE_CHAIN (m2_arg);
9795 }
9796 else
9797 m2_arg = m2_or_arglist;
9798
9799 m2_arg_value = m2_or_arglist;
9800 m2_arg_cache = m2_arg;
9801 }
9802
82371d41 9803 while (m1_arg != end_params_node && m2_arg != end_params_node)
8b27f225 9804 {
c877974e 9805 resolve_and_layout (TREE_VALUE (m1_arg), NULL_TREE);
8b27f225
PB		 9806 if (!valid_method_invocation_conversion_p (TREE_VALUE (m1_arg),
9807 TREE_VALUE (m2_arg)))
9808 break;
9809 m1_arg = TREE_CHAIN (m1_arg);
9810 m2_arg = TREE_CHAIN (m2_arg);
9811 }
82371d41 9812 return m1_arg == end_params_node && m2_arg == end_params_node;
8b27f225
PB		 9813}
9814
9815/* Qualification routines */
9816
9817static void
9818qualify_ambiguous_name (id)
9819 tree id;
9820{
9821 tree qual, qual_wfl, name, decl, ptr_type, saved_current_class;
9822 int again, super_found = 0, this_found = 0;
9823
9824 /* We first qualify the first element, then derive qualification of
9825 others based on the first one. If the first element is qualified
9826 by a resolution (field or type), this resolution is stored in the
9827 QUAL_RESOLUTION of the qual element being examined. We need to
9828 save the current_class since the use of SUPER might change the
9829 its value. */
9830 saved_current_class = current_class;
9831 qual = EXPR_WFL_QUALIFICATION (id);
9832 do {
9833
9834 /* Simple qualified expression feature a qual_wfl that is a
9835 WFL. Expression derived from a primary feature more complicated
9836 things like a CALL_EXPR. Expression from primary need to be
9837 worked out to extract the part on which the qualification will
9838 take place. */
9839 qual_wfl = QUAL_WFL (qual);
9840 switch (TREE_CODE (qual_wfl))
9841 {
9842 case CALL_EXPR:
9843 qual_wfl = TREE_OPERAND (qual_wfl, 0);
9844 if (TREE_CODE (qual_wfl) != EXPR_WITH_FILE_LOCATION)
9845 {
9846 qual = EXPR_WFL_QUALIFICATION (qual_wfl);
9847 qual_wfl = QUAL_WFL (qual);
9848 }
9849 break;
9850 case NEW_CLASS_EXPR:
9851 case CONVERT_EXPR:
9852 qual_wfl = TREE_OPERAND (qual_wfl, 0);
9853 break;
9854 case ARRAY_REF:
9855 while (TREE_CODE (qual_wfl) == ARRAY_REF)
9856 qual_wfl = TREE_OPERAND (qual_wfl, 0);
9857 break;
9858 default:
9859 /* Fix for -Wall. Just break doing nothing */
9860 break;
9861 }
9862 name = EXPR_WFL_NODE (qual_wfl);
9863 ptr_type = current_class;
9864 again = 0;
9865 /* If we have a THIS (from a primary), we set the context accordingly */
9866 if (name == this_identifier_node)
9867 {
9868 qual = TREE_CHAIN (qual);
9869 qual_wfl = QUAL_WFL (qual);
22eed1e6
APB		 9870 if (TREE_CODE (qual_wfl) == CALL_EXPR)
9871 again = 1;
9872 else
9873 name = EXPR_WFL_NODE (qual_wfl);
8b27f225
PB		 9874 this_found = 1;
9875 }
9876 /* If we have a SUPER, we set the context accordingly */
9877 if (name == super_identifier_node)
9878 {
9879 current_class = CLASSTYPE_SUPER (ptr_type);
9880 /* Check that there is such a thing as a super class. If not,
9881 return. The error will be caught later on, during the
9882 resolution */
9883 if (!current_class)
9884 {
9885 current_class = saved_current_class;
9886 return;
9887 }
9888 qual = TREE_CHAIN (qual);
9889 /* Do one more interation to set things up */
9890 super_found = again = 1;
9891 }
5e942c50
APB		 9892 /* Loop one more time if we're dealing with ?: or a string constant */
9893 if (TREE_CODE (qual_wfl) == CONDITIONAL_EXPR
9894 || TREE_CODE (qual_wfl) == STRING_CST)
22eed1e6
APB		 9895 {
9896 qual = TREE_CHAIN (qual);
9897 qual_wfl = QUAL_WFL (qual);
9898 again = 1;
9899 }
8b27f225
PB		 9900 } while (again);
9901
9902 /* If name appears within the scope of a location variable
9903 declaration or parameter declaration, then it is an expression
9904 name. We don't carry this test out if we're in the context of the
9905 use of SUPER or THIS */
9906
9907 if (!this_found && !super_found && (decl = IDENTIFIER_LOCAL_VALUE (name)))
9908 {
9909 RESOLVE_EXPRESSION_NAME_P (qual_wfl) = 1;
9910 QUAL_RESOLUTION (qual) = decl;
9911 }
9912
9913 /* If within the class/interface NAME was found to be used there
9914 exists a (possibly inherited) field named NAME, then this is an
9915 expression name. */
9916 else if ((decl = lookup_field_wrapper (ptr_type, name)))
9917 {
9918 RESOLVE_EXPRESSION_NAME_P (qual_wfl) = 1;
9919 QUAL_RESOLUTION (qual) = decl;
9920 }
9921
9922 /* We reclassify NAME as a type name if:
9923 - NAME is a class/interface declared within the compilation
9924 unit containing NAME,
9925 - NAME is imported via a single-type-import declaration,
9926 - NAME is declared in an another compilation unit of the package
9927 of the compilation unit containing NAME,
9928 - NAME is declared by exactly on type-import-on-demand declaration
9929 of the compilation unit containing NAME. */
9930 else if ((decl = resolve_and_layout (name, NULL_TREE)))
9931 {
9932 RESOLVE_TYPE_NAME_P (qual_wfl) = 1;
9933 QUAL_RESOLUTION (qual) = decl;
9934 }
9935
9936 /* Method call are expression name */
c877974e
APB		 9937 else if (TREE_CODE (QUAL_WFL (qual)) == CALL_EXPR
9938 || TREE_CODE (QUAL_WFL (qual)) == ARRAY_REF)
8b27f225
PB		 9939 RESOLVE_EXPRESSION_NAME_P (qual_wfl) = 1;
9940
9941 /* Check here that NAME isn't declared by more than one
9942 type-import-on-demand declaration of the compilation unit
9943 containing NAME. FIXME */
9944
9945 /* Otherwise, NAME is reclassified as a package name */
9946 else
9947 RESOLVE_PACKAGE_NAME_P (qual_wfl) = 1;
9948
9949 /* Propagate the qualification accross other components of the
9950 qualified name */
9951 for (qual = TREE_CHAIN (qual); qual;
9952 qual_wfl = QUAL_WFL (qual), qual = TREE_CHAIN (qual))
9953 {
9954 if (RESOLVE_PACKAGE_NAME_P (qual_wfl))
9955 RESOLVE_PACKAGE_NAME_P (QUAL_WFL (qual)) = 1;
9956 else
9957 RESOLVE_EXPRESSION_NAME_P (QUAL_WFL (qual)) = 1;
9958 }
9959
9960 /* Store the global qualification for the ambiguous part of ID back
9961 into ID fields */
9962 if (RESOLVE_EXPRESSION_NAME_P (qual_wfl))
9963 RESOLVE_EXPRESSION_NAME_P (id) = 1;
9964 else if (RESOLVE_TYPE_NAME_P (qual_wfl))
9965 RESOLVE_TYPE_NAME_P (id) = 1;
9966 else if (RESOLVE_PACKAGE_NAME_P (qual_wfl))
9967 RESOLVE_PACKAGE_NAME_P (id) = 1;
9968
9969 /* Restore the current class */
9970 current_class = saved_current_class;
9971}
9972
9973static int
9974breakdown_qualified (left, right, source)
9975 tree *left, *right, source;
9976{
9977 char *p = IDENTIFIER_POINTER (source), *base;
9978 int l = IDENTIFIER_LENGTH (source);
9979
9980 /* Breakdown NAME into REMAINDER . IDENTIFIER */
9981 base = p;
9982 p += (l-1);
9983 while (*p != '.' && p != base)
9984 p--;
9985
9986 /* We didn't find a '.'. Return an error */
9987 if (p == base)
9988 return 1;
9989
9990 *p = '\0';
9991 if (right)
9992 *right = get_identifier (p+1);
9993 *left = get_identifier (IDENTIFIER_POINTER (source));
9994 *p = '.';
9995
9996 return 0;
9997}
9998
8b27f225 9999/* Patch tree nodes in a function body. When a BLOCK is found, push
5b09b33e
PB		 10000 local variable decls if present.
10001 Same as java_complete_lhs, but does resolve static finals to values. */
8b27f225
PB		 10002
10003static tree
10004java_complete_tree (node)
10005 tree node;
5b09b33e
PB		 10006{
10007 node = java_complete_lhs (node);
10008 if (TREE_CODE (node) == VAR_DECL && FIELD_STATIC (node)
10009 && FIELD_FINAL (node) && DECL_INITIAL (node) != NULL_TREE)
10010 {
10011 tree value = DECL_INITIAL (node);
10012 DECL_INITIAL (node) = NULL_TREE;
10013 value = fold_constant_for_init (value, node);
10014 DECL_INITIAL (node) = value;
10015 if (value != NULL_TREE)
10016 return value;
10017 }
10018 return node;
10019}
10020
10021/* Patch tree nodes in a function body. When a BLOCK is found, push
10022 local variable decls if present.
10023 Same as java_complete_tree, but does not resolve static finals to values. */
10024
10025static tree
10026java_complete_lhs (node)
10027 tree node;
8b27f225 10028{
22eed1e6 10029 tree nn, cn, wfl_op1, wfl_op2, wfl_op3;
8b27f225
PB		 10030 int flag;
10031
10032 /* CONVERT_EXPR always has its type set, even though it needs to be
10033 worked out. */
10034 if (TREE_TYPE (node) && TREE_CODE (node) != CONVERT_EXPR)
10035 return node;
10036
10037 /* The switch block implements cases processing container nodes
10038 first. Contained nodes are always written back. Leaves come
10039 next and return a value. */
10040 switch (TREE_CODE (node))
10041 {
10042 case BLOCK:
10043
10044 /* 1- Block section.
10045 Set the local values on decl names so we can identify them
10046 faster when they're referenced. At that stage, identifiers
10047 are legal so we don't check for declaration errors. */
10048 for (cn = BLOCK_EXPR_DECLS (node); cn; cn = TREE_CHAIN (cn))
10049 {
10050 DECL_CONTEXT (cn) = current_function_decl;
10051 IDENTIFIER_LOCAL_VALUE (DECL_NAME (cn)) = cn;
10052 INITIALIZED_P (cn) = 0;
10053 }
12472854
PB		 10054 if (BLOCK_EXPR_BODY (node) == NULL_TREE)
10055 CAN_COMPLETE_NORMALLY (node) = 1;
10056 else
8b27f225 10057 {
12472854
PB		 10058 tree stmt = BLOCK_EXPR_BODY (node);
10059 tree *ptr;
10060 int error_seen = 0;
10061 if (TREE_CODE (stmt) == COMPOUND_EXPR)
10062 {
c877974e
APB		 10063 /* Re-order from (((A; B); C); ...; Z) to
10064 (A; (B; (C ; (...; Z)))).
12472854
PB		 10065 This makes it easier to scan the statements left-to-right
10066 without using recursion (which might overflow the stack
10067 if the block has many statements. */
10068 for (;;)
10069 {
10070 tree left = TREE_OPERAND (stmt, 0);
10071 if (TREE_CODE (left) != COMPOUND_EXPR)
10072 break;
10073 TREE_OPERAND (stmt, 0) = TREE_OPERAND (left, 1);
10074 TREE_OPERAND (left, 1) = stmt;
10075 stmt = left;
10076 }
10077 BLOCK_EXPR_BODY (node) = stmt;
10078 }
10079
c877974e
APB		 10080 /* Now do the actual complete, without deep recursion for
10081 long blocks. */
12472854
PB		 10082 ptr = &BLOCK_EXPR_BODY (node);
10083 while (TREE_CODE (*ptr) == COMPOUND_EXPR)
10084 {
10085 tree cur = java_complete_tree (TREE_OPERAND (*ptr, 0));
10086 tree *next = &TREE_OPERAND (*ptr, 1);
10087 TREE_OPERAND (*ptr, 0) = cur;
10088 if (TREE_CODE (cur) == ERROR_MARK)
10089 error_seen++;
10090 else if (! CAN_COMPLETE_NORMALLY (cur))
10091 {
10092 wfl_op2 = *next;
10093 for (;;)
10094 {
10095 if (TREE_CODE (wfl_op2) == BLOCK)
10096 wfl_op2 = BLOCK_EXPR_BODY (wfl_op2);
10097 else if (TREE_CODE (wfl_op2) == COMPOUND_EXPR)
10098 wfl_op2 = TREE_OPERAND (wfl_op2, 0);
10099 else
10100 break;
10101 }
10102 if (TREE_CODE (wfl_op2) != CASE_EXPR
ac825856
APB		 10103 && TREE_CODE (wfl_op2) != DEFAULT_EXPR
10104 && wfl_op2 != empty_stmt_node)
82371d41 10105 unreachable_stmt_error (*ptr);
12472854
PB		 10106 }
10107 ptr = next;
10108 }
10109 *ptr = java_complete_tree (*ptr);
10110
10111 if (TREE_CODE (*ptr) == ERROR_MARK || error_seen > 0)
8b27f225 10112 return error_mark_node;
12472854 10113 CAN_COMPLETE_NORMALLY (node) = CAN_COMPLETE_NORMALLY (*ptr);
8b27f225
PB		 10114 }
10115 /* Turn local bindings to null */
10116 for (cn = BLOCK_EXPR_DECLS (node); cn; cn = TREE_CHAIN (cn))
10117 IDENTIFIER_LOCAL_VALUE (DECL_NAME (cn)) = NULL_TREE;
10118
10119 TREE_TYPE (node) = void_type_node;
10120 break;
10121
10122 /* 2- They are expressions but ultimately deal with statements */
10123
10124 case THROW_EXPR:
10125 wfl_op1 = TREE_OPERAND (node, 0);
10126 COMPLETE_CHECK_OP_0 (node);
12472854 10127 /* CAN_COMPLETE_NORMALLY (node) = 0; */
8b27f225
PB		 10128 return patch_throw_statement (node, wfl_op1);
10129
10130 case SYNCHRONIZED_EXPR:
10131 wfl_op1 = TREE_OPERAND (node, 0);
10132 COMPLETE_CHECK_OP_0 (node);
10133 COMPLETE_CHECK_OP_1 (node);
10134 return patch_synchronized_statement (node, wfl_op1);
10135
10136 case TRY_EXPR:
10137 return patch_try_statement (node);
10138
10139 case LABELED_BLOCK_EXPR:
10140 PUSH_LABELED_BLOCK (node);
10141 if (LABELED_BLOCK_BODY (node))
10142 COMPLETE_CHECK_OP_1 (node);
10143 TREE_TYPE (node) = void_type_node;
10144 POP_LABELED_BLOCK ();
12472854
PB		 10145 if (CAN_COMPLETE_NORMALLY (LABELED_BLOCK_BODY (node)))
10146 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10147 return node;
10148
10149 case EXIT_BLOCK_EXPR:
10150 /* We don't complete operand 1, because it's the return value of
10151 the EXIT_BLOCK_EXPR which doesn't exist it Java */
10152 return patch_bc_statement (node);
10153
12472854
PB		 10154 case CASE_EXPR:
10155 cn = java_complete_tree (TREE_OPERAND (node, 0));
10156 if (cn == error_mark_node)
10157 return cn;
10158
10159 /* First, the case expression must be constant */
10160 cn = fold (cn);
10161
10162 if (!TREE_CONSTANT (cn))
10163 {
10164 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10165 parse_error_context (node, "Constant expression required");
10166 return error_mark_node;
10167 }
10168
10169 nn = ctxp->current_loop;
10170
10171 /* It must be assignable to the type of the switch expression. */
c877974e
APB		 10172 if (!try_builtin_assignconv (NULL_TREE,
10173 TREE_TYPE (TREE_OPERAND (nn, 0)), cn))
12472854
PB		 10174 {
10175 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10176 parse_error_context
10177 (wfl_operator,
10178 "Incompatible type for case. Can't convert `%s' to `int'",
10179 lang_printable_name (TREE_TYPE (cn), 0));
10180 return error_mark_node;
10181 }
10182
10183 cn = fold (convert (int_type_node, cn));
10184
10185 /* Multiple instance of a case label bearing the same
10186 value is checked during code generation. The case
10187 expression is allright so far. */
10188 TREE_OPERAND (node, 0) = cn;
c877974e 10189 TREE_TYPE (node) = void_type_node;
12472854 10190 CAN_COMPLETE_NORMALLY (node) = 1;
23a79c61 10191 TREE_SIDE_EFFECTS (node) = 1;
12472854
PB		 10192 break;
10193
10194 case DEFAULT_EXPR:
10195 nn = ctxp->current_loop;
10196 /* Only one default label is allowed per switch statement */
10197 if (SWITCH_HAS_DEFAULT (nn))
10198 {
10199 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10200 parse_error_context (wfl_operator,
10201 "Duplicate case label: `default'");
10202 return error_mark_node;
10203 }
10204 else
10205 SWITCH_HAS_DEFAULT (nn) = 1;
c877974e 10206 TREE_TYPE (node) = void_type_node;
23a79c61 10207 TREE_SIDE_EFFECTS (node) = 1;
12472854
PB		 10208 CAN_COMPLETE_NORMALLY (node) = 1;
10209 break;
10210
8b27f225
PB		 10211 case SWITCH_EXPR:
10212 case LOOP_EXPR:
10213 PUSH_LOOP (node);
10214 /* Check whether the loop was enclosed in a labeled
10215 statement. If not, create one, insert the loop in it and
10216 return the node */
10217 nn = patch_loop_statement (node);
10218
10219 /* Anyways, walk the body of the loop */
10220 if (TREE_CODE (node) == LOOP_EXPR)
10221 TREE_OPERAND (node, 0) = java_complete_tree (TREE_OPERAND (node, 0));
10222 /* Switch statement: walk the switch expression and the cases */
10223 else
10224 node = patch_switch_statement (node);
10225
10226 if (TREE_OPERAND (node, 0) == error_mark_node)
10227 return error_mark_node;
10228 TREE_TYPE (nn) = TREE_TYPE (node) = void_type_node;
10229 /* If we returned something different, that's because we
10230 inserted a label. Pop the label too. */
10231 if (nn != node)
12472854
PB		 10232 {
10233 if (CAN_COMPLETE_NORMALLY (node))
10234 CAN_COMPLETE_NORMALLY (nn) = 1;
10235 POP_LABELED_BLOCK ();
10236 }
8b27f225
PB		 10237 POP_LOOP ();
10238 return nn;
10239
10240 case EXIT_EXPR:
10241 TREE_OPERAND (node, 0) = java_complete_tree (TREE_OPERAND (node, 0));
10242 return patch_exit_expr (node);
10243
10244 case COND_EXPR:
10245 /* Condition */
10246 TREE_OPERAND (node, 0) = java_complete_tree (TREE_OPERAND (node, 0));
10247 if (TREE_OPERAND (node, 0) == error_mark_node)
10248 return error_mark_node;
10249 /* then-else branches */
10250 TREE_OPERAND (node, 1) = java_complete_tree (TREE_OPERAND (node, 1));
10251 if (TREE_OPERAND (node, 1) == error_mark_node)
10252 return error_mark_node;
10253 TREE_OPERAND (node, 2) = java_complete_tree (TREE_OPERAND (node, 2));
10254 if (TREE_OPERAND (node, 2) == error_mark_node)
10255 return error_mark_node;
10256 return patch_if_else_statement (node);
10257 break;
10258
22eed1e6
APB		 10259 case CONDITIONAL_EXPR:
10260 /* Condition */
10261 wfl_op1 = TREE_OPERAND (node, 0);
10262 COMPLETE_CHECK_OP_0 (node);
10263 wfl_op2 = TREE_OPERAND (node, 1);
10264 COMPLETE_CHECK_OP_1 (node);
10265 wfl_op3 = TREE_OPERAND (node, 2);
10266 COMPLETE_CHECK_OP_2 (node);
10267 return patch_conditional_expr (node, wfl_op1, wfl_op2);
10268
8b27f225
PB		 10269 /* 3- Expression section */
10270 case COMPOUND_EXPR:
12472854 10271 wfl_op2 = TREE_OPERAND (node, 1);
ac825856
APB		 10272 TREE_OPERAND (node, 0) = nn =
10273 java_complete_tree (TREE_OPERAND (node, 0));
10274 if (! CAN_COMPLETE_NORMALLY (nn) && TREE_CODE (nn) != ERROR_MARK
10275 && TREE_OPERAND (node, 1) != empty_stmt_node)
12472854
PB		 10276 {
10277 SET_WFL_OPERATOR (wfl_operator, node, wfl_op2);
10278 parse_error_context (wfl_operator, "Unreachable statement");
10279 }
8b27f225
PB		 10280 TREE_OPERAND (node, 1) = java_complete_tree (TREE_OPERAND (node, 1));
10281 if (TREE_OPERAND (node, 1) == error_mark_node)
10282 return error_mark_node;
10283 TREE_TYPE (node) = TREE_TYPE (TREE_OPERAND (node, 1));
12472854
PB		 10284 CAN_COMPLETE_NORMALLY (node)
10285 = CAN_COMPLETE_NORMALLY (TREE_OPERAND (node, 1));
8b27f225
PB		 10286 break;
10287
10288 case RETURN_EXPR:
12472854 10289 /* CAN_COMPLETE_NORMALLY (node) = 0; */
8b27f225
PB		 10290 return patch_return (node);
10291
10292 case EXPR_WITH_FILE_LOCATION:
10293 if (!EXPR_WFL_NODE (node) /* Or a PRIMARY flag ? */
10294 || TREE_CODE (EXPR_WFL_NODE (node)) == IDENTIFIER_NODE)
12472854
PB		 10295 {
10296 node = resolve_expression_name (node, NULL);
10297 CAN_COMPLETE_NORMALLY (node) = 1;
10298 }
8b27f225
PB		 10299 else
10300 {
5b09b33e
PB		 10301 tree body;
10302 int save_lineno = lineno;
10303 lineno = EXPR_WFL_LINENO (node);
10304 body = java_complete_tree (EXPR_WFL_NODE (node));
10305 lineno = save_lineno;
12472854 10306 EXPR_WFL_NODE (node) = body;
8b27f225 10307 TREE_SIDE_EFFECTS (node) = 1;
12472854 10308 CAN_COMPLETE_NORMALLY (node) = CAN_COMPLETE_NORMALLY (body);
8b27f225
PB		 10309 if (EXPR_WFL_NODE (node) == error_mark_node)
10310 {
10311 /* Its important for the evaluation of assignment that
10312 this mark on the TREE_TYPE is propagated. */
10313 TREE_TYPE (node) = error_mark_node;
10314 return error_mark_node;
10315 }
10316 else
10317 TREE_TYPE (node) = TREE_TYPE (EXPR_WFL_NODE (node));
12472854 10318
8b27f225
PB		 10319 }
10320 break;
10321
10322 case NEW_ARRAY_EXPR:
10323 /* Patch all the dimensions */
10324 flag = 0;
10325 for (cn = TREE_OPERAND (node, 1); cn; cn = TREE_CHAIN (cn))
10326 {
10327 int location = EXPR_WFL_LINECOL (TREE_VALUE (cn));
10328 tree dim = java_complete_tree (TREE_VALUE (cn));
10329 if (dim == error_mark_node)
10330 {
10331 flag = 1;
10332 continue;
10333 }
10334 else
10335 {
10336 TREE_VALUE (cn) = dim;
10337 /* Setup the location of the current dimension, for
10338 later error report. */
10339 TREE_PURPOSE (cn) =
10340 build_expr_wfl (NULL_TREE, input_filename, 0, 0);
10341 EXPR_WFL_LINECOL (TREE_PURPOSE (cn)) = location;
10342 }
10343 }
10344 /* They complete the array creation expression, if no errors
10345 were found. */
12472854 10346 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10347 return (flag ? error_mark_node : patch_newarray (node));
10348
10349 case NEW_CLASS_EXPR:
10350 case CALL_EXPR:
10351 /* Complete function's argument(s) first */
10352 if (complete_function_arguments (node))
10353 return error_mark_node;
10354 else
10355 {
22eed1e6
APB		 10356 tree decl, wfl = TREE_OPERAND (node, 0);
10357 int in_this = CALL_THIS_CONSTRUCTOR_P (node);
10358
c877974e 10359 node = patch_method_invocation (node, NULL_TREE,
ac825856 10360 NULL_TREE, 0, &decl);
c877974e
APB		 10361 if (node == error_mark_node)
10362 return error_mark_node;
10363
10364 check_thrown_exceptions (EXPR_WFL_LINECOL (node), decl);
10365 /* If we call this(...), register signature and positions */
10366 if (in_this)
10367 DECL_CONSTRUCTOR_CALLS (current_function_decl) =
10368 tree_cons (wfl, decl,
10369 DECL_CONSTRUCTOR_CALLS (current_function_decl));
82371d41 10370 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10371 return node;
10372 }
10373
10374 case MODIFY_EXPR:
10375 /* Save potential wfls */
10376 wfl_op1 = TREE_OPERAND (node, 0);
10377 wfl_op2 = TREE_OPERAND (node, 1);
5b09b33e 10378 TREE_OPERAND (node, 0) = java_complete_lhs (wfl_op1);
8b27f225
PB		 10379 if (TREE_OPERAND (node, 0) == error_mark_node)
10380 return error_mark_node;
10381
10382 if (COMPOUND_ASSIGN_P (wfl_op2))
10383 {
10384 tree lvalue;
10385 tree other =
10386 java_complete_tree (TREE_OPERAND (wfl_op2, 0));
10387
10388 /* Hand stablize the lhs on both places */
10389 lvalue = stabilize_reference (other);
10390 TREE_OPERAND (node, 0) = lvalue;
10391 TREE_OPERAND (TREE_OPERAND (node, 1), 0) = lvalue;
10392 }
10393
f8976021
APB		 10394 /* If we're about to patch a NEW_ARRAY_INIT, we call a special
10395 function to complete this RHS */
10396 if (TREE_CODE (wfl_op2) == NEW_ARRAY_INIT)
63a212ed 10397 nn = patch_new_array_init (TREE_TYPE (TREE_OPERAND (node, 0)),
f8976021
APB		 10398 TREE_OPERAND (node, 1));
10399 else
10400 nn = java_complete_tree (TREE_OPERAND (node, 1));
10401
8b27f225
PB		 10402 /* There are cases where the type of RHS is fixed. In those
10403 cases, if the evaluation of the RHS fails, we further the
10404 evaluation of the assignment to detect more errors. */
8b27f225
PB		 10405 if (nn == error_mark_node)
10406 {
c877974e
APB		 10407 /* It's hopeless, but we can further things on to discover
10408 an error during the assignment. In any cases, the
10409 assignment operation fails. */
10410 if (TREE_CODE (TREE_OPERAND (node, 1)) != EXPR_WITH_FILE_LOCATION
f8976021 10411 && TREE_CODE (TREE_OPERAND (node, 1)) != NEW_ARRAY_INIT
c877974e
APB		 10412 && TREE_TYPE (TREE_OPERAND (node, 1)) != error_mark_node)
10413 patch_assignment (node, wfl_op1, wfl_op2);
10414
8b27f225
PB		 10415 /* Now, we still mark the lhs as initialized */
10416 if (DECL_P (TREE_OPERAND (node, 0)))
10417 INITIALIZED_P (TREE_OPERAND (node, 0)) = 1;
10418
10419 return error_mark_node;
10420 }
10421 TREE_OPERAND (node, 1) = nn;
10422
10423 /* In case we're handling = with a String as a RHS, we need to
10424 produce a String out of the RHS (it might still be a
10425 STRING_CST or a StringBuffer at this stage */
10426 if ((nn = patch_string (TREE_OPERAND (node, 1))))
10427 TREE_OPERAND (node, 1) = nn;
12472854
PB		 10428 node = patch_assignment (node, wfl_op1, wfl_op2);
10429 CAN_COMPLETE_NORMALLY (node) = 1;
63a212ed
PB		 10430
10431 /* Before returning the node, in the context of a static field
10432 assignment in <clinit>, we may want to carray further
10433 optimizations. (VAR_DECL means it's a static field. See
10434 add_field. */
10435 if (DECL_NAME (current_function_decl) == clinit_identifier_node
5b09b33e 10436 && MODIFY_EXPR_FROM_INITIALIZATION_P (node)
63a212ed
PB		 10437 && TREE_CODE (TREE_OPERAND (node, 0)) == VAR_DECL)
10438 node = patch_initialized_static_field (node);
10439
12472854 10440 return node;
8b27f225
PB		 10441
10442 case MULT_EXPR:
10443 case PLUS_EXPR:
10444 case MINUS_EXPR:
10445 case LSHIFT_EXPR:
10446 case RSHIFT_EXPR:
10447 case URSHIFT_EXPR:
10448 case BIT_AND_EXPR:
10449 case BIT_XOR_EXPR:
10450 case BIT_IOR_EXPR:
10451 case TRUNC_MOD_EXPR:
10452 case RDIV_EXPR:
10453 case TRUTH_ANDIF_EXPR:
10454 case TRUTH_ORIF_EXPR:
10455 case EQ_EXPR:
10456 case NE_EXPR:
10457 case GT_EXPR:
10458 case GE_EXPR:
10459 case LT_EXPR:
10460 case LE_EXPR:
10461 /* Operands 0 and 1 are WFL in certain cases only. patch_binop
10462 knows how to handle those cases. */
10463 wfl_op1 = TREE_OPERAND (node, 0);
10464 wfl_op2 = TREE_OPERAND (node, 1);
10465
12472854 10466 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10467 /* Don't complete string nodes if dealing with the PLUS operand. */
10468 if (TREE_CODE (node) != PLUS_EXPR || !JSTRING_P (wfl_op1))
10469 {
10470 TREE_OPERAND (node, 0) = java_complete_tree (wfl_op1);
10471 if (TREE_OPERAND (node, 0) == error_mark_node)
10472 return error_mark_node;
10473 }
10474 if (TREE_CODE (node) != PLUS_EXPR || !JSTRING_P (wfl_op2))
10475 {
10476 TREE_OPERAND (node, 1) = java_complete_tree (wfl_op2);
10477 if (TREE_OPERAND (node, 1) == error_mark_node)
10478 return error_mark_node;
10479 }
10480 return patch_binop (node, wfl_op1, wfl_op2);
10481
5e942c50
APB		 10482 case INSTANCEOF_EXPR:
10483 wfl_op1 = TREE_OPERAND (node, 0);
10484 COMPLETE_CHECK_OP_0 (node);
10485 return patch_binop (node, wfl_op1, TREE_OPERAND (node, 1));
10486
8b27f225
PB		 10487 case UNARY_PLUS_EXPR:
10488 case NEGATE_EXPR:
10489 case TRUTH_NOT_EXPR:
10490 case BIT_NOT_EXPR:
10491 case PREDECREMENT_EXPR:
10492 case PREINCREMENT_EXPR:
10493 case POSTDECREMENT_EXPR:
10494 case POSTINCREMENT_EXPR:
10495 case CONVERT_EXPR:
10496 /* There are cases were wfl_op1 is a WFL. patch_unaryop knows
10497 how to handle those cases. */
10498 wfl_op1 = TREE_OPERAND (node, 0);
12472854 10499 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10500 TREE_OPERAND (node, 0) = java_complete_tree (wfl_op1);
10501 if (TREE_OPERAND (node, 0) == error_mark_node)
10502 return error_mark_node;
4a5f66c3
APB		 10503 node = patch_unaryop (node, wfl_op1);
10504 CAN_COMPLETE_NORMALLY (node) = 1;
10505 break;
8b27f225
PB		 10506
10507 case ARRAY_REF:
10508 /* There are cases were wfl_op1 is a WFL. patch_array_ref knows
10509 how to handle those cases. */
10510 wfl_op1 = TREE_OPERAND (node, 0);
10511 TREE_OPERAND (node, 0) = java_complete_tree (wfl_op1);
10512 if (TREE_OPERAND (node, 0) == error_mark_node)
10513 return error_mark_node;
10514 if (!flag_emit_class_files)
10515 TREE_OPERAND (node, 0) = save_expr (TREE_OPERAND (node, 0));
10516 /* The same applies to wfl_op2 */
10517 wfl_op2 = TREE_OPERAND (node, 1);
10518 TREE_OPERAND (node, 1) = java_complete_tree (wfl_op2);
10519 if (TREE_OPERAND (node, 1) == error_mark_node)
10520 return error_mark_node;
22eed1e6
APB		 10521 if (!flag_emit_class_files)
10522 TREE_OPERAND (node, 1) = save_expr (TREE_OPERAND (node, 1));
c877974e
APB		 10523 return patch_array_ref (node);
10524
63a212ed
PB		 10525 case RECORD_TYPE:
10526 return node;;
10527
10528 case COMPONENT_REF:
10529 /* The first step in the re-write of qualified name handling. FIXME.
10530 So far, this is only to support PRIMTYPE.class -> PRIMCLASS.TYPE. */
c877974e 10531 TREE_OPERAND (node, 0) = java_complete_tree (TREE_OPERAND (node, 0));
63a212ed
PB		 10532 if (TREE_CODE (TREE_OPERAND (node, 0)) == RECORD_TYPE)
10533 {
10534 tree name = TREE_OPERAND (node, 1);
10535 tree field = lookup_field_wrapper (TREE_OPERAND (node, 0), name);
10536 if (field == NULL_TREE)
10537 {
10538 error ("missing static field `%s'", IDENTIFIER_POINTER (name));
10539 return error_mark_node;
10540 }
10541 if (! FIELD_STATIC (field))
10542 {
10543 error ("not a static field `%s'", IDENTIFIER_POINTER (name));
10544 return error_mark_node;
10545 }
10546 return field;
10547 }
10548 else
10549 fatal ("unimplemented java_complete_tree for COMPONENT_REF");
c877974e 10550 break;
8b27f225
PB		 10551
10552 case THIS_EXPR:
10553 /* Can't use THIS in a static environment */
10554 if (!current_this)
10555 {
10556 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10557 parse_error_context (wfl_operator, "Keyword `this' used outside "
10558 "allowed context");
10559 TREE_TYPE (node) = error_mark_node;
10560 return error_mark_node;
10561 }
22eed1e6
APB		 10562 if (ctxp->explicit_constructor_p)
10563 {
10564 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10565 parse_error_context
10566 (wfl_operator, "Can't reference `this' or `super' before the "
10567 "superclass constructor has been called");
10568 TREE_TYPE (node) = error_mark_node;
10569 return error_mark_node;
10570 }
8b27f225
PB		 10571 return current_this;
10572
10573 default:
12472854 10574 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 10575 /* Ok: may be we have a STRING_CST or a crafted `StringBuffer'
10576 and it's time to turn it into the appropriate String object
10577 */
10578 if ((node = patch_string (node)))
10579 return node;
10580 fatal ("No case for tree code `%s' - java_complete_tree\n",
10581 tree_code_name [TREE_CODE (node)]);
10582 }
10583 return node;
10584}
10585
10586/* Complete function call's argument. Return a non zero value is an
10587 error was found. */
10588
10589static int
10590complete_function_arguments (node)
10591 tree node;
10592{
10593 int flag = 0;
10594 tree cn;
10595
22eed1e6 10596 ctxp->explicit_constructor_p += (CALL_THIS_CONSTRUCTOR_P (node) ? 1 : 0);
8b27f225
PB		 10597 for (cn = TREE_OPERAND (node, 1); cn; cn = TREE_CHAIN (cn))
10598 {
10599 tree wfl = TREE_VALUE (cn), parm, temp;
10600 parm = java_complete_tree (wfl);
10601 if (parm == error_mark_node)
10602 {
10603 flag = 1;
10604 continue;
10605 }
10606 /* If have a string literal that we haven't transformed yet or a
10607 crafted string buffer, as a result of use of the the String
10608 `+' operator. Build `parm.toString()' and expand it. */
10609 if ((temp = patch_string (parm)))
10610 parm = temp;
5e942c50
APB		 10611 /* Inline PRIMTYPE.TYPE read access */
10612 parm = maybe_build_primttype_type_ref (parm, wfl);
8b27f225 10613
5e942c50 10614 TREE_VALUE (cn) = parm;
8b27f225 10615 }
22eed1e6 10616 ctxp->explicit_constructor_p -= (CALL_THIS_CONSTRUCTOR_P (node) ? 1 : 0);
8b27f225
PB		 10617 return flag;
10618}
10619
10620/* Sometimes (for loops and variable initialized during their
10621 declaration), we want to wrap a statement around a WFL and turn it
10622 debugable. */
10623
10624static tree
10625build_debugable_stmt (location, stmt)
10626 int location;
10627 tree stmt;
10628{
10629 if (TREE_CODE (stmt) != EXPR_WITH_FILE_LOCATION)
10630 {
10631 stmt = build_expr_wfl (stmt, input_filename, 0, 0);
10632 EXPR_WFL_LINECOL (stmt) = location;
10633 }
10634 JAVA_MAYBE_GENERATE_DEBUG_INFO (stmt);
10635 return stmt;
10636}
10637
10638static tree
10639build_expr_block (body, decls)
10640 tree body, decls;
10641{
10642 tree node = make_node (BLOCK);
10643 BLOCK_EXPR_DECLS (node) = decls;
10644 BLOCK_EXPR_BODY (node) = body;
10645 if (body)
10646 TREE_TYPE (node) = TREE_TYPE (body);
10647 TREE_SIDE_EFFECTS (node) = 1;
10648 return node;
10649}
10650
10651/* Create a new function block and link it approriately to current
10652 function block chain */
10653
10654static tree
10655enter_block ()
10656{
10657 return (enter_a_block (build_expr_block (NULL_TREE, NULL_TREE)));
10658}
10659
10660/* Link block B supercontext to the previous block. The current
10661 function DECL is used as supercontext when enter_a_block is called
10662 for the first time for a given function. The current function body
10663 (DECL_FUNCTION_BODY) is set to be block B. */
10664
10665static tree
10666enter_a_block (b)
10667 tree b;
10668{
10669 tree fndecl = current_function_decl;
10670
10671 if (!DECL_FUNCTION_BODY (fndecl))
10672 {
10673 BLOCK_SUPERCONTEXT (b) = fndecl;
10674 DECL_FUNCTION_BODY (fndecl) = b;
10675 }
10676 else
10677 {
10678 BLOCK_SUPERCONTEXT (b) = DECL_FUNCTION_BODY (fndecl);
10679 DECL_FUNCTION_BODY (fndecl) = b;
10680 }
10681 return b;
10682}
10683
10684/* Exit a block by changing the current function body
10685 (DECL_FUNCTION_BODY) to the current block super context, only if
10686 the block being exited isn't the method's top level one. */
10687
10688static tree
10689exit_block ()
10690{
10691 tree b = DECL_FUNCTION_BODY (current_function_decl);
10692
10693 if (BLOCK_SUPERCONTEXT (b) != current_function_decl)
10694 DECL_FUNCTION_BODY (current_function_decl) = BLOCK_SUPERCONTEXT (b);
10695
10696 return b;
10697}
10698
10699/* Lookup for NAME in the nested function's blocks, all the way up to
10700 the current toplevel one. It complies with Java's local variable
10701 scoping rules. */
10702
10703static tree
10704lookup_name_in_blocks (name)
10705 tree name;
10706{
10707 tree b = DECL_FUNCTION_BODY (current_function_decl);
10708
10709 while (b != current_function_decl)
10710 {
10711 tree current;
10712
10713 /* Paranoid sanity check. To be removed */
10714 if (TREE_CODE (b) != BLOCK)
10715 fatal ("non block expr function body - lookup_name_in_blocks");
10716
10717 for (current = BLOCK_EXPR_DECLS (b); current;
10718 current = TREE_CHAIN (current))
10719 if (DECL_NAME (current) == name)
10720 return current;
10721 b = BLOCK_SUPERCONTEXT (b);
10722 }
10723 return NULL_TREE;
10724}
10725
10726static void
10727maybe_absorb_scoping_blocks ()
10728{
10729 while (BLOCK_EXPR_ORIGIN (DECL_FUNCTION_BODY (current_function_decl)))
10730 {
10731 tree b = exit_block ();
10732 java_method_add_stmt (current_function_decl, b);
10733 SOURCE_FRONTEND_DEBUG (("Absorbing scoping block at line %d", lineno));
10734 }
10735}
10736
10737\f
10738/* This section of the source is reserved to build_* functions that
10739 are building incomplete tree nodes and the patch_* functions that
10740 are completing them. */
10741
c877974e 10742/* Build a super() constructor invocation. Returns empty_stmt_node if
22eed1e6
APB		 10743 we're currently dealing with the class java.lang.Object. */
10744
10745static tree
10746build_super_invocation ()
10747{
10748 if (current_class == object_type_node)
c877974e 10749 return empty_stmt_node;
22eed1e6
APB		 10750 else
10751 {
10752 tree super_wfl = build_wfl_node (super_identifier_node,
10753 input_filename, 0, 0);
10754 return build_method_invocation (super_wfl, NULL_TREE);
10755 }
10756}
10757
10758/* Build a SUPER/THIS qualified method invocation. */
10759
10760static tree
10761build_this_super_qualified_invocation (use_this, name, args, lloc, rloc)
10762 int use_this;
10763 tree name, args;
10764 int lloc, rloc;
10765
10766{
10767 tree invok;
10768 tree wfl =
10769 build_wfl_node ((use_this ? this_identifier_node : super_identifier_node),
10770 input_filename, 0, 0);
10771 EXPR_WFL_LINECOL (wfl) = lloc;
10772 invok = build_method_invocation (name, args);
10773 return make_qualified_primary (wfl, invok, rloc);
10774}
10775
8b27f225
PB		 10776/* Build an incomplete CALL_EXPR node. */
10777
10778static tree
10779build_method_invocation (name, args)
10780 tree name;
10781 tree args;
10782{
10783 tree call = build (CALL_EXPR, NULL_TREE, name, args, NULL_TREE);
10784 TREE_SIDE_EFFECTS (call) = 1;
10785 EXPR_WFL_LINECOL (call) = EXPR_WFL_LINECOL (name);
10786 return call;
10787}
10788
10789/* Build an incomplete new xxx(...) node. */
10790
10791static tree
10792build_new_invocation (name, args)
10793 tree name, args;
10794{
10795 tree call = build (NEW_CLASS_EXPR, NULL_TREE, name, args, NULL_TREE);
10796 TREE_SIDE_EFFECTS (call) = 1;
10797 EXPR_WFL_LINECOL (call) = EXPR_WFL_LINECOL (name);
10798 return call;
10799}
10800
10801/* Build an incomplete assignment expression. */
10802
10803static tree
10804build_assignment (op, op_location, lhs, rhs)
10805 int op, op_location;
10806 tree lhs, rhs;
10807{
10808 tree assignment;
10809 /* Build the corresponding binop if we deal with a Compound
10810 Assignment operator. Mark the binop sub-tree as part of a
10811 Compound Assignment expression */
10812 if (op != ASSIGN_TK)
10813 {
10814 rhs = build_binop (BINOP_LOOKUP (op), op_location, lhs, rhs);
10815 COMPOUND_ASSIGN_P (rhs) = 1;
10816 }
10817 assignment = build (MODIFY_EXPR, NULL_TREE, lhs, rhs);
10818 TREE_SIDE_EFFECTS (assignment) = 1;
10819 EXPR_WFL_LINECOL (assignment) = op_location;
10820 return assignment;
10821}
10822
10823/* Print an INTEGER_CST node in a static buffer, and return the buffer. */
10824
12472854 10825char *
8b27f225
PB		 10826print_int_node (node)
10827 tree node;
10828{
10829 static char buffer [80];
10830 if (TREE_CONSTANT_OVERFLOW (node))
10831 sprintf (buffer, "<overflow>");
10832
10833 if (TREE_INT_CST_HIGH (node) == 0)
10834 sprintf (buffer, HOST_WIDE_INT_PRINT_UNSIGNED,
10835 TREE_INT_CST_LOW (node));
10836 else if (TREE_INT_CST_HIGH (node) == -1
10837 && TREE_INT_CST_LOW (node) != 0)
10838 {
10839 buffer [0] = '-';
10840 sprintf (&buffer [1], HOST_WIDE_INT_PRINT_UNSIGNED,
10841 -TREE_INT_CST_LOW (node));
10842 }
10843 else
10844 sprintf (buffer, HOST_WIDE_INT_PRINT_DOUBLE_HEX,
10845 TREE_INT_CST_HIGH (node), TREE_INT_CST_LOW (node));
10846
10847 return buffer;
10848}
10849
5e942c50
APB		 10850/* Return 1 if you an assignment of a FINAL is attempted */
10851
10852static int
10853check_final_assignment (lvalue, wfl)
10854 tree lvalue, wfl;
10855{
63a212ed
PB		 10856 if (DECL_P (lvalue) && FIELD_FINAL (lvalue) &&
10857 DECL_NAME (current_function_decl) != clinit_identifier_node)
5e942c50
APB		 10858 {
10859 parse_error_context
10860 (wfl, "Can't assign a value to the final variable `%s'",
10861 IDENTIFIER_POINTER (EXPR_WFL_NODE (wfl)));
10862 return 1;
10863 }
10864 return 0;
10865}
10866
10867/* Inline references to java.lang.PRIMTYPE.TYPE when accessed in
10868 read. This is needed to avoid circularities in the implementation
10869 of these fields in libjava. */
10870
10871static tree
10872maybe_build_primttype_type_ref (rhs, wfl)
10873 tree rhs, wfl;
10874{
10875 tree to_return = NULL_TREE;
10876 tree rhs_type = TREE_TYPE (rhs);
10877 if (TREE_CODE (rhs) == COMPOUND_EXPR)
10878 {
10879 tree n = TREE_OPERAND (rhs, 1);
10880 if (TREE_CODE (n) == VAR_DECL
10881 && DECL_NAME (n) == TYPE_identifier_node
10882 && rhs_type == class_ptr_type)
10883 {
10884 char *self_name = IDENTIFIER_POINTER (EXPR_WFL_NODE (wfl));
10885 if (!strncmp (self_name, "java.lang.", 10))
10886 to_return = build_primtype_type_ref (self_name);
10887 }
10888 }
10889 return (to_return ? to_return : rhs );
10890}
10891
8b27f225
PB		 10892/* 15.25 Assignment operators. */
10893
10894static tree
10895patch_assignment (node, wfl_op1, wfl_op2)
10896 tree node;
10897 tree wfl_op1;
10898 tree wfl_op2;
10899{
10900 tree rhs = TREE_OPERAND (node, 1);
5e942c50 10901 tree lvalue = TREE_OPERAND (node, 0), llvalue;
8b27f225
PB		 10902 tree lhs_type, rhs_type, new_rhs = NULL_TREE;
10903 int error_found = 0;
10904 int lvalue_from_array = 0;
10905
10906 /* Can't assign to a final. */
5e942c50
APB		 10907 if (check_final_assignment (lvalue, wfl_op1))
10908 error_found = 1;
8b27f225
PB		 10909
10910 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
10911
10912 /* Lhs can be a named variable */
10913 if (DECL_P (lvalue))
10914 {
10915 INITIALIZED_P (lvalue) = 1;
10916 lhs_type = TREE_TYPE (lvalue);
10917 }
10918 /* Or Lhs can be a array acccess. Should that be lvalue ? FIXME +
10919 comment on reason why */
10920 else if (TREE_CODE (wfl_op1) == ARRAY_REF)
10921 {
10922 lhs_type = TREE_TYPE (lvalue);
10923 lvalue_from_array = 1;
10924 }
10925 /* Or a field access */
10926 else if (TREE_CODE (lvalue) == COMPONENT_REF)
10927 lhs_type = TREE_TYPE (lvalue);
10928 /* Or a function return slot */
10929 else if (TREE_CODE (lvalue) == RESULT_DECL)
10930 lhs_type = TREE_TYPE (lvalue);
5e942c50
APB		 10931 /* Otherwise, we might want to try to write into an optimized static
10932 final, this is an of a different nature, reported further on. */
10933 else if (TREE_CODE (wfl_op1) == EXPR_WITH_FILE_LOCATION
10934 && resolve_expression_name (wfl_op1, &llvalue)
10935 && check_final_assignment (llvalue, wfl_op1))
10936 {
10937 error_found = 1;
10938 /* What we should do instead is resetting the all the flags
10939 previously set, exchange lvalue for llvalue and continue. */
10940 return error_mark_node;
10941 }
10942 else
8b27f225
PB		 10943 {
10944 parse_error_context (wfl_op1, "Invalid left hand side of assignment");
10945 error_found = 1;
10946 }
10947
10948 rhs_type = TREE_TYPE (rhs);
10949 /* 5.1 Try the assignment conversion for builtin type. */
10950 new_rhs = try_builtin_assignconv (wfl_op1, lhs_type, rhs);
10951
10952 /* 5.2 If it failed, try a reference conversion */
10953 if (!new_rhs && (new_rhs = try_reference_assignconv (lhs_type, rhs)))
10954 lhs_type = promote_type (rhs_type);
10955
10956 /* 15.25.2 If we have a compound assignment, convert RHS into the
10957 type of the LHS */
10958 else if (COMPOUND_ASSIGN_P (TREE_OPERAND (node, 1)))
10959 new_rhs = convert (lhs_type, rhs);
10960
10961 /* Explicit cast required. This is an error */
10962 if (!new_rhs)
10963 {
10964 char *t1 = strdup (lang_printable_name (TREE_TYPE (rhs), 0));
10965 char *t2 = strdup (lang_printable_name (lhs_type, 0));
10966 tree wfl;
10967 char operation [32]; /* Max size known */
10968
10969 /* If the assignment is part of a declaration, we use the WFL of
10970 the declared variable to point out the error and call it a
10971 declaration problem. If the assignment is a genuine =
10972 operator, we call is a operator `=' problem, otherwise we
10973 call it an assignment problem. In both of these last cases,
10974 we use the WFL of the operator to indicate the error. */
10975
10976 if (MODIFY_EXPR_FROM_INITIALIZATION_P (node))
10977 {
10978 wfl = wfl_op1;
10979 strcpy (operation, "declaration");
10980 }
10981 else
10982 {
10983 wfl = wfl_operator;
10984 if (COMPOUND_ASSIGN_P (TREE_OPERAND (node, 1)))
10985 strcpy (operation, "assignment");
10986 else if (TREE_CODE (TREE_OPERAND (node, 0)) == RESULT_DECL)
10987 strcpy (operation, "`return'");
10988 else
10989 strcpy (operation, "`='");
10990 }
10991
10992 parse_error_context
10993 (wfl, (!valid_cast_to_p (rhs_type, lhs_type) ?
10994 "Incompatible type for %s. Can't convert `%s' to `%s'" :
10995 "Incompatible type for %s. Explicit cast "
10996 "needed to convert `%s' to `%s'"), operation, t1, t2);
10997 free (t1); free (t2);
10998 error_found = 1;
10999 }
11000
c877974e
APB		 11001 /* Inline read access to java.lang.PRIMTYPE.TYPE */
11002 if (new_rhs)
11003 new_rhs = maybe_build_primttype_type_ref (new_rhs, wfl_op2);
5e942c50 11004
8b27f225
PB		 11005 if (error_found)
11006 return error_mark_node;
11007
11008 /* If we built a compound expression as the result of a reference
11009 assignment into an array element, return it here. */
11010 if (TREE_CODE (node) == COMPOUND_EXPR)
11011 return node;
22eed1e6 11012
8b27f225
PB		 11013 TREE_OPERAND (node, 0) = lvalue;
11014 TREE_OPERAND (node, 1) = new_rhs;
11015 TREE_TYPE (node) = lhs_type;
11016 return node;
11017}
11018
63a212ed
PB		 11019/* Optimize static (final) field initialized upon declaration.
11020 - If the field is static final and is assigned to a primitive
11021 constant type, then set its DECL_INITIAL to the value.
11022 - More to come. */
11023
11024static tree
11025patch_initialized_static_field (node)
11026 tree node;
11027{
11028 tree field = TREE_OPERAND (node, 0);
11029 tree value = TREE_OPERAND (node, 1);
11030
5b09b33e 11031 if (DECL_INITIAL (field) != NULL_TREE)
63a212ed 11032 {
5b09b33e
PB		 11033 tree type = TREE_TYPE (value);
11034 if (FIELD_FINAL (field) && TREE_CONSTANT (value)
11035 && (JPRIMITIVE_TYPE_P (type)
11036 || (flag_emit_class_files
11037 && TREE_CODE (type) == POINTER_TYPE
11038 && TREE_TYPE (type) == string_type_node)))
11039 {
11040 DECL_INITIAL (field) = value;
11041 return empty_stmt_node;
11042 }
11043 DECL_INITIAL (field) = NULL_TREE;
63a212ed
PB		 11044 }
11045 return node;
11046}
11047
8b27f225
PB		 11048/* Check that type SOURCE can be cast into type DEST. If the cast
11049 can't occur at all, return 0 otherwise 1. This function is used to
11050 produce accurate error messages on the reasons why an assignment
11051 failed. */
11052
11053static tree
11054try_reference_assignconv (lhs_type, rhs)
11055 tree lhs_type, rhs;
11056{
11057 tree new_rhs = NULL_TREE;
11058 tree rhs_type = TREE_TYPE (rhs);
11059
11060 if (!JPRIMITIVE_TYPE_P (rhs_type) && JREFERENCE_TYPE_P (lhs_type))
11061 {
11062 /* `null' may be assigned to any reference type */
11063 if (rhs == null_pointer_node)
11064 new_rhs = null_pointer_node;
11065 /* Try the reference assignment conversion */
11066 else if (valid_ref_assignconv_cast_p (rhs_type, lhs_type, 0))
11067 new_rhs = rhs;
11068 /* This is a magic assignment that we process differently */
11069 else if (rhs == soft_exceptioninfo_call_node)
11070 new_rhs = rhs;
11071 }
11072 return new_rhs;
11073}
11074
11075/* Check that RHS can be converted into LHS_TYPE by the assignment
11076 conversion (5.2), for the cases of RHS being a builtin type. Return
11077 NULL_TREE if the conversion fails or if because RHS isn't of a
11078 builtin type. Return a converted RHS if the conversion is possible. */
11079
11080static tree
11081try_builtin_assignconv (wfl_op1, lhs_type, rhs)
11082 tree wfl_op1, lhs_type, rhs;
11083{
11084 tree new_rhs = NULL_TREE;
11085 tree rhs_type = TREE_TYPE (rhs);
11086
5e942c50
APB		 11087 /* Zero accepted everywhere */
11088 if (TREE_CODE (rhs) == INTEGER_CST
11089 && TREE_INT_CST_HIGH (rhs) == 0 && TREE_INT_CST_LOW (rhs) == 0
11090 && JPRIMITIVE_TYPE_P (rhs_type))
11091 new_rhs = convert (lhs_type, rhs);
11092
8b27f225
PB		 11093 /* 5.1.1 Try Identity Conversion,
11094 5.1.2 Try Widening Primitive Conversion */
5e942c50 11095 else if (valid_builtin_assignconv_identity_widening_p (lhs_type, rhs_type))
8b27f225
PB		 11096 new_rhs = convert (lhs_type, rhs);
11097
11098 /* Try a narrowing primitive conversion (5.1.3):
11099 - expression is a constant expression of type int AND
11100 - variable is byte, short or char AND
11101 - The value of the expression is representable in the type of the
11102 variable */
11103 else if (rhs_type == int_type_node && TREE_CONSTANT (rhs)
11104 && (lhs_type == byte_type_node || lhs_type == char_type_node
11105 || lhs_type == short_type_node))
11106 {
11107 if (int_fits_type_p (rhs, lhs_type))
11108 new_rhs = convert (lhs_type, rhs);
11109 else if (wfl_op1) /* Might be called with a NULL */
11110 parse_warning_context
11111 (wfl_op1, "Constant expression `%s' to wide for narrowing "
11112 "primitive conversion to `%s'",
11113 print_int_node (rhs), lang_printable_name (lhs_type, 0));
11114 /* Reported a warning that will turn into an error further
11115 down, so we don't return */
11116 }
11117
11118 return new_rhs;
11119}
11120
11121/* Return 1 if RHS_TYPE can be converted to LHS_TYPE by identity
11122 conversion (5.1.1) or widening primitve conversion (5.1.2). Return
11123 0 is the conversion test fails. This implements parts the method
11124 invocation convertion (5.3). */
11125
11126static int
11127valid_builtin_assignconv_identity_widening_p (lhs_type, rhs_type)
11128 tree lhs_type, rhs_type;
11129{
5e942c50
APB		 11130 int all_primitive;
11131
11132 if (lhs_type == rhs_type)
11133 return 1;
11134
c877974e
APB		 11135 /* Sometimes, instead of passing a type, we pass integer_zero_node
11136 so we know that an integral type can accomodate it */
11137 if (JINTEGRAL_TYPE_P (lhs_type) && (rhs_type == integer_zero_node))
11138 return 1;
11139
5e942c50 11140 all_primitive =
8b27f225
PB		 11141 JPRIMITIVE_TYPE_P (lhs_type) && JPRIMITIVE_TYPE_P (rhs_type);
11142
11143 if (!all_primitive)
11144 return 0;
11145
8b27f225
PB		 11146 /* byte, even if it's smaller than a char can't be converted into a
11147 char. Short can't too, but the < test below takes care of that */
11148 if (lhs_type == char_type_node && rhs_type == byte_type_node)
11149 return 0;
11150
5e942c50
APB		 11151 /* Accept all promoted type here. Note, we can't use <= in the test
11152 below, because we still need to bounce out assignments of short
11153 to char and the likes */
11154 if (lhs_type == int_type_node
11155 && (rhs_type == promoted_byte_type_node
11156 || rhs_type == promoted_short_type_node
11157 || rhs_type == promoted_char_type_node
11158 || rhs_type == promoted_boolean_type_node))
11159 return 1;
11160
8b27f225
PB		 11161 if (JINTEGRAL_TYPE_P (rhs_type)
11162 && ((TYPE_PRECISION (rhs_type) < TYPE_PRECISION (lhs_type))
11163 || (JFLOAT_TYPE_P (lhs_type) &&
11164 TYPE_PRECISION (rhs_type) == TYPE_PRECISION (lhs_type))))
11165 return 1;
11166 else if (JFLOAT_TYPE_P (rhs_type)
11167 && (TYPE_PRECISION (rhs_type) < TYPE_PRECISION (lhs_type)))
11168 return 1;
11169
11170 return 0;
11171}
11172
11173/* Check that something of SOURCE type can be assigned or cast to
11174 something of DEST type at runtime. Return 1 if the operation is
11175 valid, 0 otherwise. If CAST is set to 1, we're treating the case
11176 were SOURCE is cast into DEST, which borrows a lot of the
11177 assignment check. */
11178
11179static int
11180valid_ref_assignconv_cast_p (source, dest, cast)
11181 tree source;
11182 tree dest;
11183 int cast;
11184{
5e942c50
APB		 11185 if (JNULLP_TYPE_P (source))
11186 return 1;
8b27f225
PB		 11187 if (TREE_CODE (source) == POINTER_TYPE)
11188 source = TREE_TYPE (source);
11189 if (TREE_CODE (dest) == POINTER_TYPE)
11190 dest = TREE_TYPE (dest);
11191 /* Case where SOURCE is a class type */
11192 if (TYPE_CLASS_P (source))
11193 {
11194 if (TYPE_CLASS_P (dest))
11195 return source == dest || inherits_from_p (source, dest)
11196 || (cast && inherits_from_p (dest, source));
11197 if (TYPE_INTERFACE_P (dest))
11198 {
11199 /* If doing a cast and SOURCE is final, the operation is
11200 always correct a compile time (because even if SOURCE
11201 does not implement DEST, a subclass of SOURCE might). */
11202 if (cast && !CLASS_FINAL (TYPE_NAME (source)))
11203 return 1;
11204 /* Otherwise, SOURCE must implement DEST */
11205 return interface_of_p (dest, source);
11206 }
11207 /* DEST is an array, cast permited if SOURCE is of Object type */
11208 return (cast && source == object_type_node ? 1 : 0);
11209 }
11210 if (TYPE_INTERFACE_P (source))
11211 {
11212 if (TYPE_CLASS_P (dest))
11213 {
11214 /* If not casting, DEST must be the Object type */
11215 if (!cast)
11216 return dest == object_type_node;
11217 /* We're doing a cast. The cast is always valid is class
11218 DEST is not final, otherwise, DEST must implement SOURCE */
11219 else if (!CLASS_FINAL (TYPE_NAME (dest)))
11220 return 1;
11221 else
11222 return interface_of_p (source, dest);
11223 }
11224 if (TYPE_INTERFACE_P (dest))
11225 {
11226 /* If doing a cast, then if SOURCE and DEST contain method
11227 with the same signature but different return type, then
11228 this is a (compile time) error */
11229 if (cast)
11230 {
11231 tree method_source, method_dest;
11232 tree source_type;
11233 tree source_sig;
11234 tree source_name;
11235 for (method_source = TYPE_METHODS (source); method_source;
11236 method_source = TREE_CHAIN (method_source))
11237 {
11238 source_sig =
11239 build_java_argument_signature (TREE_TYPE (method_source));
11240 source_type = TREE_TYPE (TREE_TYPE (method_source));
11241 source_name = DECL_NAME (method_source);
11242 for (method_dest = TYPE_METHODS (dest);
11243 method_dest; method_dest = TREE_CHAIN (method_dest))
11244 if (source_sig ==
11245 build_java_argument_signature (TREE_TYPE (method_dest))
11246 && source_name == DECL_NAME (method_dest)
11247 && source_type != TREE_TYPE (TREE_TYPE (method_dest)))
11248 return 0;
11249 }
11250 return 1;
11251 }
11252 else
11253 return source == dest || interface_of_p (dest, source);
11254 }
11255 else /* Array */
11256 return 0;
11257 }
11258 if (TYPE_ARRAY_P (source))
11259 {
11260 if (TYPE_CLASS_P (dest))
11261 return dest == object_type_node;
11262 if (TYPE_INTERFACE_P (dest))
11263 return 0; /* Install test on Clonable. FIXME */
11264 else /* Arrays */
11265 {
11266 tree source_element_type = TYPE_ARRAY_ELEMENT (source);
11267 tree dest_element_type = TYPE_ARRAY_ELEMENT (dest);
11268
11269 /* In case of severe errors, they turn out null */
11270 if (!dest_element_type || !source_element_type)
11271 return 0;
11272 if (source_element_type == dest_element_type)
11273 return 1;
11274 return valid_ref_assignconv_cast_p (source_element_type,
11275 dest_element_type, cast);
11276 }
11277 return 0;
11278 }
11279 return 0;
11280}
11281
11282static int
11283valid_cast_to_p (source, dest)
11284 tree source;
11285 tree dest;
11286{
11287 if (TREE_CODE (source) == POINTER_TYPE)
11288 source = TREE_TYPE (source);
11289 if (TREE_CODE (dest) == POINTER_TYPE)
11290 dest = TREE_TYPE (dest);
11291
11292 if (TREE_CODE (source) == RECORD_TYPE && TREE_CODE (dest) == RECORD_TYPE)
11293 return valid_ref_assignconv_cast_p (source, dest, 1);
11294
11295 else if (JNUMERIC_TYPE_P (source) && JNUMERIC_TYPE_P (dest))
11296 return 1;
11297
11298 return 0;
11299}
11300
11301/* Method invocation conversion test. Return 1 if type SOURCE can be
11302 converted to type DEST through the methond invocation conversion
11303 process (5.3) */
11304
12472854
PB		 11305static tree
11306do_unary_numeric_promotion (arg)
11307 tree arg;
11308{
11309 tree type = TREE_TYPE (arg);
11310 if (TREE_CODE (type) == INTEGER_TYPE ? TYPE_PRECISION (type) < 32
11311 : TREE_CODE (type) == CHAR_TYPE)
11312 arg = convert (int_type_node, arg);
11313 return arg;
11314}
11315
8b27f225
PB		 11316static int
11317valid_method_invocation_conversion_p (dest, source)
11318 tree dest, source;
11319{
c877974e 11320 return (((JPRIMITIVE_TYPE_P (source) || (source == integer_zero_node))
8b27f225
PB		 11321 && JPRIMITIVE_TYPE_P (dest)
11322 && valid_builtin_assignconv_identity_widening_p (dest, source))
5e942c50
APB		 11323 || ((JREFERENCE_TYPE_P (source) || JNULLP_TYPE_P (source))
11324 && (JREFERENCE_TYPE_P (dest) || JNULLP_TYPE_P (dest))
8b27f225
PB		 11325 && valid_ref_assignconv_cast_p (source, dest, 0)));
11326}
11327
11328/* Build an incomplete binop expression. */
11329
11330static tree
11331build_binop (op, op_location, op1, op2)
11332 enum tree_code op;
11333 int op_location;
11334 tree op1, op2;
11335{
5e942c50 11336 tree binop = build (op, NULL_TREE, op1, op2);
8b27f225
PB		 11337 TREE_SIDE_EFFECTS (binop) = 1;
11338 /* Store the location of the operator, for better error report. The
11339 string of the operator will be rebuild based on the OP value. */
11340 EXPR_WFL_LINECOL (binop) = op_location;
11341 return binop;
11342}
11343
11344/* Build the string of the operator retained by NODE. If NODE is part
11345 of a compound expression, add an '=' at the end of the string. This
11346 function is called when an error needs to be reported on an
11347 operator. The string is returned as a pointer to a static character
11348 buffer. */
11349
11350static char *
11351operator_string (node)
11352 tree node;
11353{
11354#define BUILD_OPERATOR_STRING(S) \
11355 { \
11356 sprintf (buffer, "%s%s", S, (COMPOUND_ASSIGN_P (node) ? "=" : "")); \
11357 return buffer; \
11358 }
11359
11360 static char buffer [10];
11361 switch (TREE_CODE (node))
11362 {
11363 case MULT_EXPR: BUILD_OPERATOR_STRING ("*");
11364 case RDIV_EXPR: BUILD_OPERATOR_STRING ("/");
11365 case TRUNC_MOD_EXPR: BUILD_OPERATOR_STRING ("%");
11366 case PLUS_EXPR: BUILD_OPERATOR_STRING ("+");
11367 case MINUS_EXPR: BUILD_OPERATOR_STRING ("-");
11368 case LSHIFT_EXPR: BUILD_OPERATOR_STRING ("<<");
11369 case RSHIFT_EXPR: BUILD_OPERATOR_STRING (">>");
11370 case URSHIFT_EXPR: BUILD_OPERATOR_STRING (">>>");
11371 case BIT_AND_EXPR: BUILD_OPERATOR_STRING ("&");
11372 case BIT_XOR_EXPR: BUILD_OPERATOR_STRING ("^");
11373 case BIT_IOR_EXPR: BUILD_OPERATOR_STRING ("|");
11374 case TRUTH_ANDIF_EXPR: BUILD_OPERATOR_STRING ("&&");
11375 case TRUTH_ORIF_EXPR: BUILD_OPERATOR_STRING ("||");
11376 case EQ_EXPR: BUILD_OPERATOR_STRING ("==");
11377 case NE_EXPR: BUILD_OPERATOR_STRING ("!=");
11378 case GT_EXPR: BUILD_OPERATOR_STRING (">");
11379 case GE_EXPR: BUILD_OPERATOR_STRING (">=");
11380 case LT_EXPR: BUILD_OPERATOR_STRING ("<");
11381 case LE_EXPR: BUILD_OPERATOR_STRING ("<=");
11382 case UNARY_PLUS_EXPR: BUILD_OPERATOR_STRING ("+");
11383 case NEGATE_EXPR: BUILD_OPERATOR_STRING ("-");
11384 case TRUTH_NOT_EXPR: BUILD_OPERATOR_STRING ("!");
11385 case BIT_NOT_EXPR: BUILD_OPERATOR_STRING ("~");
11386 case PREINCREMENT_EXPR: /* Fall through */
11387 case POSTINCREMENT_EXPR: BUILD_OPERATOR_STRING ("++");
11388 case PREDECREMENT_EXPR: /* Fall through */
11389 case POSTDECREMENT_EXPR: BUILD_OPERATOR_STRING ("--");
11390 default:
11391 fatal ("unregistered operator %s - operator_string",
11392 tree_code_name [TREE_CODE (node)]);
11393 }
11394 return NULL;
11395#undef BUILD_OPERATOR_STRING
11396}
11397
11398/* Binary operators (15.16 up to 15.18). We return error_mark_node on
11399 errors but we modify NODE so that it contains the type computed
11400 according to the expression, when it's fixed. Otherwise, we write
11401 error_mark_node as the type. It allows us to further the analysis
11402 of remaining nodes and detects more errors in certain cases. */
11403
11404static tree
11405patch_binop (node, wfl_op1, wfl_op2)
11406 tree node;
11407 tree wfl_op1;
11408 tree wfl_op2;
11409{
11410 tree op1 = TREE_OPERAND (node, 0);
11411 tree op2 = TREE_OPERAND (node, 1);
11412 tree op1_type = TREE_TYPE (op1);
11413 tree op2_type = TREE_TYPE (op2);
11414 tree prom_type;
11415 int code = TREE_CODE (node);
11416
11417 /* If 1, tell the routine that we have to return error_mark_node
11418 after checking for the initialization of the RHS */
11419 int error_found = 0;
11420
8b27f225
PB		 11421 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
11422
8b27f225
PB		 11423 switch (code)
11424 {
11425 /* 15.16 Multiplicative operators */
11426 case MULT_EXPR: /* 15.16.1 Multiplication Operator * */
11427 case RDIV_EXPR: /* 15.16.2 Division Operator / */
11428 case TRUNC_MOD_EXPR: /* 15.16.3 Remainder operator % */
11429 if (!JPRIMITIVE_TYPE_P (op1_type) || !JPRIMITIVE_TYPE_P (op2_type))
11430 {
11431 if (!JPRIMITIVE_TYPE_P (op1_type))
11432 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op1_type);
11433 if (!JPRIMITIVE_TYPE_P (op2_type) && (op1_type != op2_type))
11434 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op2_type);
11435 TREE_TYPE (node) = error_mark_node;
11436 error_found = 1;
11437 break;
11438 }
11439 prom_type = binary_numeric_promotion (op1_type, op2_type, &op1, &op2);
11440 /* Change the division operator if necessary */
11441 if (code == RDIV_EXPR && TREE_CODE (prom_type) == INTEGER_TYPE)
11442 TREE_SET_CODE (node, TRUNC_DIV_EXPR);
11443 /* This one is more complicated. FLOATs are processed by a function
11444 call to soft_fmod. */
11445 if (code == TRUNC_MOD_EXPR)
11446 return build_java_binop (TRUNC_MOD_EXPR, prom_type, op1, op2);
11447 break;
11448
11449 /* 15.17 Additive Operators */
11450 case PLUS_EXPR: /* 15.17.1 String Concatenation Operator + */
11451
11452 /* Operation is valid if either one argument is a string
11453 constant, a String object or a StringBuffer crafted for the
11454 purpose of the a previous usage of the String concatenation
11455 operator */
11456
11457 if (TREE_CODE (op1) == STRING_CST
11458 || TREE_CODE (op2) == STRING_CST
11459 || JSTRING_TYPE_P (op1_type)
11460 || JSTRING_TYPE_P (op2_type)
11461 || IS_CRAFTED_STRING_BUFFER_P (op1)
11462 || IS_CRAFTED_STRING_BUFFER_P (op2))
11463 return build_string_concatenation (op1, op2);
11464
11465 case MINUS_EXPR: /* 15.17.2 Additive Operators (+ and -) for
11466 Numeric Types */
11467 if (!JPRIMITIVE_TYPE_P (op1_type) || !JPRIMITIVE_TYPE_P (op2_type))
11468 {
11469 if (!JPRIMITIVE_TYPE_P (op1_type))
11470 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op1_type);
11471 if (!JPRIMITIVE_TYPE_P (op2_type) && (op1_type != op2_type))
11472 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op2_type);
11473 TREE_TYPE (node) = error_mark_node;
11474 error_found = 1;
11475 break;
11476 }
11477 prom_type = binary_numeric_promotion (op1_type, op2_type, &op1, &op2);
11478 break;
11479
11480 /* 15.18 Shift Operators */
11481 case LSHIFT_EXPR:
11482 case RSHIFT_EXPR:
11483 case URSHIFT_EXPR:
11484 if (!JINTEGRAL_TYPE_P (op1_type) || !JINTEGRAL_TYPE_P (op2_type))
11485 {
11486 if (!JINTEGRAL_TYPE_P (op1_type))
11487 ERROR_CAST_NEEDED_TO_INTEGRAL (wfl_operator, node, op1_type);
11488 else
11489 parse_error_context
11490 (wfl_operator, (JPRIMITIVE_TYPE_P (op2_type) ?
11491 "Incompatible type for `%s'. Explicit cast needed to convert "
11492 "shift distance from `%s' to integral" :
11493 "Incompatible type for `%s'. Can't convert shift distance from "
11494 "`%s' to integral"),
11495 operator_string (node), lang_printable_name (op2_type, 0));
11496 TREE_TYPE (node) = error_mark_node;
11497 error_found = 1;
11498 break;
11499 }
11500
11501 /* Unary numeric promotion (5.6.1) is performed on each operand
11502 separatly */
12472854
PB		 11503 op1 = do_unary_numeric_promotion (op1);
11504 op2 = do_unary_numeric_promotion (op2);
8b27f225
PB		 11505
11506 /* The type of the shift expression is the type of the promoted
11507 type of the left-hand operand */
11508 prom_type = TREE_TYPE (op1);
11509
11510 /* Shift int only up to 0x1f and long up to 0x3f */
11511 if (prom_type == int_type_node)
11512 op2 = fold (build (BIT_AND_EXPR, int_type_node, op2,
11513 build_int_2 (0x1f, 0)));
11514 else
11515 op2 = fold (build (BIT_AND_EXPR, int_type_node, op2,
11516 build_int_2 (0x3f, 0)));
11517
11518 /* The >>> operator is a >> operating on unsigned quantities */
12472854 11519 if (code == URSHIFT_EXPR && ! flag_emit_class_files)
8b27f225
PB		 11520 {
11521 op1 = convert (unsigned_type (prom_type), op1);
11522 TREE_SET_CODE (node, RSHIFT_EXPR);
11523 }
11524 break;
5e942c50
APB		 11525
11526 /* 15.19.1 Type Comparison Operator instaceof */
11527 case INSTANCEOF_EXPR:
11528
11529 TREE_TYPE (node) = boolean_type_node;
11530
11531 if (!(op2_type = resolve_type_during_patch (op2)))
11532 return error_mark_node;
11533
11534 /* The first operand must be a reference type or the null type */
11535 if (!JREFERENCE_TYPE_P (op1_type) && op1 != null_pointer_node)
11536 error_found = 1; /* Error reported further below */
11537
11538 /* The second operand must be a reference type */
11539 if (!JREFERENCE_TYPE_P (op2_type))
11540 {
11541 SET_WFL_OPERATOR (wfl_operator, node, wfl_op2);
11542 parse_error_context
11543 (wfl_operator, "Invalid argument `%s' for `instanceof'",
11544 lang_printable_name (op2_type, 0));
11545 error_found = 1;
11546 }
11547
11548 if (!error_found && valid_ref_assignconv_cast_p (op1_type, op2_type, 1))
11549 {
11550 /* If the first operand is null, the result is always false */
11551 if (op1 == null_pointer_node)
11552 return boolean_false_node;
12472854
PB		 11553 else if (flag_emit_class_files)
11554 {
11555 TREE_OPERAND (node, 1) = op2_type;
11556 return node;
11557 }
5e942c50
APB		 11558 /* Otherwise we have to invoke instance of to figure it out */
11559 else
11560 {
11561 tree call =
11562 build (CALL_EXPR, boolean_type_node,
11563 build_address_of (soft_instanceof_node),
11564 tree_cons
11565 (NULL_TREE, op1,
11566 build_tree_list (NULL_TREE,
11567 build_class_ref (op2_type))),
11568 NULL_TREE);
11569 TREE_SIDE_EFFECTS (call) = 1;
11570 return call;
11571 }
11572 }
11573 /* There is no way the expression operand can be an instance of
11574 the type operand. This is a compile time error. */
11575 else
11576 {
11577 char *t1 = strdup (lang_printable_name (op1_type, 0));
11578 SET_WFL_OPERATOR (wfl_operator, node, wfl_op1);
11579 parse_error_context
11580 (wfl_operator, "Impossible for `%s' to be instance of `%s'",
11581 t1, lang_printable_name (op2_type, 0));
11582 free (t1);
11583 error_found = 1;
11584 }
8b27f225 11585
5e942c50 11586 break;
8b27f225
PB		 11587
11588 /* 15.21 Bitwise and Logical Operators */
11589 case BIT_AND_EXPR:
11590 case BIT_XOR_EXPR:
11591 case BIT_IOR_EXPR:
11592 if (JINTEGRAL_TYPE_P (op1_type) && JINTEGRAL_TYPE_P (op2_type))
11593 /* Binary numeric promotion is performed on both operand and the
11594 expression retain that type */
11595 prom_type = binary_numeric_promotion (op1_type, op2_type, &op1, &op2);
11596
11597 else if (TREE_CODE (op1_type) == BOOLEAN_TYPE
11598 && TREE_CODE (op1_type) == BOOLEAN_TYPE)
11599 /* The type of the bitwise operator expression is BOOLEAN */
11600 prom_type = boolean_type_node;
11601 else
11602 {
11603 if (!JINTEGRAL_TYPE_P (op1_type))
11604 ERROR_CAST_NEEDED_TO_INTEGRAL (wfl_operator, node, op1_type);
11605 if (!JINTEGRAL_TYPE_P (op2_type) && (op1_type != op2_type))
11606 ERROR_CAST_NEEDED_TO_INTEGRAL (wfl_operator, node, op2_type);
11607 TREE_TYPE (node) = error_mark_node;
11608 error_found = 1;
11609 /* Insert a break here if adding thing before the switch's
11610 break for this case */
11611 }
11612 break;
11613
11614 /* 15.22 Conditional-And Operator */
11615 case TRUTH_ANDIF_EXPR:
11616 /* 15.23 Conditional-Or Operator */
11617 case TRUTH_ORIF_EXPR:
11618 /* Operands must be of BOOLEAN type */
11619 if (TREE_CODE (op1_type) != BOOLEAN_TYPE ||
11620 TREE_CODE (op2_type) != BOOLEAN_TYPE)
11621 {
11622 if (TREE_CODE (op1_type) != BOOLEAN_TYPE)
11623 ERROR_CANT_CONVERT_TO_BOOLEAN (wfl_operator, node, op1_type);
11624 if (TREE_CODE (op2_type) != BOOLEAN_TYPE && (op1_type != op2_type))
11625 ERROR_CANT_CONVERT_TO_BOOLEAN (wfl_operator, node, op2_type);
11626 TREE_TYPE (node) = boolean_type_node;
11627 error_found = 1;
11628 break;
11629 }
11630 /* The type of the conditional operators is BOOLEAN */
11631 prom_type = boolean_type_node;
11632 break;
11633
11634 /* 15.19.1 Numerical Comparison Operators <, <=, >, >= */
11635 case LT_EXPR:
11636 case GT_EXPR:
11637 case LE_EXPR:
11638 case GE_EXPR:
11639 /* The type of each of the operands must be a primitive numeric
11640 type */
11641 if (!JNUMERIC_TYPE_P (op1_type) || ! JNUMERIC_TYPE_P (op2_type))
11642 {
11643 if (!JNUMERIC_TYPE_P (op1_type))
11644 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op1_type);
11645 if (!JNUMERIC_TYPE_P (op2_type) && (op1_type != op2_type))
11646 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op2_type);
11647 TREE_TYPE (node) = boolean_type_node;
11648 error_found = 1;
11649 break;
11650 }
11651 /* Binary numeric promotion is performed on the operands */
11652 binary_numeric_promotion (op1_type, op2_type, &op1, &op2);
11653 /* The type of the relation expression is always BOOLEAN */
11654 prom_type = boolean_type_node;
11655 break;
11656
11657 /* 15.20 Equality Operator */
11658 case EQ_EXPR:
11659 case NE_EXPR:
11660 /* 15.20.1 Numerical Equality Operators == and != */
11661 /* Binary numeric promotion is performed on the operands */
5e942c50 11662 if (JNUMERIC_TYPE_P (op1_type) && JNUMERIC_TYPE_P (op2_type))
8b27f225
PB		 11663 binary_numeric_promotion (op1_type, op2_type, &op1, &op2);
11664
11665 /* 15.20.2 Boolean Equality Operators == and != */
11666 else if (TREE_CODE (op1_type) == BOOLEAN_TYPE &&
11667 TREE_CODE (op2_type) == BOOLEAN_TYPE)
11668 ; /* Nothing to do here */
11669
11670 /* 15.20.3 Reference Equality Operators == and != */
5e942c50
APB		 11671 /* Types have to be either references or the null type. If
11672 they're references, it must be possible to convert either
11673 type to the other by casting conversion. */
8b27f225
PB		 11674 else if (op1 == null_pointer_node || op2 == null_pointer_node
11675 || (JREFERENCE_TYPE_P (op1_type) && JREFERENCE_TYPE_P (op2_type)
5e942c50
APB		 11676 && (valid_ref_assignconv_cast_p (op1_type, op2_type, 1)
11677 || valid_ref_assignconv_cast_p (op2_type,
11678 op1_type, 1))))
8b27f225
PB		 11679 ; /* Nothing to do here */
11680
11681 /* Else we have an error figure what can't be converted into
11682 what and report the error */
11683 else
11684 {
11685 char *t1;
11686 t1 = strdup (lang_printable_name (op1_type, 0));
11687 parse_error_context
11688 (wfl_operator, "Incompatible type for `%s'. Can't convert `%s' "
11689 "to `%s'", operator_string (node), t1,
11690 lang_printable_name (op2_type, 0));
11691 free (t1);
11692 TREE_TYPE (node) = boolean_type_node;
11693 error_found = 1;
11694 break;
11695 }
11696 prom_type = boolean_type_node;
11697 break;
11698 }
11699
8b27f225
PB		 11700 if (error_found)
11701 return error_mark_node;
11702
11703 TREE_OPERAND (node, 0) = op1;
11704 TREE_OPERAND (node, 1) = op2;
11705 TREE_TYPE (node) = prom_type;
11706 return fold (node);
11707}
11708
11709/* Concatenate the STRING_CST CSTE and STRING. When AFTER is a non
11710 zero value, the value of CSTE comes after the valude of STRING */
11711
11712static tree
11713do_merge_string_cste (cste, string, string_len, after)
11714 tree cste;
11715 char *string;
11716 int string_len, after;
11717{
11718 int len = TREE_STRING_LENGTH (cste) + string_len;
11719 char *old = TREE_STRING_POINTER (cste);
11720 TREE_STRING_LENGTH (cste) = len;
11721 TREE_STRING_POINTER (cste) = obstack_alloc (expression_obstack, len+1);
11722 if (after)
11723 {
11724 strcpy (TREE_STRING_POINTER (cste), string);
11725 strcat (TREE_STRING_POINTER (cste), old);
11726 }
11727 else
11728 {
11729 strcpy (TREE_STRING_POINTER (cste), old);
11730 strcat (TREE_STRING_POINTER (cste), string);
11731 }
11732 return cste;
11733}
11734
11735/* Tries to merge OP1 (a STRING_CST) and OP2 (if suitable). Return a
11736 new STRING_CST on success, NULL_TREE on failure */
11737
11738static tree
11739merge_string_cste (op1, op2, after)
11740 tree op1, op2;
11741 int after;
11742{
11743 /* Handle two string constants right away */
11744 if (TREE_CODE (op2) == STRING_CST)
11745 return do_merge_string_cste (op1, TREE_STRING_POINTER (op2),
11746 TREE_STRING_LENGTH (op2), after);
11747
11748 /* Reasonable integer constant can be treated right away */
11749 if (TREE_CODE (op2) == INTEGER_CST && !TREE_CONSTANT_OVERFLOW (op2))
11750 {
11751 static char *boolean_true = "true";
11752 static char *boolean_false = "false";
11753 static char *null_pointer = "null";
11754 char ch[3];
11755 char *string;
11756
11757 if (op2 == boolean_true_node)
11758 string = boolean_true;
11759 else if (op2 == boolean_false_node)
11760 string = boolean_false;
11761 else if (op2 == null_pointer_node)
11762 string = null_pointer;
11763 else if (TREE_TYPE (op2) == char_type_node)
11764 {
11765 ch[0] = (char )TREE_INT_CST_LOW (op2);
11766 ch[1] = '\0';
11767 string = ch;
11768 }
11769 else
11770 string = print_int_node (op2);
11771
11772 return do_merge_string_cste (op1, string, strlen (string), after);
11773 }
11774 return NULL_TREE;
11775}
11776
11777/* Tries to statically concatenate OP1 and OP2 if possible. Either one
11778 has to be a STRING_CST and the other part must be a STRING_CST or a
11779 INTEGRAL constant. Return a new STRING_CST if the operation
11780 succeed, NULL_TREE otherwise.
11781
11782 If the case we want to optimize for space, we might want to return
11783 NULL_TREE for each invocation of this routine. FIXME */
11784
11785static tree
11786string_constant_concatenation (op1, op2)
11787 tree op1, op2;
11788{
11789 if (TREE_CODE (op1) == STRING_CST || (TREE_CODE (op2) == STRING_CST))
11790 {
11791 tree string, rest;
11792 int invert;
11793
11794 string = (TREE_CODE (op1) == STRING_CST ? op1 : op2);
11795 rest = (string == op1 ? op2 : op1);
11796 invert = (string == op1 ? 0 : 1 );
11797
11798 /* Walk REST, only if it looks reasonable */
11799 if (TREE_CODE (rest) != STRING_CST
11800 && !IS_CRAFTED_STRING_BUFFER_P (rest)
11801 && !JSTRING_TYPE_P (TREE_TYPE (rest))
11802 && TREE_CODE (rest) == EXPR_WITH_FILE_LOCATION)
11803 {
11804 rest = java_complete_tree (rest);
11805 if (rest == error_mark_node)
11806 return error_mark_node;
11807 rest = fold (rest);
11808 }
11809 return merge_string_cste (string, rest, invert);
11810 }
11811 return NULL_TREE;
11812}
11813
11814/* Implement the `+' operator. Does static optimization if possible,
11815 otherwise create (if necessary) and append elements to a
11816 StringBuffer. The StringBuffer will be carried around until it is
11817 used for a function call or an assignment. Then toString() will be
11818 called on it to turn it into a String object. */
11819
11820static tree
11821build_string_concatenation (op1, op2)
11822 tree op1, op2;
11823{
11824 tree result;
11825
11826 /* Try to do some static optimization */
11827 if ((result = string_constant_concatenation (op1, op2)))
11828 return result;
11829
11830 /* If operands are string constant, turn then into object references */
11831
11832 if (TREE_CODE (op1) == STRING_CST)
11833 op1 = patch_string_cst (op1);
11834 if (TREE_CODE (op2) == STRING_CST)
11835 op2 = patch_string_cst (op2);
11836
11837 /* If OP1 isn't already a StringBuffer, create and
11838 initialize a new one */
11839 if (!IS_CRAFTED_STRING_BUFFER_P (op1))
11840 {
11841 /* Two solutions here:
11842 1) OP1 is a string reference, we call new StringBuffer(OP1)
11843 2) Op2 is something else, we call new StringBuffer().append(OP1). */
11844 if (JSTRING_TYPE_P (TREE_TYPE (op1)))
11845 op1 = BUILD_STRING_BUFFER (op1);
11846 else
11847 {
11848 tree aNew = BUILD_STRING_BUFFER (NULL_TREE);
11849 op1 = make_qualified_primary (aNew, BUILD_APPEND (op1), 0);
11850 }
11851 }
11852
11853 /* No longer the last node holding a crafted StringBuffer */
11854 IS_CRAFTED_STRING_BUFFER_P (op1) = 0;
11855 /* Create a node for `{new...,xxx}.append (op2)' */
11856 op1 = make_qualified_primary (op1, BUILD_APPEND (op2), 0);
11857 /* Mark the last node holding a crafted StringBuffer */
11858 IS_CRAFTED_STRING_BUFFER_P (op1) = 1;
11859
11860 return op1;
11861}
11862
11863/* Patch the string node NODE. NODE can be a STRING_CST of a crafted
11864 StringBuffer. If no string were found to be patched, return
11865 NULL. */
11866
11867static tree
11868patch_string (node)
11869 tree node;
11870{
1179ebc2
APB		 11871 if (node == error_mark_node)
11872 return error_mark_node;
8b27f225
PB		 11873 if (TREE_CODE (node) == STRING_CST)
11874 return patch_string_cst (node);
11875 else if (IS_CRAFTED_STRING_BUFFER_P (node))
11876 {
c877974e 11877 int saved = ctxp->explicit_constructor_p;
8b27f225 11878 tree invoke = build_method_invocation (wfl_to_string, NULL_TREE);
c877974e
APB		 11879 tree ret;
11880 /* Temporary disable forbid the use of `this'. */
11881 ctxp->explicit_constructor_p = 0;
11882 ret = java_complete_tree (make_qualified_primary (node, invoke, 0));
11883 /* Restore it at its previous value */
11884 ctxp->explicit_constructor_p = saved;
11885 return ret;
8b27f225
PB		 11886 }
11887 return NULL_TREE;
11888}
11889
11890/* Build the internal representation of a string constant. */
11891
11892static tree
11893patch_string_cst (node)
11894 tree node;
11895{
11896 int location;
12472854
PB		 11897 if (! flag_emit_class_files)
11898 {
11899 push_obstacks (&permanent_obstack, &permanent_obstack);
11900 node = get_identifier (TREE_STRING_POINTER (node));
11901 location = alloc_name_constant (CONSTANT_String, node);
11902 node = build_ref_from_constant_pool (location);
11903 }
8b27f225
PB		 11904 TREE_TYPE (node) = promote_type (string_type_node);
11905 TREE_CONSTANT (node) = 1;
11906 return node;
11907}
11908
11909/* Build an incomplete unary operator expression. */
11910
11911static tree
11912build_unaryop (op_token, op_location, op1)
11913 int op_token, op_location;
11914 tree op1;
11915{
11916 enum tree_code op;
11917 tree unaryop;
11918 switch (op_token)
11919 {
11920 case PLUS_TK: op = UNARY_PLUS_EXPR; break;
11921 case MINUS_TK: op = NEGATE_EXPR; break;
11922 case NEG_TK: op = TRUTH_NOT_EXPR; break;
11923 case NOT_TK: op = BIT_NOT_EXPR; break;
11924 default: fatal ("Unknown token `%d' for unary operator - build_unaryop",
11925 op_token);
11926 }
11927
11928 unaryop = build1 (op, NULL_TREE, op1);
11929 TREE_SIDE_EFFECTS (unaryop) = 1;
11930 /* Store the location of the operator, for better error report. The
11931 string of the operator will be rebuild based on the OP value. */
11932 EXPR_WFL_LINECOL (unaryop) = op_location;
11933 return unaryop;
11934}
11935
11936/* Special case for the ++/-- operators, since they require an extra
11937 argument to build, which is set to NULL and patched
11938 later. IS_POST_P is 1 if the operator, 0 otherwise. */
11939
11940static tree
11941build_incdec (op_token, op_location, op1, is_post_p)
11942 int op_token, op_location;
11943 tree op1;
11944 int is_post_p;
11945{
11946 static enum tree_code lookup [2][2] =
11947 {
11948 { PREDECREMENT_EXPR, PREINCREMENT_EXPR, },
11949 { POSTDECREMENT_EXPR, POSTINCREMENT_EXPR, },
11950 };
11951 tree node = build (lookup [is_post_p][(op_token - DECR_TK)],
11952 NULL_TREE, op1, NULL_TREE);
11953 TREE_SIDE_EFFECTS (node) = 1;
11954 /* Store the location of the operator, for better error report. The
11955 string of the operator will be rebuild based on the OP value. */
11956 EXPR_WFL_LINECOL (node) = op_location;
11957 return node;
11958}
11959
11960/* Build an incomplete cast operator, based on the use of the
11961 CONVERT_EXPR. Note that TREE_TYPE of the constructed node is
11962 set. java_complete_tree is trained to walk a CONVERT_EXPR even
11963 though its type is already set. */
11964
11965static tree
11966build_cast (location, type, exp)
11967 int location;
11968 tree type, exp;
11969{
11970 tree node = build1 (CONVERT_EXPR, type, exp);
11971 EXPR_WFL_LINECOL (node) = location;
11972 return node;
11973}
11974
11975/* 15.14 Unary operators. We return error_mark_node in case of error,
11976 but preserve the type of NODE if the type is fixed. */
11977
11978static tree
11979patch_unaryop (node, wfl_op)
11980 tree node;
11981 tree wfl_op;
11982{
11983 tree op = TREE_OPERAND (node, 0);
11984 tree op_type = TREE_TYPE (op);
11985 tree prom_type, value;
11986 int code = TREE_CODE (node);
11987 int error_found = 0;
11988
11989 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
11990
11991 switch (code)
11992 {
11993 /* 15.13.2 Postfix Increment Operator ++ */
11994 case POSTINCREMENT_EXPR:
11995 /* 15.13.3 Postfix Increment Operator -- */
11996 case POSTDECREMENT_EXPR:
11997 /* 15.14.1 Prefix Increment Operator ++ */
11998 case PREINCREMENT_EXPR:
11999 /* 15.14.2 Prefix Decrement Operator -- */
12000 case PREDECREMENT_EXPR:
5e942c50
APB		 12001 if (!DECL_P (op) && !((TREE_CODE (op) == INDIRECT_REF
12002 || TREE_CODE (op) == COMPONENT_REF)
8b27f225
PB		 12003 && JPRIMITIVE_TYPE_P (TREE_TYPE (op))))
12004 {
5e942c50
APB		 12005 tree lvalue;
12006 /* Before screaming, check that we're not in fact trying to
12007 increment a optimized static final access, in which case
12008 we issue an different error message. */
12009 if (!(TREE_CODE (wfl_op) == EXPR_WITH_FILE_LOCATION
12010 && resolve_expression_name (wfl_op, &lvalue)
12011 && check_final_assignment (lvalue, wfl_op)))
12012 parse_error_context (wfl_operator, "Invalid argument to `%s'",
12013 operator_string (node));
8b27f225
PB		 12014 TREE_TYPE (node) = error_mark_node;
12015 error_found = 1;
12016 }
5e942c50
APB		 12017 else if (check_final_assignment (op, wfl_op))
12018 error_found = 1;
12019
8b27f225
PB		 12020 /* From now on, we know that op if a variable and that it has a
12021 valid wfl. We use wfl_op to locate errors related to the
12022 ++/-- operand. */
12023 else if (!JNUMERIC_TYPE_P (op_type))
12024 {
12025 parse_error_context
12026 (wfl_op, "Invalid argument type `%s' to `%s'",
12027 lang_printable_name (op_type, 0), operator_string (node));
12028 TREE_TYPE (node) = error_mark_node;
12029 error_found = 1;
12030 }
12031 else
12032 {
4a5f66c3 12033 /* Before the addition, binary numeric promotion is performed on
8b27f225 12034 both operands */
4a5f66c3
APB		 12035 value = build_int_2 (1, 0);
12036 TREE_TYPE (node) =
12037 binary_numeric_promotion (op_type, TREE_TYPE (value), &op, &value);
12038 /* And write the promoted incremented and increment */
12039 TREE_OPERAND (node, 0) = op;
8b27f225 12040 TREE_OPERAND (node, 1) = value;
4a5f66c3
APB		 12041 /* Convert the overall back into its original type. */
12042 return fold (convert (op_type, node));
8b27f225
PB		 12043 }
12044 break;
12045
12046 /* 15.14.3 Unary Plus Operator + */
12047 case UNARY_PLUS_EXPR:
12048 /* 15.14.4 Unary Minus Operator - */
12049 case NEGATE_EXPR:
12050 if (!JNUMERIC_TYPE_P (op_type))
12051 {
12052 ERROR_CANT_CONVERT_TO_NUMERIC (wfl_operator, node, op_type);
12053 TREE_TYPE (node) = error_mark_node;
12054 error_found = 1;
12055 }
12056 /* Unary numeric promotion is performed on operand */
12057 else
12058 {
12472854
PB		 12059 op = do_unary_numeric_promotion (op);
12060 prom_type = TREE_TYPE (op);
8b27f225 12061 if (code == UNARY_PLUS_EXPR)
4a5f66c3 12062 return fold (op);
8b27f225
PB		 12063 }
12064 break;
12065
12066 /* 15.14.5 Bitwise Complement Operator ~ */
12067 case BIT_NOT_EXPR:
12068 if (!JINTEGRAL_TYPE_P (op_type))
12069 {
12070 ERROR_CAST_NEEDED_TO_INTEGRAL (wfl_operator, node, op_type);
12071 TREE_TYPE (node) = error_mark_node;
12072 error_found = 1;
12073 }
12074 else
12075 {
12472854
PB		 12076 op = do_unary_numeric_promotion (op);
12077 prom_type = TREE_TYPE (op);
8b27f225
PB		 12078 }
12079 break;
12080
12081 /* 15.14.6 Logical Complement Operator ! */
12082 case TRUTH_NOT_EXPR:
12083 if (TREE_CODE (op_type) != BOOLEAN_TYPE)
12084 {
12085 ERROR_CANT_CONVERT_TO_BOOLEAN (wfl_operator, node, op_type);
c877974e
APB		 12086 /* But the type is known. We will report an error if further
12087 attempt of a assignment is made with this rhs */
8b27f225
PB		 12088 TREE_TYPE (node) = boolean_type_node;
12089 error_found = 1;
12090 }
12091 else
12092 prom_type = boolean_type_node;
12093 break;
12094
12095 /* 15.15 Cast Expression */
12096 case CONVERT_EXPR:
12097 value = patch_cast (node, wfl_operator);
12098 if (value == error_mark_node)
c877974e
APB		 12099 {
12100 /* If this cast is part of an assignment, we tell the code
12101 that deals with it not to complain about a mismatch,
12102 because things have been cast, anyways */
12103 TREE_TYPE (node) = error_mark_node;
12104 error_found = 1;
12105 }
12106 else
4a5f66c3 12107 return fold (value);
8b27f225
PB		 12108 break;
12109 }
12110
8b27f225
PB		 12111 if (error_found)
12112 return error_mark_node;
4a5f66c3
APB		 12113
12114 /* There are cases where node has been replaced by something else
12115 and we don't end up returning here: UNARY_PLUS_EXPR,
12116 CONVERT_EXPR, {POST,PRE}{INCR,DECR}EMENT_EXPR. */
63a212ed 12117 TREE_OPERAND (node, 0) = fold (op);
4a5f66c3 12118 TREE_TYPE (node) = prom_type;
8b27f225
PB		 12119 return fold (node);
12120}
12121
12122/* Generic type resolution that sometimes takes place during node
12123 patching. Returned the resolved type or generate an error
12124 message. Return the resolved type or NULL_TREE. */
12125
12126static tree
12127resolve_type_during_patch (type)
12128 tree type;
12129{
12130 if (unresolved_type_p (type, NULL))
12131 {
12132 tree type_decl = resolve_no_layout (EXPR_WFL_NODE (type), NULL_TREE);
12133 if (!type_decl)
12134 {
12135 parse_error_context (type,
12136 "Class `%s' not found in type declaration",
12137 IDENTIFIER_POINTER (EXPR_WFL_NODE (type)));
12138 return NULL_TREE;
12139 }
12140 else
5e942c50
APB		 12141 {
12142 CLASS_LOADED_P (TREE_TYPE (type_decl)) = 1;
12143 return TREE_TYPE (type_decl);
12144 }
8b27f225
PB		 12145 }
12146 return type;
12147}
12148/* 5.5 Casting Conversion. error_mark_node is returned if an error is
12149 found. Otherwise NODE or something meant to replace it is returned. */
12150
12151static tree
12152patch_cast (node, wfl_operator)
12153 tree node;
12154 tree wfl_operator;
12155{
12156 tree op = TREE_OPERAND (node, 0);
12157 tree op_type = TREE_TYPE (op);
12158 tree cast_type = TREE_TYPE (node);
12159 char *t1;
12160
12161 /* First resolve OP_TYPE if unresolved */
12162 if (!(cast_type = resolve_type_during_patch (cast_type)))
12163 return error_mark_node;
12164
12165 /* Check on cast that are proven correct at compile time */
12166 if (JNUMERIC_TYPE_P (cast_type) && JNUMERIC_TYPE_P (op_type))
12167 {
12168 static tree convert_narrow ();
12169 /* Same type */
12170 if (cast_type == op_type)
12171 return node;
12172
12173 /* Try widening/narowwing convertion. Potentially, things need
12174 to be worked out in gcc so we implement the extreme cases
12175 correctly. fold_convert() needs to be fixed. */
12176 return convert (cast_type, op);
12177 }
12178
5e942c50
APB		 12179 /* null can be casted to references */
12180 if (op == null_pointer_node && JREFERENCE_TYPE_P (cast_type))
12181 return build_null_of_type (cast_type);
12182
8b27f225
PB		 12183 /* The remaining legal casts involve conversion between reference
12184 types. Check for their compile time correctness. */
12185 if (JREFERENCE_TYPE_P (op_type) && JREFERENCE_TYPE_P (cast_type)
12186 && valid_ref_assignconv_cast_p (cast_type, op_type, 1))
12187 {
12188 TREE_TYPE (node) = promote_type (cast_type);
12189 /* Now, the case can be determined correct at compile time if
12190 OP_TYPE can be converted into CAST_TYPE by assignment
12191 conversion (5.2) */
12192
12193 if (valid_ref_assignconv_cast_p (op_type, cast_type, 0))
12472854
PB		 12194 {
12195 TREE_SET_CODE (node, NOP_EXPR);
12196 return node;
12197 }
12198
12199 if (flag_emit_class_files)
12200 {
12201 TREE_SET_CODE (node, CONVERT_EXPR);
12202 return node;
12203 }
8b27f225
PB		 12204
12205 /* The cast requires a run-time check */
12206 return build (CALL_EXPR, promote_type (cast_type),
12207 build_address_of (soft_checkcast_node),
12208 tree_cons (NULL_TREE, build_class_ref (cast_type),
12209 build_tree_list (NULL_TREE, op)),
12210 NULL_TREE);
12211 }
12212
12213 /* Any other casts are proven incorrect at compile time */
12214 t1 = strdup (lang_printable_name (op_type, 0));
12215 parse_error_context (wfl_operator, "Invalid cast from `%s' to `%s'",
12216 t1, lang_printable_name (cast_type, 0));
12217 free (t1);
12218 return error_mark_node;
12219}
12220
5e942c50
APB		 12221/* Build a null constant and give it the type TYPE. */
12222
12223static tree
12224build_null_of_type (type)
12225 tree type;
12226{
12227 tree node = build_int_2 (0, 0);
12228 TREE_TYPE (node) = promote_type (type);
12229 return node;
12230}
12231
8b27f225
PB		 12232/* Build an ARRAY_REF incomplete tree node. Note that operand 1 isn't
12233 a list of indices. */
12234static tree
12235build_array_ref (location, array, index)
12236 int location;
12237 tree array, index;
12238{
12239 tree node = build (ARRAY_REF, NULL_TREE, array, index);
12240 EXPR_WFL_LINECOL (node) = location;
12241 return node;
12242}
12243
12244/* 15.12 Array Access Expression */
12245
12246static tree
c877974e
APB		 12247patch_array_ref (node)
12248 tree node;
8b27f225
PB		 12249{
12250 tree array = TREE_OPERAND (node, 0);
12251 tree array_type = TREE_TYPE (array);
12252 tree index = TREE_OPERAND (node, 1);
12253 tree index_type = TREE_TYPE (index);
8b27f225
PB		 12254 int error_found = 0;
12255
12256 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
12257
8b27f225
PB		 12258 if (TREE_CODE (array_type) == POINTER_TYPE)
12259 array_type = TREE_TYPE (array_type);
12260
12261 /* The array reference must be an array */
12262 if (!TYPE_ARRAY_P (array_type))
12263 {
12264 parse_error_context
12265 (wfl_operator, "`[]' can only be applied to arrays. It can't be "
12266 "applied to `%s'", lang_printable_name (array_type, 0));
12267 TREE_TYPE (node) = error_mark_node;
12268 error_found = 1;
12269 }
12270
12271 /* The array index underdoes unary numeric promotion. The promoted
12272 type must be int */
12472854
PB		 12273 index = do_unary_numeric_promotion (index);
12274 if (TREE_TYPE (index) != int_type_node)
8b27f225
PB		 12275 {
12276 int could_cast = valid_cast_to_p (index_type, int_type_node);
12277 parse_error_context
12278 (wfl_operator,
12279 (could_cast ? "Incompatible type for `[]'. Explicit cast needed to "
12280 "convert `%s' to `int'" : "Incompatible type for `[]'. "
12281 "Can't convert `%s' to `int'"),
12282 lang_printable_name (index_type, 0));
12283 TREE_TYPE (node) = error_mark_node;
12284 error_found = 1;
12285 }
12286
8b27f225
PB		 12287 if (error_found)
12288 return error_mark_node;
8b27f225 12289
5e942c50 12290 array_type = TYPE_ARRAY_ELEMENT (array_type);
5e942c50 12291
8b27f225
PB		 12292 if (flag_emit_class_files)
12293 {
12472854
PB		 12294 TREE_OPERAND (node, 0) = array;
12295 TREE_OPERAND (node, 1) = index;
8b27f225
PB		 12296 }
12297 else
12298 node = build_java_arrayaccess (array, array_type, index);
12299 TREE_TYPE (node) = array_type;
12300 return node;
12301}
12302
12303/* 15.9 Array Creation Expressions */
12304
12305static tree
12306build_newarray_node (type, dims, extra_dims)
12307 tree type;
12308 tree dims;
12309 int extra_dims;
12310{
12311 tree node =
12312 build (NEW_ARRAY_EXPR, NULL_TREE, type, nreverse (dims),
12313 build_int_2 (extra_dims, 0));
12314 return node;
12315}
12316
12317static tree
12318patch_newarray (node)
12319 tree node;
12320{
12321 tree type = TREE_OPERAND (node, 0);
12322 tree dims = TREE_OPERAND (node, 1);
12323 tree cdim, array_type;
12324 int error_found = 0;
12325 int ndims = 0;
12326 int xdims = TREE_INT_CST_LOW (TREE_OPERAND (node, 2));
8b27f225
PB		 12327
12328 /* Dimension types are verified. It's better for the types to be
12329 verified in order. */
12330 for (cdim = dims, ndims = 0; cdim; cdim = TREE_CHAIN (cdim), ndims++ )
12331 {
12332 int dim_error = 0;
12333 tree dim = TREE_VALUE (cdim);
12334
12335 /* Dim might have been saved during its evaluation */
12336 dim = (TREE_CODE (dim) == SAVE_EXPR ? dim = TREE_OPERAND (dim, 0) : dim);
12337
12338 /* The type of each specified dimension must be an integral type. */
12339 if (!JINTEGRAL_TYPE_P (TREE_TYPE (dim)))
12340 dim_error = 1;
12341
12342 /* Each expression undergoes an unary numeric promotion (5.6.1) and the
12343 promoted type must be int. */
12344 else
12345 {
12472854 12346 dim = do_unary_numeric_promotion (dim);
8b27f225
PB		 12347 if (TREE_TYPE (dim) != int_type_node)
12348 dim_error = 1;
12349 }
12350
12351 /* Report errors on types here */
12352 if (dim_error)
12353 {
12354 parse_error_context
12355 (TREE_PURPOSE (cdim),
12356 "Incompatible type for dimension in array creation expression. "
12357 "%s convert `%s' to `int'",
12358 (valid_cast_to_p (TREE_TYPE (dim), int_type_node) ?
12359 "Explicit cast needed to" : "Can't"),
12360 lang_printable_name (TREE_TYPE (dim), 0));
12361 error_found = 1;
12362 }
12363
8b27f225
PB		 12364 TREE_PURPOSE (cdim) = NULL_TREE;
12365 }
12366
12367 /* Resolve array base type if unresolved */
12368 if (!(type = resolve_type_during_patch (type)))
12369 error_found = 1;
12370
12371 if (error_found)
12372 {
12373 /* We don't want further evaluation of this bogus array creation
12374 operation */
12375 TREE_TYPE (node) = error_mark_node;
12376 return error_mark_node;
12377 }
12378
12472854
PB		 12379 /* Set array_type to the actual (promoted) array type of the result. */
12380 if (TREE_CODE (type) == RECORD_TYPE)
12381 type = build_pointer_type (type);
12382 while (--xdims >= 0)
12383 {
12384 type = promote_type (build_java_array_type (type, -1));
12385 }
12386 dims = nreverse (dims);
12387 array_type = type;
12388 for (cdim = dims; cdim; cdim = TREE_CHAIN (cdim))
12389 {
12390 type = array_type;
12391 array_type = build_java_array_type (type,
12392 TREE_CODE (cdim) == INTEGER_CST ?
12393 TREE_INT_CST_LOW (cdim) : -1);
12394 array_type = promote_type (array_type);
12395 }
12396 dims = nreverse (dims);
12397
8b27f225
PB		 12398 /* The node is transformed into a function call. Things are done
12399 differently according to the number of dimensions. If the number
12400 of dimension is equal to 1, then the nature of the base type
12401 (primitive or not) matters. */
12472854 12402 if (ndims == 1)
63a212ed 12403 return build_new_array (type, TREE_VALUE (dims));
8b27f225 12404
8b27f225
PB		 12405 /* Can't reuse what's already written in expr.c because it uses the
12406 JVM stack representation. Provide a build_multianewarray. FIXME */
12472854 12407 return build (CALL_EXPR, array_type,
8b27f225 12408 build_address_of (soft_multianewarray_node),
12472854 12409 tree_cons (NULL_TREE, build_class_ref (TREE_TYPE (array_type)),
8b27f225 12410 tree_cons (NULL_TREE,
12472854 12411 build_int_2 (ndims, 0), dims )),
8b27f225
PB		 12412 NULL_TREE);
12413}
12414
f8976021
APB		 12415/* 10.6 Array initializer. */
12416
12417/* Build a wfl for array element that don't have one, so we can
12418 pin-point errors. */
12419
12420static tree
12421maybe_build_array_element_wfl (node)
12422 tree node;
12423{
12424 if (TREE_CODE (node) != EXPR_WITH_FILE_LOCATION)
12425 return build_expr_wfl (NULL_TREE, ctxp->filename,
12426 ctxp->elc.line, ctxp->elc.prev_col);
12427 else
12428 return NULL_TREE;
12429}
12430
12431/* Build a NEW_ARRAY_INIT that features a CONSTRUCTOR node. This makes
12432 identification of initialized arrays easier to detect during walk
12433 and expansion. */
12434
12435static tree
12436build_new_array_init (location, values)
12437 int location;
12438 tree values;
12439{
12440 tree constructor = build (CONSTRUCTOR, NULL_TREE, NULL_TREE, values);
12441 tree to_return = build1 (NEW_ARRAY_INIT, NULL_TREE, constructor);
12442 EXPR_WFL_LINECOL (to_return) = EXPR_WFL_LINECOL (constructor) = location;
12443 return to_return;
12444}
12445
12446/* Expand a NEW_ARRAY_INIT node. Return error_mark_node if an error
12447 occurred. Otherwise return NODE after having set its type
12448 appropriately. */
12449
12450static tree
12451patch_new_array_init (type, node)
12452 tree type, node;
f8976021
APB		 12453{
12454 int error_seen = 0;
63a212ed 12455 tree current, element_type;
f8976021 12456 HOST_WIDE_INT length;
63a212ed
PB		 12457 int all_constant = 1;
12458 tree init = TREE_OPERAND (node, 0);
f8976021 12459
63a212ed
PB		 12460 if (TREE_CODE (type) != POINTER_TYPE || ! TYPE_ARRAY_P (TREE_TYPE (type)))
12461 {
12462 parse_error_context (node,
12463 "Invalid array initializer for non-array type `%s'",
12464 lang_printable_name (type, 1));
12465 return error_mark_node;
12466 }
12467 type = TREE_TYPE (type);
12468 element_type = TYPE_ARRAY_ELEMENT (type);
12469
12470 CONSTRUCTOR_ELTS (init) = nreverse (CONSTRUCTOR_ELTS (init));
f8976021 12471
63a212ed
PB		 12472 for (length = 0, current = CONSTRUCTOR_ELTS (init);
12473 current; length++, current = TREE_CHAIN (current))
f8976021 12474 {
63a212ed
PB		 12475 tree elt = TREE_VALUE (current);
12476 if (elt == NULL_TREE || TREE_CODE (elt) != NEW_ARRAY_INIT)
f8976021 12477 {
63a212ed
PB		 12478 error_seen |= array_constructor_check_entry (element_type, current);
12479 if (! TREE_CONSTANT (TREE_VALUE (current)))
12480 all_constant = 0;
f8976021 12481 }
63a212ed
PB		 12482 else
12483 {
12484 TREE_VALUE (current) = patch_new_array_init (element_type, elt);
12485 TREE_PURPOSE (current) = NULL_TREE;
12486 all_constant = 0;
12487 }
12488 if (elt && TREE_VALUE (elt) == error_mark_node)
12489 error_seen = 1;
f8976021
APB		 12490 }
12491
12492 if (error_seen)
12493 return error_mark_node;
12494
12495 /* Create a new type. We can't reuse the one we have here by
12496 patching its dimension because it originally is of dimension -1
12497 hence reused by gcc. This would prevent triangular arrays. */
63a212ed
PB		 12498 type = build_java_array_type (element_type, length);
12499 TREE_TYPE (init) = TREE_TYPE (TREE_CHAIN (TREE_CHAIN (TYPE_FIELDS (type))));
12500 TREE_TYPE (node) = promote_type (type);
12501 TREE_CONSTANT (init) = all_constant;
f8976021
APB		 12502 return node;
12503}
12504
12505/* Verify that one entry of the initializer element list can be
12506 assigned to the array base type. Report 1 if an error occurred, 0
12507 otherwise. */
12508
12509static int
12510array_constructor_check_entry (type, entry)
12511 tree type, entry;
12512{
12513 char *array_type_string = NULL; /* For error reports */
12514 tree value, type_value, new_value, wfl_value, patched;
12515 int error_seen = 0;
12516
12517 new_value = NULL_TREE;
12518 wfl_value = TREE_VALUE (entry);
12519
f8976021 12520 value = java_complete_tree (TREE_VALUE (entry));
1179ebc2 12521 /* patch_string return error_mark_node if arg is error_mark_node */
f8976021
APB		 12522 if ((patched = patch_string (value)))
12523 value = patched;
1179ebc2
APB		 12524 if (value == error_mark_node)
12525 return 1;
f8976021 12526
f8976021
APB		 12527 type_value = TREE_TYPE (value);
12528
1179ebc2 12529 /* At anytime, try_builtin_assignconv can report a warning on
f8976021
APB		 12530 constant overflow during narrowing. */
12531 SET_WFL_OPERATOR (wfl_operator, TREE_PURPOSE (entry), wfl_value);
12532 new_value = try_builtin_assignconv (wfl_operator, type, value);
12533 if (!new_value && (new_value = try_reference_assignconv (type, value)))
12534 type_value = promote_type (type);
12535
12536 /* Check and report errors */
12537 if (!new_value)
12538 {
12539 char *msg = (!valid_cast_to_p (type_value, type) ?
12540 "Can't" : "Explicit cast needed to");
12541 if (!array_type_string)
12542 array_type_string = strdup (lang_printable_name (type, 1));
12543 parse_error_context
12544 (wfl_operator, "Incompatible type for array. %s convert `%s' to `%s'",
12545 msg, lang_printable_name (type_value, 1), array_type_string);
12546 error_seen = 1;
12547 }
12548
12549 if (new_value)
12550 {
12551 new_value = maybe_build_primttype_type_ref (new_value, wfl_operator);
12552 TREE_VALUE (entry) = new_value;
12553 }
12554
12555 if (array_type_string)
12556 free (array_type_string);
1179ebc2
APB		 12557
12558 TREE_PURPOSE (entry) = NULL_TREE;
f8976021
APB		 12559 return error_seen;
12560}
12561
8b27f225
PB		 12562static tree
12563build_this (location)
12564 int location;
12565{
12566 tree node = build_wfl_node (this_identifier_node, input_filename, 0, 0);
12567 TREE_SET_CODE (node, THIS_EXPR);
12568 EXPR_WFL_LINECOL (node) = location;
12569 return node;
12570}
12571
12572/* 14.15 The return statement. It builds a modify expression that
12573 assigns the returned value to the RESULT_DECL that hold the value
12574 to be returned. */
12575
12576static tree
12577build_return (location, op)
12578 int location;
12579 tree op;
12580{
12581 tree node = build1 (RETURN_EXPR, NULL_TREE, op);
12582 EXPR_WFL_LINECOL (node) = location;
12583 node = build_debugable_stmt (location, node);
12584 return node;
12585}
12586
12587static tree
12588patch_return (node)
12589 tree node;
12590{
12591 tree return_exp = TREE_OPERAND (node, 0);
12592 tree meth = current_function_decl;
12593 tree mtype = TREE_TYPE (TREE_TYPE (current_function_decl));
8b27f225
PB		 12594 int error_found = 0;
12595
12596 TREE_TYPE (node) = error_mark_node;
12597 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
12598
12599 /* It's invalid to have a return value within a function that is
12600 declared with the keyword void or that is a constructor */
12601 if (return_exp && (mtype == void_type_node || DECL_CONSTRUCTOR_P (meth)))
12602 error_found = 1;
12603
12604 /* It's invalid to have a no return value within a function that
12605 isn't declared with the keyword `void' */
12606 if (!return_exp && (mtype != void_type_node && !DECL_CONSTRUCTOR_P (meth)))
12607 error_found = 2;
12608
12609 if (error_found)
12610 {
22eed1e6
APB		 12611 if (!DECL_CONSTRUCTOR_P (meth))
12612 {
12613 char *t = strdup (lang_printable_name (mtype, 0));
12614 parse_error_context (wfl_operator,
12615 "`return' with%s value from `%s %s'",
12616 (error_found == 1 ? "" : "out"),
12617 t, lang_printable_name (meth, 0));
12618 free (t);
12619 }
12620 else
12621 parse_error_context (wfl_operator,
12622 "`return' with value from constructor `%s'",
12623 lang_printable_name (meth, 0));
8b27f225
PB		 12624 return error_mark_node;
12625 }
12626
5e942c50
APB		 12627 /* If we have a return_exp, build a modify expression and expand
12628 it. Note: at that point, the assignment is declared valid, but we
12629 may want to carry some more hacks */
8b27f225
PB		 12630 if (return_exp)
12631 {
5e942c50
APB		 12632 tree exp = java_complete_tree (return_exp);
12633 tree modify, patched;
12634
12635 /* If the function returned value and EXP are booleans, EXP has
12636 to be converted into the type of DECL_RESULT, which is integer
12637 (see complete_start_java_method) */
12638 if (TREE_TYPE (exp) == boolean_type_node &&
12639 TREE_TYPE (TREE_TYPE (meth)) == boolean_type_node)
12640 exp = convert_to_integer (TREE_TYPE (DECL_RESULT (meth)), exp);
12641
12642 /* `null' can be assigned to a function returning a reference */
12643 if (JREFERENCE_TYPE_P (TREE_TYPE (TREE_TYPE (meth))) &&
12644 exp == null_pointer_node)
12645 exp = build_null_of_type (TREE_TYPE (TREE_TYPE (meth)));
12646
12647 if ((patched = patch_string (exp)))
12648 exp = patched;
12649
12650 modify = build (MODIFY_EXPR, NULL_TREE, DECL_RESULT (meth), exp);
8b27f225
PB		 12651 EXPR_WFL_LINECOL (modify) = EXPR_WFL_LINECOL (node);
12652 modify = java_complete_tree (modify);
5e942c50 12653
8b27f225
PB		 12654 if (modify != error_mark_node)
12655 {
12656 TREE_SIDE_EFFECTS (modify) = 1;
12657 TREE_OPERAND (node, 0) = modify;
12658 }
12659 else
12660 return error_mark_node;
12661 }
12662 TREE_TYPE (node) = void_type_node;
12663 TREE_SIDE_EFFECTS (node) = 1;
12664 return node;
12665}
12666
12667/* 14.8 The if Statement */
12668
12669static tree
12670build_if_else_statement (location, expression, if_body, else_body)
12671 int location;
12672 tree expression, if_body, else_body;
12673{
12674 tree node;
8b27f225 12675 if (!else_body)
c877974e 12676 else_body = empty_stmt_node;
8b27f225
PB		 12677 node = build (COND_EXPR, NULL_TREE, expression, if_body, else_body);
12678 EXPR_WFL_LINECOL (node) = location;
12679 node = build_debugable_stmt (location, node);
12680 return node;
12681}
12682
12683static tree
12684patch_if_else_statement (node)
12685 tree node;
12686{
12687 tree expression = TREE_OPERAND (node, 0);
12688
12689 TREE_TYPE (node) = error_mark_node;
12690 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
12691
12692 /* The type of expression must be boolean */
12693 if (TREE_TYPE (expression) != boolean_type_node
12694 && TREE_TYPE (expression) != promoted_boolean_type_node)
12695 {
12696 parse_error_context
12697 (wfl_operator,
12698 "Incompatible type for `if'. Can't convert `%s' to `boolean'",
12699 lang_printable_name (TREE_TYPE (expression), 0));
12700 return error_mark_node;
12701 }
12702
12703 TREE_TYPE (node) = void_type_node;
12704 TREE_SIDE_EFFECTS (node) = 1;
12472854 12705 CAN_COMPLETE_NORMALLY (node)
c877974e
APB		 12706 = CAN_COMPLETE_NORMALLY (TREE_OPERAND (node, 1))
12707 | CAN_COMPLETE_NORMALLY (TREE_OPERAND (node, 2));
8b27f225
PB		 12708 return node;
12709}
12710
12711/* 14.6 Labeled Statements */
12712
12713/* Action taken when a lableled statement is parsed. a new
12714 LABELED_BLOCK_EXPR is created. No statement is attached to the
12715 label, yet. */
12716
12717static tree
12718build_labeled_block (location, label)
12719 int location;
12720 tree label;
12721{
12722 tree label_name = merge_qualified_name (label_id, label);
12723 tree label_decl, node;
12724
ac825856 12725 /* Issue an error if we try to reuse a label that was previously
8b27f225
PB		 12726 declared */
12727 if (IDENTIFIER_LOCAL_VALUE (label_name))
12728 {
12729 EXPR_WFL_LINECOL (wfl_operator) = location;
ac825856
APB		 12730 parse_error_context (wfl_operator, "Declaration of `%s' shadows "
12731 "a previous label declaration",
8b27f225
PB		 12732 IDENTIFIER_POINTER (label));
12733 EXPR_WFL_LINECOL (wfl_operator) =
12734 EXPR_WFL_LINECOL (IDENTIFIER_LOCAL_VALUE (label_name));
ac825856
APB		 12735 parse_error_context (wfl_operator, "This is the location of the "
12736 "previous declaration of label `%s'",
12737 IDENTIFIER_POINTER (label));
12738 java_error_count--;
8b27f225
PB		 12739 }
12740
12741 label_decl = create_label_decl (label_name);
12742 node = build (LABELED_BLOCK_EXPR, NULL_TREE, label_decl, NULL_TREE);
12743 EXPR_WFL_LINECOL (node) = location;
12744 TREE_SIDE_EFFECTS (node) = 1;
12745 return node;
12746}
12747
12748/* Generate a label crafting a unique name for it. This is used to
12749 implicitely label loops that aren't the body part of labeled
12750 statement. */
12751
12752static tree
12753generate_labeled_block ()
12754{
12755 return build_labeled_block (0, generate_name ());
12756}
12757
12758/* A labeled statement LBE is attached a statement. */
12759
12760static tree
12761complete_labeled_statement (lbe, statement)
12762 tree lbe; /* Labeled block expr */
12763 tree statement;
12764{
12765 /* In anyways, tie the loop to its statement */
12766 LABELED_BLOCK_BODY (lbe) = statement;
12767
12768 /* Ok, if statement is a for loop, we have to attach the labeled
12769 statement to the block the for loop belongs to and return the
12770 block instead */
12771 if (TREE_CODE (statement) == LOOP_EXPR && IS_FOR_LOOP_P (statement))
12772 {
12773 java_method_add_stmt (current_function_decl, lbe);
12774 return exit_block ();
12775 }
12776
12777 return lbe;
12778}
12779
12780/* 14.10, 14.11, 14.12 Loop Statements */
12781
12782/* Create an empty LOOP_EXPR and make it the last in the nested loop
12783 list. */
12784
12785static tree
12786build_new_loop (loop_body)
12787 tree loop_body;
12788{
12789 tree loop = build (LOOP_EXPR, NULL_TREE, loop_body);
12790 TREE_SIDE_EFFECTS (loop) = 1;
12791 PUSH_LOOP (loop);
12792 return loop;
12793}
12794
12795/* Create a loop body according to the following structure:
12796 COMPOUND_EXPR
12797 COMPOUND_EXPR (loop main body)
12798 EXIT_EXPR (this order is for while/for loops.
12799 LABELED_BLOCK_EXPR the order is reversed for do loops)
12800 LABEL_DECL (continue occurding here branche at the
12801 BODY end of this labeled block)
12802 INCREMENT (if any)
12803
12804 REVERSED, if non zero, tells that the loop condition expr comes
12805 after the body, like in the do-while loop.
12806
12807 To obtain a loop, the loop body structure described above is
12808 encapsulated within a LOOP_EXPR surrounded by a LABELED_BLOCK_EXPR:
12809
12810 LABELED_BLOCK_EXPR
12811 LABEL_DECL (use this label to exit the loop)
12812 LOOP_EXPR
12813 <structure described above> */
12814
12815static tree
12816build_loop_body (location, condition, reversed)
12817 int location;
12818 tree condition;
12819 int reversed;
12820{
12821 tree first, second, body;
12822
12823 condition = build (EXIT_EXPR, NULL_TREE, condition); /* Force walk */
12824 EXPR_WFL_LINECOL (condition) = location; /* For accurate error report */
12825 condition = build_debugable_stmt (location, condition);
12826 TREE_SIDE_EFFECTS (condition) = 1;
12827
12828 body = generate_labeled_block ();
12829 first = (reversed ? body : condition);
12830 second = (reversed ? condition : body);
12831 return
12832 build (COMPOUND_EXPR, NULL_TREE,
c877974e 12833 build (COMPOUND_EXPR, NULL_TREE, first, second), empty_stmt_node);
8b27f225
PB		 12834}
12835
12836/* Install CONDITION (if any) and loop BODY (using REVERSED to tell
12837 their order) on the current loop. Unlink the current loop from the
12838 loop list. */
12839
12840static tree
12841complete_loop_body (location, condition, body, reversed)
12842 int location;
12843 tree condition, body;
12844 int reversed;
12845{
12846 tree to_return = ctxp->current_loop;
12847 tree loop_body = LOOP_EXPR_BODY (to_return);
12848 if (condition)
12849 {
12850 tree cnode = LOOP_EXPR_BODY_CONDITION_EXPR (loop_body, reversed);
12851 /* We wrapped the EXIT_EXPR around a WFL so we can debug it.
12852 The real EXIT_EXPR is one operand further. */
12853 EXPR_WFL_LINECOL (cnode) = location;
12854 /* This one is for accurate error reports */
12855 EXPR_WFL_LINECOL (TREE_OPERAND (cnode, 0)) = location;
12856 TREE_OPERAND (TREE_OPERAND (cnode, 0), 0) = condition;
12857 }
12858 LOOP_EXPR_BODY_BODY_EXPR (loop_body, reversed) = body;
12859 POP_LOOP ();
12860 return to_return;
12861}
12862
12863/* Tailored version of complete_loop_body for FOR loops, when FOR
12864 loops feature the condition part */
12865
12866static tree
12867complete_for_loop (location, condition, update, body)
12868 int location;
12869 tree condition, update, body;
12870{
12871 /* Put the condition and the loop body in place */
12872 tree loop = complete_loop_body (location, condition, body, 0);
12873 /* LOOP is the current loop which has been now popped of the loop
12874 stack. Install the update block */
12875 LOOP_EXPR_BODY_UPDATE_BLOCK (LOOP_EXPR_BODY (loop)) = update;
12876 return loop;
12877}
12878
12879/* If the loop isn't surrounded by a labeled statement, create one and
12880 insert LOOP as it's body. */
12881
12882static tree
12883patch_loop_statement (loop)
12884 tree loop;
12885{
12886 tree loop_label, to_return_as_loop;
12887
12888 if (LOOP_HAS_LABEL_P (loop))
12889 {
12890 loop_label = ctxp->current_labeled_block;
12891 to_return_as_loop = loop;
12892 }
12893 else
12894 {
12895 loop_label = generate_labeled_block ();
12896 LABELED_BLOCK_BODY (loop_label) = loop;
12897 PUSH_LABELED_BLOCK (loop_label);
12898 to_return_as_loop = loop_label;
12899 }
12900 TREE_TYPE (to_return_as_loop) = void_type_node;
12901 return to_return_as_loop;
12902}
12903
12904/* 14.13, 14.14: break and continue Statements */
12905
12906/* Build a break or a continue statement. a null NAME indicates an
12907 unlabeled break/continue statement. */
12908
12909static tree
12910build_bc_statement (location, is_break, name)
12911 int location, is_break;
12912 tree name;
12913{
12914 tree break_continue, label_block_expr = NULL_TREE;
12915
12916 if (name)
12917 {
12918 if (!(label_block_expr = IDENTIFIER_LOCAL_VALUE
12919 (merge_qualified_name (label_id, EXPR_WFL_NODE (name)))))
12920 /* Null means that we don't have a target for this named
12921 break/continue. In this case, we make the target to be the
12922 label name, so that the error can be reported accuratly in
12923 patch_bc_statement. */
12924 label_block_expr = EXPR_WFL_NODE (name);
12925 }
12926 /* Unlabeled break/continue will be handled during the
12927 break/continue patch operation */
12928 break_continue
12929 = build (EXIT_BLOCK_EXPR, NULL_TREE, label_block_expr, NULL_TREE);
12930
12931 IS_BREAK_STMT_P (break_continue) = is_break;
12932 TREE_SIDE_EFFECTS (break_continue) = 1;
12933 EXPR_WFL_LINECOL (break_continue) = location;
12934 break_continue = build_debugable_stmt (location, break_continue);
12935 return break_continue;
12936}
12937
12938/* Verification of a break/continue statement. */
12939
12940static tree
12941patch_bc_statement (node)
12942 tree node;
12943{
12944 tree bc_label = EXIT_BLOCK_LABELED_BLOCK (node), target_stmt;
12945 int is_unlabeled = 0;
12946 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
12947
12948 /* Not having a target means that the break/continue statement is
12949 unlabeled. We try to find a decent label for it */
12950 if (!bc_label)
12951 {
12952 is_unlabeled = 1;
12953 /* There should be a loop/switch to branch to */
12954 if (ctxp->current_loop)
12955 {
12956 if (TREE_CODE (ctxp->current_loop) == LOOP_EXPR)
12957 {
12958 /* At that stage, we're in the loop body, which is
12959 encapsulated around a LABELED_BLOCK_EXPR. So searching
12960 the current loop label requires us to consider the
12961 labeled block before the current one. */
12962 if (!LOOP_HAS_LABEL_SKIP_P (ctxp->current_loop))
12963 fatal ("unlabeled loop has no installed label -- "
12964 "patch_bc_statement");
12965 bc_label = TREE_CHAIN (ctxp->current_labeled_block);
12966 }
12967 /* For a SWITCH statement, this is the current one */
12968 else
12969 bc_label = ctxp->current_labeled_block;
12970 }
12971 /* Not having a loop to break/continue to is an error */
12972 else
12973 {
12974 parse_error_context (wfl_operator, "`%s' must be in loop%s",
12975 (IS_BREAK_STMT_P (node) ? "break" : "continue"),
12976 (IS_BREAK_STMT_P (node) ? " or switch" : ""));
12977 return error_mark_node;
12978 }
12979 }
12980 /* Having an identifier here means that the target is unknown. */
12981 else if (TREE_CODE (bc_label) == IDENTIFIER_NODE)
12982 {
12983 parse_error_context (wfl_operator, "No label definition found for `%s'",
12984 IDENTIFIER_POINTER (bc_label));
12985 return error_mark_node;
12986 }
12987
12988 /* Find the statement we're targeting. */
12989 target_stmt = LABELED_BLOCK_BODY (bc_label);
12990
12991 /* 14.13 The break Statement */
12992 if (IS_BREAK_STMT_P (node))
12993 {
12994 /* Named break are always fine, as far as they have a target
12995 (already verified). Anonymous break need to target
12996 while/do/for/switch */
12997 if (is_unlabeled &&
12998 !(TREE_CODE (target_stmt) == LOOP_EXPR /* do/while/for */
12999 || TREE_CODE (target_stmt) == SWITCH_EXPR)) /* switch FIXME */
13000 {
13001 parse_error_context (wfl_operator,
13002 "`break' must be in loop or switch");
13003 return error_mark_node;
13004 }
13005 /* If previously unlabeled, install the new found label */
13006 if (is_unlabeled)
13007 EXIT_BLOCK_LABELED_BLOCK (node) = bc_label;
13008 }
13009 /* 14.14 The continue Statement */
13010 /* The continue statement must always target a loop */
13011 else
13012 {
13013 if (TREE_CODE (target_stmt) != LOOP_EXPR) /* do/while/for */
13014 {
13015 parse_error_context (wfl_operator, "`continue' must be in loop");
13016 return error_mark_node;
13017 }
13018 /* Everything looks good. We can fix the `continue' jump to go
13019 at the place in the loop were the continue is. The continue
13020 is the current labeled block, by construction. */
12472854 13021 EXIT_BLOCK_LABELED_BLOCK (node) = bc_label = ctxp->current_labeled_block;
8b27f225
PB		 13022 }
13023
12472854
PB		 13024 CAN_COMPLETE_NORMALLY (bc_label) = 1;
13025
8b27f225
PB		 13026 /* Our break/continue don't return values. */
13027 TREE_TYPE (node) = void_type_node;
13028 /* Encapsulate the break within a compound statement so that it's
13029 expanded all the times by expand_expr (and not clobered
13030 sometimes, like after a if statement) */
13031 node = add_stmt_to_compound (NULL_TREE, void_type_node, node);
13032 TREE_SIDE_EFFECTS (node) = 1;
13033 return node;
13034}
13035
13036/* Process the exit expression belonging to a loop. Its type must be
13037 boolean. */
13038
13039static tree
13040patch_exit_expr (node)
13041 tree node;
13042{
13043 tree expression = TREE_OPERAND (node, 0);
13044 TREE_TYPE (node) = error_mark_node;
13045 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
13046
13047 /* The type of expression must be boolean */
13048 if (TREE_TYPE (expression) != boolean_type_node)
13049 {
13050 parse_error_context
13051 (wfl_operator,
13052 "Incompatible type for loop conditional. Can't convert `%s' to "
13053 "`boolean'",
13054 lang_printable_name (TREE_TYPE (expression), 0));
13055 return error_mark_node;
13056 }
13057 /* Now we know things are allright, invert the condition, fold and
13058 return */
13059 TREE_OPERAND (node, 0) =
13060 fold (build1 (TRUTH_NOT_EXPR, boolean_type_node, expression));
12472854
PB		 13061
13062 if (! integer_zerop (TREE_OPERAND (node, 0))
13063 && ctxp->current_loop != NULL_TREE
13064 && TREE_CODE (ctxp->current_loop) == LOOP_EXPR)
13065 CAN_COMPLETE_NORMALLY (ctxp->current_loop) = 1;
13066 if (! integer_onep (TREE_OPERAND (node, 0)))
13067 CAN_COMPLETE_NORMALLY (node) = 1;
13068
13069
8b27f225
PB		 13070 TREE_TYPE (node) = void_type_node;
13071 return node;
13072}
13073
13074/* 14.9 Switch statement */
13075
13076static tree
13077patch_switch_statement (node)
13078 tree node;
13079{
c877974e 13080 tree se = TREE_OPERAND (node, 0), se_type;
8b27f225
PB		 13081
13082 /* Complete the switch expression */
13083 se = TREE_OPERAND (node, 0) = java_complete_tree (se);
13084 se_type = TREE_TYPE (se);
13085 /* The type of the switch expression must be char, byte, short or
13086 int */
13087 if (!JINTEGRAL_TYPE_P (se_type))
13088 {
13089 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (node);
13090 parse_error_context (wfl_operator, "Incompatible type for `switch'. "
13091 "Can't convert `%s' to `int'",
13092 lang_printable_name (se_type, 0));
13093 /* This is what java_complete_tree will check */
13094 TREE_OPERAND (node, 0) = error_mark_node;
13095 return error_mark_node;
13096 }
13097
12472854 13098 TREE_OPERAND (node, 1) = java_complete_tree (TREE_OPERAND (node, 1));
8b27f225
PB		 13099
13100 /* Ready to return */
12472854 13101 if (TREE_CODE (TREE_OPERAND (node, 1)) == ERROR_MARK)
8b27f225
PB		 13102 {
13103 TREE_TYPE (node) = error_mark_node;
13104 return error_mark_node;
13105 }
13106 TREE_TYPE (node) = void_type_node;
13107 TREE_SIDE_EFFECTS (node) = 1;
12472854 13108 CAN_COMPLETE_NORMALLY (node)
c877974e
APB		 13109 = CAN_COMPLETE_NORMALLY (TREE_OPERAND (node, 1))
13110 || ! SWITCH_HAS_DEFAULT (node);
8b27f225
PB		 13111 return node;
13112}
13113
8b27f225
PB		 13114/* 14.18 The try statement */
13115
13116/* Wrap BLOCK around a LABELED_BLOCK, set DECL to the newly generated
13117 exit labeld and issue a jump to FINALLY_LABEL:
13118
13119 LABELED_BLOCK
13120 BLOCK
13121 <orignal_statments>
13122 DECL = &LABEL_DECL
13123 GOTO_EXPR
13124 FINALLY_LABEL
13125 LABEL_DECL */
13126
13127static tree
13128build_jump_to_finally (block, decl, finally_label, type)
13129 tree block, decl, finally_label, type;
13130{
13131 tree stmt;
13132 tree new_block = build (LABELED_BLOCK_EXPR, type,
13133 create_label_decl (generate_name ()), block);
13134
13135 stmt = build (MODIFY_EXPR, void_type_node, decl,
13136 build_address_of (LABELED_BLOCK_LABEL (new_block)));
13137 TREE_SIDE_EFFECTS (stmt) = 1;
82371d41 13138 CAN_COMPLETE_NORMALLY (stmt) = 1;
8b27f225
PB		 13139 add_stmt_to_block (block, type, stmt);
13140 stmt = build (GOTO_EXPR, void_type_node, finally_label);
13141 TREE_SIDE_EFFECTS (stmt) = 1;
13142 add_stmt_to_block (block, type, stmt);
13143 return new_block;
13144}
13145
13146static tree
13147build_try_statement (location, try_block, catches, finally)
13148 int location;
13149 tree try_block, catches, finally;
13150{
13151 tree node, rff;
13152
12472854 13153 if (finally && ! flag_emit_class_files)
8b27f225
PB		 13154 {
13155 /* This block defines a scope for the entire try[-catch]-finally
13156 sequence. It hold a local variable used to return from the
13157 finally using a computed goto. We call it
13158 return_from_finally (RFF). */
c877974e 13159 rff = build_decl (VAR_DECL, generate_name (), return_address_type_node);
8b27f225
PB		 13160
13161 /* Modification of the try block. */
13162 try_block = build_jump_to_finally (try_block, rff,
13163 FINALLY_EXPR_LABEL (finally),
13164 NULL_TREE);
13165
13166 /* To the finally block: add the computed goto */
13167 add_stmt_to_block (FINALLY_EXPR_BLOCK (finally), NULL_TREE,
13168 build (GOTO_EXPR, void_type_node, rff));
13169
13170 /* Modification of each catch blocks, if any */
13171 if (catches)
13172 {
13173 tree catch, catch_decl, catch_block, stmt;
13174
13175 for (catch = catches; catch; catch = TREE_CHAIN (catch))
13176 TREE_OPERAND (catch, 0) =
13177 build_jump_to_finally (TREE_OPERAND (catch, 0), rff,
13178 FINALLY_EXPR_LABEL (finally),
13179 NULL_TREE);
13180
13181 /* Plus, at the end of the list, we add the catch clause that
13182 will catch an uncaught exception, call finally and rethrow it:
13183 BLOCK
13184 void *exception_parameter; (catch_decl)
13185 LABELED_BLOCK
13186 BLOCK
13187 exception_parameter = _Jv_exception_info ();
13188 RFF = &LABEL_DECL;
13189 goto finally;
13190 LABEL_DECL;
13191 CALL_EXPR
13192 Jv_ReThrow
13193 exception_parameter */
c877974e 13194 catch_decl = build_decl (VAR_DECL, generate_name (), ptr_type_node);
8b27f225
PB		 13195 BUILD_ASSIGN_EXCEPTION_INFO (stmt, catch_decl);
13196 catch_block = build_expr_block (stmt, NULL_TREE);
13197 catch_block = build_jump_to_finally (catch_block, rff,
13198 FINALLY_EXPR_LABEL (finally),
13199 void_type_node);
13200 BUILD_THROW (stmt, catch_decl);
13201 catch_block = build_expr_block (catch_block, catch_decl);
13202 add_stmt_to_block (catch_block, void_type_node, stmt);
13203
13204 /* Link the new handler to the existing list as the first
13205 entry. It will be the last one to be generated. */
13206 catch = build1 (CATCH_EXPR, void_type_node, catch_block);
13207 TREE_CHAIN (catch) = catches;
13208 catches = catch;
13209 }
13210 }
13211
13212 node = build (TRY_EXPR, NULL_TREE, try_block, catches, finally);
13213 EXPR_WFL_LINECOL (node) = location;
13214
13215 /* If we have a finally, surround this whole thing by a block where
13216 the RFF local variable is defined. */
13217
12472854
PB		 13218 return (finally && ! flag_emit_class_files ? build_expr_block (node, rff)
13219 : node);
8b27f225
PB		 13220}
13221
13222/* Get the catch clause block from an element of the catch clause
13223 list. If depends on whether a finally clause exists or node (in
13224 which case the original catch clause was surrounded by a
13225 LABELED_BLOCK_EXPR. */
13226
13227tree
13228java_get_catch_block (node, finally_present_p)
13229 tree node;
13230 int finally_present_p;
13231{
13232 return (CATCH_EXPR_GET_EXPR (TREE_OPERAND (node, 0), finally_present_p));
13233}
13234
13235static tree
13236patch_try_statement (node)
13237 tree node;
13238{
13239 int error_found = 0;
13240 tree try = TREE_OPERAND (node, 0);
13241 /* Exception handlers are considered in left to right order */
13242 tree catch = nreverse (TREE_OPERAND (node, 1));
13243 tree finally = TREE_OPERAND (node, 2);
13244 int finally_p = (finally ? 1 : 0);
13245 tree current, caught_type_list = NULL_TREE;
13246
13247 /* Check catch clauses, if any. Every time we find an error, we try
13248 to process the next catch clause. We process the catch clause before
13249 the try block so that when processing the try block we can check thrown
13250 exceptions againts the caught type list. */
13251 for (current = catch; current; current = TREE_CHAIN (current))
13252 {
13253 tree carg_decl, carg_type;
13254 tree sub_current, catch_block, catch_clause;
13255 int unreachable;
13256
13257 /* Always detect the last catch clause if a finally is
13258 present. This is the catch-all handler and it just needs to
13259 be walked. */
13260 if (!TREE_CHAIN (current) && finally)
13261 {
13262 TREE_OPERAND (current, 0) =
13263 java_complete_tree (TREE_OPERAND (current, 0));
13264 continue;
13265 }
13266
13267 /* At this point, the structure of the catch clause is
13268 LABELED_BLOCK_EXPR (if we have a finally)
13269 CATCH_EXPR (catch node)
13270 BLOCK (with the decl of the parameter)
13271 COMPOUND_EXPR
63a212ed 13272 MODIFY_EXPR (assignment of the catch parameter)
8b27f225
PB		 13273 BLOCK (catch clause block)
13274 LABEL_DECL (where to return after finally (if any))
13275
13276 Since the structure of the catch clause depends on the
13277 presence of a finally, we use a function call to get to the
13278 cath clause */
13279 catch_clause = java_get_catch_block (current, finally_p);
13280 carg_decl = BLOCK_EXPR_DECLS (catch_clause);
13281 carg_type = TREE_TYPE (TREE_TYPE (carg_decl));
13282
13283 /* Catch clauses can't have more than one parameter declared,
13284 but it's already enforced by the grammar. Make sure that the
13285 only parameter of the clause statement in of class Throwable
13286 or a subclass of Throwable, but that was done earlier. The
13287 catch clause parameter type has also been resolved. */
13288
13289 /* Just make sure that the catch clause parameter type inherits
13290 from java.lang.Throwable */
13291 if (!inherits_from_p (carg_type, throwable_type_node))
13292 {
13293 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (current);
13294 parse_error_context (wfl_operator,
13295 "Can't catch class `%s'. Catch clause "
13296 "parameter type must be a subclass of "
13297 "class `java.lang.Throwable'",
13298 lang_printable_name (carg_type, 0));
13299 error_found = 1;
13300 continue;
13301 }
13302
13303 /* Partial check for unreachable catch statement: The catch
13304 clause is reachable iff is no earlier catch block A in
13305 the try statement such that the type of the catch
13306 clause's parameter is the same as or a subclass of the
13307 type of A's parameter */
13308 unreachable = 0;
13309 for (sub_current = catch;
13310 sub_current != current; sub_current = TREE_CHAIN (sub_current))
13311 {
13312 tree sub_catch_clause, decl;
13313 sub_catch_clause = java_get_catch_block (sub_current, finally_p);
13314 decl = BLOCK_EXPR_DECLS (sub_catch_clause);
13315
13316 if (inherits_from_p (carg_type, TREE_TYPE (TREE_TYPE (decl))))
13317 {
13318 EXPR_WFL_LINECOL (wfl_operator) = EXPR_WFL_LINECOL (current);
13319 parse_error_context
13320 (wfl_operator, "`catch' not reached because of the catch "
13321 "clause at line %d", EXPR_WFL_LINENO (sub_current));
13322 unreachable = error_found = 1;
13323 break;
13324 }
13325 }
8b27f225
PB		 13326 /* Complete the catch clause block */
13327 catch_block = java_complete_tree (TREE_OPERAND (current, 0));
13328 if (catch_block == error_mark_node)
13329 {
13330 error_found = 1;
13331 continue;
13332 }
12472854
PB		 13333 if (CAN_COMPLETE_NORMALLY (catch_block))
13334 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225 13335 TREE_OPERAND (current, 0) = catch_block;
12472854
PB		 13336
13337 if (unreachable)
13338 continue;
13339
13340 /* Things to do here: the exception must be thrown */
13341
13342 /* Link this type to the caught type list */
13343 caught_type_list = tree_cons (NULL_TREE, carg_type, caught_type_list);
8b27f225
PB		 13344 }
13345
13346 PUSH_EXCEPTIONS (caught_type_list);
13347 if ((try = java_complete_tree (try)) == error_mark_node)
13348 error_found = 1;
12472854
PB		 13349 if (CAN_COMPLETE_NORMALLY (try))
13350 CAN_COMPLETE_NORMALLY (node) = 1;
8b27f225
PB		 13351 POP_EXCEPTIONS ();
13352
13353 /* Process finally */
13354 if (finally)
13355 {
12472854
PB		 13356 current = java_complete_tree (FINALLY_EXPR_BLOCK (finally));
13357 FINALLY_EXPR_BLOCK (finally) = current;
13358 if (current == error_mark_node)
8b27f225 13359 error_found = 1;
12472854
PB		 13360 if (! CAN_COMPLETE_NORMALLY (current))
13361 CAN_COMPLETE_NORMALLY (node) = 0;
8b27f225
PB		 13362 }
13363
13364 /* Verification ends here */
13365 if (error_found)
13366 return error_mark_node;
13367
13368 TREE_OPERAND (node, 0) = try;
13369 TREE_OPERAND (node, 1) = catch;
13370 TREE_OPERAND (node, 2) = finally;
13371 TREE_TYPE (node) = void_type_node;
13372 return node;
13373}
13374
13375/* 14.17 The synchronized Statement */
13376
13377static tree
13378patch_synchronized_statement (node, wfl_op1)
13379 tree node, wfl_op1;
13380{
13381 tree expr = TREE_OPERAND (node, 0);
13382 tree block = TREE_OPERAND (node, 1);
13383 tree try_block, catch_all, stmt, compound, decl;
13384
13385 /* The TYPE of expr must be a reference type */
13386 if (!JREFERENCE_TYPE_P (TREE_TYPE (TREE_OPERAND (node, 0))))
13387 {
13388 SET_WFL_OPERATOR (wfl_operator, node, wfl_op1);
13389 parse_error_context (wfl_operator, "Incompatible type for `synchronized'"
13390 ". Can't convert `%s' to `java.lang.Object'",
13391 lang_printable_name (TREE_TYPE (expr), 0));
13392 return error_mark_node;
13393 }
13394
13395 /* Generate a try-finally for the synchronized statement, except
13396 that the handler that catches all throw exception calls
13397 _Jv_MonitorExit and then rethrow the exception.
13398 The synchronized statement is then implemented as:
13399 TRY
13400 {
13401 _Jv_MonitorEnter (expression)
13402 synchronized_block
13403 _Jv_MonitorExit (expression)
13404 }
13405 CATCH_ALL
13406 {
13407 e = _Jv_exception_info ();
13408 _Jv_MonitorExit (expression)
13409 Throw (e);
13410 } */
13411
13412 /* TRY block */
13413 BUILD_MONITOR_ENTER (stmt, expr);
13414 compound = add_stmt_to_compound (NULL_TREE, int_type_node, stmt);
13415 compound = add_stmt_to_compound (compound, void_type_node, block);
63a212ed
PB		 13416 if (CAN_COMPLETE_NORMALLY (block))
13417 {
13418 BUILD_MONITOR_EXIT (stmt, expr);
13419 compound = add_stmt_to_compound (compound, int_type_node, stmt);
13420 }
8b27f225 13421 try_block = build_expr_block (compound, NULL_TREE);
63a212ed 13422 CAN_COMPLETE_NORMALLY (try_block) = CAN_COMPLETE_NORMALLY (block);
8b27f225
PB		 13423
13424 /* CATCH_ALL block */
c877974e 13425 decl = build_decl (VAR_DECL, generate_name (), ptr_type_node);
8b27f225
PB		 13426 BUILD_ASSIGN_EXCEPTION_INFO (stmt, decl);
13427 compound = add_stmt_to_compound (NULL_TREE, void_type_node, stmt);
13428 BUILD_MONITOR_EXIT (stmt, expr);
13429 compound = add_stmt_to_compound (compound, int_type_node, stmt);
13430 BUILD_THROW (stmt, decl);
13431 compound = add_stmt_to_compound (compound, void_type_node, stmt);
13432 catch_all = build_expr_block (compound, decl);
13433 catch_all = build_expr_block (catch_all, NULL_TREE);
13434 catch_all = build1 (CATCH_EXPR, void_type_node, catch_all);
13435
13436 /* TRY-CATCH statement */
1886c9d8 13437 compound = build (TRY_EXPR, void_type_node, try_block, catch_all, NULL_TREE);
63a212ed 13438 CAN_COMPLETE_NORMALLY (compound) = CAN_COMPLETE_NORMALLY (try_block);
1886c9d8 13439 return compound;
8b27f225
PB		 13440}
13441
13442/* 14.16 The throw Statement */
13443
13444static tree
13445patch_throw_statement (node, wfl_op1)
13446 tree node, wfl_op1;
13447{
13448 tree expr = TREE_OPERAND (node, 0);
13449 tree type = TREE_TYPE (expr);
13450 int unchecked_ok = 0, tryblock_throws_ok = 0;
13451
13452 /* Thrown expression must be assignable to java.lang.Throwable */
13453 if (!try_reference_assignconv (throwable_type_node, expr))
13454 {
13455 SET_WFL_OPERATOR (wfl_operator, node, wfl_op1);
13456 parse_error_context (wfl_operator, "Can't throw `%s'; it must be a "
13457 "subclass of class `java.lang.Throwable'",
13458 lang_printable_name (type, 0));
13459 /* If the thrown expression was a reference, we further the
13460 compile-time check. */
13461 if (!JREFERENCE_TYPE_P (type))
13462 return error_mark_node;
13463 }
13464
13465 /* At least one of the following must be true */
13466
13467 /* The type of the throw expression is a not checked exception,
13468 i.e. is a unchecked expression. */
c877974e 13469 unchecked_ok = IS_UNCHECKED_EXCEPTION_P (TREE_TYPE (type));
8b27f225
PB		 13470
13471 /* Throw is contained in a try statement and at least one catch
13472 clause can receive the thrown expression or the current method is
13473 declared to throw such an exception. Or, the throw statement is
13474 contained in a method or constructor declaration and the type of
13475 the Expression is assignable to at least one type listed in the
13476 throws clause the declaration. */
13477 SET_WFL_OPERATOR (wfl_operator, node, wfl_op1);
13478 if (!unchecked_ok)
13479 tryblock_throws_ok =
13480 check_thrown_exceptions_do (TREE_TYPE (expr));
13481 if (!(unchecked_ok || tryblock_throws_ok))
13482 {
13483 /* If there is a surrounding try block that has no matching
13484 clatch clause, report it first. A surrounding try block exits
13485 only if there is something after the list of checked
13486 exception thrown by the current function (if any). */
13487 if (IN_TRY_BLOCK_P ())
13488 parse_error_context (wfl_operator, "Checked exception `%s' can't be "
13489 "caught by any of the catch clause(s) "
13490 "of the surrounding `try' block",
13491 lang_printable_name (type, 0));
13492 /* If we have no surrounding try statement and the method doesn't have
13493 any throws, report it now. FIXME */
13494 else if (!EXCEPTIONS_P (currently_caught_type_list)
13495 && !tryblock_throws_ok)
13496 parse_error_context (wfl_operator, "Checked exception `%s' isn't "
13497 "thrown from a `try' block",
13498 lang_printable_name (type, 0));
13499 /* Otherwise, the current method doesn't have the appropriate
13500 throws declaration */
13501 else
13502 parse_error_context (wfl_operator, "Checked exception `%s' doesn't "
13503 "match any of current method's `throws' "
13504 "declaration(s)",
13505 lang_printable_name (type, 0));
13506 return error_mark_node;
13507 }
13508
13509 /* If a throw statement is contained in a static initializer, then a
13510 compile-time check ensures that either its value is always an
13511 unchecked exception or its value is always caught by some try
13512 statement that contains it. FIXME, static initializer. */
13513
12472854
PB		 13514 if (! flag_emit_class_files)
13515 BUILD_THROW (node, expr);
8b27f225
PB		 13516 return node;
13517}
13518
13519/* Check that exception said to be thrown by method DECL can be
13520 effectively caught from where DECL is invoked. */
13521
13522static void
13523check_thrown_exceptions (location, decl)
13524 int location;
13525 tree decl;
13526{
13527 tree throws;
13528 /* For all the unchecked exceptions thrown by DECL */
13529 for (throws = DECL_FUNCTION_THROWS (decl); throws;
13530 throws = TREE_CHAIN (throws))
13531 if (!check_thrown_exceptions_do (TREE_VALUE (throws)))
13532 {
59e4a38e
PB		 13533#if 1
13534 /* Temporary hack to suppresses errors about cloning arrays. FIXME */
13535 if (DECL_NAME (decl) == get_identifier ("clone"))
13536 continue;
13537#endif
8b27f225
PB		 13538 EXPR_WFL_LINECOL (wfl_operator) = location;
13539 parse_error_context
13540 (wfl_operator, "Exception `%s' must be caught, or it must be "
13541 "declared in the `throws' clause of `%s'",
13542 lang_printable_name (TREE_VALUE (throws), 0),
13543 IDENTIFIER_POINTER (DECL_NAME (current_function_decl)));
13544 }
13545}
13546
c877974e 13547/* Return 1 if checked EXCEPTION is caught at the current nesting level of
8b27f225
PB		 13548 try-catch blocks, OR is listed in the `throws' clause of the
13549 current method. */
13550
13551static int
13552check_thrown_exceptions_do (exception)
13553 tree exception;
13554{
13555 tree list = currently_caught_type_list;
c877974e 13556 resolve_and_layout (exception, NULL_TREE);
8b27f225
PB		 13557 /* First, all the nested try-catch-finally at that stage. The
13558 last element contains `throws' clause exceptions, if any. */
c877974e
APB		 13559 if (IS_UNCHECKED_EXCEPTION_P (exception))
13560 return 1;
8b27f225
PB		 13561 while (list)
13562 {
13563 tree caught;
13564 for (caught = TREE_VALUE (list); caught; caught = TREE_CHAIN (caught))
13565 if (valid_ref_assignconv_cast_p (exception, TREE_VALUE (caught), 0))
13566 return 1;
13567 list = TREE_CHAIN (list);
13568 }
13569 return 0;
13570}
13571
13572static void
13573purge_unchecked_exceptions (mdecl)
13574 tree mdecl;
13575{
13576 tree throws = DECL_FUNCTION_THROWS (mdecl);
13577 tree new = NULL_TREE;
13578
13579 while (throws)
13580 {
13581 tree next = TREE_CHAIN (throws);
c877974e 13582 if (!IS_UNCHECKED_EXCEPTION_P (TREE_VALUE (throws)))
8b27f225
PB		 13583 {
13584 TREE_CHAIN (throws) = new;
13585 new = throws;
13586 }
13587 throws = next;
13588 }
13589 /* List is inverted here, but it doesn't matter */
13590 DECL_FUNCTION_THROWS (mdecl) = new;
13591}
22eed1e6
APB		 13592
13593/* 15.24 Conditional Operator ?: */
13594
13595static tree
13596patch_conditional_expr (node, wfl_cond, wfl_op1)
13597 tree node, wfl_cond, wfl_op1;
13598{
13599 tree cond = TREE_OPERAND (node, 0);
13600 tree op1 = TREE_OPERAND (node, 1);
13601 tree op2 = TREE_OPERAND (node, 2);
22eed1e6 13602 tree resulting_type = NULL_TREE;
ac825856 13603 tree t1, t2, patched;
22eed1e6
APB		 13604 int error_found = 0;
13605
ac825856
APB		 13606 /* Operands of ?: might be StringBuffers crafted as a result of a
13607 string concatenation. Obtain a descent operand here. */
13608 if ((patched = patch_string (op1)))
13609 TREE_OPERAND (node, 1) = op1 = patched;
13610 if ((patched = patch_string (op2)))
13611 TREE_OPERAND (node, 2) = op2 = patched;
13612
13613 t1 = TREE_TYPE (op1);
13614 t2 = TREE_TYPE (op2);
13615
22eed1e6
APB		 13616 /* The first expression must be a boolean */
13617 if (TREE_TYPE (cond) != boolean_type_node)
13618 {
13619 SET_WFL_OPERATOR (wfl_operator, node, wfl_cond);
13620 parse_error_context (wfl_operator, "Incompatible type for `?:'. Can't "
13621 "convert `%s' to `boolean'",
13622 lang_printable_name (TREE_TYPE (cond), 0));
13623 error_found = 1;
13624 }
13625
13626 /* Second and third can be numeric, boolean (i.e. primitive),
13627 references or null. Anything else results in an error */
13628 if (!((JNUMERIC_TYPE_P (t1) && JNUMERIC_TYPE_P (t2))
13629 || ((JREFERENCE_TYPE_P (t1) || op1 == null_pointer_node)
13630 && (JREFERENCE_TYPE_P (t2) || op2 == null_pointer_node))
13631 || (t1 == boolean_type_node && t2 == boolean_type_node)))
13632 error_found = 1;
13633
13634 /* Determine the type of the conditional expression. Same types are
13635 easy to deal with */
13636 else if (t1 == t2)
13637 resulting_type = t1;
13638
13639 /* There are different rules for numeric types */
13640 else if (JNUMERIC_TYPE_P (t1))
13641 {
13642 /* if byte/short found, the resulting type is short */
13643 if ((t1 == byte_type_node && t2 == short_type_node)
13644 || (t1 == short_type_node && t2 == byte_type_node))
13645 resulting_type = short_type_node;
13646
13647 /* If t1 is a constant int and t2 is of type byte, short or char
13648 and t1's value fits in t2, then the resulting type is t2 */
13649 else if ((t1 == int_type_node && TREE_CONSTANT (TREE_OPERAND (node, 1)))
13650 && JBSC_TYPE_P (t2) && int_fits_type_p (TREE_OPERAND (node, 1), t2))
13651 resulting_type = t2;
13652
13653 /* If t2 is a constant int and t1 is of type byte, short or char
13654 and t2's value fits in t1, then the resulting type is t1 */
13655 else if ((t2 == int_type_node && TREE_CONSTANT (TREE_OPERAND (node, 2)))
13656 && JBSC_TYPE_P (t1) && int_fits_type_p (TREE_OPERAND (node, 2), t1))
13657 resulting_type = t1;
13658
13659 /* Otherwise, binary numeric promotion is applied and the
13660 resulting type is the promoted type of operand 1 and 2 */
13661 else
13662 resulting_type = binary_numeric_promotion (t2, t2,
13663 &TREE_OPERAND (node, 1),
13664 &TREE_OPERAND (node, 2));
13665 }
13666
13667 /* Cases of a reference and a null type */
13668 else if (JREFERENCE_TYPE_P (t1) && op2 == null_pointer_node)
13669 resulting_type = t1;
13670
13671 else if (JREFERENCE_TYPE_P (t2) && op1 == null_pointer_node)
13672 resulting_type = t2;
13673
13674 /* Last case: different reference types. If a type can be converted
13675 into the other one by assignment conversion, the latter
13676 determines the type of the expression */
13677 else if ((resulting_type = try_reference_assignconv (t1, op2)))
13678 resulting_type = promote_type (t1);
13679
13680 else if ((resulting_type = try_reference_assignconv (t2, op1)))
13681 resulting_type = promote_type (t2);
13682
13683 /* If we don't have any resulting type, we're in trouble */
13684 if (!resulting_type)
13685 {
13686 char *t = strdup (lang_printable_name (t1, 0));
13687 SET_WFL_OPERATOR (wfl_operator, node, wfl_op1);
13688 parse_error_context (wfl_operator, "Incompatible type for `?:'. Can't "
13689 "convert `%s' to `%s'", t,
13690 lang_printable_name (t2, 0));
13691 free (t);
13692 error_found = 1;
13693 }
13694
13695 if (error_found)
13696 {
13697 TREE_TYPE (node) = error_mark_node;
13698 return error_mark_node;
13699 }
13700
13701 TREE_TYPE (node) = resulting_type;
13702 TREE_SET_CODE (node, COND_EXPR);
12472854 13703 CAN_COMPLETE_NORMALLY (node) = 1;
22eed1e6
APB		 13704 return node;
13705}
ac825856 13706
5b09b33e
PB		 13707/* Try to constant fold NODE.
13708 If NODE is not a constant expression, return NULL_EXPR.
13709 CONTEXT is a static final VAR_DECL whose initializer we are folding. */
13710
13711static tree
13712fold_constant_for_init (node, context)
13713 tree node;
13714 tree context;
13715{
13716 tree op0, op1, val;
13717 enum tree_code code = TREE_CODE (node);
13718
13719 if (code == INTEGER_CST || code == REAL_CST || code == STRING_CST)
13720 return node;
13721 if (TREE_TYPE (node) != NULL_TREE)
13722 return NULL_TREE;
13723
13724 switch (code)
13725 {
13726 case MULT_EXPR:
13727 case PLUS_EXPR:
13728 case MINUS_EXPR:
13729 case LSHIFT_EXPR:
13730 case RSHIFT_EXPR:
13731 case URSHIFT_EXPR:
13732 case BIT_AND_EXPR:
13733 case BIT_XOR_EXPR:
13734 case BIT_IOR_EXPR:
13735 case TRUNC_MOD_EXPR:
13736 case RDIV_EXPR:
13737 case TRUTH_ANDIF_EXPR:
13738 case TRUTH_ORIF_EXPR:
13739 case EQ_EXPR:
13740 case NE_EXPR:
13741 case GT_EXPR:
13742 case GE_EXPR:
13743 case LT_EXPR:
13744 case LE_EXPR:
13745 op0 = TREE_OPERAND (node, 0);
13746 op1 = TREE_OPERAND (node, 1);
13747 val = fold_constant_for_init (op0, context);
13748 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13749 return NULL_TREE;
13750 TREE_OPERAND (node, 0) = val;
13751 val = fold_constant_for_init (op1, context);
13752 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13753 return NULL_TREE;
13754 TREE_OPERAND (node, 1) = val;
13755 return patch_binop (node, op0, op1);
13756
13757 case UNARY_PLUS_EXPR:
13758 case NEGATE_EXPR:
13759 case TRUTH_NOT_EXPR:
13760 case BIT_NOT_EXPR:
13761 case CONVERT_EXPR:
13762 op0 = TREE_OPERAND (node, 0);
13763 val = fold_constant_for_init (op0, context);
13764 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13765 return NULL_TREE;
13766 TREE_OPERAND (node, 0) = val;
13767 node = patch_unaryop (node, op0);
13768 break;
13769
13770 case COND_EXPR:
13771 val = fold_constant_for_init (TREE_OPERAND (node, 0), context);
13772 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13773 return NULL_TREE;
13774 TREE_OPERAND (node, 0) = val;
13775 val = fold_constant_for_init (TREE_OPERAND (node, 1), context);
13776 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13777 return NULL_TREE;
13778 TREE_OPERAND (node, 1) = val;
13779 val = fold_constant_for_init (TREE_OPERAND (node, 2), context);
13780 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13781 return NULL_TREE;
13782 TREE_OPERAND (node, 2) = val;
13783 return integer_zerop (TREE_OPERAND (node, 0)) ? TREE_OPERAND (node, 1)
13784 : TREE_OPERAND (node, 2);
13785
13786 case VAR_DECL:
13787 if (! FIELD_STATIC (node) || ! FIELD_FINAL (node)
13788 || DECL_INITIAL (node) == NULL_TREE)
13789 return NULL_TREE;
13790 val = DECL_INITIAL (node);
13791 /* Guard against infinite recursion. */
13792 DECL_INITIAL (node) = NULL_TREE;
13793 val = fold_constant_for_init (val, DECL_CONTEXT (node));
13794 DECL_INITIAL (node) = val;
13795 return val;
13796
13797 case EXPR_WITH_FILE_LOCATION:
13798 /* Compare java_complete_tree and resolve_expression_name. */
13799 if (!EXPR_WFL_NODE (node) /* Or a PRIMARY flag ? */
13800 || TREE_CODE (EXPR_WFL_NODE (node)) == IDENTIFIER_NODE)
13801 {
13802 tree name = EXPR_WFL_NODE (node);
13803 tree decl;
13804 if (PRIMARY_P (node))
13805 return NULL_TREE;
13806 else if (! QUALIFIED_P (name))
13807 {
13808 decl = lookup_field_wrapper (DECL_CONTEXT (context), name);
13809 if (! FIELD_STATIC (decl))
13810 return NULL_TREE;
13811 return fold_constant_for_init (decl, decl);
13812 }
13813 else
13814 {
13815#if 0
13816 /* Wait until the USE_COMPONENT_REF re-write. FIXME. */
13817 qualify_ambiguous_name (node);
13818 if (resolve_field_access (node, &decl, NULL)
13819 && decl != NULL_TREE)
13820 return fold_constant_for_init (decl, decl);
13821#endif
13822 return NULL_TREE;
13823 }
13824 }
13825 else
13826 {
13827 op0 = TREE_OPERAND (node, 0);
13828 val = fold_constant_for_init (op0, context);
13829 if (val == NULL_TREE || ! TREE_CONSTANT (val))
13830 return NULL_TREE;
13831 TREE_OPERAND (node, 0) = val;
13832 return val;
13833 }
13834
13835 default:
13836 return NULL_TREE;
13837 }
13838}
GNU Compiler Collection
This page took 1.607102 seconds and 5 git commands to generate.