Sync to wine-1.1.1 (Patch 4 of 10):
authorEric Kohl <eric.kohl@reactos.org>
Wed, 19 Nov 2008 23:13:05 +0000 (23:13 +0000)
committerEric Kohl <eric.kohl@reactos.org>
Wed, 19 Nov 2008 23:13:05 +0000 (23:13 +0000)
ATTENTION: You MUST run "clean" before building ReactOS, otherwise WIDL will crash when it is run.

- Dan Hipschman <dsh@linux.ucla.edu> Tue, 1 Jul 2008
widl: Implement type redefinition checks.

This allows widl to catch type redefinitions and report an error, like MIDL.
However, this does a better job than MIDL since it also reports the location
of the originial definition, like GCC.

svn path=/trunk/; revision=37476

reactos/tools/widl/parser.tab.c
reactos/tools/widl/parser.tab.h
reactos/tools/widl/parser.y
reactos/tools/widl/typelib.c
reactos/tools/widl/widltypes.h

index e2a3bb2..ec117fa 100644 (file)
@@ -529,6 +529,8 @@ static attr_list_t *check_module_attrs(const char *name, attr_list_t *attrs);
 static attr_list_t *check_coclass_attrs(const char *name, attr_list_t *attrs);
 const char *get_attr_display_name(enum attr_type type);
 static void add_explicit_handle_if_necessary(func_t *func);
+static type_t *find_type_helper(const char *name, int t);
+static void check_def(const type_t *t);
 
 static statement_t *make_statement(enum statement_type type);
 static statement_t *make_statement_type_decl(type_t *type);
