gcc/m2/mc-boot/GmcMetaError.cc

   1 /* do not edit automatically generated by mc from mcMetaError.  */
   2 /* This file is part of GNU Modula-2.
   3
   4 GNU Modula-2 is free software; you can redistribute it and/or modify it under
   5 the terms of the GNU General Public License as published by the Free
   6 Software Foundation; either version 3, or (at your option) any later
   7 version.
   8
   9 GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  10 WARRANTY; without even the implied warranty of MERCHANTABILITY or
  11 FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  12 for more details.
  13
  14 You should have received a copy of the GNU General Public License
  15 along with GCC; see the file COPYING3.  If not see
  16 <http://www.gnu.org/licenses/>.  */
  17
  18 #include "config.h"
  19 #include "system.h"
  20 #include <stdbool.h>
  21 #   if !defined (PROC_D)
  22 #      define PROC_D
  23        typedef void (*PROC_t) (void);
  24        typedef struct { PROC_t proc; } PROC;
  25 #   endif
  26
  27 #   if !defined (TRUE)
  28 #      define TRUE (1==1)
  29 #   endif
  30
  31 #   if !defined (FALSE)
  32 #      define FALSE (1==0)
  33 #   endif
  34
  35 #if defined(__cplusplus)
  36 #   undef NULL
  37 #   define NULL 0
  38 #endif
  39 #define _mcMetaError_C
  40
  41 #include "GmcMetaError.h"
  42 #   include "GnameKey.h"
  43 #   include "GStrLib.h"
  44 #   include "GmcLexBuf.h"
  45 #   include "GmcError.h"
  46 #   include "GFIO.h"
  47 #   include "GSFIO.h"
  48 #   include "GStringConvert.h"
  49 #   include "Gvarargs.h"
  50 #   include "GDynamicStrings.h"
  51 #   include "Gdecl.h"
  52
  53 typedef enum {mcMetaError_newerror, mcMetaError_newwarning, mcMetaError_chained} mcMetaError_errorType;
  54
  55
  56 /*
  57    doFormat -
  58 */
  59
  60 extern "C" void mcMetaError_metaError1 (const char *m_, unsigned int _m_high, const unsigned char *s_, unsigned int _s_high);
  61
  62 /*
  63    doFormat -
  64 */
  65
  66 extern "C" void mcMetaError_metaError2 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
  67
  68 /*
  69    doFormat -
  70 */
  71
  72 extern "C" void mcMetaError_metaError3 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
  73
  74 /*
  75    doFormat -
  76 */
  77
  78 extern "C" void mcMetaError_metaError4 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
  79
  80 /*
  81    wrapErrors -
  82 */
  83
  84 extern "C" void mcMetaError_metaErrors1 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s_, unsigned int _s_high);
  85
  86 /*
  87    wrapErrors -
  88 */
  89
  90 extern "C" void mcMetaError_metaErrors2 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
  91
  92 /*
  93    wrapErrors -
  94 */
  95
  96 extern "C" void mcMetaError_metaErrors3 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
  97
  98 /*
  99    wrapErrors -
 100 */
 101
 102 extern "C" void mcMetaError_metaErrors4 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
 103
 104 /*
 105    doFormat -
 106 */
 107
 108 extern "C" void mcMetaError_metaErrorT1 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s_, unsigned int _s_high);
 109
 110 /*
 111    doFormat -
 112 */
 113
 114 extern "C" void mcMetaError_metaErrorT2 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
 115
 116 /*
 117    doFormat -
 118 */
 119
 120 extern "C" void mcMetaError_metaErrorT3 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
 121
 122 /*
 123    doFormat -
 124 */
 125
 126 extern "C" void mcMetaError_metaErrorT4 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
 127
 128 /*
 129    wrapErrors -
 130 */
 131
 132 extern "C" void mcMetaError_metaErrorsT1 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s_, unsigned int _s_high);
 133
 134 /*
 135    wrapErrors -
 136 */
 137
 138 extern "C" void mcMetaError_metaErrorsT2 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
 139
 140 /*
 141    wrapErrors -
 142 */
 143
 144 extern "C" void mcMetaError_metaErrorsT3 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
 145
 146 /*
 147    wrapErrors -
 148 */
 149
 150 extern "C" void mcMetaError_metaErrorsT4 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
 151
 152 /*
 153    wrapErrors -
 154 */
 155
 156 extern "C" void mcMetaError_metaErrorString1 (DynamicStrings_String m, const unsigned char *s_, unsigned int _s_high);
 157
 158 /*
 159    wrapErrors -
 160 */
 161
 162 extern "C" void mcMetaError_metaErrorString2 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
 163
 164 /*
 165    wrapErrors -
 166 */
 167
 168 extern "C" void mcMetaError_metaErrorString3 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
 169
 170 /*
 171    wrapErrors -
 172 */
 173
 174 extern "C" void mcMetaError_metaErrorString4 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
 175
 176 /*
 177    doFormat -
 178 */
 179
 180 extern "C" void mcMetaError_metaErrorStringT1 (unsigned int tok, DynamicStrings_String m, const unsigned char *s_, unsigned int _s_high);
 181
 182 /*
 183    doFormat -
 184 */
 185
 186 extern "C" void mcMetaError_metaErrorStringT2 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high);
 187
 188 /*
 189    doFormat -
 190 */
 191
 192 extern "C" void mcMetaError_metaErrorStringT3 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high);
 193
 194 /*
 195    doFormat -
 196 */
 197
 198 extern "C" void mcMetaError_metaErrorStringT4 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high);
 199
 200 /*
 201    internalFormat - produces an informative internal error.
 202 */
 203
 204 static void internalFormat (DynamicStrings_String s, int i, const char *m_, unsigned int _m_high);
 205
 206 /*
 207    x - checks to see that a=b.
 208 */
 209
 210 static DynamicStrings_String x (DynamicStrings_String a, DynamicStrings_String b);
 211
 212 /*
 213    isWhite - returns TRUE if, ch, is a space.
 214 */
 215
 216 static bool isWhite (char ch);
 217
 218 /*
 219    then := [ ':' ebnf ] =:
 220 */
 221
 222 static void then (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, DynamicStrings_String o, bool positive);
 223
 224 /*
 225    doNumber -
 226 */
 227
 228 static DynamicStrings_String doNumber (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes);
 229
 230 /*
 231    doCount -
 232 */
 233
 234 static DynamicStrings_String doCount (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes);
 235
 236 /*
 237    doCount -
 238 */
 239
 240 static DynamicStrings_String doAscii (unsigned int bol, varargs_vararg sym, DynamicStrings_String o);
 241
 242 /*
 243    doCount -
 244 */
 245
 246 static DynamicStrings_String doName (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes);
 247
 248 /*
 249    doCount -
 250 */
 251
 252 static DynamicStrings_String doQualified (unsigned int bol, varargs_vararg sym, DynamicStrings_String o);
 253
 254 /*
 255    doType - returns a string containing the type name of
 256             sym.  It will skip pseudonym types.  It also
 257             returns the type symbol found.
 258 */
 259
 260 static DynamicStrings_String doType (unsigned int bol, varargs_vararg *sym, DynamicStrings_String o);
 261
 262 /*
 263    doSkipType - will skip all pseudonym types.  It also
 264                 returns the type symbol found and name.
 265 */
 266
 267 static DynamicStrings_String doSkipType (unsigned int bol, varargs_vararg *sym, DynamicStrings_String o);
 268
 269 /*
 270    doSkipType - will skip all pseudonym types.  It also
 271                 returns the type symbol found and name.
 272 */
 273
 274 static DynamicStrings_String doKey (unsigned int bol, varargs_vararg sym, DynamicStrings_String o);
 275
 276 /*
 277    doError - creates and returns an error note.
 278 */
 279
 280 static mcError_error doError (mcError_error e, mcMetaError_errorType t, unsigned int tok);
 281
 282 /*
 283    doDeclaredDef - creates an error note where sym[bol] was declared.
 284 */
 285
 286 static mcError_error doDeclaredDef (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym);
 287
 288 /*
 289    doDeclaredMod - creates an error note where sym[bol] was declared.
 290 */
 291
 292 static mcError_error doDeclaredMod (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym);
 293
 294 /*
 295    doUsed - creates an error note where sym[bol] was first used.
 296 */
 297
 298 static mcError_error doUsed (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym);
 299
 300 /*
 301    ConCatWord - joins sentances, a, b, together.
 302 */
 303
 304 static DynamicStrings_String ConCatWord (DynamicStrings_String a, DynamicStrings_String b);
 305
 306 /*
 307    symDesc -
 308 */
 309
 310 static DynamicStrings_String symDesc (decl_node n, DynamicStrings_String o);
 311
 312 /*
 313    doDesc -
 314 */
 315
 316 static DynamicStrings_String doDesc (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes);
 317
 318 /*
 319    addQuoted - if, o, is not empty then add it to, r.
 320 */
 321
 322 static DynamicStrings_String addQuoted (DynamicStrings_String r, DynamicStrings_String o, bool quotes);
 323
 324 /*
 325    op := {'a'|'q'|'t'|'d'|'k'|'n'|'s'|'D'|'I'|'U'|'E'|'W'} then =:
 326 */
 327
 328 static void op (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, unsigned int bol, bool positive);
 329
 330 /*
 331    percenttoken := '%' (
 332                          '1'        % doOperand(1) %
 333                              op
 334                        | '2'        % doOperand(2) %
 335                              op
 336                        | '3'        % doOperand(3) %
 337                              op
 338                        | '4'        % doOperand(4) %
 339                              op
 340                        )
 341                        } =:
 342 */
 343
 344 static void percenttoken (mcError_error *e, mcMetaError_errorType t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, bool positive);
 345
 346 /*
 347    percent := '%' anych           % copy anych %
 348             =:
 349 */
 350
 351 static void percent (DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l);
 352
 353 /*
 354    lbra := '{' [ '!' ] percenttoken '}' =:
 355 */
 356
 357 static void lbra (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l);
 358
 359 /*
 360    lbra := '{' [ '!' ] percenttoken '}' =:
 361 */
 362
 363 static void stop (void);
 364
 365 /*
 366    ebnf := { percent
 367              | lbra
 368              | any                    % copy ch %
 369            }
 370          =:
 371 */
 372
 373 static void ebnf (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l);
 374
 375 /*
 376    doFormat -
 377 */
 378
 379 static DynamicStrings_String doFormat (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String s, varargs_vararg sym);
 380
 381 /*
 382    wrapErrors -
 383 */
 384
 385 static void wrapErrors (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, varargs_vararg sym);
 386
 387
 388 /*
 389    internalFormat - produces an informative internal error.
 390 */
 391
 392 static void internalFormat (DynamicStrings_String s, int i, const char *m_, unsigned int _m_high)
 393 {
 394   mcError_error e;
 395   char m[_m_high+1];
 396
 397   /* make a local copy of each unbounded array.  */
 398   memcpy (m, m_, _m_high+1);
 399
 400   e = mcError_newError (mcLexBuf_getTokenNo ());
 401   s = SFIO_WriteS (FIO_StdOut, s);
 402   FIO_WriteLine (FIO_StdOut);
 403   s = DynamicStrings_KillString (s);
 404   if (i > 0)
 405     {
 406       i -= 1;
 407     }
 408   s = DynamicStrings_Mult (DynamicStrings_InitString ((const char *) " ", 1), static_cast<unsigned int> (i));
 409   s = DynamicStrings_ConCatChar (s, '^');
 410   s = SFIO_WriteS (FIO_StdOut, s);
 411   FIO_WriteLine (FIO_StdOut);
 412   mcError_internalError ((const char *) m, _m_high, (const char *) "../../gcc/m2/mc/mcMetaError.mod", 31, 97);
 413 }
 414
 415
 416 /*
 417    x - checks to see that a=b.
 418 */
 419
 420 static DynamicStrings_String x (DynamicStrings_String a, DynamicStrings_String b)
 421 {
 422   if (a != b)
 423     {
 424       mcError_internalError ((const char *) "different string returned", 25, (const char *) "../../gcc/m2/mc/mcMetaError.mod", 31, 109);
 425     }
 426   return a;
 427   /* static analysis guarentees a RETURN statement will be used before here.  */
 428   __builtin_unreachable ();
 429 }
 430
 431
 432 /*
 433    isWhite - returns TRUE if, ch, is a space.
 434 */
 435
 436 static bool isWhite (char ch)
 437 {
 438   return ch == ' ';
 439   /* static analysis guarentees a RETURN statement will be used before here.  */
 440   __builtin_unreachable ();
 441 }
 442
 443
 444 /*
 445    then := [ ':' ebnf ] =:
 446 */
 447
 448 static void then (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, DynamicStrings_String o, bool positive)
 449 {
 450   if ((DynamicStrings_char (s, (*i))) == ':')
 451     {
 452       (*i) += 1;
 453       ebnf (e, t, r, s, sym, i, l);
 454       if (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
 455         {
 456           internalFormat (s, (*i), (const char *) "expecting to see }", 18);
 457         }
 458     }
 459 }
 460
 461
 462 /*
 463    doNumber -
 464 */
 465
 466 static DynamicStrings_String doNumber (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes)
 467 {
 468   unsigned int c;
 469
 470   if ((DynamicStrings_Length (o)) > 0)
 471     {
 472       return o;
 473     }
 474   else
 475     {
 476       (*quotes) = false;
 477       varargs_next (sym, bol);
 478       varargs_arg (sym, (unsigned char *) &c, (sizeof (c)-1));
 479       return DynamicStrings_ConCat (o, StringConvert_ctos (c, 0, ' '));
 480     }
 481   /* static analysis guarentees a RETURN statement will be used before here.  */
 482   __builtin_unreachable ();
 483 }
 484
 485
 486 /*
 487    doCount -
 488 */
 489
 490 static DynamicStrings_String doCount (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes)
 491 {
 492   unsigned int c;
 493
 494   if ((DynamicStrings_Length (o)) > 0)
 495     {
 496       return o;
 497     }
 498   else
 499     {
 500       (*quotes) = false;
 501       varargs_next (sym, bol);
 502       varargs_arg (sym, (unsigned char *) &c, (sizeof (c)-1));
 503       o = DynamicStrings_ConCat (o, StringConvert_ctos (c, 0, ' '));
 504       if (((c % 100) >= 11) && ((c % 100) <= 13))
 505         {
 506           o = DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "th", 2)));
 507         }
 508
 509       else {
 510         switch (c % 10)
 511           {
 512             case 1:
 513               o = DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "st", 2)));
 514               break;
 515
 516             case 2:
 517               o = DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "nd", 2)));
 518               break;
 519
 520             case 3:
 521               o = DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "rd", 2)));
 522               break;
 523
 524
 525             default:
 526               o = DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "th", 2)));
 527               break;
 528           }
 529       }
 530       return o;
 531     }
 532   /* static analysis guarentees a RETURN statement will be used before here.  */
 533   __builtin_unreachable ();
 534 }
 535
 536
 537 /*
 538    doCount -
 539 */
 540
 541 static DynamicStrings_String doAscii (unsigned int bol, varargs_vararg sym, DynamicStrings_String o)
 542 {
 543   decl_node n;
 544
 545   varargs_next (sym, bol);
 546   varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 547   if (((DynamicStrings_Length (o)) > 0) || (decl_isTemporary (n)))
 548     {
 549       return o;
 550     }
 551   else
 552     {
 553       return DynamicStrings_ConCat (o, DynamicStrings_InitStringCharStar (nameKey_keyToCharStar (decl_getSymName (n))));
 554     }
 555   /* static analysis guarentees a RETURN statement will be used before here.  */
 556   __builtin_unreachable ();
 557 }
 558
 559
 560 /*
 561    doCount -
 562 */
 563
 564 static DynamicStrings_String doName (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes)
 565 {
 566   decl_node n;
 567
 568   varargs_next (sym, bol);
 569   varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 570   if (((DynamicStrings_Length (o)) > 0) || (decl_isTemporary (n)))
 571     {
 572       return o;
 573     }
 574   else
 575     {
 576       if (decl_isZtype (n))
 577         {
 578           (*quotes) = false;
 579           return DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "the ZType", 9)));
 580         }
 581       else if (decl_isRtype (n))
 582         {
 583           /* avoid dangling else.  */
 584           (*quotes) = false;
 585           return DynamicStrings_ConCat (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "the RType", 9)));
 586         }
 587       else if ((decl_getSymName (n)) != nameKey_NulName)
 588         {
 589           /* avoid dangling else.  */
 590           return DynamicStrings_ConCat (o, DynamicStrings_InitStringCharStar (nameKey_keyToCharStar (decl_getSymName (n))));
 591         }
 592       else
 593         {
 594           /* avoid dangling else.  */
 595           return o;
 596         }
 597     }
 598   /* static analysis guarentees a RETURN statement will be used before here.  */
 599   __builtin_unreachable ();
 600 }
 601
 602
 603 /*
 604    doCount -
 605 */
 606
 607 static DynamicStrings_String doQualified (unsigned int bol, varargs_vararg sym, DynamicStrings_String o)
 608 {
 609   decl_node s;
 610   decl_node n;
 611   varargs_vararg mod;
 612
 613   varargs_next (sym, bol);
 614   varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 615   if (((DynamicStrings_Length (o)) > 0) || (decl_isTemporary (n)))
 616     {
 617       return o;
 618     }
 619   else
 620     {
 621       s = decl_getScope (n);
 622       mod = varargs_start1 ((const unsigned char *) &s, (sizeof (s)-1));
 623       if ((decl_isDef (s)) && (decl_isExported (n)))
 624         {
 625           o = x (o, doAscii (0, mod, o));
 626           o = x (o, DynamicStrings_ConCatChar (o, '.'));
 627           o = x (o, DynamicStrings_ConCat (o, DynamicStrings_InitStringCharStar (nameKey_keyToCharStar (decl_getSymName (n)))));
 628         }
 629       else
 630         {
 631           o = x (o, doAscii (bol, sym, o));
 632         }
 633       varargs_end (&mod);
 634       return o;
 635     }
 636   /* static analysis guarentees a RETURN statement will be used before here.  */
 637   __builtin_unreachable ();
 638 }
 639
 640
 641 /*
 642    doType - returns a string containing the type name of
 643             sym.  It will skip pseudonym types.  It also
 644             returns the type symbol found.
 645 */
 646
 647 static DynamicStrings_String doType (unsigned int bol, varargs_vararg *sym, DynamicStrings_String o)
 648 {
 649   decl_node n;
 650
 651   varargs_next ((*sym), bol);
 652   varargs_arg ((*sym), (unsigned char *) &n, (sizeof (n)-1));
 653   if (((DynamicStrings_Length (o)) > 0) || ((decl_getType (n)) == NULL))
 654     {
 655       return o;
 656     }
 657   else
 658     {
 659       n = decl_skipType (decl_getType (n));
 660       varargs_next ((*sym), bol);
 661       varargs_replace ((*sym), (unsigned char *) &n, (sizeof (n)-1));
 662       return x (o, doAscii (bol, (*sym), o));
 663     }
 664   /* static analysis guarentees a RETURN statement will be used before here.  */
 665   __builtin_unreachable ();
 666 }
 667
 668
 669 /*
 670    doSkipType - will skip all pseudonym types.  It also
 671                 returns the type symbol found and name.
 672 */
 673
 674 static DynamicStrings_String doSkipType (unsigned int bol, varargs_vararg *sym, DynamicStrings_String o)
 675 {
 676   decl_node n;
 677
 678   varargs_next ((*sym), bol);
 679   varargs_arg ((*sym), (unsigned char *) &n, (sizeof (n)-1));
 680   if ((DynamicStrings_Length (o)) > 0)
 681     {
 682       return o;
 683     }
 684   else
 685     {
 686       n = decl_skipType (decl_getType (n));
 687       varargs_next ((*sym), bol);
 688       varargs_replace ((*sym), (unsigned char *) &n, (sizeof (n)-1));
 689       if ((decl_getSymName (n)) == nameKey_NulName)
 690         {
 691           return o;
 692         }
 693       else
 694         {
 695           return x (o, doAscii (bol, (*sym), o));
 696         }
 697     }
 698   /* static analysis guarentees a RETURN statement will be used before here.  */
 699   __builtin_unreachable ();
 700 }
 701
 702
 703 /*
 704    doSkipType - will skip all pseudonym types.  It also
 705                 returns the type symbol found and name.
 706 */
 707
 708 static DynamicStrings_String doKey (unsigned int bol, varargs_vararg sym, DynamicStrings_String o)
 709 {
 710   nameKey_Name n;
 711
 712   if ((DynamicStrings_Length (o)) > 0)
 713     {
 714       return o;
 715     }
 716   else
 717     {
 718       varargs_next (sym, bol);
 719       varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 720       return DynamicStrings_ConCat (o, DynamicStrings_InitStringCharStar (nameKey_keyToCharStar (n)));
 721     }
 722   /* static analysis guarentees a RETURN statement will be used before here.  */
 723   __builtin_unreachable ();
 724 }
 725
 726
 727 /*
 728    doError - creates and returns an error note.
 729 */
 730
 731 static mcError_error doError (mcError_error e, mcMetaError_errorType t, unsigned int tok)
 732 {
 733   switch (t)
 734     {
 735       case mcMetaError_chained:
 736         if (e == NULL)
 737           {
 738             mcError_internalError ((const char *) "should not be chaining an error onto an empty error note", 56, (const char *) "../../gcc/m2/mc/mcMetaError.mod", 31, 355);
 739           }
 740         else
 741           {
 742             e = mcError_chainError (tok, e);
 743           }
 744         break;
 745
 746       case mcMetaError_newerror:
 747         if (e == NULL)
 748           {
 749             e = mcError_newError (tok);
 750           }
 751         break;
 752
 753       case mcMetaError_newwarning:
 754         if (e == NULL)
 755           {
 756             e = mcError_newWarning (tok);
 757           }
 758         break;
 759
 760
 761       default:
 762         mcError_internalError ((const char *) "unexpected enumeration value", 28, (const char *) "../../gcc/m2/mc/mcMetaError.mod", 31, 369);
 763         break;
 764     }
 765   return e;
 766   /* static analysis guarentees a RETURN statement will be used before here.  */
 767   __builtin_unreachable ();
 768 }
 769
 770
 771 /*
 772    doDeclaredDef - creates an error note where sym[bol] was declared.
 773 */
 774
 775 static mcError_error doDeclaredDef (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym)
 776 {
 777   decl_node n;
 778
 779   if (bol <= (varargs_nargs (sym)))
 780     {
 781       varargs_next (sym, bol);
 782       varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 783       e = doError (e, t, decl_getDeclaredDef (n));
 784     }
 785   return e;
 786   /* static analysis guarentees a RETURN statement will be used before here.  */
 787   __builtin_unreachable ();
 788 }
 789
 790
 791 /*
 792    doDeclaredMod - creates an error note where sym[bol] was declared.
 793 */
 794
 795 static mcError_error doDeclaredMod (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym)
 796 {
 797   decl_node n;
 798
 799   if (bol <= (varargs_nargs (sym)))
 800     {
 801       varargs_next (sym, bol);
 802       varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 803       e = doError (e, t, decl_getDeclaredMod (n));
 804     }
 805   return e;
 806   /* static analysis guarentees a RETURN statement will be used before here.  */
 807   __builtin_unreachable ();
 808 }
 809
 810
 811 /*
 812    doUsed - creates an error note where sym[bol] was first used.
 813 */
 814
 815 static mcError_error doUsed (mcError_error e, mcMetaError_errorType t, unsigned int bol, varargs_vararg sym)
 816 {
 817   decl_node n;
 818
 819   if (bol <= (varargs_nargs (sym)))
 820     {
 821       varargs_next (sym, bol);
 822       varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
 823       e = doError (e, t, decl_getFirstUsed (n));
 824     }
 825   return e;
 826   /* static analysis guarentees a RETURN statement will be used before here.  */
 827   __builtin_unreachable ();
 828 }
 829
 830
 831 /*
 832    ConCatWord - joins sentances, a, b, together.
 833 */
 834
 835 static DynamicStrings_String ConCatWord (DynamicStrings_String a, DynamicStrings_String b)
 836 {
 837   if (((DynamicStrings_Length (a)) == 1) && ((DynamicStrings_char (a, 0)) == 'a'))
 838     {
 839       a = x (a, DynamicStrings_ConCatChar (a, 'n'));
 840     }
 841   else if ((((DynamicStrings_Length (a)) > 1) && ((DynamicStrings_char (a, -1)) == 'a')) && (isWhite (DynamicStrings_char (a, -2))))
 842     {
 843       /* avoid dangling else.  */
 844       a = x (a, DynamicStrings_ConCatChar (a, 'n'));
 845     }
 846   if (((DynamicStrings_Length (a)) > 0) && (! (isWhite (DynamicStrings_char (a, -1)))))
 847     {
 848       a = x (a, DynamicStrings_ConCatChar (a, ' '));
 849     }
 850   return x (a, DynamicStrings_ConCat (a, b));
 851   /* static analysis guarentees a RETURN statement will be used before here.  */
 852   __builtin_unreachable ();
 853 }
 854
 855
 856 /*
 857    symDesc -
 858 */
 859
 860 static DynamicStrings_String symDesc (decl_node n, DynamicStrings_String o)
 861 {
 862   if (decl_isLiteral (n))
 863     {
 864       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "literal", 7)));
 865     }
 866   else if (decl_isConstSet (n))
 867     {
 868       /* avoid dangling else.  */
 869       /*
 870    ELSIF IsConstructor(n)
 871    THEN
 872       RETURN( ConCatWord (o, Mark (InitString ('constructor'))) )
 873   */
 874       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "constant set", 12)));
 875     }
 876   else if (decl_isConst (n))
 877     {
 878       /* avoid dangling else.  */
 879       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "constant", 8)));
 880     }
 881   else if (decl_isArray (n))
 882     {
 883       /* avoid dangling else.  */
 884       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "array", 5)));
 885     }
 886   else if (decl_isVar (n))
 887     {
 888       /* avoid dangling else.  */
 889       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "variable", 8)));
 890     }
 891   else if (decl_isEnumeration (n))
 892     {
 893       /* avoid dangling else.  */
 894       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "enumeration type", 16)));
 895     }
 896   else if (decl_isEnumerationField (n))
 897     {
 898       /* avoid dangling else.  */
 899       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "enumeration field", 17)));
 900     }
 901   else if (decl_isUnbounded (n))
 902     {
 903       /* avoid dangling else.  */
 904       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "unbounded parameter", 19)));
 905     }
 906   else if (decl_isProcType (n))
 907     {
 908       /* avoid dangling else.  */
 909       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "procedure type", 14)));
 910     }
 911   else if (decl_isProcedure (n))
 912     {
 913       /* avoid dangling else.  */
 914       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "procedure", 9)));
 915     }
 916   else if (decl_isPointer (n))
 917     {
 918       /* avoid dangling else.  */
 919       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "pointer", 7)));
 920     }
 921   else if (decl_isParameter (n))
 922     {
 923       /* avoid dangling else.  */
 924       if (decl_isVarParam (n))
 925         {
 926           return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "var parameter", 13)));
 927         }
 928       else
 929         {
 930           return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "parameter", 9)));
 931         }
 932     }
 933   else if (decl_isType (n))
 934     {
 935       /* avoid dangling else.  */
 936       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "type", 4)));
 937     }
 938   else if (decl_isRecord (n))
 939     {
 940       /* avoid dangling else.  */
 941       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "record", 6)));
 942     }
 943   else if (decl_isRecordField (n))
 944     {
 945       /* avoid dangling else.  */
 946       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "record field", 12)));
 947     }
 948   else if (decl_isVarient (n))
 949     {
 950       /* avoid dangling else.  */
 951       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "varient record", 14)));
 952     }
 953   else if (decl_isModule (n))
 954     {
 955       /* avoid dangling else.  */
 956       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "module", 6)));
 957     }
 958   else if (decl_isDef (n))
 959     {
 960       /* avoid dangling else.  */
 961       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "definition module", 17)));
 962     }
 963   else if (decl_isImp (n))
 964     {
 965       /* avoid dangling else.  */
 966       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "implementation module", 21)));
 967     }
 968   else if (decl_isSet (n))
 969     {
 970       /* avoid dangling else.  */
 971       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "set", 3)));
 972     }
 973   else if (decl_isSubrange (n))
 974     {
 975       /* avoid dangling else.  */
 976       return ConCatWord (o, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "subrange", 8)));
 977     }
 978   else
 979     {
 980       /* avoid dangling else.  */
 981       return o;
 982     }
 983   /* static analysis guarentees a RETURN statement will be used before here.  */
 984   __builtin_unreachable ();
 985 }
 986
 987
 988 /*
 989    doDesc -
 990 */
 991
 992 static DynamicStrings_String doDesc (unsigned int bol, varargs_vararg sym, DynamicStrings_String o, bool *quotes)
 993 {
 994   decl_node n;
 995
 996   if ((DynamicStrings_Length (o)) == 0)
 997     {
 998       varargs_next (sym, bol);
 999       varargs_arg (sym, (unsigned char *) &n, (sizeof (n)-1));
1000       o = symDesc (n, o);
1001       if ((DynamicStrings_Length (o)) > 0)
1002         {
1003           (*quotes) = false;
1004         }
1005     }
1006   return o;
1007   /* static analysis guarentees a RETURN statement will be used before here.  */
1008   __builtin_unreachable ();
1009 }
1010
1011
1012 /*
1013    addQuoted - if, o, is not empty then add it to, r.
1014 */
1015
1016 static DynamicStrings_String addQuoted (DynamicStrings_String r, DynamicStrings_String o, bool quotes)
1017 {
1018   if ((DynamicStrings_Length (o)) > 0)
1019     {
1020       if (! (isWhite (DynamicStrings_char (r, -1))))
1021         {
1022           r = x (r, DynamicStrings_ConCatChar (r, ' '));
1023         }
1024       if (quotes)
1025         {
1026           r = x (r, DynamicStrings_ConCatChar (r, '\''));
1027         }
1028       r = x (r, DynamicStrings_ConCat (r, o));
1029       if (quotes)
1030         {
1031           r = x (r, DynamicStrings_ConCatChar (r, '\''));
1032         }
1033     }
1034   return r;
1035   /* static analysis guarentees a RETURN statement will be used before here.  */
1036   __builtin_unreachable ();
1037 }
1038
1039
1040 /*
1041    op := {'a'|'q'|'t'|'d'|'k'|'n'|'s'|'D'|'I'|'U'|'E'|'W'} then =:
1042 */
1043
1044 static void op (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, unsigned int bol, bool positive)
1045 {
1046   DynamicStrings_String o;
1047   varargs_vararg c;
1048   bool quotes;
1049
1050   c = varargs_copy (sym);
1051   o = DynamicStrings_InitString ((const char *) "", 0);
1052   quotes = true;
1053   while (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
1054     {
1055       switch (DynamicStrings_char (s, (*i)))
1056         {
1057           case 'a':
1058             o = x (o, doName (bol, sym, o, &quotes));
1059             break;
1060
1061           case 'q':
1062             o = x (o, doQualified (bol, sym, o));
1063             break;
1064
1065           case 't':
1066             o = x (o, doType (bol, &sym, o));
1067             break;
1068
1069           case 'd':
1070             o = x (o, doDesc (bol, sym, o, &quotes));
1071             break;
1072
1073           case 'n':
1074             o = x (o, doNumber (bol, sym, o, &quotes));
1075             break;
1076
1077           case 'N':
1078             o = x (o, doCount (bol, sym, o, &quotes));
1079             break;
1080
1081           case 's':
1082             o = x (o, doSkipType (bol, &sym, o));
1083             break;
1084
1085           case 'k':
1086             o = x (o, doKey (bol, sym, o));
1087             break;
1088
1089           case 'D':
1090             (*e) = doDeclaredDef ((*e), (*t), bol, sym);
1091             break;
1092
1093           case 'M':
1094             (*e) = doDeclaredMod ((*e), (*t), bol, sym);
1095             break;
1096
1097           case 'U':
1098             (*e) = doUsed ((*e), (*t), bol, sym);
1099             break;
1100
1101           case 'E':
1102             (*t) = mcMetaError_newerror;
1103             break;
1104
1105           case 'W':
1106             (*t) = mcMetaError_newwarning;
1107             break;
1108
1109           case ':':
1110             varargs_end (&sym);
1111             sym = varargs_copy (c);
1112             then (e, t, r, s, sym, i, l, o, positive);
1113             o = DynamicStrings_KillString (o);
1114             o = DynamicStrings_InitString ((const char *) "", 0);
1115             if (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
1116               {
1117                 internalFormat (s, (*i), (const char *) "expecting to see }", 18);
1118               }
1119             (*i) -= 1;
1120             break;
1121
1122
1123           default:
1124             internalFormat (s, (*i), (const char *) "expecting one of [aqtdnNsDUEW:]", 31);
1125             break;
1126         }
1127       (*i) += 1;
1128     }
1129   (*r) = x ((*r), addQuoted ((*r), o, quotes));
1130   o = DynamicStrings_KillString (o);
1131 }
1132
1133
1134 /*
1135    percenttoken := '%' (
1136                          '1'        % doOperand(1) %
1137                              op
1138                        | '2'        % doOperand(2) %
1139                              op
1140                        | '3'        % doOperand(3) %
1141                              op
1142                        | '4'        % doOperand(4) %
1143                              op
1144                        )
1145                        } =:
1146 */
1147
1148 static void percenttoken (mcError_error *e, mcMetaError_errorType t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l, bool positive)
1149 {
1150   if ((DynamicStrings_char (s, (*i))) == '%')
1151     {
1152       (*i) += 1;
1153       switch (DynamicStrings_char (s, (*i)))
1154         {
1155           case '1':
1156             (*i) += 1;
1157             op (e, &t, r, s, sym, i, l, 0, positive);
1158             break;
1159
1160           case '2':
1161             (*i) += 1;
1162             op (e, &t, r, s, sym, i, l, 1, positive);
1163             break;
1164
1165           case '3':
1166             (*i) += 1;
1167             op (e, &t, r, s, sym, i, l, 2, positive);
1168             break;
1169
1170           case '4':
1171             (*i) += 1;
1172             op (e, &t, r, s, sym, i, l, 3, positive);
1173             break;
1174
1175
1176           default:
1177             internalFormat (s, (*i), (const char *) "expecting one of [123]", 22);
1178             break;
1179         }
1180       if (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
1181         {
1182           internalFormat (s, (*i), (const char *) "expecting to see }", 18);
1183         }
1184     }
1185 }
1186
1187
1188 /*
1189    percent := '%' anych           % copy anych %
1190             =:
1191 */
1192
1193 static void percent (DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l)
1194 {
1195   if ((DynamicStrings_char (s, (*i))) == '%')
1196     {
1197       (*i) += 1;
1198       if ((*i) < l)
1199         {
1200           (*r) = x ((*r), DynamicStrings_ConCatChar ((*r), DynamicStrings_char (s, (*i))));
1201           (*i) += 1;
1202         }
1203     }
1204 }
1205
1206
1207 /*
1208    lbra := '{' [ '!' ] percenttoken '}' =:
1209 */
1210
1211 static void lbra (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l)
1212 {
1213   bool positive;
1214
1215   if ((DynamicStrings_char (s, (*i))) == '{')
1216     {
1217       positive = true;
1218       (*i) += 1;
1219       if ((DynamicStrings_char (s, (*i))) == '!')
1220         {
1221           positive = false;
1222           (*i) += 1;
1223         }
1224       if ((DynamicStrings_char (s, (*i))) != '%')
1225         {
1226           internalFormat (s, (*i), (const char *) "expecting to see %", 18);
1227         }
1228       percenttoken (e, (*t), r, s, sym, i, l, positive);
1229       if (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
1230         {
1231           internalFormat (s, (*i), (const char *) "expecting to see }", 18);
1232         }
1233     }
1234 }
1235
1236
1237 /*
1238    lbra := '{' [ '!' ] percenttoken '}' =:
1239 */
1240
1241 static void stop (void)
1242 {
1243 }
1244
1245
1246 /*
1247    ebnf := { percent
1248              | lbra
1249              | any                    % copy ch %
1250            }
1251          =:
1252 */
1253
1254 static void ebnf (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String *r, DynamicStrings_String s, varargs_vararg sym, int *i, int l)
1255 {
1256   while ((*i) < l)
1257     {
1258       switch (DynamicStrings_char (s, (*i)))
1259         {
1260           case '%':
1261             percent (r, s, sym, i, l);
1262             break;
1263
1264           case '{':
1265             lbra (e, t, r, s, sym, i, l);
1266             if (((*i) < l) && ((DynamicStrings_char (s, (*i))) != '}'))
1267               {
1268                 internalFormat (s, (*i), (const char *) "expecting to see }", 18);
1269               }
1270             break;
1271
1272           case '}':
1273             return;
1274             break;
1275
1276
1277           default:
1278             if ((((isWhite (DynamicStrings_char (s, (*i)))) && ((DynamicStrings_Length ((*r))) > 0)) && (! (isWhite (DynamicStrings_char ((*r), -1))))) || (! (isWhite (DynamicStrings_char (s, (*i))))))
1279               {
1280                 (*r) = x ((*r), DynamicStrings_ConCatChar ((*r), DynamicStrings_char (s, (*i))));
1281               }
1282             break;
1283         }
1284       (*i) += 1;
1285     }
1286 }
1287
1288
1289 /*
1290    doFormat -
1291 */
1292
1293 static DynamicStrings_String doFormat (mcError_error *e, mcMetaError_errorType *t, DynamicStrings_String s, varargs_vararg sym)
1294 {
1295   DynamicStrings_String r;
1296   int i;
1297   int l;
1298
1299   r = DynamicStrings_InitString ((const char *) "", 0);
1300   i = 0;
1301   l = DynamicStrings_Length (s);
1302   ebnf (e, t, &r, s, sym, &i, l);
1303   s = DynamicStrings_KillString (s);
1304   return r;
1305   /* static analysis guarentees a RETURN statement will be used before here.  */
1306   __builtin_unreachable ();
1307 }
1308
1309
1310 /*
1311    wrapErrors -
1312 */
1313
1314 static void wrapErrors (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, varargs_vararg sym)
1315 {
1316   mcError_error e;
1317   mcError_error f;
1318   DynamicStrings_String str;
1319   mcMetaError_errorType t;
1320   char m1[_m1_high+1];
1321   char m2[_m2_high+1];
1322
1323   /* make a local copy of each unbounded array.  */
1324   memcpy (m1, m1_, _m1_high+1);
1325   memcpy (m2, m2_, _m2_high+1);
1326
1327   e = static_cast<mcError_error> (NULL);
1328   t = mcMetaError_newerror;
1329   str = doFormat (&e, &t, DynamicStrings_InitString ((const char *) m1, _m1_high), sym);
1330   e = doError (e, t, tok);
1331   mcError_errorString (e, str);
1332   f = e;
1333   t = mcMetaError_chained;
1334   str = doFormat (&f, &t, DynamicStrings_InitString ((const char *) m2, _m2_high), sym);
1335   if (e == f)
1336     {
1337       t = mcMetaError_chained;
1338       f = doError (e, t, tok);
1339     }
1340   mcError_errorString (f, str);
1341 }
1342
1343
1344 /*
1345    doFormat -
1346 */
1347
1348 extern "C" void mcMetaError_metaError1 (const char *m_, unsigned int _m_high, const unsigned char *s_, unsigned int _s_high)
1349 {
1350   char m[_m_high+1];
1351   unsigned char s[_s_high+1];
1352
1353   /* make a local copy of each unbounded array.  */
1354   memcpy (m, m_, _m_high+1);
1355   memcpy (s, s_, _s_high+1);
1356
1357   mcMetaError_metaErrorT1 (mcLexBuf_getTokenNo (), (const char *) m, _m_high, (const unsigned char *) s, _s_high);
1358 }
1359
1360
1361 /*
1362    doFormat -
1363 */
1364
1365 extern "C" void mcMetaError_metaError2 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1366 {
1367   char m[_m_high+1];
1368   unsigned char s1[_s1_high+1];
1369   unsigned char s2[_s2_high+1];
1370
1371   /* make a local copy of each unbounded array.  */
1372   memcpy (m, m_, _m_high+1);
1373   memcpy (s1, s1_, _s1_high+1);
1374   memcpy (s2, s2_, _s2_high+1);
1375
1376   mcMetaError_metaErrorT2 (mcLexBuf_getTokenNo (), (const char *) m, _m_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1377 }
1378
1379
1380 /*
1381    doFormat -
1382 */
1383
1384 extern "C" void mcMetaError_metaError3 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1385 {
1386   char m[_m_high+1];
1387   unsigned char s1[_s1_high+1];
1388   unsigned char s2[_s2_high+1];
1389   unsigned char s3[_s3_high+1];
1390
1391   /* make a local copy of each unbounded array.  */
1392   memcpy (m, m_, _m_high+1);
1393   memcpy (s1, s1_, _s1_high+1);
1394   memcpy (s2, s2_, _s2_high+1);
1395   memcpy (s3, s3_, _s3_high+1);
1396
1397   mcMetaError_metaErrorT3 (mcLexBuf_getTokenNo (), (const char *) m, _m_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1398 }
1399
1400
1401 /*
1402    doFormat -
1403 */
1404
1405 extern "C" void mcMetaError_metaError4 (const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1406 {
1407   char m[_m_high+1];
1408   unsigned char s1[_s1_high+1];
1409   unsigned char s2[_s2_high+1];
1410   unsigned char s3[_s3_high+1];
1411   unsigned char s4[_s4_high+1];
1412
1413   /* make a local copy of each unbounded array.  */
1414   memcpy (m, m_, _m_high+1);
1415   memcpy (s1, s1_, _s1_high+1);
1416   memcpy (s2, s2_, _s2_high+1);
1417   memcpy (s3, s3_, _s3_high+1);
1418   memcpy (s4, s4_, _s4_high+1);
1419
1420   mcMetaError_metaErrorT4 (mcLexBuf_getTokenNo (), (const char *) m, _m_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1421 }
1422
1423
1424 /*
1425    wrapErrors -
1426 */
1427
1428 extern "C" void mcMetaError_metaErrors1 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s_, unsigned int _s_high)
1429 {
1430   char m1[_m1_high+1];
1431   char m2[_m2_high+1];
1432   unsigned char s[_s_high+1];
1433
1434   /* make a local copy of each unbounded array.  */
1435   memcpy (m1, m1_, _m1_high+1);
1436   memcpy (m2, m2_, _m2_high+1);
1437   memcpy (s, s_, _s_high+1);
1438
1439   mcMetaError_metaErrorsT1 (mcLexBuf_getTokenNo (), (const char *) m1, _m1_high, (const char *) m2, _m2_high, (const unsigned char *) s, _s_high);
1440 }
1441
1442
1443 /*
1444    wrapErrors -
1445 */
1446
1447 extern "C" void mcMetaError_metaErrors2 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1448 {
1449   char m1[_m1_high+1];
1450   char m2[_m2_high+1];
1451   unsigned char s1[_s1_high+1];
1452   unsigned char s2[_s2_high+1];
1453
1454   /* make a local copy of each unbounded array.  */
1455   memcpy (m1, m1_, _m1_high+1);
1456   memcpy (m2, m2_, _m2_high+1);
1457   memcpy (s1, s1_, _s1_high+1);
1458   memcpy (s2, s2_, _s2_high+1);
1459
1460   mcMetaError_metaErrorsT2 (mcLexBuf_getTokenNo (), (const char *) m1, _m1_high, (const char *) m2, _m2_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1461 }
1462
1463
1464 /*
1465    wrapErrors -
1466 */
1467
1468 extern "C" void mcMetaError_metaErrors3 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1469 {
1470   char m1[_m1_high+1];
1471   char m2[_m2_high+1];
1472   unsigned char s1[_s1_high+1];
1473   unsigned char s2[_s2_high+1];
1474   unsigned char s3[_s3_high+1];
1475
1476   /* make a local copy of each unbounded array.  */
1477   memcpy (m1, m1_, _m1_high+1);
1478   memcpy (m2, m2_, _m2_high+1);
1479   memcpy (s1, s1_, _s1_high+1);
1480   memcpy (s2, s2_, _s2_high+1);
1481   memcpy (s3, s3_, _s3_high+1);
1482
1483   mcMetaError_metaErrorsT3 (mcLexBuf_getTokenNo (), (const char *) m1, _m1_high, (const char *) m2, _m2_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1484 }
1485
1486
1487 /*
1488    wrapErrors -
1489 */
1490
1491 extern "C" void mcMetaError_metaErrors4 (const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1492 {
1493   char m1[_m1_high+1];
1494   char m2[_m2_high+1];
1495   unsigned char s1[_s1_high+1];
1496   unsigned char s2[_s2_high+1];
1497   unsigned char s3[_s3_high+1];
1498   unsigned char s4[_s4_high+1];
1499
1500   /* make a local copy of each unbounded array.  */
1501   memcpy (m1, m1_, _m1_high+1);
1502   memcpy (m2, m2_, _m2_high+1);
1503   memcpy (s1, s1_, _s1_high+1);
1504   memcpy (s2, s2_, _s2_high+1);
1505   memcpy (s3, s3_, _s3_high+1);
1506   memcpy (s4, s4_, _s4_high+1);
1507
1508   mcMetaError_metaErrorsT4 (mcLexBuf_getTokenNo (), (const char *) m1, _m1_high, (const char *) m2, _m2_high, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1509 }
1510
1511
1512 /*
1513    doFormat -
1514 */
1515
1516 extern "C" void mcMetaError_metaErrorT1 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s_, unsigned int _s_high)
1517 {
1518   char m[_m_high+1];
1519   unsigned char s[_s_high+1];
1520
1521   /* make a local copy of each unbounded array.  */
1522   memcpy (m, m_, _m_high+1);
1523   memcpy (s, s_, _s_high+1);
1524
1525   mcMetaError_metaErrorStringT1 (tok, DynamicStrings_InitString ((const char *) m, _m_high), (const unsigned char *) s, _s_high);
1526 }
1527
1528
1529 /*
1530    doFormat -
1531 */
1532
1533 extern "C" void mcMetaError_metaErrorT2 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1534 {
1535   char m[_m_high+1];
1536   unsigned char s1[_s1_high+1];
1537   unsigned char s2[_s2_high+1];
1538
1539   /* make a local copy of each unbounded array.  */
1540   memcpy (m, m_, _m_high+1);
1541   memcpy (s1, s1_, _s1_high+1);
1542   memcpy (s2, s2_, _s2_high+1);
1543
1544   mcMetaError_metaErrorStringT2 (tok, DynamicStrings_InitString ((const char *) m, _m_high), (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1545 }
1546
1547
1548 /*
1549    doFormat -
1550 */
1551
1552 extern "C" void mcMetaError_metaErrorT3 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1553 {
1554   char m[_m_high+1];
1555   unsigned char s1[_s1_high+1];
1556   unsigned char s2[_s2_high+1];
1557   unsigned char s3[_s3_high+1];
1558
1559   /* make a local copy of each unbounded array.  */
1560   memcpy (m, m_, _m_high+1);
1561   memcpy (s1, s1_, _s1_high+1);
1562   memcpy (s2, s2_, _s2_high+1);
1563   memcpy (s3, s3_, _s3_high+1);
1564
1565   mcMetaError_metaErrorStringT3 (tok, DynamicStrings_InitString ((const char *) m, _m_high), (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1566 }
1567
1568
1569 /*
1570    doFormat -
1571 */
1572
1573 extern "C" void mcMetaError_metaErrorT4 (unsigned int tok, const char *m_, unsigned int _m_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1574 {
1575   char m[_m_high+1];
1576   unsigned char s1[_s1_high+1];
1577   unsigned char s2[_s2_high+1];
1578   unsigned char s3[_s3_high+1];
1579   unsigned char s4[_s4_high+1];
1580
1581   /* make a local copy of each unbounded array.  */
1582   memcpy (m, m_, _m_high+1);
1583   memcpy (s1, s1_, _s1_high+1);
1584   memcpy (s2, s2_, _s2_high+1);
1585   memcpy (s3, s3_, _s3_high+1);
1586   memcpy (s4, s4_, _s4_high+1);
1587
1588   mcMetaError_metaErrorStringT4 (tok, DynamicStrings_InitString ((const char *) m, _m_high), (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1589 }
1590
1591
1592 /*
1593    wrapErrors -
1594 */
1595
1596 extern "C" void mcMetaError_metaErrorsT1 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s_, unsigned int _s_high)
1597 {
1598   varargs_vararg sym;
1599   char m1[_m1_high+1];
1600   char m2[_m2_high+1];
1601   unsigned char s[_s_high+1];
1602
1603   /* make a local copy of each unbounded array.  */
1604   memcpy (m1, m1_, _m1_high+1);
1605   memcpy (m2, m2_, _m2_high+1);
1606   memcpy (s, s_, _s_high+1);
1607
1608   sym = varargs_start1 ((const unsigned char *) s, _s_high);
1609   wrapErrors (tok, (const char *) m1, _m1_high, (const char *) m2, _m2_high, sym);
1610   varargs_end (&sym);
1611 }
1612
1613
1614 /*
1615    wrapErrors -
1616 */
1617
1618 extern "C" void mcMetaError_metaErrorsT2 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1619 {
1620   varargs_vararg sym;
1621   char m1[_m1_high+1];
1622   char m2[_m2_high+1];
1623   unsigned char s1[_s1_high+1];
1624   unsigned char s2[_s2_high+1];
1625
1626   /* make a local copy of each unbounded array.  */
1627   memcpy (m1, m1_, _m1_high+1);
1628   memcpy (m2, m2_, _m2_high+1);
1629   memcpy (s1, s1_, _s1_high+1);
1630   memcpy (s2, s2_, _s2_high+1);
1631
1632   sym = varargs_start2 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1633   wrapErrors (tok, (const char *) m1, _m1_high, (const char *) m2, _m2_high, sym);
1634   varargs_end (&sym);
1635 }
1636
1637
1638 /*
1639    wrapErrors -
1640 */
1641
1642 extern "C" void mcMetaError_metaErrorsT3 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1643 {
1644   varargs_vararg sym;
1645   char m1[_m1_high+1];
1646   char m2[_m2_high+1];
1647   unsigned char s1[_s1_high+1];
1648   unsigned char s2[_s2_high+1];
1649   unsigned char s3[_s3_high+1];
1650
1651   /* make a local copy of each unbounded array.  */
1652   memcpy (m1, m1_, _m1_high+1);
1653   memcpy (m2, m2_, _m2_high+1);
1654   memcpy (s1, s1_, _s1_high+1);
1655   memcpy (s2, s2_, _s2_high+1);
1656   memcpy (s3, s3_, _s3_high+1);
1657
1658   sym = varargs_start3 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1659   wrapErrors (tok, (const char *) m1, _m1_high, (const char *) m2, _m2_high, sym);
1660   varargs_end (&sym);
1661 }
1662
1663
1664 /*
1665    wrapErrors -
1666 */
1667
1668 extern "C" void mcMetaError_metaErrorsT4 (unsigned int tok, const char *m1_, unsigned int _m1_high, const char *m2_, unsigned int _m2_high, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1669 {
1670   varargs_vararg sym;
1671   char m1[_m1_high+1];
1672   char m2[_m2_high+1];
1673   unsigned char s1[_s1_high+1];
1674   unsigned char s2[_s2_high+1];
1675   unsigned char s3[_s3_high+1];
1676   unsigned char s4[_s4_high+1];
1677
1678   /* make a local copy of each unbounded array.  */
1679   memcpy (m1, m1_, _m1_high+1);
1680   memcpy (m2, m2_, _m2_high+1);
1681   memcpy (s1, s1_, _s1_high+1);
1682   memcpy (s2, s2_, _s2_high+1);
1683   memcpy (s3, s3_, _s3_high+1);
1684   memcpy (s4, s4_, _s4_high+1);
1685
1686   sym = varargs_start4 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1687   wrapErrors (tok, (const char *) m1, _m1_high, (const char *) m2, _m2_high, sym);
1688   varargs_end (&sym);
1689 }
1690
1691
1692 /*
1693    wrapErrors -
1694 */
1695
1696 extern "C" void mcMetaError_metaErrorString1 (DynamicStrings_String m, const unsigned char *s_, unsigned int _s_high)
1697 {
1698   unsigned char s[_s_high+1];
1699
1700   /* make a local copy of each unbounded array.  */
1701   memcpy (s, s_, _s_high+1);
1702
1703   mcMetaError_metaErrorStringT1 (mcLexBuf_getTokenNo (), m, (const unsigned char *) s, _s_high);
1704 }
1705
1706
1707 /*
1708    wrapErrors -
1709 */
1710
1711 extern "C" void mcMetaError_metaErrorString2 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1712 {
1713   unsigned char s1[_s1_high+1];
1714   unsigned char s2[_s2_high+1];
1715
1716   /* make a local copy of each unbounded array.  */
1717   memcpy (s1, s1_, _s1_high+1);
1718   memcpy (s2, s2_, _s2_high+1);
1719
1720   mcMetaError_metaErrorStringT2 (mcLexBuf_getTokenNo (), m, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1721 }
1722
1723
1724 /*
1725    wrapErrors -
1726 */
1727
1728 extern "C" void mcMetaError_metaErrorString3 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1729 {
1730   unsigned char s1[_s1_high+1];
1731   unsigned char s2[_s2_high+1];
1732   unsigned char s3[_s3_high+1];
1733
1734   /* make a local copy of each unbounded array.  */
1735   memcpy (s1, s1_, _s1_high+1);
1736   memcpy (s2, s2_, _s2_high+1);
1737   memcpy (s3, s3_, _s3_high+1);
1738
1739   mcMetaError_metaErrorStringT3 (mcLexBuf_getTokenNo (), m, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1740 }
1741
1742
1743 /*
1744    wrapErrors -
1745 */
1746
1747 extern "C" void mcMetaError_metaErrorString4 (DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1748 {
1749   unsigned char s1[_s1_high+1];
1750   unsigned char s2[_s2_high+1];
1751   unsigned char s3[_s3_high+1];
1752   unsigned char s4[_s4_high+1];
1753
1754   /* make a local copy of each unbounded array.  */
1755   memcpy (s1, s1_, _s1_high+1);
1756   memcpy (s2, s2_, _s2_high+1);
1757   memcpy (s3, s3_, _s3_high+1);
1758   memcpy (s4, s4_, _s4_high+1);
1759
1760   mcMetaError_metaErrorStringT4 (mcLexBuf_getTokenNo (), m, (const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1761 }
1762
1763
1764 /*
1765    doFormat -
1766 */
1767
1768 extern "C" void mcMetaError_metaErrorStringT1 (unsigned int tok, DynamicStrings_String m, const unsigned char *s_, unsigned int _s_high)
1769 {
1770   DynamicStrings_String str;
1771   mcError_error e;
1772   varargs_vararg sym;
1773   mcMetaError_errorType t;
1774   unsigned char s[_s_high+1];
1775
1776   /* make a local copy of each unbounded array.  */
1777   memcpy (s, s_, _s_high+1);
1778
1779   e = static_cast<mcError_error> (NULL);
1780   sym = varargs_start1 ((const unsigned char *) s, _s_high);
1781   t = mcMetaError_newerror;
1782   str = doFormat (&e, &t, m, sym);
1783   e = doError (e, t, tok);
1784   mcError_errorString (e, str);
1785   varargs_end (&sym);
1786 }
1787
1788
1789 /*
1790    doFormat -
1791 */
1792
1793 extern "C" void mcMetaError_metaErrorStringT2 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high)
1794 {
1795   DynamicStrings_String str;
1796   mcError_error e;
1797   varargs_vararg sym;
1798   mcMetaError_errorType t;
1799   unsigned char s1[_s1_high+1];
1800   unsigned char s2[_s2_high+1];
1801
1802   /* make a local copy of each unbounded array.  */
1803   memcpy (s1, s1_, _s1_high+1);
1804   memcpy (s2, s2_, _s2_high+1);
1805
1806   e = static_cast<mcError_error> (NULL);
1807   sym = varargs_start2 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high);
1808   t = mcMetaError_newerror;
1809   str = doFormat (&e, &t, m, sym);
1810   e = doError (e, t, tok);
1811   mcError_errorString (e, str);
1812   varargs_end (&sym);
1813 }
1814
1815
1816 /*
1817    doFormat -
1818 */
1819
1820 extern "C" void mcMetaError_metaErrorStringT3 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high)
1821 {
1822   DynamicStrings_String str;
1823   mcError_error e;
1824   varargs_vararg sym;
1825   mcMetaError_errorType t;
1826   unsigned char s1[_s1_high+1];
1827   unsigned char s2[_s2_high+1];
1828   unsigned char s3[_s3_high+1];
1829
1830   /* make a local copy of each unbounded array.  */
1831   memcpy (s1, s1_, _s1_high+1);
1832   memcpy (s2, s2_, _s2_high+1);
1833   memcpy (s3, s3_, _s3_high+1);
1834
1835   e = static_cast<mcError_error> (NULL);
1836   sym = varargs_start3 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high);
1837   t = mcMetaError_newerror;
1838   str = doFormat (&e, &t, m, sym);
1839   e = doError (e, t, tok);
1840   mcError_errorString (e, str);
1841   varargs_end (&sym);
1842 }
1843
1844
1845 /*
1846    doFormat -
1847 */
1848
1849 extern "C" void mcMetaError_metaErrorStringT4 (unsigned int tok, DynamicStrings_String m, const unsigned char *s1_, unsigned int _s1_high, const unsigned char *s2_, unsigned int _s2_high, const unsigned char *s3_, unsigned int _s3_high, const unsigned char *s4_, unsigned int _s4_high)
1850 {
1851   DynamicStrings_String str;
1852   mcError_error e;
1853   varargs_vararg sym;
1854   mcMetaError_errorType t;
1855   unsigned char s1[_s1_high+1];
1856   unsigned char s2[_s2_high+1];
1857   unsigned char s3[_s3_high+1];
1858   unsigned char s4[_s4_high+1];
1859
1860   /* make a local copy of each unbounded array.  */
1861   memcpy (s1, s1_, _s1_high+1);
1862   memcpy (s2, s2_, _s2_high+1);
1863   memcpy (s3, s3_, _s3_high+1);
1864   memcpy (s4, s4_, _s4_high+1);
1865
1866   e = static_cast<mcError_error> (NULL);
1867   sym = varargs_start4 ((const unsigned char *) s1, _s1_high, (const unsigned char *) s2, _s2_high, (const unsigned char *) s3, _s3_high, (const unsigned char *) s4, _s4_high);
1868   t = mcMetaError_newerror;
1869   str = doFormat (&e, &t, m, sym);
1870   e = doError (e, t, tok);
1871   mcError_errorString (e, str);
1872   varargs_end (&sym);
1873 }
1874
1875 extern "C" void _M2_mcMetaError_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
1876 {
1877 }
1878
1879 extern "C" void _M2_mcMetaError_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
1880 {
1881 }