@@ -567,7 +569,7 @@ static func_list_t *append_func_from_statement(func_list_t *list, statement_t *s
 #endif
 
 #if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 177 "parser.y"
+#line 179 "parser.y"
 typedef union YYSTYPE {
        attr_t *attr;
        attr_list_t *attr_list;
@@ -597,7 +599,7 @@ typedef union YYSTYPE {
        enum storage_class stgclass;
 } YYSTYPE;
 /* Line 196 of yacc.c.  */
-#line 601 "parser.tab.c"
+#line 603 "parser.tab.c"
 # define yystype YYSTYPE /* obsolescent; will be withdrawn */
 # define YYSTYPE_IS_DECLARED 1
 # define YYSTYPE_IS_TRIVIAL 1
@@ -609,7 +611,7 @@ typedef union YYSTYPE {
 
 
 /* Line 219 of yacc.c.  */
-#line 613 "parser.tab.c"
+#line 615 "parser.tab.c"
 
 #if ! defined (YYSIZE_T) && defined (__SIZE_TYPE__)
 # define YYSIZE_T __SIZE_TYPE__
@@ -964,37 +966,37 @@ static const short int yyrhs[] =
 /* YYRLINE[YYN] -- source line where rule number YYN was defined.  */
 static const unsigned short int yyrline[] =
 {
-       0,   349,   349,   358,   359,   360,   361,   365,   370,   373,
-     374,   377,   378,   379,   380,   381,   386,   387,   388,   389,
-     392,   393,   396,   397,   401,   402,   408,   411,   412,   418,
-     419,   427,   429,   437,   444,   448,   450,   457,   465,   466,
-     469,   472,   473,   474,   478,   485,   493,   494,   497,   498,
-     502,   508,   509,   510,   513,   514,   517,   518,   519,   520,
-     521,   522,   523,   524,   525,   526,   527,   528,   529,   530,
-     531,   532,   533,   534,   535,   536,   537,   538,   539,   540,
-     541,   542,   543,   544,   545,   546,   547,   548,   549,   550,
-     551,   552,   553,   554,   555,   556,   557,   558,   559,   560,
-     561,   562,   563,   564,   565,   566,   567,   568,   569,   570,
-     574,   575,   576,   577,   578,   579,   580,   581,   582,   583,
-     584,   585,   586,   587,   588,   589,   590,   594,   595,   600,
-     601,   602,   603,   606,   607,   610,   614,   620,   621,   622,
-     625,   629,   638,   642,   647,   656,   657,   670,   671,   674,
-     675,   676,   677,   678,   679,   680,   681,   682,   683,   684,
-     685,   686,   687,   688,   689,   690,   691,   692,   693,   694,
-     695,   696,   697,   698,   699,   700,   701,   702,   703,   704,
-     705,   706,   707,   708,   709,   710,   711,   712,   713,   716,
-     717,   720,   726,   732,   733,   736,   741,   748,   749,   752,
-     753,   757,   758,   761,   769,   778,   784,   790,   791,   794,
-     795,   796,   799,   801,   804,   805,   806,   807,   808,   824,
-     825,   826,   827,   828,   829,   830,   833,   834,   837,   838,
-     839,   840,   841,   842,   843,   846,   847,   853,   862,   869,
-     870,   874,   877,   878,   881,   895,   896,   899,   900,   903,
-     913,   923,   924,   927,   928,   931,   944,   958,   971,   975,
-     976,   979,   980,   983,   988,   996,   997,   998,  1002,  1006,
-    1009,  1010,  1013,  1014,  1018,  1019,  1023,  1024,  1025,  1029,
-    1031,  1032,  1036,  1037,  1038,  1039,  1046,  1047,  1051,  1052,
-    1056,  1057,  1058,  1061,  1072,  1073,  1074,  1075,  1076,  1077,
-    1078,  1079,  1080,  1081,  1084,  1090,  1096,  1113,  1114
+       0,   351,   351,   360,   361,   362,   363,   367,   372,   375,
+     376,   379,   380,   381,   382,   383,   388,   389,   390,   391,
+     394,   395,   398,   399,   403,   404,   410,   413,   414,   420,
+     421,   429,   431,   439,   446,   450,   452,   459,   467,   468,
+     471,   474,   475,   476,   480,   487,   495,   496,   499,   500,
+     504,   510,   511,   512,   515,   516,   519,   520,   521,   522,
+     523,   524,   525,   526,   527,   528,   529,   530,   531,   532,
+     533,   534,   535,   536,   537,   538,   539,   540,   541,   542,
+     543,   544,   545,   546,   547,   548,   549,   550,   551,   552,
+     553,   554,   555,   556,   557,   558,   559,   560,   561,   562,
+     563,   564,   565,   566,   567,   568,   569,   570,   571,   572,
+     576,   577,   578,   579,   580,   581,   582,   583,   584,   585,
+     586,   587,   588,   589,   590,   591,   592,   596,   597,   602,
+     603,   604,   605,   608,   609,   612,   616,   622,   623,   624,
+     627,   631,   640,   644,   649,   658,   659,   672,   673,   676,
+     677,   678,   679,   680,   681,   682,   683,   684,   685,   686,
+     687,   688,   689,   690,   691,   692,   693,   694,   695,   696,
+     697,   698,   699,   700,   701,   702,   703,   704,   705,   706,
+     707,   708,   709,   710,   711,   712,   713,   714,   715,   718,
+     719,   722,   728,   734,   735,   738,   743,   750,   751,   754,
+     755,   759,   760,   763,   771,   780,   786,   792,   793,   796,
+     797,   798,   801,   803,   806,   807,   808,   809,   810,   826,
+     827,   828,   829,   830,   831,   832,   835,   836,   839,   840,
+     841,   842,   843,   844,   845,   848,   849,   857,   867,   874,
+     875,   879,   882,   883,   886,   900,   901,   904,   905,   908,
+     918,   928,   929,   932,   933,   936,   949,   963,   976,   980,
+     981,   984,   985,   988,   993,  1001,  1002,  1003,  1007,  1011,
+    1014,  1015,  1018,  1019,  1023,  1024,  1028,  1029,  1030,  1034,
+    1036,  1037,  1041,  1042,  1043,  1044,  1051,  1052,  1056,  1057,
+    1061,  1062,  1063,  1066,  1078,  1079,  1080,  1081,  1082,  1083,
+    1084,  1085,  1086,  1087,  1090,  1096,  1103,  1121,  1122
 };
 #endif
 
@@ -2450,7 +2452,7 @@ yyreduce:
   switch (yyn)
     {
         case 2:
-#line 349 "parser.y"
+#line 351 "parser.y"
     { fix_incomplete();
                                                  check_all_user_types((yyvsp[0].stmt_list));
                                                  write_proxies((yyvsp[0].stmt_list));
@@ -2461,22 +2463,22 @@ yyreduce:
     break;
 
   case 3:
-#line 358 "parser.y"
+#line 360 "parser.y"
     { (yyval.stmt_list) = NULL; ;}
     break;
 
   case 4:
-#line 359 "parser.y"
+#line 361 "parser.y"
     { (yyval.stmt_list) = (yyvsp[-1].stmt_list); ;}
     break;
 
   case 5:
-#line 360 "parser.y"
+#line 362 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_type_decl((yyvsp[0].type))); ;}
     break;
 
   case 6:
-#line 361 "parser.y"
+#line 363 "parser.y"
     { (yyval.stmt_list) = (yyvsp[-2].stmt_list);
                                                  reg_type((yyvsp[-1].type), (yyvsp[-1].type)->name, 0);
                                                  if (!parse_only && do_header) write_coclass_forward((yyvsp[-1].type));
@@ -2484,7 +2486,7 @@ yyreduce:
     break;
 
   case 7:
-#line 365 "parser.y"
+#line 367 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_type_decl((yyvsp[0].type)));
                                                  add_typelib_entry((yyvsp[0].type));
                                                  reg_type((yyvsp[0].type), (yyvsp[0].type)->name, 0);
@@ -2493,44 +2495,44 @@ yyreduce:
     break;
 
   case 8:
-#line 370 "parser.y"
+#line 372 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_module((yyvsp[0].type)));
                                                  add_typelib_entry((yyvsp[0].type));
                                                ;}
     break;
 
   case 9:
-#line 373 "parser.y"
+#line 375 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_library((yyvsp[0].typelib))); ;}
     break;
 
   case 10:
-#line 374 "parser.y"
+#line 376 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), (yyvsp[0].statement)); ;}
     break;
 
   case 11:
-#line 377 "parser.y"
+#line 379 "parser.y"
     { (yyval.stmt_list) = NULL; ;}
     break;
 
   case 12:
-#line 378 "parser.y"
+#line 380 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_reference((yyvsp[0].type))); if (!parse_only) add_typelib_entry((yyvsp[0].type)); ;}
     break;
 
   case 13:
-#line 379 "parser.y"
+#line 381 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_type_decl((yyvsp[0].type))); if (!parse_only) add_typelib_entry((yyvsp[0].type)); ;}
     break;
 
   case 14:
-#line 380 "parser.y"
+#line 382 "parser.y"
     { (yyval.stmt_list) = (yyvsp[-2].stmt_list); reg_type((yyvsp[-1].type), (yyvsp[-1].type)->name, 0); if (!parse_only && do_header) write_coclass_forward((yyvsp[-1].type)); ;}
     break;
 
   case 15:
-#line 381 "parser.y"
+#line 383 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_type_decl((yyvsp[0].type)));
                                                  if (!parse_only) add_typelib_entry((yyvsp[0].type));
                                                  reg_type((yyvsp[0].type), (yyvsp[0].type)->name, 0);
@@ -2539,42 +2541,42 @@ yyreduce:
     break;
 
   case 16:
-#line 386 "parser.y"
+#line 388 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_module((yyvsp[0].type))); if (!parse_only) add_typelib_entry((yyvsp[0].type)); ;}
     break;
 
   case 17:
-#line 387 "parser.y"
+#line 389 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), (yyvsp[0].statement)); ;}
     break;
 
   case 18:
-#line 388 "parser.y"
+#line 390 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_importlib((yyvsp[0].str))); ;}
     break;
 
   case 19:
-#line 389 "parser.y"
+#line 391 "parser.y"
     { (yyval.stmt_list) = append_statement((yyvsp[-1].stmt_list), make_statement_library((yyvsp[0].typelib))); ;}
     break;
 
   case 20:
-#line 392 "parser.y"
+#line 394 "parser.y"
     { (yyval.func_list) = NULL; ;}
     break;
 
   case 21:
-#line 393 "parser.y"
+#line 395 "parser.y"
     { (yyval.func_list) = append_func_from_statement( (yyvsp[-1].func_list), (yyvsp[0].statement) ); ;}
     break;
 
   case 24:
-#line 401 "parser.y"
+#line 403 "parser.y"
     { (yyval.statement) = make_statement_cppquote((yyvsp[0].str)); ;}
     break;
 
   case 25:
-#line 402 "parser.y"
+#line 404 "parser.y"
     { (yyval.statement) = make_statement_type_decl((yyvsp[-1].type));
                                                  if (!parse_only && do_header) {
                                                    write_type_def_or_decl(header, (yyvsp[-1].type), FALSE, NULL);
@@ -2584,19 +2586,19 @@ yyreduce:
     break;
 
   case 26:
-#line 408 "parser.y"
+#line 410 "parser.y"
     { (yyval.statement) = make_statement_declaration((yyvsp[-1].var));
                                                  if (!parse_only && do_header) write_declaration((yyvsp[-1].var), is_in_interface);
                                                ;}
     break;
 
   case 27:
-#line 411 "parser.y"
+#line 413 "parser.y"
     { (yyval.statement) = make_statement_import((yyvsp[0].str)); ;}
     break;
 
   case 28:
-#line 412 "parser.y"
+#line 414 "parser.y"
     { (yyval.statement) = make_statement_type_decl((yyvsp[-1].type));
                                                  if (!parse_only && do_header) {
                                                    write_type_def_or_decl(header, (yyvsp[-1].type), FALSE, NULL);
@@ -2606,12 +2608,12 @@ yyreduce:
     break;
 
   case 29:
-#line 418 "parser.y"
+#line 420 "parser.y"
     { (yyval.statement) = (yyvsp[-1].statement); ;}
     break;
 
   case 30:
-#line 419 "parser.y"
+#line 421 "parser.y"
     { (yyval.statement) = make_statement_type_decl((yyvsp[-1].type));
                                                  if (!parse_only && do_header) {
                                                    write_type_def_or_decl(header, (yyvsp[-1].type), FALSE, NULL);
@@ -2621,12 +2623,12 @@ yyreduce:
     break;
 
   case 31:
-#line 427 "parser.y"
+#line 429 "parser.y"
     { (yyval.str) = (yyvsp[-1].str); if (!parse_only && do_header) fprintf(header, "%s\n", (yyvsp[-1].str)); ;}
     break;
 
   case 32:
-#line 429 "parser.y"
+#line 431 "parser.y"
     { assert(yychar == YYEMPTY);
                                                  (yyval.import) = xmalloc(sizeof(struct _import_t));
                                                  (yyval.import)->name = (yyvsp[-1].str);
@@ -2636,7 +2638,7 @@ yyreduce:
     break;
 
   case 33:
-#line 437 "parser.y"
+#line 439 "parser.y"
     { (yyval.str) = (yyvsp[-2].import)->name;
                                                  if ((yyvsp[-2].import)->import_performed) pop_import();
                                                  free((yyvsp[-2].import));
@@ -2645,17 +2647,17 @@ yyreduce:
     break;
 
   case 34:
-#line 445 "parser.y"
+#line 447 "parser.y"
     { (yyval.str) = (yyvsp[-2].str); if(!parse_only) add_importlib((yyvsp[-2].str)); ;}
     break;
 
   case 35:
-#line 448 "parser.y"
+#line 450 "parser.y"
     { (yyval.str) = (yyvsp[0].str); ;}
     break;
 
   case 36:
-#line 450 "parser.y"
+#line 452 "parser.y"
     { (yyval.typelib) = make_library((yyvsp[-1].str), check_library_attrs((yyvsp[-1].str), (yyvsp[-2].attr_list)));
                                                  if (!parse_only) start_typelib((yyval.typelib));
                                                  if (!parse_only && do_header) write_library((yyval.typelib));
@@ -2665,7 +2667,7 @@ yyreduce:
     break;
 
   case 37:
-#line 458 "parser.y"
+#line 460 "parser.y"
     { (yyval.typelib) = (yyvsp[-3].typelib);
                                                  (yyval.typelib)->stmts = (yyvsp[-2].stmt_list);
                                                  if (!parse_only) end_typelib();
@@ -2674,27 +2676,27 @@ yyreduce:
     break;
 
   case 38:
-#line 465 "parser.y"
+#line 467 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 40:
-#line 469 "parser.y"
+#line 471 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 41:
-#line 472 "parser.y"
+#line 474 "parser.y"
     { check_arg((yyvsp[0].var)); (yyval.var_list) = append_var( NULL, (yyvsp[0].var) ); ;}
     break;
 
   case 42:
-#line 473 "parser.y"
+#line 475 "parser.y"
     { check_arg((yyvsp[0].var)); (yyval.var_list) = append_var( (yyvsp[-2].var_list), (yyvsp[0].var)); ;}
     break;
 
   case 44:
-#line 478 "parser.y"
+#line 480 "parser.y"
     { (yyval.var) = (yyvsp[0].declarator)->var;
                                                  (yyval.var)->attrs = (yyvsp[-2].attr_list);
                                                  if ((yyvsp[-1].declspec)->stgclass != STG_NONE && (yyvsp[-1].declspec)->stgclass != STG_REGISTER)
@@ -2705,7 +2707,7 @@ yyreduce:
     break;
 
   case 45:
-#line 485 "parser.y"
+#line 487 "parser.y"
     { (yyval.var) = (yyvsp[0].declarator)->var;
                                                  if ((yyvsp[-1].declspec)->stgclass != STG_NONE && (yyvsp[-1].declspec)->stgclass != STG_REGISTER)
                                                    error_loc("invalid storage class for function parameter\n");
@@ -2715,22 +2717,22 @@ yyreduce:
     break;
 
   case 46:
-#line 493 "parser.y"
+#line 495 "parser.y"
     { (yyval.expr) = (yyvsp[-1].expr); ;}
     break;
 
   case 47:
-#line 494 "parser.y"
+#line 496 "parser.y"
     { (yyval.expr) = make_expr(EXPR_VOID); ;}
     break;
 
   case 48:
-#line 497 "parser.y"
+#line 499 "parser.y"
     { (yyval.attr_list) = NULL; ;}
     break;
 
   case 50:
-#line 502 "parser.y"
+#line 504 "parser.y"
     { (yyval.attr_list) = (yyvsp[-1].attr_list);
                                                  if (!(yyval.attr_list))
                                                    error_loc("empty attribute lists unsupported\n");
@@ -2738,426 +2740,426 @@ yyreduce:
     break;
 
   case 51:
-#line 508 "parser.y"
+#line 510 "parser.y"
     { (yyval.attr_list) = append_attr( NULL, (yyvsp[0].attr) ); ;}
     break;
 
   case 52:
-#line 509 "parser.y"
+#line 511 "parser.y"
     { (yyval.attr_list) = append_attr( (yyvsp[-2].attr_list), (yyvsp[0].attr) ); ;}
     break;
 
   case 53:
-#line 510 "parser.y"
+#line 512 "parser.y"
     { (yyval.attr_list) = append_attr( (yyvsp[-3].attr_list), (yyvsp[0].attr) ); ;}
     break;
 
   case 54:
-#line 513 "parser.y"
+#line 515 "parser.y"
     { (yyval.str_list) = append_str( NULL, (yyvsp[0].str) ); ;}
     break;
 
   case 55:
-#line 514 "parser.y"
+#line 516 "parser.y"
     { (yyval.str_list) = append_str( (yyvsp[-2].str_list), (yyvsp[0].str) ); ;}
     break;
 
   case 56:
-#line 517 "parser.y"
+#line 519 "parser.y"
     { (yyval.attr) = NULL; ;}
     break;
 
   case 57:
-#line 518 "parser.y"
+#line 520 "parser.y"
     { (yyval.attr) = make_attr(ATTR_AGGREGATABLE); ;}
     break;
 
   case 58:
-#line 519 "parser.y"
+#line 521 "parser.y"
     { (yyval.attr) = make_attr(ATTR_APPOBJECT); ;}
     break;
 
   case 59:
-#line 520 "parser.y"
+#line 522 "parser.y"
     { (yyval.attr) = make_attr(ATTR_ASYNC); ;}
     break;
 
   case 60:
-#line 521 "parser.y"
+#line 523 "parser.y"
     { (yyval.attr) = make_attr(ATTR_AUTO_HANDLE); ;}
     break;
 
   case 61:
-#line 522 "parser.y"
+#line 524 "parser.y"
     { (yyval.attr) = make_attr(ATTR_BINDABLE); ;}
     break;
 
   case 62:
-#line 523 "parser.y"
+#line 525 "parser.y"
     { (yyval.attr) = make_attr(ATTR_BROADCAST); ;}
     break;
 
   case 63:
-#line 524 "parser.y"
+#line 526 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_CALLAS, (yyvsp[-1].var)); ;}
     break;
 
   case 64:
-#line 525 "parser.y"
+#line 527 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_CASE, (yyvsp[-1].expr_list)); ;}
     break;
 
   case 65:
-#line 526 "parser.y"
+#line 528 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_CONTEXTHANDLE, 0); ;}
     break;
 
   case 66:
-#line 527 "parser.y"
+#line 529 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_CONTEXTHANDLE, 0); /* RPC_CONTEXT_HANDLE_DONT_SERIALIZE */ ;}
     break;
 
   case 67:
-#line 528 "parser.y"
+#line 530 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_CONTEXTHANDLE, 0); /* RPC_CONTEXT_HANDLE_SERIALIZE */ ;}
     break;
 
   case 68:
-#line 529 "parser.y"
+#line 531 "parser.y"
     { (yyval.attr) = make_attr(ATTR_CONTROL); ;}
     break;
 
   case 69:
-#line 530 "parser.y"
+#line 532 "parser.y"
     { (yyval.attr) = make_attr(ATTR_DEFAULT); ;}
     break;
 
   case 70:
-#line 531 "parser.y"
+#line 533 "parser.y"
     { (yyval.attr) = make_attr(ATTR_DEFAULTCOLLELEM); ;}
     break;
 
   case 71:
-#line 532 "parser.y"
+#line 534 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_DEFAULTVALUE, (yyvsp[-1].expr)); ;}
     break;
 
   case 72:
-#line 533 "parser.y"
+#line 535 "parser.y"
     { (yyval.attr) = make_attr(ATTR_DEFAULTVTABLE); ;}
     break;
 
   case 73:
-#line 534 "parser.y"
+#line 536 "parser.y"
     { (yyval.attr) = make_attr(ATTR_DISPLAYBIND); ;}
     break;
 
   case 74:
-#line 535 "parser.y"
+#line 537 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_DLLNAME, (yyvsp[-1].str)); ;}
     break;
 
   case 75:
-#line 536 "parser.y"
+#line 538 "parser.y"
     { (yyval.attr) = make_attr(ATTR_DUAL); ;}
     break;
 
   case 76:
-#line 537 "parser.y"
+#line 539 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_ENDPOINT, (yyvsp[-1].str_list)); ;}
     break;
 
   case 77:
-#line 538 "parser.y"
+#line 540 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_ENTRY, (yyvsp[-1].expr)); ;}
     break;
 
   case 78:
-#line 539 "parser.y"
+#line 541 "parser.y"
     { (yyval.attr) = make_attr(ATTR_EXPLICIT_HANDLE); ;}
     break;
 
   case 79:
-#line 540 "parser.y"
+#line 542 "parser.y"
     { (yyval.attr) = make_attr(ATTR_HANDLE); ;}
     break;
 
   case 80:
-#line 541 "parser.y"
+#line 543 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_HELPCONTEXT, (yyvsp[-1].expr)); ;}
     break;
 
   case 81:
-#line 542 "parser.y"
+#line 544 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_HELPFILE, (yyvsp[-1].str)); ;}
     break;
 
   case 82:
-#line 543 "parser.y"
+#line 545 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_HELPSTRING, (yyvsp[-1].str)); ;}
     break;
 
   case 83:
-#line 544 "parser.y"
+#line 546 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_HELPSTRINGCONTEXT, (yyvsp[-1].expr)); ;}
     break;
 
   case 84:
-#line 545 "parser.y"
+#line 547 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_HELPSTRINGDLL, (yyvsp[-1].str)); ;}
     break;
 
   case 85:
-#line 546 "parser.y"
+#line 548 "parser.y"
     { (yyval.attr) = make_attr(ATTR_HIDDEN); ;}
     break;
 
   case 86:
-#line 547 "parser.y"
+#line 549 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_ID, (yyvsp[-1].expr)); ;}
     break;
 
   case 87:
-#line 548 "parser.y"
+#line 550 "parser.y"
     { (yyval.attr) = make_attr(ATTR_IDEMPOTENT); ;}
     break;
 
   case 88:
-#line 549 "parser.y"
+#line 551 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_IIDIS, (yyvsp[-1].expr)); ;}
     break;
 
   case 89:
-#line 550 "parser.y"
+#line 552 "parser.y"
     { (yyval.attr) = make_attr(ATTR_IMMEDIATEBIND); ;}
     break;
 
   case 90:
-#line 551 "parser.y"
+#line 553 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_IMPLICIT_HANDLE, (yyvsp[-1].str)); ;}
     break;
 
   case 91:
-#line 552 "parser.y"
+#line 554 "parser.y"
     { (yyval.attr) = make_attr(ATTR_IN); ;}
     break;
 
   case 92:
-#line 553 "parser.y"
+#line 555 "parser.y"
     { (yyval.attr) = make_attr(ATTR_INPUTSYNC); ;}
     break;
 
   case 93:
-#line 554 "parser.y"
+#line 556 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_LENGTHIS, (yyvsp[-1].expr_list)); ;}
     break;
 
   case 94:
-#line 555 "parser.y"
+#line 557 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_LIBLCID, (yyvsp[-1].expr)); ;}
     break;
 
   case 95:
-#line 556 "parser.y"
+#line 558 "parser.y"
     { (yyval.attr) = make_attr(ATTR_LOCAL); ;}
     break;
 
   case 96:
-#line 557 "parser.y"
+#line 559 "parser.y"
     { (yyval.attr) = make_attr(ATTR_NONBROWSABLE); ;}
     break;
 
   case 97:
-#line 558 "parser.y"
+#line 560 "parser.y"
     { (yyval.attr) = make_attr(ATTR_NONCREATABLE); ;}
     break;
 
   case 98:
-#line 559 "parser.y"
+#line 561 "parser.y"
     { (yyval.attr) = make_attr(ATTR_NONEXTENSIBLE); ;}
     break;
 
   case 99:
-#line 560 "parser.y"
+#line 562 "parser.y"
     { (yyval.attr) = make_attr(ATTR_OBJECT); ;}
     break;
 
   case 100:
-#line 561 "parser.y"
+#line 563 "parser.y"
     { (yyval.attr) = make_attr(ATTR_ODL); ;}
     break;
 
   case 101:
-#line 562 "parser.y"
+#line 564 "parser.y"
     { (yyval.attr) = make_attr(ATTR_OLEAUTOMATION); ;}
     break;
 
   case 102:
-#line 563 "parser.y"
+#line 565 "parser.y"
     { (yyval.attr) = make_attr(ATTR_OPTIONAL); ;}
     break;
 
   case 103:
-#line 564 "parser.y"
+#line 566 "parser.y"
     { (yyval.attr) = make_attr(ATTR_OUT); ;}
     break;
 
   case 104:
-#line 565 "parser.y"
+#line 567 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_POINTERDEFAULT, (yyvsp[-1].num)); ;}
     break;
 
   case 105:
-#line 566 "parser.y"
+#line 568 "parser.y"
     { (yyval.attr) = make_attr(ATTR_PROPGET); ;}
     break;
 
   case 106:
-#line 567 "parser.y"
+#line 569 "parser.y"
     { (yyval.attr) = make_attr(ATTR_PROPPUT); ;}
     break;
 
   case 107:
-#line 568 "parser.y"
+#line 570 "parser.y"
     { (yyval.attr) = make_attr(ATTR_PROPPUTREF); ;}
     break;
 
   case 108:
-#line 569 "parser.y"
+#line 571 "parser.y"
     { (yyval.attr) = make_attr(ATTR_PUBLIC); ;}
     break;
 
   case 109:
-#line 571 "parser.y"
+#line 573 "parser.y"
     { expr_list_t *list = append_expr( NULL, (yyvsp[-3].expr) );
                                                  list = append_expr( list, (yyvsp[-1].expr) );
                                                  (yyval.attr) = make_attrp(ATTR_RANGE, list); ;}
     break;
 
   case 110:
-#line 574 "parser.y"
+#line 576 "parser.y"
     { (yyval.attr) = make_attr(ATTR_READONLY); ;}
     break;
 
   case 111:
-#line 575 "parser.y"
+#line 577 "parser.y"
     { (yyval.attr) = make_attr(ATTR_REQUESTEDIT); ;}
     break;
 
   case 112:
-#line 576 "parser.y"
+#line 578 "parser.y"
     { (yyval.attr) = make_attr(ATTR_RESTRICTED); ;}
     break;
 
   case 113:
-#line 577 "parser.y"
+#line 579 "parser.y"
     { (yyval.attr) = make_attr(ATTR_RETVAL); ;}
     break;
 
   case 114:
-#line 578 "parser.y"
+#line 580 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_SIZEIS, (yyvsp[-1].expr_list)); ;}
     break;
 
   case 115:
-#line 579 "parser.y"
+#line 581 "parser.y"
     { (yyval.attr) = make_attr(ATTR_SOURCE); ;}
     break;
 
   case 116:
-#line 580 "parser.y"
+#line 582 "parser.y"
     { (yyval.attr) = make_attr(ATTR_STRICTCONTEXTHANDLE); ;}
     break;
 
   case 117:
-#line 581 "parser.y"
+#line 583 "parser.y"
     { (yyval.attr) = make_attr(ATTR_STRING); ;}
     break;
 
   case 118:
-#line 582 "parser.y"
+#line 584 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_SWITCHIS, (yyvsp[-1].expr)); ;}
     break;
 
   case 119:
-#line 583 "parser.y"
+#line 585 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_SWITCHTYPE, (yyvsp[-1].type)); ;}
     break;
 
   case 120:
-#line 584 "parser.y"
+#line 586 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_TRANSMITAS, (yyvsp[-1].type)); ;}
     break;
 
   case 121:
-#line 585 "parser.y"
+#line 587 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_UUID, (yyvsp[-1].uuid)); ;}
     break;
 
   case 122:
-#line 586 "parser.y"
+#line 588 "parser.y"
     { (yyval.attr) = make_attr(ATTR_V1ENUM); ;}
     break;
 
   case 123:
-#line 587 "parser.y"
+#line 589 "parser.y"
     { (yyval.attr) = make_attr(ATTR_VARARG); ;}
     break;
 
   case 124:
-#line 588 "parser.y"
+#line 590 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_VERSION, (yyvsp[-1].num)); ;}
     break;
 
   case 125:
-#line 589 "parser.y"
+#line 591 "parser.y"
     { (yyval.attr) = make_attrp(ATTR_WIREMARSHAL, (yyvsp[-1].type)); ;}
     break;
 
   case 126:
-#line 590 "parser.y"
+#line 592 "parser.y"
     { (yyval.attr) = make_attrv(ATTR_POINTERTYPE, (yyvsp[0].num)); ;}
     break;
 
   case 128:
-#line 595 "parser.y"
+#line 597 "parser.y"
     { if (!is_valid_uuid((yyvsp[0].str)))
                                                    error_loc("invalid UUID: %s\n", (yyvsp[0].str));
                                                  (yyval.uuid) = parse_uuid((yyvsp[0].str)); ;}
     break;
 
   case 129:
-#line 600 "parser.y"
+#line 602 "parser.y"
     { (yyval.str) = (yyvsp[0].str); ;}
     break;
 
   case 130:
-#line 601 "parser.y"
+#line 603 "parser.y"
     { (yyval.str) = (yyvsp[0].str); ;}
     break;
 
   case 131:
-#line 602 "parser.y"
+#line 604 "parser.y"
     { (yyval.str) = (yyvsp[0].str); ;}
     break;
 
   case 132:
-#line 603 "parser.y"
+#line 605 "parser.y"
     { (yyval.str) = (yyvsp[0].str); ;}
     break;
 
   case 133:
-#line 606 "parser.y"
+#line 608 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 134:
-#line 607 "parser.y"
+#line 609 "parser.y"
     { (yyval.var_list) = append_var( (yyvsp[-1].var_list), (yyvsp[0].var) ); ;}
     break;
 
   case 135:
-#line 610 "parser.y"
+#line 612 "parser.y"
     { attr_t *a = make_attrp(ATTR_CASE, append_expr( NULL, (yyvsp[-2].expr) ));
                                                  (yyval.var) = (yyvsp[0].var); if (!(yyval.var)) (yyval.var) = make_var(NULL);
                                                  (yyval.var)->attrs = append_attr( (yyval.var)->attrs, a );
@@ -3165,7 +3167,7 @@ yyreduce:
     break;
 
   case 136:
-#line 614 "parser.y"
+#line 616 "parser.y"
     { attr_t *a = make_attr(ATTR_DEFAULT);
                                                  (yyval.var) = (yyvsp[0].var); if (!(yyval.var)) (yyval.var) = make_var(NULL);
                                                  (yyval.var)->attrs = append_attr( (yyval.var)->attrs, a );
@@ -3173,17 +3175,17 @@ yyreduce:
     break;
 
   case 137:
-#line 620 "parser.y"
+#line 622 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 138:
-#line 621 "parser.y"
+#line 623 "parser.y"
     { (yyval.var_list) = (yyvsp[-1].var_list); ;}
     break;
 
   case 140:
-#line 625 "parser.y"
+#line 627 "parser.y"
     { if (!(yyvsp[0].var)->eval)
                                                    (yyvsp[0].var)->eval = make_exprl(EXPR_NUM, 0 /* default for first enum entry */);
                                                   (yyval.var_list) = append_var( NULL, (yyvsp[0].var) );
@@ -3191,7 +3193,7 @@ yyreduce:
     break;
 
   case 141:
-#line 629 "parser.y"
+#line 631 "parser.y"
     { if (!(yyvsp[0].var)->eval)
                                                   {
                                                     var_t *last = LIST_ENTRY( list_tail((yyval.var_list)), var_t, entry );
@@ -3202,7 +3204,7 @@ yyreduce:
     break;
 
   case 142:
-#line 638 "parser.y"
+#line 640 "parser.y"
     { (yyval.var) = reg_const((yyvsp[-2].var));
                                                  (yyval.var)->eval = (yyvsp[0].expr);
                                                   (yyval.var)->type = make_int(0);
@@ -3210,14 +3212,14 @@ yyreduce:
     break;
 
   case 143:
-#line 642 "parser.y"
+#line 644 "parser.y"
     { (yyval.var) = reg_const((yyvsp[0].var));
                                                   (yyval.var)->type = make_int(0);
                                                ;}
     break;
 
   case 144:
-#line 647 "parser.y"
+#line 649 "parser.y"
     { (yyval.type) = get_typev(RPC_FC_ENUM16, (yyvsp[-3].var), tsENUM);
                                                  (yyval.type)->kind = TKIND_ENUM;
                                                  (yyval.type)->fields_or_args = (yyvsp[-1].var_list);
@@ -3228,232 +3230,232 @@ yyreduce:
     break;
 
   case 145:
-#line 656 "parser.y"
+#line 658 "parser.y"
     { (yyval.expr_list) = append_expr( NULL, (yyvsp[0].expr) ); ;}
     break;
 
   case 146:
-#line 657 "parser.y"
+#line 659 "parser.y"
     { (yyval.expr_list) = append_expr( (yyvsp[-2].expr_list), (yyvsp[0].expr) ); ;}
     break;
 
   case 147:
-#line 670 "parser.y"
+#line 672 "parser.y"
     { (yyval.expr) = make_expr(EXPR_VOID); ;}
     break;
 
   case 149:
-#line 674 "parser.y"
+#line 676 "parser.y"
     { (yyval.expr) = make_exprl(EXPR_NUM, (yyvsp[0].num)); ;}
     break;
 
   case 150:
-#line 675 "parser.y"
+#line 677 "parser.y"
     { (yyval.expr) = make_exprl(EXPR_HEXNUM, (yyvsp[0].num)); ;}
     break;
 
   case 151:
-#line 676 "parser.y"
+#line 678 "parser.y"
     { (yyval.expr) = make_exprd(EXPR_DOUBLE, (yyvsp[0].dbl)); ;}
     break;
 
   case 152:
-#line 677 "parser.y"
+#line 679 "parser.y"
     { (yyval.expr) = make_exprl(EXPR_TRUEFALSE, 0); ;}
     break;
 
   case 153:
-#line 678 "parser.y"
+#line 680 "parser.y"
     { (yyval.expr) = make_exprl(EXPR_NUM, 0); ;}
     break;
 
   case 154:
-#line 679 "parser.y"
+#line 681 "parser.y"
     { (yyval.expr) = make_exprl(EXPR_TRUEFALSE, 1); ;}
     break;
 
   case 155:
-#line 680 "parser.y"
+#line 682 "parser.y"
     { (yyval.expr) = make_exprs(EXPR_STRLIT, (yyvsp[0].str)); ;}
     break;
 
   case 156:
-#line 681 "parser.y"
+#line 683 "parser.y"
     { (yyval.expr) = make_exprs(EXPR_WSTRLIT, (yyvsp[0].str)); ;}
     break;
 
   case 157:
-#line 682 "parser.y"
+#line 684 "parser.y"
     { (yyval.expr) = make_exprs(EXPR_IDENTIFIER, (yyvsp[0].str)); ;}
     break;
 
   case 158:
-#line 683 "parser.y"
+#line 685 "parser.y"
     { (yyval.expr) = make_expr3(EXPR_COND, (yyvsp[-4].expr), (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 159:
-#line 684 "parser.y"
+#line 686 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_LOGOR, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 160:
-#line 685 "parser.y"
+#line 687 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_LOGAND, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 161:
-#line 686 "parser.y"
+#line 688 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_OR , (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 162:
-#line 687 "parser.y"
+#line 689 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_XOR, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 163:
-#line 688 "parser.y"
+#line 690 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_AND, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 164:
-#line 689 "parser.y"
+#line 691 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_EQUALITY, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 165:
-#line 690 "parser.y"
+#line 692 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_INEQUALITY, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 166:
-#line 691 "parser.y"
+#line 693 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_GTR, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 167:
-#line 692 "parser.y"
+#line 694 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_LESS, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 168:
-#line 693 "parser.y"
+#line 695 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_GTREQL, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 169:
-#line 694 "parser.y"
+#line 696 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_LESSEQL, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 170:
-#line 695 "parser.y"
+#line 697 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_SHL, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 171:
-#line 696 "parser.y"
+#line 698 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_SHR, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 172:
-#line 697 "parser.y"
+#line 699 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_ADD, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 173:
-#line 698 "parser.y"
+#line 700 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_SUB, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 174:
-#line 699 "parser.y"
+#line 701 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_MOD, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 175:
-#line 700 "parser.y"
+#line 702 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_MUL, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 176:
-#line 701 "parser.y"
+#line 703 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_DIV, (yyvsp[-2].expr), (yyvsp[0].expr)); ;}
     break;
 
   case 177:
-#line 702 "parser.y"
+#line 704 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_LOGNOT, (yyvsp[0].expr)); ;}
     break;
 
   case 178:
-#line 703 "parser.y"
+#line 705 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_NOT, (yyvsp[0].expr)); ;}
     break;
 
   case 179:
-#line 704 "parser.y"
+#line 706 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_POS, (yyvsp[0].expr)); ;}
     break;
 
   case 180:
-#line 705 "parser.y"
+#line 707 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_NEG, (yyvsp[0].expr)); ;}
     break;
 
   case 181:
-#line 706 "parser.y"
+#line 708 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_ADDRESSOF, (yyvsp[0].expr)); ;}
     break;
 
   case 182:
-#line 707 "parser.y"
+#line 709 "parser.y"
     { (yyval.expr) = make_expr1(EXPR_PPTR, (yyvsp[0].expr)); ;}
     break;
 
   case 183:
-#line 708 "parser.y"
+#line 710 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_MEMBER, make_expr1(EXPR_PPTR, (yyvsp[-2].expr)), make_exprs(EXPR_IDENTIFIER, (yyvsp[0].str))); ;}
     break;
 
   case 184:
-#line 709 "parser.y"
+#line 711 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_MEMBER, (yyvsp[-2].expr), make_exprs(EXPR_IDENTIFIER, (yyvsp[0].str))); ;}
     break;
 
   case 185:
-#line 710 "parser.y"
+#line 712 "parser.y"
     { (yyval.expr) = make_exprt(EXPR_CAST, (yyvsp[-2].type), (yyvsp[0].expr)); ;}
     break;
 
   case 186:
-#line 711 "parser.y"
+#line 713 "parser.y"
     { (yyval.expr) = make_exprt(EXPR_SIZEOF, (yyvsp[-1].type), NULL); ;}
     break;
 
   case 187:
-#line 712 "parser.y"
+#line 714 "parser.y"
     { (yyval.expr) = make_expr2(EXPR_ARRAY, (yyvsp[-3].expr), (yyvsp[-1].expr)); ;}
     break;
 
   case 188:
-#line 713 "parser.y"
+#line 715 "parser.y"
     { (yyval.expr) = (yyvsp[-1].expr); ;}
     break;
 
   case 189:
-#line 716 "parser.y"
+#line 718 "parser.y"
     { (yyval.expr_list) = append_expr( NULL, (yyvsp[0].expr) ); ;}
     break;
 
   case 190:
-#line 717 "parser.y"
+#line 719 "parser.y"
     { (yyval.expr_list) = append_expr( (yyvsp[-2].expr_list), (yyvsp[0].expr) ); ;}
     break;
 
   case 191:
-#line 720 "parser.y"
+#line 722 "parser.y"
     { (yyval.expr) = (yyvsp[0].expr);
                                                  if (!(yyval.expr)->is_const)
                                                      error_loc("expression is not an integer constant\n");
@@ -3461,7 +3463,7 @@ yyreduce:
     break;
 
   case 192:
-#line 726 "parser.y"
+#line 728 "parser.y"
     { (yyval.expr) = (yyvsp[0].expr);
                                                  if (!(yyval.expr)->is_const && (yyval.expr)->type != EXPR_STRLIT && (yyval.expr)->type != EXPR_WSTRLIT)
                                                      error_loc("expression is not constant\n");
@@ -3469,17 +3471,17 @@ yyreduce:
     break;
 
   case 193:
-#line 732 "parser.y"
+#line 734 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 194:
-#line 733 "parser.y"
+#line 735 "parser.y"
     { (yyval.var_list) = append_var_list((yyvsp[-1].var_list), (yyvsp[0].var_list)); ;}
     break;
 
   case 195:
-#line 737 "parser.y"
+#line 739 "parser.y"
     { const char *first = LIST_ENTRY(list_head((yyvsp[-1].declarator_list)), declarator_t, entry)->var->name;
                                                  check_field_attrs(first, (yyvsp[-3].attr_list));
                                                  (yyval.var_list) = set_var_types((yyvsp[-3].attr_list), (yyvsp[-2].declspec), (yyvsp[-1].declarator_list));
@@ -3487,7 +3489,7 @@ yyreduce:
     break;
 
   case 196:
-#line 741 "parser.y"
+#line 743 "parser.y"
     { var_t *v = make_var(NULL);
                                                  v->type = (yyvsp[-1].type); v->attrs = (yyvsp[-2].attr_list);
                                                  (yyval.var_list) = append_var(NULL, v);
@@ -3495,37 +3497,37 @@ yyreduce:
     break;
 
   case 197:
-#line 748 "parser.y"
+#line 750 "parser.y"
     { (yyval.var) = (yyvsp[-1].var); ;}
     break;
 
   case 198:
-#line 749 "parser.y"
+#line 751 "parser.y"
     { (yyval.var) = make_var(NULL); (yyval.var)->attrs = (yyvsp[-1].attr_list); ;}
     break;
 
   case 199:
-#line 752 "parser.y"
+#line 754 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 200:
-#line 753 "parser.y"
+#line 755 "parser.y"
     { (yyval.var_list) = append_var( (yyvsp[-1].var_list), (yyvsp[0].var) ); ;}
     break;
 
   case 201:
-#line 757 "parser.y"
+#line 759 "parser.y"
     { (yyval.var) = (yyvsp[-1].var); ;}
     break;
 
   case 202:
-#line 758 "parser.y"
+#line 760 "parser.y"
     { (yyval.var) = NULL; ;}
     break;
 
   case 203:
-#line 761 "parser.y"
+#line 763 "parser.y"
     { (yyval.var) = (yyvsp[0].declarator)->var;
                                                  (yyval.var)->attrs = check_field_attrs((yyval.var)->name, (yyvsp[-2].attr_list));
                                                  set_type((yyval.var), (yyvsp[-1].declspec), (yyvsp[0].declarator), FALSE);
@@ -3534,7 +3536,7 @@ yyreduce:
     break;
 
   case 204:
-#line 769 "parser.y"
+#line 771 "parser.y"
     { var_t *v = (yyvsp[0].declarator)->var;
                                                  v->attrs = check_function_attrs(v->name, (yyvsp[-2].attr_list));
                                                  set_type(v, (yyvsp[-1].declspec), (yyvsp[0].declarator), FALSE);
@@ -3544,7 +3546,7 @@ yyreduce:
     break;
 
   case 205:
-#line 779 "parser.y"
+#line 781 "parser.y"
     { (yyval.var) = (yyvsp[0].declarator)->var;
                                                  (yyval.var)->attrs = (yyvsp[-2].attr_list);
                                                  set_type((yyval.var), (yyvsp[-1].declspec), (yyvsp[0].declarator), FALSE);
@@ -3553,7 +3555,7 @@ yyreduce:
     break;
 
   case 206:
-#line 784 "parser.y"
+#line 786 "parser.y"
     { (yyval.var) = (yyvsp[0].declarator)->var;
                                                  set_type((yyval.var), (yyvsp[-1].declspec), (yyvsp[0].declarator), FALSE);
                                                  free((yyvsp[0].declarator));
@@ -3561,52 +3563,52 @@ yyreduce:
     break;
 
   case 207:
-#line 790 "parser.y"
+#line 792 "parser.y"
     { (yyval.var) = NULL; ;}
     break;
 
   case 209:
-#line 794 "parser.y"
+#line 796 "parser.y"
     { (yyval.var) = NULL; ;}
     break;
 
   case 210:
-#line 795 "parser.y"
+#line 797 "parser.y"
     { (yyval.var) = make_var((yyvsp[0].str)); ;}
     break;
 
   case 211:
-#line 796 "parser.y"
+#line 798 "parser.y"
     { (yyval.var) = make_var((yyvsp[0].str)); ;}
     break;
 
   case 212:
-#line 799 "parser.y"
+#line 801 "parser.y"
     { (yyval.var) = make_var((yyvsp[0].str)); ;}
     break;
 
   case 213:
-#line 801 "parser.y"
+#line 803 "parser.y"
     { (yyval.var) = make_var((yyvsp[0].str)); ;}
     break;
 
   case 214:
-#line 804 "parser.y"
+#line 806 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 215:
-#line 805 "parser.y"
+#line 807 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 217:
-#line 807 "parser.y"
+#line 809 "parser.y"
     { (yyval.type) = (yyvsp[0].type); (yyval.type)->sign = 1; ;}
     break;
 
   case 218:
-#line 808 "parser.y"
+#line 810 "parser.y"
     { (yyval.type) = (yyvsp[0].type); (yyval.type)->sign = -1;
                                                  switch ((yyval.type)->type) {
                                                  case RPC_FC_CHAR:  break;
@@ -3626,91 +3628,94 @@ yyreduce:
     break;
 
   case 219:
-#line 824 "parser.y"
+#line 826 "parser.y"
     { (yyval.type) = make_int(-1); ;}
     break;
 
   case 220:
-#line 825 "parser.y"
+#line 827 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 221:
-#line 826 "parser.y"
+#line 828 "parser.y"
     { (yyval.type) = duptype(find_type("float", 0), 1); ;}
     break;
 
   case 222:
-#line 827 "parser.y"
+#line 829 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 223:
-#line 828 "parser.y"
+#line 830 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 224:
-#line 829 "parser.y"
+#line 831 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 225:
-#line 830 "parser.y"
+#line 832 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 228:
-#line 837 "parser.y"
+#line 839 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 229:
-#line 838 "parser.y"
+#line 840 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[-1].str)); ;}
     break;
 
   case 230:
-#line 839 "parser.y"
+#line 841 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 231:
-#line 840 "parser.y"
+#line 842 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[-1].str)); ;}
     break;
 
   case 232:
-#line 841 "parser.y"
+#line 843 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[-1].str)); ;}
     break;
 
   case 233:
-#line 842 "parser.y"
+#line 844 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 234:
-#line 843 "parser.y"
+#line 845 "parser.y"
     { (yyval.type) = make_builtin((yyvsp[0].str)); ;}
     break;
 
   case 235:
-#line 846 "parser.y"
+#line 848 "parser.y"
     { (yyval.type) = make_class((yyvsp[0].str)); ;}
     break;
 
   case 236:
-#line 847 "parser.y"
+#line 849 "parser.y"
     { (yyval.type) = find_type((yyvsp[0].str), 0);
-                                                 if ((yyval.type)->defined) error_loc("multiple definition error\n");
-                                                 if ((yyval.type)->kind != TKIND_COCLASS) error_loc("%s was not declared a coclass\n", (yyvsp[0].str));
+                                                 if ((yyval.type)->kind != TKIND_COCLASS)
+                                                   error_loc("%s was not declared a coclass at %s:%d\n",
+                                                             (yyvsp[0].str), (yyval.type)->loc_info.input_name,
+                                                             (yyval.type)->loc_info.line_number);
                                                ;}
     break;
 
   case 237:
-#line 853 "parser.y"
+#line 857 "parser.y"
     { (yyval.type) = (yyvsp[0].type);
+                                                 check_def((yyval.type));
                                                  (yyval.type)->attrs = check_coclass_attrs((yyvsp[0].type)->name, (yyvsp[-1].attr_list));
                                                  if (!parse_only && do_header)
                                                    write_coclass((yyval.type));
@@ -3720,7 +3725,7 @@ yyreduce:
     break;
 
   case 238:
-#line 863 "parser.y"
+#line 868 "parser.y"
     { (yyval.type) = (yyvsp[-4].type);
                                                  (yyval.type)->ifaces = (yyvsp[-2].ifref_list);
                                                  (yyval.type)->defined = TRUE;
@@ -3728,37 +3733,37 @@ yyreduce:
     break;
 
   case 239:
-#line 869 "parser.y"
+#line 874 "parser.y"
     { (yyval.ifref_list) = NULL; ;}
     break;
 
   case 240:
-#line 870 "parser.y"
+#line 875 "parser.y"
     { (yyval.ifref_list) = append_ifref( (yyvsp[-1].ifref_list), (yyvsp[0].ifref) ); ;}
     break;
 
   case 241:
-#line 874 "parser.y"
+#line 879 "parser.y"
     { (yyval.ifref) = make_ifref((yyvsp[0].type)); (yyval.ifref)->attrs = (yyvsp[-1].attr_list); ;}
     break;
 
   case 242:
-#line 877 "parser.y"
+#line 882 "parser.y"
     { (yyval.type) = get_type(RPC_FC_IP, (yyvsp[0].str), 0); (yyval.type)->kind = TKIND_DISPATCH; ;}
     break;
 
   case 243:
-#line 878 "parser.y"
+#line 883 "parser.y"
     { (yyval.type) = get_type(RPC_FC_IP, (yyvsp[0].str), 0); (yyval.type)->kind = TKIND_DISPATCH; ;}
     break;
 
   case 244:
-#line 881 "parser.y"
+#line 886 "parser.y"
     { attr_t *attrs;
                                                  is_in_interface = TRUE;
                                                  is_object_interface = TRUE;
                                                  (yyval.type) = (yyvsp[0].type);
-                                                 if ((yyval.type)->defined) error_loc("multiple definition error\n");
+                                                 check_def((yyval.type));
                                                  attrs = make_attr(ATTR_DISPINTERFACE);
                                                  (yyval.type)->attrs = append_attr( check_dispiface_attrs((yyvsp[0].type)->name, (yyvsp[-1].attr_list)), attrs );
                                                  (yyval.type)->ref = find_type("IDispatch", 0);
@@ -3769,27 +3774,27 @@ yyreduce:
     break;
 
   case 245:
-#line 895 "parser.y"
+#line 900 "parser.y"
     { (yyval.var_list) = NULL; ;}
     break;
 
   case 246:
-#line 896 "parser.y"
+#line 901 "parser.y"
     { (yyval.var_list) = append_var( (yyvsp[-2].var_list), (yyvsp[-1].var) ); ;}
     break;
 
   case 247:
-#line 899 "parser.y"
+#line 904 "parser.y"
     { (yyval.func_list) = NULL; ;}
     break;
 
   case 248:
-#line 900 "parser.y"
+#line 905 "parser.y"
     { (yyval.func_list) = append_func( (yyvsp[-2].func_list), (yyvsp[-1].func) ); ;}
     break;
 
   case 249:
-#line 906 "parser.y"
+#line 911 "parser.y"
     { (yyval.type) = (yyvsp[-4].type);
                                                  (yyval.type)->fields_or_args = (yyvsp[-2].var_list);
                                                  (yyval.type)->funcs = (yyvsp[-1].func_list);
@@ -3800,7 +3805,7 @@ yyreduce:
     break;
 
   case 250:
-#line 914 "parser.y"
+#line 919 "parser.y"
     { (yyval.type) = (yyvsp[-4].type);
                                                  (yyval.type)->fields_or_args = (yyvsp[-2].type)->fields_or_args;
                                                  (yyval.type)->funcs = (yyvsp[-2].type)->funcs;
@@ -3811,34 +3816,34 @@ yyreduce:
     break;
 
   case 251:
-#line 923 "parser.y"
+#line 928 "parser.y"
     { (yyval.type) = NULL; ;}
     break;
 
   case 252:
-#line 924 "parser.y"
+#line 929 "parser.y"
     { (yyval.type) = find_type2((yyvsp[0].str), 0); ;}
     break;
 
   case 253:
-#line 927 "parser.y"
+#line 932 "parser.y"
     { (yyval.type) = get_type(RPC_FC_IP, (yyvsp[0].str), 0); (yyval.type)->kind = TKIND_INTERFACE; ;}
     break;
 
   case 254:
-#line 928 "parser.y"
+#line 933 "parser.y"
     { (yyval.type) = get_type(RPC_FC_IP, (yyvsp[0].str), 0); (yyval.type)->kind = TKIND_INTERFACE; ;}
     break;
 
   case 255:
-#line 931 "parser.y"
+#line 936 "parser.y"
     { (yyval.ifinfo).interface = (yyvsp[0].type);
                                                  (yyval.ifinfo).old_pointer_default = pointer_default;
                                                  if (is_attr((yyvsp[-1].attr_list), ATTR_POINTERDEFAULT))
                                                    pointer_default = get_attrv((yyvsp[-1].attr_list), ATTR_POINTERDEFAULT);
                                                  is_object_interface = is_object((yyvsp[-1].attr_list));
                                                  is_in_interface = TRUE;
-                                                 if ((yyvsp[0].type)->defined) error_loc("multiple definition error\n");
+                                                 check_def((yyvsp[0].type));
                                                  (yyvsp[0].type)->attrs = check_iface_attrs((yyvsp[0].type)->name, (yyvsp[-1].attr_list));
                                                  (yyvsp[0].type)->defined = TRUE;
                                                  if (!parse_only && do_header) write_forward((yyvsp[0].type));
@@ -3846,7 +3851,7 @@ yyreduce:
     break;
 
   case 256:
-#line 945 "parser.y"
+#line 950 "parser.y"
     { (yyval.type) = (yyvsp[-5].ifinfo).interface;
                                                  (yyval.type)->ref = (yyvsp[-4].type);
                                                  (yyval.type)->funcs = (yyvsp[-2].func_list);
@@ -3861,7 +3866,7 @@ yyreduce:
     break;
 
   case 257:
-#line 960 "parser.y"
+#line 965 "parser.y"
     { (yyval.type) = (yyvsp[-7].ifinfo).interface;
                                                  (yyval.type)->ref = find_type2((yyvsp[-5].str), 0);
                                                  if (!(yyval.type)->ref) error_loc("base class '%s' not found in import\n", (yyvsp[-5].str));
@@ -3876,39 +3881,39 @@ yyreduce:
     break;
 
   case 258:
-#line 971 "parser.y"
+#line 976 "parser.y"
     { (yyval.type) = (yyvsp[-1].type); ;}
     break;
 
   case 259:
-#line 975 "parser.y"
+#line 980 "parser.y"
     { (yyval.type) = (yyvsp[-1].type); if (!parse_only && do_header) write_forward((yyval.type)); ;}
     break;
 
   case 260:
-#line 976 "parser.y"
+#line 981 "parser.y"
     { (yyval.type) = (yyvsp[-1].type); if (!parse_only && do_header) write_forward((yyval.type)); ;}
     break;
 
   case 261:
-#line 979 "parser.y"
+#line 984 "parser.y"
     { (yyval.type) = make_type(0, NULL); (yyval.type)->name = (yyvsp[0].str); (yyval.type)->kind = TKIND_MODULE; ;}
     break;
 
   case 262:
-#line 980 "parser.y"
+#line 985 "parser.y"
     { (yyval.type) = make_type(0, NULL); (yyval.type)->name = (yyvsp[0].str); (yyval.type)->kind = TKIND_MODULE; ;}
     break;
 
   case 263:
-#line 983 "parser.y"
+#line 988 "parser.y"
     { (yyval.type) = (yyvsp[0].type);
                                                  (yyval.type)->attrs = check_module_attrs((yyvsp[0].type)->name, (yyvsp[-1].attr_list));
                                                ;}
     break;
 
   case 264:
-#line 989 "parser.y"
+#line 994 "parser.y"
     { (yyval.type) = (yyvsp[-4].type);
                                                  (yyval.type)->funcs = (yyvsp[-2].func_list);
                                                  /* FIXME: if (!parse_only && do_header) write_module($$); */
@@ -3916,97 +3921,97 @@ yyreduce:
     break;
 
   case 265:
-#line 996 "parser.y"
+#line 1001 "parser.y"
     { (yyval.stgclass) = STG_EXTERN; ;}
     break;
 
   case 266:
-#line 997 "parser.y"
+#line 1002 "parser.y"
     { (yyval.stgclass) = STG_STATIC; ;}
     break;
 
   case 267:
-#line 998 "parser.y"
+#line 1003 "parser.y"
     { (yyval.stgclass) = STG_REGISTER; ;}
     break;
 
   case 268:
-#line 1002 "parser.y"
+#line 1007 "parser.y"
     { (yyval.attr) = make_attr(ATTR_INLINE); ;}
     break;
 
   case 269:
-#line 1006 "parser.y"
+#line 1011 "parser.y"
     { (yyval.attr) = make_attr(ATTR_CONST); ;}
     break;
 
   case 270:
-#line 1009 "parser.y"
+#line 1014 "parser.y"
     { (yyval.attr_list) = NULL; ;}
     break;
 
   case 271:
-#line 1010 "parser.y"
+#line 1015 "parser.y"
     { (yyval.attr_list) = append_attr((yyvsp[-1].attr_list), (yyvsp[0].attr)); ;}
     break;
 
   case 272:
-#line 1013 "parser.y"
+#line 1018 "parser.y"
     { (yyval.declspec) = make_decl_spec((yyvsp[-1].type), (yyvsp[0].declspec), NULL, NULL, STG_NONE); ;}
     break;
 
   case 273:
-#line 1015 "parser.y"
+#line 1020 "parser.y"
     { (yyval.declspec) = make_decl_spec((yyvsp[-1].type), (yyvsp[-2].declspec), (yyvsp[0].declspec), NULL, STG_NONE); ;}
     break;
 
   case 274:
-#line 1018 "parser.y"
+#line 1023 "parser.y"
     { (yyval.declspec) = NULL; ;}
     break;
 
   case 276:
-#line 1023 "parser.y"
+#line 1028 "parser.y"
     { (yyval.declspec) = make_decl_spec(NULL, (yyvsp[0].declspec), NULL, (yyvsp[-1].attr), STG_NONE); ;}
     break;
 
   case 277:
-#line 1024 "parser.y"
+#line 1029 "parser.y"
     { (yyval.declspec) = make_decl_spec(NULL, (yyvsp[0].declspec), NULL, (yyvsp[-1].attr), STG_NONE); ;}
     break;
 
   case 278:
-#line 1025 "parser.y"
+#line 1030 "parser.y"
     { (yyval.declspec) = make_decl_spec(NULL, (yyvsp[0].declspec), NULL, NULL, (yyvsp[-1].stgclass)); ;}
     break;
 
   case 279:
-#line 1030 "parser.y"
+#line 1035 "parser.y"
     { (yyval.declarator) = (yyvsp[0].declarator); (yyval.declarator)->type = append_ptrchain_type((yyval.declarator)->type, make_pointer_type(NULL, (yyvsp[-1].attr_list))); ;}
     break;
 
   case 280:
-#line 1031 "parser.y"
+#line 1036 "parser.y"
     { (yyval.declarator) = (yyvsp[0].declarator); (yyval.declarator)->type->attrs = append_attr((yyval.declarator)->type->attrs, make_attrp(ATTR_CALLCONV, (yyvsp[-1].str))); ;}
     break;
 
   case 282:
-#line 1036 "parser.y"
+#line 1041 "parser.y"
     { (yyval.declarator) = make_declarator((yyvsp[0].var)); ;}
     break;
 
   case 283:
-#line 1037 "parser.y"
+#line 1042 "parser.y"
     { (yyval.declarator) = (yyvsp[-1].declarator); ;}
     break;
 
   case 284:
-#line 1038 "parser.y"
+#line 1043 "parser.y"
     { (yyval.declarator) = (yyvsp[-1].declarator); (yyval.declarator)->array = append_array((yyval.declarator)->array, (yyvsp[0].expr)); ;}
     break;
 
   case 285:
-#line 1039 "parser.y"
+#line 1044 "parser.y"
     { (yyval.declarator) = (yyvsp[-3].declarator);
                                                  (yyval.declarator)->func_type = append_ptrchain_type((yyval.declarator)->type, make_func_type((yyvsp[-1].var_list)));
                                                  (yyval.declarator)->type = NULL;
@@ -4014,44 +4019,45 @@ yyreduce:
     break;
 
   case 286:
-#line 1046 "parser.y"
+#line 1051 "parser.y"
     { (yyval.declarator_list) = append_declarator( NULL, (yyvsp[0].declarator) ); ;}
     break;
 
   case 287:
-#line 1047 "parser.y"
+#line 1052 "parser.y"
     { (yyval.declarator_list) = append_declarator( (yyvsp[-2].declarator_list), (yyvsp[0].declarator) ); ;}
     break;
 
   case 288:
-#line 1051 "parser.y"
+#line 1056 "parser.y"
     { (yyval.declarator) = (yyvsp[0].declarator); ;}
     break;
 
   case 289:
-#line 1052 "parser.y"
+#line 1057 "parser.y"
     { (yyval.declarator) = (yyvsp[-2].declarator); (yyvsp[-2].declarator)->var->eval = (yyvsp[0].expr); ;}
     break;
 
   case 290:
-#line 1056 "parser.y"
+#line 1061 "parser.y"
     { (yyval.num) = RPC_FC_RP; ;}
     break;
 
   case 291:
-#line 1057 "parser.y"
+#line 1062 "parser.y"
     { (yyval.num) = RPC_FC_UP; ;}
     break;
 
   case 292:
-#line 1058 "parser.y"
+#line 1063 "parser.y"
     { (yyval.num) = RPC_FC_FP; ;}
     break;
 
   case 293:
-#line 1061 "parser.y"
+#line 1066 "parser.y"
     { (yyval.type) = get_typev(RPC_FC_STRUCT, (yyvsp[-3].var), tsSTRUCT);
                                                   /* overwrite RPC_FC_STRUCT with a more exact type */
+                                                 check_def((yyval.type));
                                                  (yyval.type)->type = get_struct_type( (yyvsp[-1].var_list) );
                                                  (yyval.type)->kind = TKIND_RECORD;
                                                  (yyval.type)->fields_or_args = (yyvsp[-1].var_list);
@@ -4062,65 +4068,66 @@ yyreduce:
     break;
 
   case 294:
-#line 1072 "parser.y"
+#line 1078 "parser.y"
     { (yyval.type) = duptype(find_type("void", 0), 1); ;}
     break;
 
   case 295:
-#line 1073 "parser.y"
+#line 1079 "parser.y"
     { (yyval.type) = find_type((yyvsp[0].str), 0); ;}
     break;
 
   case 296:
-#line 1074 "parser.y"
+#line 1080 "parser.y"
     { (yyval.type) = (yyvsp[0].type); ;}
     break;
 
   case 297:
-#line 1075 "parser.y"
+#line 1081 "parser.y"
     { (yyval.type) = (yyvsp[0].type); ;}
     break;
 
   case 298:
-#line 1076 "parser.y"
+#line 1082 "parser.y"
     { (yyval.type) = find_type2((yyvsp[0].str), tsENUM); ;}
     break;
 
   case 299:
-#line 1077 "parser.y"
+#line 1083 "parser.y"
     { (yyval.type) = (yyvsp[0].type); ;}
     break;
 
   case 300:
-#line 1078 "parser.y"
+#line 1084 "parser.y"
     { (yyval.type) = get_type(RPC_FC_STRUCT, (yyvsp[0].str), tsSTRUCT); ;}
     break;
 
   case 301:
-#line 1079 "parser.y"
+#line 1085 "parser.y"
     { (yyval.type) = (yyvsp[0].type); ;}
     break;
 
   case 302:
-#line 1080 "parser.y"
+#line 1086 "parser.y"
     { (yyval.type) = find_type2((yyvsp[0].str), tsUNION); ;}
     break;
 
   case 303:
-#line 1081 "parser.y"
+#line 1087 "parser.y"
     { (yyval.type) = make_safearray((yyvsp[-1].type)); ;}
     break;
 
   case 304:
-#line 1085 "parser.y"
+#line 1091 "parser.y"
     { reg_typedefs((yyvsp[-1].declspec), (yyvsp[0].declarator_list), check_typedef_attrs((yyvsp[-2].attr_list)));
                                                  (yyval.statement) = process_typedefs((yyvsp[0].declarator_list));
                                                ;}
     break;
 
   case 305:
-#line 1091 "parser.y"
+#line 1097 "parser.y"
     { (yyval.type) = get_typev(RPC_FC_NON_ENCAPSULATED_UNION, (yyvsp[-3].var), tsUNION);
+                                                 check_def((yyval.type));
                                                  (yyval.type)->kind = TKIND_UNION;
                                                  (yyval.type)->fields_or_args = (yyvsp[-1].var_list);
                                                  (yyval.type)->defined = TRUE;
@@ -4128,9 +4135,10 @@ yyreduce:
     break;
 
   case 306:
-#line 1098 "parser.y"
+#line 1105 "parser.y"
     { var_t *u = (yyvsp[-3].var);
                                                  (yyval.type) = get_typev(RPC_FC_ENCAPSULATED_UNION, (yyvsp[-8].var), tsUNION);
+                                                 check_def((yyval.type));
                                                  (yyval.type)->kind = TKIND_UNION;
                                                  if (!u) u = make_var( xstrdup("tagged_union") );
                                                  u->type = make_type(RPC_FC_NON_ENCAPSULATED_UNION, NULL);
@@ -4144,12 +4152,12 @@ yyreduce:
     break;
 
   case 307:
-#line 1113 "parser.y"
+#line 1121 "parser.y"
     { (yyval.num) = MAKEVERSION((yyvsp[0].num), 0); ;}
     break;
 
   case 308:
-#line 1114 "parser.y"
+#line 1122 "parser.y"
     { (yyval.num) = MAKEVERSION((yyvsp[-2].num), (yyvsp[0].num)); ;}
     break;
 
@@ -4158,7 +4166,7 @@ yyreduce:
     }
 
 /* Line 1126 of yacc.c.  */
-#line 4162 "parser.tab.c"
+#line 4170 "parser.tab.c"
 \f
   yyvsp -= yylen;
   yyssp -= yylen;
@@ -4426,7 +4434,7 @@ yyreturn:
 }
 
 
-#line 1117 "parser.y"
+#line 1125 "parser.y"
 
 
 static void decl_builtin(const char *name, unsigned char type)
@@ -4703,6 +4711,7 @@ type_t *make_type(unsigned char type, type_t *ref)
   t->tfswrite = FALSE;
   t->checked = FALSE;
   t->typelib_idx = -1;
+  init_loc_info(&t->loc_info);
   return t;
 }
 
@@ -5014,9 +5023,7 @@ static var_t *make_var(char *name)
   v->attrs = NULL;
   v->eval = NULL;
   v->stgclass = STG_NONE;
-  v->loc_info.input_name = input_name ? input_name : "stdin";
-  v->loc_info.line_number = line_number;
-  v->loc_info.near_text = parser_text;
+  init_loc_info(&v->loc_info);
   return v;
 }
 
@@ -5207,6 +5214,12 @@ static type_t *reg_typedefs(decl_spec_t *decl_spec, declarator_list_t *decls, at
     if (name->name) {
       type_t *cur;
 
+      cur = find_type_helper(name->name, 0);
+      if (cur)
+          error_loc("%s: redefinition error; original definition was at %s:%d\n",
+                    cur->name, cur->loc_info.input_name,
+                    cur->loc_info.line_number);
+
       /* set the attributes to allow set_type to do some checks on them */
       name->attrs = attrs;
       set_type(name, decl_spec, decl, 0);
@@ -6210,3 +6223,17 @@ static func_list_t *append_func_from_statement(func_list_t *list, statement_t *s
     return list;
 }
 
+void init_loc_info(loc_info_t *i)
+{
+    i->input_name = input_name ? input_name : "stdin";
+    i->line_number = line_number;
+    i->near_text = parser_text;
+}
+
+static void check_def(const type_t *t)
+{
+    if (t->defined)
+        error_loc("%s: redefinition error; original definition was at %s:%d\n",
+                  t->name, t->loc_info.input_name, t->loc_info.line_number);
+}
+
index 56a57a7..486bafe 100644 (file)
 
 
 #if ! defined (YYSTYPE) && ! defined (YYSTYPE_IS_DECLARED)
-#line 177 "parser.y"
+#line 179 "parser.y"
 typedef union YYSTYPE {
        attr_t *attr;
        attr_list_t *attr_list;
index 68f969a..1efbc14 100644 (file)
@@ -156,6 +156,8 @@ static attr_list_t *check_module_attrs(const char *name, attr_list_t *attrs);
 static attr_list_t *check_coclass_attrs(const char *name, attr_list_t *attrs);
 const char *get_attr_display_name(enum attr_type type);
 static void add_explicit_handle_if_necessary(func_t *func);
+static type_t *find_type_helper(const char *name, int t);
+static void check_def(const type_t *t);
 
 static statement_t *make_statement(enum statement_type type);
 static statement_t *make_statement_type_decl(type_t *type);
@@ -845,12 +847,15 @@ int_std:  tINT                                    { $$ = make_builtin($<str>1); }
 
 coclass:  tCOCLASS aIDENTIFIER                 { $$ = make_class($2); }
        | tCOCLASS aKNOWNTYPE                   { $$ = find_type($2, 0);
-                                                 if ($$->defined) error_loc("multiple definition error\n");
-                                                 if ($$->kind != TKIND_COCLASS) error_loc("%s was not declared a coclass\n", $2);
+                                                 if ($$->kind != TKIND_COCLASS)
+                                                   error_loc("%s was not declared a coclass at %s:%d\n",
+                                                             $2, $$->loc_info.input_name,
+                                                             $$->loc_info.line_number);
                                                }
        ;
 
 coclasshdr: attributes coclass                 { $$ = $2;
+                                                 check_def($$);
                                                  $$->attrs = check_coclass_attrs($2->name, $1);
                                                  if (!parse_only && do_header)
                                                    write_coclass($$);
@@ -882,7 +887,7 @@ dispinterfacehdr: attributes dispinterface  { attr_t *attrs;
                                                  is_in_interface = TRUE;
                                                  is_object_interface = TRUE;
                                                  $$ = $2;
-                                                 if ($$->defined) error_loc("multiple definition error\n");
+                                                 check_def($$);
                                                  attrs = make_attr(ATTR_DISPINTERFACE);
                                                  $$->attrs = append_attr( check_dispiface_attrs($2->name, $1), attrs );
                                                  $$->ref = find_type("IDispatch", 0);
@@ -934,7 +939,7 @@ interfacehdr: attributes interface          { $$.interface = $2;
                                                    pointer_default = get_attrv($1, ATTR_POINTERDEFAULT);
                                                  is_object_interface = is_object($1);
                                                  is_in_interface = TRUE;
-                                                 if ($2->defined) error_loc("multiple definition error\n");
+                                                 check_def($2);
                                                  $2->attrs = check_iface_attrs($2->name, $1);
                                                  $2->defined = TRUE;
                                                  if (!parse_only && do_header) write_forward($2);
@@ -1060,6 +1065,7 @@ pointer_type:
 
 structdef: tSTRUCT t_ident '{' fields '}'      { $$ = get_typev(RPC_FC_STRUCT, $2, tsSTRUCT);
                                                   /* overwrite RPC_FC_STRUCT with a more exact type */
+                                                 check_def($$);
                                                  $$->type = get_struct_type( $4 );
                                                  $$->kind = TKIND_RECORD;
                                                  $$->fields_or_args = $4;
@@ -1089,6 +1095,7 @@ typedef: tTYPEDEF m_attributes decl_spec declarator_list
 
 uniondef: tUNION t_ident '{' ne_union_fields '}'
                                                { $$ = get_typev(RPC_FC_NON_ENCAPSULATED_UNION, $2, tsUNION);
+                                                 check_def($$);
                                                  $$->kind = TKIND_UNION;
                                                  $$->fields_or_args = $4;
                                                  $$->defined = TRUE;
@@ -1097,6 +1104,7 @@ uniondef: tUNION t_ident '{' ne_union_fields '}'
          tSWITCH '(' s_field ')'
          m_ident '{' cases '}'                 { var_t *u = $7;
                                                  $$ = get_typev(RPC_FC_ENCAPSULATED_UNION, $2, tsUNION);
+                                                 check_def($$);
                                                  $$->kind = TKIND_UNION;
                                                  if (!u) u = make_var( xstrdup("tagged_union") );
                                                  u->type = make_type(RPC_FC_NON_ENCAPSULATED_UNION, NULL);
@@ -1390,6 +1398,7 @@ type_t *make_type(unsigned char type, type_t *ref)
   t->tfswrite = FALSE;
   t->checked = FALSE;
   t->typelib_idx = -1;
+  init_loc_info(&t->loc_info);
   return t;
 }
 
@@ -1701,9 +1710,7 @@ static var_t *make_var(char *name)
   v->attrs = NULL;
   v->eval = NULL;
   v->stgclass = STG_NONE;
-  v->loc_info.input_name = input_name ? input_name : "stdin";
-  v->loc_info.line_number = line_number;
-  v->loc_info.near_text = parser_text;
+  init_loc_info(&v->loc_info);
   return v;
 }
 
@@ -1894,6 +1901,12 @@ static type_t *reg_typedefs(decl_spec_t *decl_spec, declarator_list_t *decls, at
     if (name->name) {
       type_t *cur;
 
+      cur = find_type_helper(name->name, 0);
+      if (cur)
+          error_loc("%s: redefinition error; original definition was at %s:%d\n",
+                    cur->name, cur->loc_info.input_name,
+                    cur->loc_info.line_number);
+
       /* set the attributes to allow set_type to do some checks on them */
       name->attrs = attrs;
       set_type(name, decl_spec, decl, 0);
@@ -2896,3 +2909,17 @@ static func_list_t *append_func_from_statement(func_list_t *list, statement_t *s
     }
     return list;
 }
+
+void init_loc_info(loc_info_t *i)
+{
+    i->input_name = input_name ? input_name : "stdin";
+    i->line_number = line_number;
+    i->near_text = parser_text;
+}
+
+static void check_def(const type_t *t)
+{
+    if (t->defined)
+        error_loc("%s: redefinition error; original definition was at %s:%d\n",
+                  t->name, t->loc_info.input_name, t->loc_info.line_number);
+}
index b646435..c79f016 100644 (file)
@@ -69,6 +69,7 @@ type_t *alias(type_t *t, const char *name)
   a->kind = TKIND_ALIAS;
   a->attrs = NULL;
   a->declarray = FALSE;
+  init_loc_info(&a->loc_info);
 
   return a;
 }
index de1ea3f..b1805cf 100644 (file)
@@ -283,6 +283,7 @@ struct _type_t {
   unsigned int typestring_offset;
   unsigned int ptrdesc;           /* used for complex structs */
   int typelib_idx;
+  loc_info_t loc_info;
   unsigned int declarray : 1;     /* if declared as an array */
   unsigned int ignore : 1;
   unsigned int defined : 1;
@@ -419,6 +420,8 @@ var_t *find_const(const char *name, int f);
 type_t *find_type(const char *name, int t);
 type_t *make_type(unsigned char type, type_t *ref);
 
+void init_loc_info(loc_info_t *);
+
 static inline type_t *get_func_return_type(const func_t *func)
 {
   return func->def->type->ref;