gcc/m2/mc-boot/Gmcp3.cc

   1 /* do not edit automatically generated by mc from mcp3.  */
   2 /* output from mc-3.bnf, automatically generated do not edit.
   3
   4 Copyright (C) 2015-2025 Free Software Foundation, Inc.
   5 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
   6
   7 This file is part of GNU Modula-2.
   8
   9 GNU Modula-2 is free software; you can redistribute it and/or modify
  10 it under the terms of the GNU General Public License as published by
  11 the Free Software Foundation; either version 3, or (at your option)
  12 any later version.
  13
  14 GNU Modula-2 is distributed in the hope that it will be useful, but
  15 WITHOUT ANY WARRANTY; without even the implied warranty of
  16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  17 General Public License for more details.
  18
  19 You should have received a copy of the GNU General Public License
  20 along with GNU Modula-2; see the file COPYING.  If not,
  21 see <https://www.gnu.org/licenses/>.  */
  22
  23 #include "config.h"
  24 #include "system.h"
  25 #include <stdbool.h>
  26 #   if !defined (PROC_D)
  27 #      define PROC_D
  28        typedef void (*PROC_t) (void);
  29        typedef struct { PROC_t proc; } PROC;
  30 #   endif
  31
  32 #   if !defined (TRUE)
  33 #      define TRUE (1==1)
  34 #   endif
  35
  36 #   if !defined (FALSE)
  37 #      define FALSE (1==0)
  38 #   endif
  39
  40 #if defined(__cplusplus)
  41 #   undef NULL
  42 #   define NULL 0
  43 #endif
  44 #define _mcp3_C
  45
  46 #include "Gmcp3.h"
  47 #   include "GDynamicStrings.h"
  48 #   include "GmcError.h"
  49 #   include "GnameKey.h"
  50 #   include "GmcPrintf.h"
  51 #   include "GmcDebug.h"
  52 #   include "GmcReserved.h"
  53 #   include "GmcMetaError.h"
  54 #   include "GmcStack.h"
  55 #   include "GmcLexBuf.h"
  56 #   include "Gdecl.h"
  57
  58 #   define Pass1 false
  59 #   define Debugging false
  60 typedef unsigned int mcp3_stop0;
  61
  62 typedef unsigned int mcp3_SetOfStop0;
  63
  64 typedef unsigned int mcp3_stop1;
  65
  66 typedef unsigned int mcp3_SetOfStop1;
  67
  68 typedef unsigned int mcp3_stop2;
  69
  70 typedef unsigned int mcp3_SetOfStop2;
  71
  72 static bool WasNoError;
  73 static bool curisused;
  74 static nameKey_Name curstring;
  75 static nameKey_Name curident;
  76 static decl_node curproc;
  77 static decl_node frommodule;
  78 static decl_node typeDes;
  79 static decl_node typeExp;
  80 static decl_node curmodule;
  81 static mcStack_stack stk;
  82
  83 /*
  84    CompilationUnit - returns TRUE if the input was correct enough to parse
  85                      in future passes.
  86 */
  87
  88 extern "C" bool mcp3_CompilationUnit (void);
  89
  90 /*
  91    push -
  92 */
  93
  94 static decl_node push (decl_node n);
  95
  96 /*
  97    pop -
  98 */
  99
 100 static decl_node pop (void);
 101
 102 /*
 103    replace -
 104 */
 105
 106 static decl_node replace (decl_node n);
 107
 108 /*
 109    peep - returns the top node on the stack without removing it.
 110 */
 111
 112 static decl_node peep (void);
 113
 114 /*
 115    depth - returns the depth of the stack.
 116 */
 117
 118 static unsigned int depth (void);
 119
 120 /*
 121    checkDuplicate -
 122 */
 123
 124 static void checkDuplicate (bool b);
 125
 126 /*
 127    checkDuplicate -
 128 */
 129
 130 static void ErrorString (DynamicStrings_String s);
 131
 132 /*
 133    checkDuplicate -
 134 */
 135
 136 static void ErrorArray (const char *a_, unsigned int _a_high);
 137
 138 /*
 139    checkParameterAttribute -
 140 */
 141
 142 static void checkParameterAttribute (void);
 143
 144 /*
 145    checkReturnAttribute -
 146 */
 147
 148 static void checkReturnAttribute (void);
 149
 150 /*
 151    pushNunbounded -
 152 */
 153
 154 static void pushNunbounded (unsigned int c);
 155
 156 /*
 157    makeIndexedArray - builds and returns an array of type, t, with, c, indices.
 158 */
 159
 160 static decl_node makeIndexedArray (unsigned int c, decl_node t);
 161
 162 /*
 163    importInto - from, m, import, name, into module, current.
 164                 It checks to see if curident is an enumeration type
 165                 and if so automatically includes all enumeration fields
 166                 as well.
 167 */
 168
 169 static void importInto (decl_node m, nameKey_Name name, decl_node current);
 170
 171 /*
 172    checkEndName - if module does not have, name, then issue an error containing, desc.
 173 */
 174
 175 static void checkEndName (decl_node module, nameKey_Name name, const char *desc_, unsigned int _desc_high);
 176
 177 /*
 178    DescribeStop - issues a message explaining what tokens were expected
 179 */
 180
 181 static DynamicStrings_String DescribeStop (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 182
 183 /*
 184    DescribeError - issues a message explaining what tokens were expected
 185 */
 186
 187 static void DescribeError (void);
 188
 189 /*
 190    SyntaxError - after a syntax error we skip all tokens up until we reach
 191                  a stop symbol.
 192 */
 193
 194 static void SyntaxError (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 195
 196 /*
 197    SyntaxCheck -
 198 */
 199
 200 static void SyntaxCheck (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 201
 202 /*
 203    WarnMissingToken - generates a warning message about a missing token, t.
 204 */
 205
 206 static void WarnMissingToken (mcReserved_toktype t);
 207
 208 /*
 209    MissingToken - generates a warning message about a missing token, t.
 210 */
 211
 212 static void MissingToken (mcReserved_toktype t);
 213
 214 /*
 215    CheckAndInsert -
 216 */
 217
 218 static bool CheckAndInsert (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 219
 220 /*
 221    InStopSet
 222 */
 223
 224 static bool InStopSet (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 225
 226 /*
 227    PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
 228                If it is not then it will insert a token providing the token
 229                is one of ; ] ) } . OF END ,
 230
 231                if the stopset contains <identtok> then we do not insert a token
 232 */
 233
 234 static void PeepToken (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 235
 236 /*
 237    Expect -
 238 */
 239
 240 static void Expect (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 241
 242 /*
 243    Ident - error checking varient of Ident
 244 */
 245
 246 static void Ident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 247
 248 /*
 249    string -
 250 */
 251
 252 static void string (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 253
 254 /*
 255    Integer -
 256 */
 257
 258 static void Integer (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 259
 260 /*
 261    Real -
 262 */
 263
 264 static void Real (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 265
 266 /*
 267    FileUnit := DefinitionModule  |
 268                ImplementationOrProgramModule
 269
 270    first  symbols:implementationtok, moduletok, definitiontok
 271
 272    cannot reachend
 273 */
 274
 275 static void FileUnit (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 276
 277 /*
 278    ProgramModule := 'MODULE' Ident
 279                     % curmodule := lookupModule (curident)  %
 280
 281                     % enterScope (curmodule)  %
 282
 283                     % resetEnumPos (curmodule)  %
 284                     [ Priority  ] ';' { Import  } Block
 285                     Ident
 286                     % checkEndName (curmodule, curident, 'program module')  %
 287
 288                     % setConstExpComplete (curmodule)  %
 289
 290                     % leaveScope  %
 291                     '.'
 292
 293    first  symbols:moduletok
 294
 295    cannot reachend
 296 */
 297
 298 static void ProgramModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 299
 300 /*
 301    ImplementationModule := 'IMPLEMENTATION' 'MODULE'
 302                            Ident
 303                            % curmodule := lookupImp (curident)  %
 304
 305                            % enterScope (lookupDef (curident))  %
 306
 307                            % enterScope (curmodule)  %
 308
 309                            % resetEnumPos (curmodule)  %
 310                            [ Priority  ] ';' { Import  }
 311                            Block Ident
 312                            % checkEndName (curmodule, curident, 'implementation module')  %
 313
 314                            % setConstExpComplete (curmodule)  %
 315
 316                            % leaveScope ; leaveScope  %
 317                            '.'
 318
 319    first  symbols:implementationtok
 320
 321    cannot reachend
 322 */
 323
 324 static void ImplementationModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 325
 326 /*
 327    ImplementationOrProgramModule := ImplementationModule  |
 328                                     ProgramModule
 329
 330    first  symbols:moduletok, implementationtok
 331
 332    cannot reachend
 333 */
 334
 335 static void ImplementationOrProgramModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 336
 337 /*
 338    Number := Integer  | Real
 339
 340    first  symbols:realtok, integertok
 341
 342    cannot reachend
 343 */
 344
 345 static void Number (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 346
 347 /*
 348    Qualident := Ident { '.' Ident  }
 349
 350    first  symbols:identtok
 351
 352    cannot reachend
 353 */
 354
 355 static void Qualident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 356
 357 /*
 358    ConstantDeclaration :=
 359                           % VAR d, e: node ;  %
 360                           Ident
 361                           % d := lookupSym (curident)  %
 362                           '=' ConstExpression
 363                           % e := pop ()  %
 364
 365                           % assert (isConst (d))  %
 366
 367                           % putConst (d, e)  %
 368
 369
 370    first  symbols:identtok
 371
 372    cannot reachend
 373 */
 374
 375 static void ConstantDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 376
 377 /*
 378    ConstExpressionNop := SimpleConstExpr
 379                          % VAR n: node ;  %
 380                          [ Relation SimpleConstExpr  ]
 381
 382                          % n := makeConstExp ()  %
 383
 384
 385    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
 386
 387    cannot reachend
 388 */
 389
 390 static void ConstExpressionNop (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 391
 392 /*
 393    ConstExpression :=
 394                       % VAR n: node ;  %
 395
 396                       % n := push (makeConstExp ())  %
 397                       SimpleConstExpr [ Relation SimpleConstExpr  ]
 398
 399    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
 400
 401    cannot reachend
 402 */
 403
 404 static void ConstExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 405
 406 /*
 407    Relation := '='  | '#'  | '<>'  | '<'  | '<='  |
 408                '>'  | '>='  | 'IN'
 409
 410    first  symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
 411
 412    cannot reachend
 413 */
 414
 415 static void Relation (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 416
 417 /*
 418    SimpleConstExpr := UnaryOrConstTerm { AddOperator
 419                                          ConstTerm  }
 420
 421    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 422
 423    cannot reachend
 424 */
 425
 426 static void SimpleConstExpr (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 427
 428 /*
 429    UnaryOrConstTerm := '+' ConstTerm  |
 430                        '-' ConstTerm  |
 431                        ConstTerm
 432
 433    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
 434
 435    cannot reachend
 436 */
 437
 438 static void UnaryOrConstTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 439
 440 /*
 441    AddOperator := '+'  | '-'  | 'OR'
 442
 443    first  symbols:ortok, minustok, plustok
 444
 445    cannot reachend
 446 */
 447
 448 static void AddOperator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 449
 450 /*
 451    ConstTerm := ConstFactor { MulOperator ConstFactor  }
 452
 453    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok
 454
 455    cannot reachend
 456 */
 457
 458 static void ConstTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 459
 460 /*
 461    MulOperator := '*'  | '/'  | 'DIV'  | 'MOD'  |
 462                   'REM'  | 'AND'  | '&'
 463
 464    first  symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
 465
 466    cannot reachend
 467 */
 468
 469 static void MulOperator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 470
 471 /*
 472    ConstFactor := Number  | ConstString  |
 473                   ConstSetOrQualidentOrFunction  |
 474                   '(' ConstExpressionNop ')'  |
 475                   'NOT' ConstFactor  |
 476                   ConstAttribute
 477
 478    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok
 479
 480    cannot reachend
 481 */
 482
 483 static void ConstFactor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 484
 485 /*
 486    ConstString := string
 487
 488    first  symbols:stringtok
 489
 490    cannot reachend
 491 */
 492
 493 static void ConstString (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 494
 495 /*
 496    ComponentElement := ConstExpressionNop [ '..' ConstExpressionNop  ]
 497
 498    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 499
 500    cannot reachend
 501 */
 502
 503 static void ComponentElement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 504
 505 /*
 506    ComponentValue := ComponentElement [ 'BY' ConstExpressionNop  ]
 507
 508    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
 509
 510    cannot reachend
 511 */
 512
 513 static void ComponentValue (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 514
 515 /*
 516    ArraySetRecordValue := ComponentValue { ',' ComponentValue  }
 517
 518    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 519
 520    cannot reachend
 521 */
 522
 523 static void ArraySetRecordValue (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 524
 525 /*
 526    Constructor := '{' [ ArraySetRecordValue  ] '}'
 527
 528    first  symbols:lcbratok
 529
 530    cannot reachend
 531 */
 532
 533 static void Constructor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 534
 535 /*
 536    ConstSetOrQualidentOrFunction := Qualident [ Constructor  |
 537                                                 ConstActualParameters  ]  |
 538                                     Constructor
 539
 540    first  symbols:lcbratok, identtok
 541
 542    cannot reachend
 543 */
 544
 545 static void ConstSetOrQualidentOrFunction (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 546
 547 /*
 548    ConstActualParameters := '(' [ ConstExpList  ] ')'
 549
 550    first  symbols:lparatok
 551
 552    cannot reachend
 553 */
 554
 555 static void ConstActualParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 556
 557 /*
 558    ConstExpList := ConstExpressionNop { ',' ConstExpressionNop  }
 559
 560    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 561
 562    cannot reachend
 563 */
 564
 565 static void ConstExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 566
 567 /*
 568    ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
 569                      '(' '(' ConstAttributeExpression
 570                      ')' ')'
 571
 572    first  symbols:attributetok
 573
 574    cannot reachend
 575 */
 576
 577 static void ConstAttribute (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 578
 579 /*
 580    ConstAttributeExpression := Ident  | '<' Qualident
 581                                ',' Ident '>'
 582
 583    first  symbols:lesstok, identtok
 584
 585    cannot reachend
 586 */
 587
 588 static void ConstAttributeExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 589
 590 /*
 591    ByteAlignment := ''
 592
 593    first  symbols:ldirectivetok
 594
 595    cannot reachend
 596 */
 597
 598 static void ByteAlignment (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 599
 600 /*
 601    OptAlignmentExpression := [ AlignmentExpression  ]
 602
 603    first  symbols:lparatok
 604
 605    reachend
 606 */
 607
 608 static void OptAlignmentExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 609
 610 /*
 611    AlignmentExpression := '(' ConstExpressionNop ')'
 612
 613    first  symbols:lparatok
 614
 615    cannot reachend
 616 */
 617
 618 static void AlignmentExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 619
 620 /*
 621    Alignment := [ ByteAlignment  ]
 622
 623    first  symbols:ldirectivetok
 624
 625    reachend
 626 */
 627
 628 static void Alignment (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 629
 630 /*
 631    IdentList := Ident { ',' Ident  }
 632
 633    first  symbols:identtok
 634
 635    cannot reachend
 636 */
 637
 638 static void IdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 639
 640 /*
 641    PushIdentList :=
 642                     % VAR n: node ;  %
 643
 644                     % n := makeIdentList ()  %
 645                     Ident
 646                     % checkDuplicate (putIdent (n, curident))  %
 647                     { ',' Ident
 648                       % checkDuplicate (putIdent (n, curident))  %
 649                        }
 650                     % n := push (n)  %
 651
 652
 653    first  symbols:identtok
 654
 655    cannot reachend
 656 */
 657
 658 static void PushIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 659
 660 /*
 661    SubrangeType :=
 662                    % VAR low, high: node ; d: CARDINAL ;  %
 663                    '['
 664                    % d := depth ()  %
 665                    ConstExpression
 666                    % low := pop ()  %
 667
 668                    % assert (d = depth ())  %
 669                    '..' ConstExpression
 670                    % high := pop ()  %
 671
 672                    % assert (d = depth ())  %
 673
 674                    % typeExp := push (makeSubrange (low, high))  %
 675
 676                    % assert (d = depth () - 1)  %
 677                    ']'
 678
 679    first  symbols:lsbratok
 680
 681    cannot reachend
 682 */
 683
 684 static void SubrangeType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 685
 686 /*
 687    ArrayType := 'ARRAY'
 688                 % VAR c: CARDINAL ; t, n: node ;  %
 689
 690                 % c := 0  %
 691                 SimpleType
 692                 % INC (c)  %
 693                 { ',' SimpleType
 694                   % INC (c)  %
 695                    } 'OF' Type
 696                 % n := push (makeIndexedArray (c, pop ()))  %
 697
 698
 699    first  symbols:arraytok
 700
 701    cannot reachend
 702 */
 703
 704 static void ArrayType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 705
 706 /*
 707    RecordType := 'RECORD'
 708                  % VAR n: node ;  %
 709
 710                  % n := push (makeRecord ())  %
 711
 712                  % n := push (NIL)     no varient   %
 713                  [ DefaultRecordAttributes  ] FieldListSequence
 714
 715                  % assert (pop ()=NIL)  %
 716                  'END'
 717
 718    first  symbols:recordtok
 719
 720    cannot reachend
 721 */
 722
 723 static void RecordType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 724
 725 /*
 726    DefaultRecordAttributes := ''
 727
 728    first  symbols:ldirectivetok
 729
 730    cannot reachend
 731 */
 732
 733 static void DefaultRecordAttributes (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 734
 735 /*
 736    RecordFieldPragma := [ ''  ]
 737
 738    first  symbols:ldirectivetok
 739
 740    reachend
 741 */
 742
 743 static void RecordFieldPragma (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 744
 745 /*
 746    FieldPragmaExpression := Ident PragmaConstExpression
 747
 748    first  symbols:identtok
 749
 750    cannot reachend
 751 */
 752
 753 static void FieldPragmaExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 754
 755 /*
 756    PragmaConstExpression := [ '(' ConstExpressionNop
 757                               ')'  ]
 758
 759    first  symbols:lparatok
 760
 761    reachend
 762 */
 763
 764 static void PragmaConstExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 765
 766 /*
 767    AttributeExpression := Ident '(' ConstExpressionNop
 768                           ')'
 769
 770    first  symbols:identtok
 771
 772    cannot reachend
 773 */
 774
 775 static void AttributeExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 776
 777 /*
 778    FieldListSequence := FieldListStatement { ';' FieldListStatement  }
 779
 780    first  symbols:casetok, identtok, semicolontok
 781
 782    reachend
 783 */
 784
 785 static void FieldListSequence (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 786
 787 /*
 788    FieldListStatement := [ FieldList  ]
 789
 790    first  symbols:identtok, casetok
 791
 792    reachend
 793 */
 794
 795 static void FieldListStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 796
 797 /*
 798    FieldList :=
 799                 % VAR r, i, f, t, n, v, w: node ; d: CARDINAL ;  %
 800
 801                 % d := depth ()  %
 802
 803                 % v := pop () ; assert ((v=NIL) OR isVarient (v))  %
 804
 805                 % r := peep () ; assert (isRecord (r) OR isVarientField (r))  %
 806
 807                 % v := push (v)  %
 808
 809                 % assert (d=depth ())  %
 810
 811                 % assert (((v=NIL) AND isRecord (r)) OR ((v#NIL) AND isVarientField (r)))  %
 812                 PushIdentList ':'
 813                 % assert (d=depth () - 1)  %
 814
 815                 % i := pop ()  %
 816                 Type
 817                 % assert (d=depth () - 1)  %
 818
 819                 % t := pop ()  %
 820                 RecordFieldPragma
 821                 % assert (d=depth ())  %
 822
 823                 % r := addFieldsToRecord (r, v, i, t)  %
 824
 825                 % assert (d=depth ())  %
 826                  |
 827                 'CASE'
 828                 %  addRecordToList   %
 829
 830                 % d := depth ()  %
 831
 832                 % v := pop () ; assert ((v=NIL) OR isVarient (v))  %
 833
 834                 % r := peep () ; assert (isRecord (r) OR isVarientField (r))  %
 835
 836                 % v := push (v)  %
 837
 838                 % assert (((v=NIL) AND isRecord (r)) OR ((v#NIL) AND isRecordField (r)))  %
 839
 840                 % w := push (makeVarient (r))  %
 841
 842                 % assert (d = depth () - 1)  %
 843
 844                 %  addVarientToList   %
 845                 CaseTag 'OF'
 846                 % assert (d = depth () - 1)  %
 847                 Varient
 848                 % assert (d = depth () - 1)  %
 849                 { '|' Varient
 850                   % assert (d = depth () - 1)  %
 851                    }
 852                 % w := peep () ; assert (isVarient (w))  %
 853
 854                 % assert (d = depth () - 1)  %
 855                 [ 'ELSE' FieldListSequence  ] 'END'
 856
 857                 % w := pop () ; assert (isVarient (w))  %
 858
 859                 % assert (d=depth ())  %
 860
 861
 862    first  symbols:casetok, identtok
 863
 864    cannot reachend
 865 */
 866
 867 static void FieldList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 868
 869 /*
 870    TagIdent := Ident  |
 871                % curident := NulName  %
 872
 873
 874    first  symbols:identtok
 875
 876    reachend
 877 */
 878
 879 static void TagIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 880
 881 /*
 882    CaseTag :=
 883               % VAR tagident: Name ; q, v, w, r: node ;  %
 884
 885               % w := pop () ; v := pop () ; r := peep () ; v := push (v) ; w := push (w)  %
 886
 887               % assert (isVarient (w))  %
 888
 889               % assert ((v=NIL) OR isVarient (v))  %
 890
 891               % assert (isRecord (r) OR isVarientField (r))  %
 892
 893               % assert (isVarient (push (pop ())))  %
 894               TagIdent
 895               % tagident := curident  %
 896               ( ':' PushQualident
 897                 % q := pop ()  %
 898
 899                 % assert (isVarient (push (pop ())))  %
 900                  |
 901                 % q := NIL  %
 902                  )
 903               % buildVarientSelector (r, w, tagident, q)  %
 904
 905
 906    first  symbols:colontok, identtok
 907
 908    reachend
 909 */
 910
 911 static void CaseTag (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 912
 913 /*
 914    Varient :=
 915               % VAR p, r, v, f: node ; d: CARDINAL ;  %
 916
 917               % d := depth ()  %
 918
 919               % assert (isVarient (peep ()))  %
 920               [
 921                 % v := pop () ; assert (isVarient (v))  %
 922
 923                 % r := pop ()  %
 924
 925                 % p := peep ()  %
 926
 927                 % r := push (r)  %
 928
 929                 % f := push (buildVarientFieldRecord (v, p))  %
 930
 931                 % v := push (v)  %
 932                 VarientCaseLabelList ':' FieldListSequence
 933
 934                 % v := pop ()  %
 935
 936                 % f := pop ()  %
 937
 938                 % assert (isVarientField (f))  %
 939
 940                 % assert (isVarient (v))  %
 941
 942                 % v := push (v)  %
 943                  ]
 944               % assert (isVarient (peep ()))  %
 945
 946               % assert (d=depth ())  %
 947
 948
 949    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 950
 951    reachend
 952 */
 953
 954 static void Varient (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 955
 956 /*
 957    VarientCaseLabelList := VarientCaseLabels { ','
 958                                                VarientCaseLabels  }
 959
 960    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
 961
 962    cannot reachend
 963 */
 964
 965 static void VarientCaseLabelList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 966
 967 /*
 968    VarientCaseLabels :=
 969                         % VAR l, h: node ;  %
 970
 971                         % h := NIL  %
 972                         ConstExpression
 973                         % l := pop ()  %
 974                         [ '..' ConstExpression
 975                           % h := pop ()  %
 976                            ]
 977                         %  l, h  could be saved if necessary.    %
 978
 979
 980    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
 981
 982    cannot reachend
 983 */
 984
 985 static void VarientCaseLabels (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
 986
 987 /*
 988    SetType := ( 'SET'  | 'PACKEDSET'  ) 'OF' SimpleType
 989
 990               % VAR n: node ;  %
 991
 992               % n := push (makeSet (pop ()))  %
 993
 994
 995    first  symbols:oftok, packedsettok, settok
 996
 997    cannot reachend
 998 */
 999
1000 static void SetType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1001
1002 /*
1003    PointerType := 'POINTER' 'TO' Type
1004                   % VAR n: node ;  %
1005
1006                   % n := push (makePointer (pop ()))  %
1007
1008
1009    first  symbols:pointertok
1010
1011    cannot reachend
1012 */
1013
1014 static void PointerType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1015
1016 /*
1017    ProcedureType := 'PROCEDURE'
1018                     % curproc := push (makeProcType ())  %
1019                     [ FormalTypeList  ]
1020
1021    first  symbols:proceduretok
1022
1023    cannot reachend
1024 */
1025
1026 static void ProcedureType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1027
1028 /*
1029    FormalTypeList := '(' ( ')' FormalReturn  |
1030                            ProcedureParameters ')'
1031                            FormalReturn  )
1032
1033    first  symbols:lparatok
1034
1035    cannot reachend
1036 */
1037
1038 static void FormalTypeList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1039
1040 /*
1041    FormalReturn := [ ':' OptReturnType  ]
1042
1043    first  symbols:colontok
1044
1045    reachend
1046 */
1047
1048 static void FormalReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1049
1050 /*
1051    OptReturnType := '[' PushQualident
1052                     % putReturnType (curproc, pop ())  %
1053
1054                     % putOptReturn (curproc)  %
1055                     ']'  | PushQualident
1056                     % putReturnType (curproc, pop ())  %
1057
1058
1059    first  symbols:identtok, lsbratok
1060
1061    cannot reachend
1062 */
1063
1064 static void OptReturnType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1065
1066 /*
1067    ProcedureParameters := ProcedureParameter
1068                           % addParameter (curproc, pop ())  %
1069                           { ',' ProcedureParameter
1070
1071                             % addParameter (curproc, pop ())  %
1072                              }
1073
1074    first  symbols:identtok, arraytok, periodperiodperiodtok, vartok
1075
1076    cannot reachend
1077 */
1078
1079 static void ProcedureParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1080
1081 /*
1082    ProcedureParameter := '...'
1083                          % VAR n: node ;  %
1084
1085                          % n := push (makeVarargs ())  %
1086                           | 'VAR' FormalType
1087                          % n := push (makeVarParameter (NIL, pop (), curproc, TRUE))  %
1088                           | FormalType
1089                          % n := push (makeNonVarParameter (NIL, pop (), curproc, TRUE))  %
1090
1091
1092    first  symbols:identtok, arraytok, vartok, periodperiodperiodtok
1093
1094    cannot reachend
1095 */
1096
1097 static void ProcedureParameter (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1098
1099 /*
1100    VarIdent :=
1101                % VAR n, a: node ;  %
1102
1103                % n := pop ()  %
1104                Ident
1105                % checkDuplicate (putIdent (n, curident))  %
1106
1107                % n := push (n)  %
1108                [ '[' ConstExpression
1109                  % a := pop ()   could store, a, into, n.    %
1110                  ']'  ]
1111
1112    first  symbols:identtok
1113
1114    cannot reachend
1115 */
1116
1117 static void VarIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1118
1119 /*
1120    VarIdentList :=
1121                    % VAR n: node ;  %
1122
1123                    % n := makeIdentList ()  %
1124
1125                    % n := push (n)  %
1126                    VarIdent { ',' VarIdent  }
1127
1128    first  symbols:identtok
1129
1130    cannot reachend
1131 */
1132
1133 static void VarIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1134
1135 /*
1136    VariableDeclaration :=
1137                           % VAR v, d: node ;  %
1138                           VarIdentList
1139                           % v := pop ()  %
1140                           ':' Type
1141                           % d := makeVarDecl (v, pop ())  %
1142                           Alignment
1143
1144    first  symbols:identtok
1145
1146    cannot reachend
1147 */
1148
1149 static void VariableDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1150
1151 /*
1152    Designator := Qualident { SubDesignator  }
1153
1154    first  symbols:identtok
1155
1156    cannot reachend
1157 */
1158
1159 static void Designator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1160
1161 /*
1162    SubDesignator := '.' Ident  | '[' ArrayExpList ']'  |
1163                     '^'
1164
1165    first  symbols:uparrowtok, lsbratok, periodtok
1166
1167    cannot reachend
1168 */
1169
1170 static void SubDesignator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1171
1172 /*
1173    ArrayExpList := Expression { ',' Expression  }
1174
1175    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1176
1177    cannot reachend
1178 */
1179
1180 static void ArrayExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1181
1182 /*
1183    ExpList := Expression { ',' Expression  }
1184
1185    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1186
1187    cannot reachend
1188 */
1189
1190 static void ExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1191
1192 /*
1193    Expression := SimpleExpression [ Relation SimpleExpression  ]
1194
1195    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1196
1197    cannot reachend
1198 */
1199
1200 static void Expression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1201
1202 /*
1203    SimpleExpression := UnaryOrTerm { AddOperator Term  }
1204
1205    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
1206
1207    cannot reachend
1208 */
1209
1210 static void SimpleExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1211
1212 /*
1213    UnaryOrTerm := '+' Term  | '-' Term  |
1214                   Term
1215
1216    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
1217
1218    cannot reachend
1219 */
1220
1221 static void UnaryOrTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1222
1223 /*
1224    Term := Factor { MulOperator Factor  }
1225
1226    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
1227
1228    cannot reachend
1229 */
1230
1231 static void Term (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1232
1233 /*
1234    Factor := Number  | string  | SetOrDesignatorOrFunction  |
1235              '(' Expression ')'  |
1236              'NOT' ( Factor  | ConstAttribute  )
1237
1238    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
1239
1240    cannot reachend
1241 */
1242
1243 static void Factor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1244
1245 /*
1246    SetOrDesignatorOrFunction := Qualident [ Constructor  |
1247                                             SimpleDes
1248                                             [ ActualParameters  ]  ]  |
1249                                 Constructor
1250
1251    first  symbols:lcbratok, identtok
1252
1253    cannot reachend
1254 */
1255
1256 static void SetOrDesignatorOrFunction (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1257
1258 /*
1259    SimpleDes := { SubDesignator  }
1260
1261    first  symbols:periodtok, lsbratok, uparrowtok
1262
1263    reachend
1264 */
1265
1266 static void SimpleDes (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1267
1268 /*
1269    ActualParameters := '(' [ ExpList  ] ')'
1270
1271    first  symbols:lparatok
1272
1273    cannot reachend
1274 */
1275
1276 static void ActualParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1277
1278 /*
1279    ExitStatement := 'EXIT'
1280
1281    first  symbols:exittok
1282
1283    cannot reachend
1284 */
1285
1286 static void ExitStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1287
1288 /*
1289    ReturnStatement := 'RETURN' [ Expression  ]
1290
1291    first  symbols:returntok
1292
1293    cannot reachend
1294 */
1295
1296 static void ReturnStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1297
1298 /*
1299    Statement := [ AssignmentOrProcedureCall  |
1300                   IfStatement  | CaseStatement  |
1301                   WhileStatement  |
1302                   RepeatStatement  |
1303                   LoopStatement  | ForStatement  |
1304                   WithStatement  | AsmStatement  |
1305                   ExitStatement  | ReturnStatement  |
1306                   RetryStatement  ]
1307
1308    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
1309
1310    reachend
1311 */
1312
1313 static void Statement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1314
1315 /*
1316    RetryStatement := 'RETRY'
1317
1318    first  symbols:retrytok
1319
1320    cannot reachend
1321 */
1322
1323 static void RetryStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1324
1325 /*
1326    AssignmentOrProcedureCall := Designator ( ':=' Expression  |
1327                                              ActualParameters  |
1328
1329                                              %  epsilon   %
1330                                               )
1331
1332    first  symbols:identtok
1333
1334    cannot reachend
1335 */
1336
1337 static void AssignmentOrProcedureCall (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1338
1339 /*
1340    StatementSequence := Statement { ';' Statement  }
1341
1342    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
1343
1344    reachend
1345 */
1346
1347 static void StatementSequence (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1348
1349 /*
1350    IfStatement := 'IF' Expression 'THEN' StatementSequence
1351                   { 'ELSIF' Expression 'THEN' StatementSequence  }
1352                   [ 'ELSE' StatementSequence  ] 'END'
1353
1354    first  symbols:iftok
1355
1356    cannot reachend
1357 */
1358
1359 static void IfStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1360
1361 /*
1362    CaseStatement := 'CASE' Expression 'OF' Case { '|'
1363                                                   Case  }
1364                     CaseEndStatement
1365
1366    first  symbols:casetok
1367
1368    cannot reachend
1369 */
1370
1371 static void CaseStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1372
1373 /*
1374    CaseEndStatement := 'END'  | 'ELSE' StatementSequence
1375                        'END'
1376
1377    first  symbols:elsetok, endtok
1378
1379    cannot reachend
1380 */
1381
1382 static void CaseEndStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1383
1384 /*
1385    Case := [ CaseLabelList ':' StatementSequence  ]
1386
1387    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1388
1389    reachend
1390 */
1391
1392 static void Case (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1393
1394 /*
1395    CaseLabelList := CaseLabels { ',' CaseLabels  }
1396
1397    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
1398
1399    cannot reachend
1400 */
1401
1402 static void CaseLabelList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1403
1404 /*
1405    CaseLabels := ConstExpressionNop [ '..' ConstExpressionNop  ]
1406
1407    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
1408
1409    cannot reachend
1410 */
1411
1412 static void CaseLabels (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1413
1414 /*
1415    WhileStatement := 'WHILE' Expression 'DO' StatementSequence
1416                      'END'
1417
1418    first  symbols:whiletok
1419
1420    cannot reachend
1421 */
1422
1423 static void WhileStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1424
1425 /*
1426    RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
1427                       Expression
1428
1429    first  symbols:repeattok
1430
1431    cannot reachend
1432 */
1433
1434 static void RepeatStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1435
1436 /*
1437    ForStatement := 'FOR' Ident ':=' Expression 'TO'
1438                    Expression [ 'BY' ConstExpressionNop  ]
1439                    'DO' StatementSequence 'END'
1440
1441    first  symbols:fortok
1442
1443    cannot reachend
1444 */
1445
1446 static void ForStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1447
1448 /*
1449    LoopStatement := 'LOOP' StatementSequence 'END'
1450
1451    first  symbols:looptok
1452
1453    cannot reachend
1454 */
1455
1456 static void LoopStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1457
1458 /*
1459    WithStatement := 'WITH' Designator 'DO' StatementSequence
1460                     'END'
1461
1462    first  symbols:withtok
1463
1464    cannot reachend
1465 */
1466
1467 static void WithStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1468
1469 /*
1470    ProcedureDeclaration := ProcedureHeading ';' ProcedureBlock
1471                            Ident
1472                            % leaveScope  %
1473
1474
1475    first  symbols:proceduretok
1476
1477    cannot reachend
1478 */
1479
1480 static void ProcedureDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1481
1482 /*
1483    ProcedureIdent := Ident
1484                      % curproc := lookupSym (curident)  %
1485
1486                      % enterScope (curproc)  %
1487
1488
1489    first  symbols:identtok
1490
1491    cannot reachend
1492 */
1493
1494 static void ProcedureIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1495
1496 /*
1497    DefProcedureIdent := Ident
1498                         % curproc := lookupSym (curident)  %
1499
1500
1501    first  symbols:identtok
1502
1503    cannot reachend
1504 */
1505
1506 static void DefProcedureIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1507
1508 /*
1509    DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
1510                                '(' '(' Ident ')' ')'  |
1511                                '__INLINE__'  ]
1512
1513    first  symbols:inlinetok, attributetok
1514
1515    reachend
1516 */
1517
1518 static void DefineBuiltinProcedure (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1519
1520 /*
1521    ProcedureHeading := 'PROCEDURE' DefineBuiltinProcedure
1522                        ( ProcedureIdent [ FormalParameters  ]
1523                          AttributeNoReturn  )
1524
1525    first  symbols:proceduretok
1526
1527    cannot reachend
1528 */
1529
1530 static void ProcedureHeading (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1531
1532 /*
1533    Builtin := [ '__BUILTIN__'  | '__INLINE__'  ]
1534
1535    first  symbols:inlinetok, builtintok
1536
1537    reachend
1538 */
1539
1540 static void Builtin (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1541
1542 /*
1543    DefProcedureHeading := 'PROCEDURE' Builtin ( DefProcedureIdent
1544                                                 [ DefFormalParameters  ]
1545                                                 AttributeNoReturn  )
1546
1547    first  symbols:proceduretok
1548
1549    cannot reachend
1550 */
1551
1552 static void DefProcedureHeading (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1553
1554 /*
1555    ProcedureBlock := { Declaration  } [ 'BEGIN' ProcedureBlockBody  ]
1556                      'END'
1557
1558    first  symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
1559
1560    cannot reachend
1561 */
1562
1563 static void ProcedureBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1564
1565 /*
1566    Block := { Declaration  } InitialBlock FinalBlock
1567             'END'
1568
1569    first  symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
1570
1571    cannot reachend
1572 */
1573
1574 static void Block (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1575
1576 /*
1577    InitialBlock := [ 'BEGIN' InitialBlockBody  ]
1578
1579    first  symbols:begintok
1580
1581    reachend
1582 */
1583
1584 static void InitialBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1585
1586 /*
1587    FinalBlock := [ 'FINALLY' FinalBlockBody  ]
1588
1589    first  symbols:finallytok
1590
1591    reachend
1592 */
1593
1594 static void FinalBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1595
1596 /*
1597    InitialBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
1598
1599    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
1600
1601    reachend
1602 */
1603
1604 static void InitialBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1605
1606 /*
1607    FinalBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
1608
1609    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
1610
1611    reachend
1612 */
1613
1614 static void FinalBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1615
1616 /*
1617    ProcedureBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
1618
1619    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
1620
1621    reachend
1622 */
1623
1624 static void ProcedureBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1625
1626 /*
1627    NormalPart := StatementSequence
1628
1629    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
1630
1631    reachend
1632 */
1633
1634 static void NormalPart (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1635
1636 /*
1637    ExceptionalPart := StatementSequence
1638
1639    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
1640
1641    reachend
1642 */
1643
1644 static void ExceptionalPart (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1645
1646 /*
1647    Declaration := 'CONST' { ConstantDeclaration ';'  }  |
1648                   'TYPE' { TypeDeclaration  }  |
1649                   'VAR' { VariableDeclaration ';'  }  |
1650                   ProcedureDeclaration ';'  |
1651                   ModuleDeclaration ';'
1652
1653    first  symbols:moduletok, proceduretok, vartok, typetok, consttok
1654
1655    cannot reachend
1656 */
1657
1658 static void Declaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1659
1660 /*
1661    DefFormalParameters := '('
1662                           % paramEnter (curproc)  %
1663                           [ DefMultiFPSection  ] ')'
1664
1665                           % paramLeave (curproc)  %
1666                           FormalReturn
1667
1668    first  symbols:lparatok
1669
1670    cannot reachend
1671 */
1672
1673 static void DefFormalParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1674
1675 /*
1676    DefMultiFPSection := DefExtendedFP  |
1677                         FPSection [ ';' DefMultiFPSection  ]
1678
1679    first  symbols:identtok, vartok, lsbratok, periodperiodperiodtok
1680
1681    cannot reachend
1682 */
1683
1684 static void DefMultiFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1685
1686 /*
1687    FormalParameters := '('
1688                        % paramEnter (curproc)  %
1689                        [ MultiFPSection  ] ')'
1690                        % paramLeave (curproc)  %
1691                        FormalReturn
1692
1693    first  symbols:lparatok
1694
1695    cannot reachend
1696 */
1697
1698 static void FormalParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1699
1700 /*
1701    AttributeNoReturn := [ NoReturn  |
1702                           % setNoReturn (curproc, FALSE)  %
1703                            ]
1704
1705    first  symbols:ldirectivetok
1706
1707    reachend
1708 */
1709
1710 static void AttributeNoReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1711
1712 /*
1713    NoReturn := ''
1714
1715    first  symbols:ldirectivetok
1716
1717    cannot reachend
1718 */
1719
1720 static void NoReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1721
1722 /*
1723    AttributeUnused := [ Unused  ]
1724
1725    first  symbols:ldirectivetok
1726
1727    reachend
1728 */
1729
1730 static void AttributeUnused (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1731
1732 /*
1733    Unused := ''
1734
1735    first  symbols:ldirectivetok
1736
1737    cannot reachend
1738 */
1739
1740 static void Unused (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1741
1742 /*
1743    MultiFPSection := ExtendedFP  | FPSection [ ';'
1744                                                MultiFPSection  ]
1745
1746    first  symbols:identtok, vartok, lsbratok, periodperiodperiodtok
1747
1748    cannot reachend
1749 */
1750
1751 static void MultiFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1752
1753 /*
1754    FPSection := NonVarFPSection  |
1755                 VarFPSection
1756
1757    first  symbols:vartok, identtok
1758
1759    cannot reachend
1760 */
1761
1762 static void FPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1763
1764 /*
1765    DefExtendedFP := DefOptArg  | '...'
1766                     % addParameter (curproc, makeVarargs ())  %
1767
1768
1769    first  symbols:lsbratok, periodperiodperiodtok
1770
1771    cannot reachend
1772 */
1773
1774 static void DefExtendedFP (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1775
1776 /*
1777    ExtendedFP := OptArg  | '...'
1778
1779    first  symbols:lsbratok, periodperiodperiodtok
1780
1781    cannot reachend
1782 */
1783
1784 static void ExtendedFP (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1785
1786 /*
1787    VarFPSection := 'VAR' PushIdentList
1788                    % VAR l, t: node ;  %
1789                    ':' FormalType
1790                    % t := pop ()  %
1791
1792                    % l := pop ()  %
1793
1794                    % curisused := TRUE  %
1795                    [ AttributeUnused  ]
1796                    % addVarParameters (curproc, l, t, curisused)  %
1797
1798
1799    first  symbols:vartok
1800
1801    cannot reachend
1802 */
1803
1804 static void VarFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1805
1806 /*
1807    NonVarFPSection := PushIdentList
1808                       % VAR l, t: node ;  %
1809                       ':' FormalType
1810                       % t := pop ()  %
1811
1812                       % l := pop ()  %
1813
1814                       % curisused := TRUE  %
1815                       [ AttributeUnused  ]
1816                       % addNonVarParameters (curproc, l, t, curisused)  %
1817
1818
1819    first  symbols:identtok
1820
1821    cannot reachend
1822 */
1823
1824 static void NonVarFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1825
1826 /*
1827    OptArg :=
1828              % VAR p, init, type: node ; id: Name ;  %
1829              '[' Ident
1830              % id := curident  %
1831              ':' FormalType
1832              % type := pop ()  %
1833
1834              % init := NIL  %
1835              [ '=' ConstExpression
1836                % init := pop ()  %
1837                 ] ']'
1838              % p := addOptParameter (curproc, id, type, init)  %
1839
1840
1841    first  symbols:lsbratok
1842
1843    cannot reachend
1844 */
1845
1846 static void OptArg (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1847
1848 /*
1849    DefOptArg :=
1850                 % VAR p, init, type: node ; id: Name ;  %
1851                 '[' Ident
1852                 % id := curident  %
1853                 ':' FormalType
1854                 % type := pop ()  %
1855                 '=' ConstExpression
1856                 % init := pop ()  %
1857                 ']'
1858                 % p := addOptParameter (curproc, id, type, init)  %
1859
1860
1861    first  symbols:lsbratok
1862
1863    cannot reachend
1864 */
1865
1866 static void DefOptArg (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1867
1868 /*
1869    FormalType :=
1870                  % VAR c: CARDINAL ;  %
1871
1872                  % VAR n, a, s: node ;  %
1873
1874                  % c := 0  %
1875                  { 'ARRAY' 'OF'
1876                    % INC (c)  %
1877                     } PushQualident
1878                  % pushNunbounded (c)  %
1879
1880
1881    first  symbols:identtok, arraytok
1882
1883    cannot reachend
1884 */
1885
1886 static void FormalType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1887
1888 /*
1889    ModuleDeclaration := 'MODULE' Ident [ Priority  ]
1890                         ';' { Import  } [ Export  ]
1891                         Block Ident
1892
1893    first  symbols:moduletok
1894
1895    cannot reachend
1896 */
1897
1898 static void ModuleDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1899
1900 /*
1901    Priority := '[' ConstExpressionNop ']'
1902
1903    first  symbols:lsbratok
1904
1905    cannot reachend
1906 */
1907
1908 static void Priority (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1909
1910 /*
1911    Export := 'EXPORT' ( 'QUALIFIED' IdentList  |
1912                         'UNQUALIFIED' IdentList  |
1913                         IdentList  ) ';'
1914
1915    first  symbols:exporttok
1916
1917    cannot reachend
1918 */
1919
1920 static void Export (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1921
1922 /*
1923    FromIdentList := Ident
1924                     % importInto (frommodule, curident, curmodule)  %
1925                     { ',' Ident
1926                       % importInto (frommodule, curident, curmodule)  %
1927                        }
1928
1929    first  symbols:identtok
1930
1931    cannot reachend
1932 */
1933
1934 static void FromIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1935
1936 /*
1937    FromImport := 'FROM' Ident
1938                  % frommodule := lookupDef (curident)  %
1939                  'IMPORT' FromIdentList ';'
1940
1941    first  symbols:fromtok
1942
1943    cannot reachend
1944 */
1945
1946 static void FromImport (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1947
1948 /*
1949    ImportModuleList := Ident { ',' Ident  }
1950
1951    first  symbols:identtok
1952
1953    cannot reachend
1954 */
1955
1956 static void ImportModuleList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1957
1958 /*
1959    WithoutFromImport := 'IMPORT' ImportModuleList ';'
1960
1961    first  symbols:importtok
1962
1963    cannot reachend
1964 */
1965
1966 static void WithoutFromImport (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1967
1968 /*
1969    Import := FromImport  | WithoutFromImport
1970
1971    first  symbols:importtok, fromtok
1972
1973    cannot reachend
1974 */
1975
1976 static void Import (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
1977
1978 /*
1979    DefinitionModule := 'DEFINITION' 'MODULE' [ 'FOR'
1980                                                string  ]
1981                        Ident ';'
1982                        % curmodule := lookupDef (curident)  %
1983
1984                        % enterScope (curmodule)  %
1985
1986                        % resetEnumPos (curmodule)  %
1987                        { Import  } [ Export  ] { Definition  }
1988                        'END' Ident '.'
1989                        % checkEndName (curmodule, curident, 'definition module')  %
1990
1991                        % setConstExpComplete (curmodule)  %
1992
1993                        % leaveScope  %
1994
1995
1996    first  symbols:definitiontok
1997
1998    cannot reachend
1999 */
2000
2001 static void DefinitionModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2002
2003 /*
2004    PushQualident := Ident
2005                     % typeExp := push (lookupSym (curident))  %
2006
2007                     % IF typeExp = NIL
2008                                     THEN
2009                                        metaError1 ('the symbol {%1k} is not visible in this scope (or any other nested scope)', curident)
2010                                     END  %
2011                     [ '.'
2012                       % IF NOT isDef (typeExp)
2013                                       THEN
2014                                                                                                     ErrorArray ('the first component of this qualident must be a definition module')
2015                                       END  %
2016                       Ident
2017                       % typeExp := replace (lookupInScope (typeExp, curident)) ;
2018                                                                                                  IF typeExp=NIL
2019                                       THEN
2020                                          ErrorArray ('identifier not found in definition module')
2021                                       END  %
2022                        ]
2023
2024    first  symbols:identtok
2025
2026    cannot reachend
2027 */
2028
2029 static void PushQualident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2030
2031 /*
2032    OptSubrange := [ SubrangeType
2033                     % VAR q, s: node ;  %
2034
2035                     % s := pop ()  %
2036
2037                     % q := pop ()  %
2038
2039                     % putSubrangeType (s, q)  %
2040
2041                     % typeExp := push (s)  %
2042                      ]
2043
2044    first  symbols:lsbratok
2045
2046    reachend
2047 */
2048
2049 static void OptSubrange (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2050
2051 /*
2052    TypeEquiv := PushQualident OptSubrange
2053
2054    first  symbols:identtok
2055
2056    cannot reachend
2057 */
2058
2059 static void TypeEquiv (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2060
2061 /*
2062    EnumIdentList :=
2063                     % VAR f: node ;  %
2064
2065                     % typeExp := push (makeEnum ())  %
2066                     Ident
2067                     % f := makeEnumField (typeExp, curident)  %
2068                     { ',' Ident
2069                       % f := makeEnumField (typeExp, curident)  %
2070                        }
2071
2072    first  symbols:identtok
2073
2074    cannot reachend
2075 */
2076
2077 static void EnumIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2078
2079 /*
2080    Enumeration := '(' EnumIdentList ')'
2081
2082    first  symbols:lparatok
2083
2084    cannot reachend
2085 */
2086
2087 static void Enumeration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2088
2089 /*
2090    SimpleType :=
2091                  % VAR d: CARDINAL ;  %
2092
2093                  % d := depth ()  %
2094                  ( TypeEquiv  | Enumeration  |
2095                    SubrangeType  )
2096                  % assert (d = depth () - 1)  %
2097
2098
2099    first  symbols:lsbratok, lparatok, identtok
2100
2101    cannot reachend
2102 */
2103
2104 static void SimpleType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2105
2106 /*
2107    Type := SimpleType  | ArrayType  | RecordType  |
2108            SetType  | PointerType  | ProcedureType
2109
2110    first  symbols:proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok, lparatok, lsbratok
2111
2112    cannot reachend
2113 */
2114
2115 static void Type (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2116
2117 /*
2118    TypeDeclaration := { Ident
2119                         % typeDes := lookupSym (curident)  %
2120                         ( ';'  | '=' Type
2121                           % putType (typeDes, pop ())  %
2122                           Alignment ';'  )  }
2123
2124    first  symbols:identtok
2125
2126    reachend
2127 */
2128
2129 static void TypeDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2130
2131 /*
2132    Definition := 'CONST' { ConstantDeclaration ';'  }  |
2133                  'TYPE' { TypeDeclaration  }  |
2134                  'VAR' { VariableDeclaration ';'  }  |
2135                  DefProcedureHeading ';'
2136
2137    first  symbols:proceduretok, vartok, typetok, consttok
2138
2139    cannot reachend
2140 */
2141
2142 static void Definition (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2143
2144 /*
2145    AsmStatement := 'ASM' [ 'VOLATILE'  ] '(' AsmOperands
2146                    ')'
2147
2148    first  symbols:asmtok
2149
2150    cannot reachend
2151 */
2152
2153 static void AsmStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2154
2155 /*
2156    AsmOperands := string [ AsmOperandSpec  ]
2157
2158    first  symbols:stringtok
2159
2160    cannot reachend
2161 */
2162
2163 static void AsmOperands (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2164
2165 /*
2166    AsmOperandSpec := [ ':' AsmList [ ':' AsmList [
2167    ':' TrashList  ]  ]  ]
2168
2169    first  symbols:colontok
2170
2171    reachend
2172 */
2173
2174 static void AsmOperandSpec (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2175
2176 /*
2177    AsmList := [ AsmElement  ] { ',' AsmElement  }
2178
2179    first  symbols:lsbratok, stringtok, commatok
2180
2181    reachend
2182 */
2183
2184 static void AsmList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2185
2186 /*
2187    NamedOperand := '[' Ident ']'
2188
2189    first  symbols:lsbratok
2190
2191    cannot reachend
2192 */
2193
2194 static void NamedOperand (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2195
2196 /*
2197    AsmOperandName := [ NamedOperand  ]
2198
2199    first  symbols:lsbratok
2200
2201    reachend
2202 */
2203
2204 static void AsmOperandName (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2205
2206 /*
2207    AsmElement := AsmOperandName string '(' Expression
2208                  ')'
2209
2210    first  symbols:stringtok, lsbratok
2211
2212    cannot reachend
2213 */
2214
2215 static void AsmElement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2216
2217 /*
2218    TrashList := [ string  ] { ',' string  }
2219
2220    first  symbols:commatok, stringtok
2221
2222    reachend
2223 */
2224
2225 static void TrashList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2);
2226
2227
2228 /*
2229    push -
2230 */
2231
2232 static decl_node push (decl_node n)
2233 {
2234   return static_cast<decl_node> (mcStack_push (stk, reinterpret_cast <void *> (n)));
2235   /* static analysis guarentees a RETURN statement will be used before here.  */
2236   __builtin_unreachable ();
2237 }
2238
2239
2240 /*
2241    pop -
2242 */
2243
2244 static decl_node pop (void)
2245 {
2246   return static_cast<decl_node> (mcStack_pop (stk));
2247   /* static analysis guarentees a RETURN statement will be used before here.  */
2248   __builtin_unreachable ();
2249 }
2250
2251
2252 /*
2253    replace -
2254 */
2255
2256 static decl_node replace (decl_node n)
2257 {
2258   return static_cast<decl_node> (mcStack_replace (stk, reinterpret_cast <void *> (n)));
2259   /* static analysis guarentees a RETURN statement will be used before here.  */
2260   __builtin_unreachable ();
2261 }
2262
2263
2264 /*
2265    peep - returns the top node on the stack without removing it.
2266 */
2267
2268 static decl_node peep (void)
2269 {
2270   return push (pop ());
2271   /* static analysis guarentees a RETURN statement will be used before here.  */
2272   __builtin_unreachable ();
2273 }
2274
2275
2276 /*
2277    depth - returns the depth of the stack.
2278 */
2279
2280 static unsigned int depth (void)
2281 {
2282   return mcStack_depth (stk);
2283   /* static analysis guarentees a RETURN statement will be used before here.  */
2284   __builtin_unreachable ();
2285 }
2286
2287
2288 /*
2289    checkDuplicate -
2290 */
2291
2292 static void checkDuplicate (bool b)
2293 {
2294 }
2295
2296
2297 /*
2298    checkDuplicate -
2299 */
2300
2301 static void ErrorString (DynamicStrings_String s)
2302 {
2303   mcError_errorStringAt (s, mcLexBuf_getTokenNo ());
2304   WasNoError = false;
2305 }
2306
2307
2308 /*
2309    checkDuplicate -
2310 */
2311
2312 static void ErrorArray (const char *a_, unsigned int _a_high)
2313 {
2314   char a[_a_high+1];
2315
2316   /* make a local copy of each unbounded array.  */
2317   memcpy (a, a_, _a_high+1);
2318
2319   ErrorString (DynamicStrings_InitString ((const char *) a, _a_high));
2320 }
2321
2322
2323 /*
2324    checkParameterAttribute -
2325 */
2326
2327 static void checkParameterAttribute (void)
2328 {
2329   if ((nameKey_makeKey ((const char *) "unused", 6)) != curident)
2330     {
2331       mcMetaError_metaError1 ((const char *) "attribute {%1k} is not allowed in the formal parameter section, currently only unused is allowed", 96, (const unsigned char *) &curident, (sizeof (curident)-1));
2332     }
2333 }
2334
2335
2336 /*
2337    checkReturnAttribute -
2338 */
2339
2340 static void checkReturnAttribute (void)
2341 {
2342   if ((nameKey_makeKey ((const char *) "noreturn", 8)) != curident)
2343     {
2344       mcMetaError_metaError1 ((const char *) "attribute {%1k} is not allowed in the procedure return type, only noreturn is allowed", 85, (const unsigned char *) &curident, (sizeof (curident)-1));
2345     }
2346 }
2347
2348
2349 /*
2350    pushNunbounded -
2351 */
2352
2353 static void pushNunbounded (unsigned int c)
2354 {
2355   decl_node type;
2356   decl_node array;
2357   decl_node subrange;
2358
2359   while (c != 0)
2360     {
2361       type = pop ();
2362       subrange = decl_makeSubrange (static_cast<decl_node> (NULL), static_cast<decl_node> (NULL));
2363       decl_putSubrangeType (subrange, decl_getCardinal ());
2364       array = decl_makeArray (subrange, type);
2365       decl_putUnbounded (array);
2366       type = push (array);
2367       c -= 1;
2368     }
2369 }
2370
2371
2372 /*
2373    makeIndexedArray - builds and returns an array of type, t, with, c, indices.
2374 */
2375
2376 static decl_node makeIndexedArray (unsigned int c, decl_node t)
2377 {
2378   decl_node i;
2379
2380   while (c > 0)
2381     {
2382       t = decl_makeArray (pop (), t);
2383       c -= 1;
2384     }
2385   return t;
2386   /* static analysis guarentees a RETURN statement will be used before here.  */
2387   __builtin_unreachable ();
2388 }
2389
2390
2391 /*
2392    importInto - from, m, import, name, into module, current.
2393                 It checks to see if curident is an enumeration type
2394                 and if so automatically includes all enumeration fields
2395                 as well.
2396 */
2397
2398 static void importInto (decl_node m, nameKey_Name name, decl_node current)
2399 {
2400   decl_node s;
2401   decl_node o;
2402
2403   mcDebug_assert (decl_isDef (m));
2404   mcDebug_assert (((decl_isDef (current)) || (decl_isModule (current))) || (decl_isImp (current)));
2405   s = decl_lookupExported (m, name);
2406   if (s == NULL)
2407     {
2408       mcMetaError_metaError2 ((const char *) "{%1k} was not exported from definition module {%2a}", 51, (const unsigned char *) &name, (sizeof (name)-1), (const unsigned char *) &m, (sizeof (m)-1));
2409     }
2410   else
2411     {
2412       o = decl_import (current, s);
2413       if (s != o)
2414         {
2415           mcMetaError_metaError2 ((const char *) "{%1ad} cannot be imported into the current module as it causes a name clash with {%2ad}", 87, (const unsigned char *) &s, (sizeof (s)-1), (const unsigned char *) &o, (sizeof (o)-1));
2416         }
2417     }
2418 }
2419
2420
2421 /*
2422    checkEndName - if module does not have, name, then issue an error containing, desc.
2423 */
2424
2425 static void checkEndName (decl_node module, nameKey_Name name, const char *desc_, unsigned int _desc_high)
2426 {
2427   DynamicStrings_String s;
2428   char desc[_desc_high+1];
2429
2430   /* make a local copy of each unbounded array.  */
2431   memcpy (desc, desc_, _desc_high+1);
2432
2433   if ((decl_getSymName (module)) != name)
2434     {
2435       s = DynamicStrings_InitString ((const char *) "inconsistent module name found with this ", 41);
2436       s = DynamicStrings_ConCat (s, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) desc, _desc_high)));
2437       ErrorString (s);
2438     }
2439 }
2440
2441
2442 /*
2443    DescribeStop - issues a message explaining what tokens were expected
2444 */
2445
2446 static DynamicStrings_String DescribeStop (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
2447 {
2448   unsigned int n;
2449   DynamicStrings_String str;
2450   DynamicStrings_String message;
2451
2452   n = 0;
2453   message = DynamicStrings_InitString ((const char *) "", 0);
2454   if ((((1 << (mcReserved_stringtok-mcReserved_recordtok)) & (stopset2)) != 0))
2455     {
2456       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "string", 6)));
2457       n += 1;
2458     }
2459   if ((((1 << (mcReserved_realtok-mcReserved_recordtok)) & (stopset2)) != 0))
2460     {
2461       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "real number", 11)));
2462       n += 1;
2463     }
2464   if ((((1 << (mcReserved_identtok-mcReserved_recordtok)) & (stopset2)) != 0))
2465     {
2466       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "identifier", 10)));
2467       n += 1;
2468     }
2469   if ((((1 << (mcReserved_integertok-mcReserved_recordtok)) & (stopset2)) != 0))
2470     {
2471       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "integer number", 14)));
2472       n += 1;
2473     }
2474   if ((((1 << (mcReserved_inlinetok-mcReserved_recordtok)) & (stopset2)) != 0))
2475     {
2476       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__INLINE__", 10)));
2477       n += 1;
2478     }
2479   if ((((1 << (mcReserved_builtintok-mcReserved_recordtok)) & (stopset2)) != 0))
2480     {
2481       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__BUILTIN__", 11)));
2482       n += 1;
2483     }
2484   if ((((1 << (mcReserved_attributetok-mcReserved_recordtok)) & (stopset2)) != 0))
2485     {
2486       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__ATTRIBUTE__", 13)));
2487       n += 1;
2488     }
2489   if ((((1 << (mcReserved_filetok-mcReserved_recordtok)) & (stopset2)) != 0))
2490     {
2491       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__FILE__", 8)));
2492       n += 1;
2493     }
2494   if ((((1 << (mcReserved_linetok-mcReserved_recordtok)) & (stopset2)) != 0))
2495     {
2496       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__LINE__", 8)));
2497       n += 1;
2498     }
2499   if ((((1 << (mcReserved_datetok-mcReserved_recordtok)) & (stopset2)) != 0))
2500     {
2501       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "__DATE__", 8)));
2502       n += 1;
2503     }
2504   if ((((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) & (stopset2)) != 0))
2505     {
2506       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "...", 3)));
2507       n += 1;
2508     }
2509   if ((((1 << (mcReserved_volatiletok-mcReserved_recordtok)) & (stopset2)) != 0))
2510     {
2511       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "VOLATILE", 8)));
2512       n += 1;
2513     }
2514   if ((((1 << (mcReserved_asmtok-mcReserved_recordtok)) & (stopset2)) != 0))
2515     {
2516       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "ASM", 3)));
2517       n += 1;
2518     }
2519   if ((((1 << (mcReserved_withtok-mcReserved_recordtok)) & (stopset2)) != 0))
2520     {
2521       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "WITH", 4)));
2522       n += 1;
2523     }
2524   if ((((1 << (mcReserved_whiletok-mcReserved_recordtok)) & (stopset2)) != 0))
2525     {
2526       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "WHILE", 5)));
2527       n += 1;
2528     }
2529   if ((((1 << (mcReserved_vartok-mcReserved_recordtok)) & (stopset2)) != 0))
2530     {
2531       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "VAR", 3)));
2532       n += 1;
2533     }
2534   if ((((1 << (mcReserved_untiltok-mcReserved_recordtok)) & (stopset2)) != 0))
2535     {
2536       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "UNTIL", 5)));
2537       n += 1;
2538     }
2539   if ((((1 << (mcReserved_typetok-mcReserved_recordtok)) & (stopset2)) != 0))
2540     {
2541       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "TYPE", 4)));
2542       n += 1;
2543     }
2544   if ((((1 << (mcReserved_totok-mcReserved_recordtok)) & (stopset2)) != 0))
2545     {
2546       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "TO", 2)));
2547       n += 1;
2548     }
2549   if ((((1 << (mcReserved_thentok-mcReserved_recordtok)) & (stopset2)) != 0))
2550     {
2551       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "THEN", 4)));
2552       n += 1;
2553     }
2554   if ((((1 << (mcReserved_settok-mcReserved_recordtok)) & (stopset2)) != 0))
2555     {
2556       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "SET", 3)));
2557       n += 1;
2558     }
2559   if ((((1 << (mcReserved_returntok-mcReserved_recordtok)) & (stopset2)) != 0))
2560     {
2561       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "RETURN", 6)));
2562       n += 1;
2563     }
2564   if ((((1 << (mcReserved_retrytok-mcReserved_recordtok)) & (stopset2)) != 0))
2565     {
2566       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "RETRY", 5)));
2567       n += 1;
2568     }
2569   if ((((1 << (mcReserved_repeattok-mcReserved_recordtok)) & (stopset2)) != 0))
2570     {
2571       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "REPEAT", 6)));
2572       n += 1;
2573     }
2574   if ((((1 << (mcReserved_remtok-mcReserved_recordtok)) & (stopset2)) != 0))
2575     {
2576       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "REM", 3)));
2577       n += 1;
2578     }
2579   if ((((1 << (mcReserved_recordtok-mcReserved_recordtok)) & (stopset2)) != 0))
2580     {
2581       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "RECORD", 6)));
2582       n += 1;
2583     }
2584   if ((((1 << (mcReserved_unqualifiedtok-mcReserved_arraytok)) & (stopset1)) != 0))
2585     {
2586       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "UNQUALIFIED", 11)));
2587       n += 1;
2588     }
2589   if ((((1 << (mcReserved_qualifiedtok-mcReserved_arraytok)) & (stopset1)) != 0))
2590     {
2591       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "QUALIFIED", 9)));
2592       n += 1;
2593     }
2594   if ((((1 << (mcReserved_proceduretok-mcReserved_arraytok)) & (stopset1)) != 0))
2595     {
2596       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "PROCEDURE", 9)));
2597       n += 1;
2598     }
2599   if ((((1 << (mcReserved_pointertok-mcReserved_arraytok)) & (stopset1)) != 0))
2600     {
2601       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "POINTER", 7)));
2602       n += 1;
2603     }
2604   if ((((1 << (mcReserved_packedsettok-mcReserved_arraytok)) & (stopset1)) != 0))
2605     {
2606       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "PACKEDSET", 9)));
2607       n += 1;
2608     }
2609   if ((((1 << (mcReserved_ortok-mcReserved_arraytok)) & (stopset1)) != 0))
2610     {
2611       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "OR", 2)));
2612       n += 1;
2613     }
2614   if ((((1 << (mcReserved_oftok-mcReserved_arraytok)) & (stopset1)) != 0))
2615     {
2616       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "OF", 2)));
2617       n += 1;
2618     }
2619   if ((((1 << (mcReserved_nottok-mcReserved_arraytok)) & (stopset1)) != 0))
2620     {
2621       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "NOT", 3)));
2622       n += 1;
2623     }
2624   if ((((1 << (mcReserved_moduletok-mcReserved_arraytok)) & (stopset1)) != 0))
2625     {
2626       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "MODULE", 6)));
2627       n += 1;
2628     }
2629   if ((((1 << (mcReserved_modtok-mcReserved_arraytok)) & (stopset1)) != 0))
2630     {
2631       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "MOD", 3)));
2632       n += 1;
2633     }
2634   if ((((1 << (mcReserved_looptok-mcReserved_arraytok)) & (stopset1)) != 0))
2635     {
2636       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "LOOP", 4)));
2637       n += 1;
2638     }
2639   if ((((1 << (mcReserved_intok-mcReserved_arraytok)) & (stopset1)) != 0))
2640     {
2641       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "IN", 2)));
2642       n += 1;
2643     }
2644   if ((((1 << (mcReserved_importtok-mcReserved_arraytok)) & (stopset1)) != 0))
2645     {
2646       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "IMPORT", 6)));
2647       n += 1;
2648     }
2649   if ((((1 << (mcReserved_implementationtok-mcReserved_arraytok)) & (stopset1)) != 0))
2650     {
2651       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "IMPLEMENTATION", 14)));
2652       n += 1;
2653     }
2654   if ((((1 << (mcReserved_iftok-mcReserved_arraytok)) & (stopset1)) != 0))
2655     {
2656       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "IF", 2)));
2657       n += 1;
2658     }
2659   if ((((1 << (mcReserved_fromtok-mcReserved_arraytok)) & (stopset1)) != 0))
2660     {
2661       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "FROM", 4)));
2662       n += 1;
2663     }
2664   if ((((1 << (mcReserved_fortok-mcReserved_arraytok)) & (stopset1)) != 0))
2665     {
2666       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "FOR", 3)));
2667       n += 1;
2668     }
2669   if ((((1 << (mcReserved_finallytok-mcReserved_arraytok)) & (stopset1)) != 0))
2670     {
2671       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "FINALLY", 7)));
2672       n += 1;
2673     }
2674   if ((((1 << (mcReserved_exporttok-mcReserved_arraytok)) & (stopset1)) != 0))
2675     {
2676       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "EXPORT", 6)));
2677       n += 1;
2678     }
2679   if ((((1 << (mcReserved_exittok-mcReserved_arraytok)) & (stopset1)) != 0))
2680     {
2681       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "EXIT", 4)));
2682       n += 1;
2683     }
2684   if ((((1 << (mcReserved_excepttok-mcReserved_arraytok)) & (stopset1)) != 0))
2685     {
2686       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "EXCEPT", 6)));
2687       n += 1;
2688     }
2689   if ((((1 << (mcReserved_endtok-mcReserved_arraytok)) & (stopset1)) != 0))
2690     {
2691       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "END", 3)));
2692       n += 1;
2693     }
2694   if ((((1 << (mcReserved_elsiftok-mcReserved_arraytok)) & (stopset1)) != 0))
2695     {
2696       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "ELSIF", 5)));
2697       n += 1;
2698     }
2699   if ((((1 << (mcReserved_elsetok-mcReserved_arraytok)) & (stopset1)) != 0))
2700     {
2701       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "ELSE", 4)));
2702       n += 1;
2703     }
2704   if ((((1 << (mcReserved_dotok-mcReserved_arraytok)) & (stopset1)) != 0))
2705     {
2706       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "DO", 2)));
2707       n += 1;
2708     }
2709   if ((((1 << (mcReserved_divtok-mcReserved_arraytok)) & (stopset1)) != 0))
2710     {
2711       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "DIV", 3)));
2712       n += 1;
2713     }
2714   if ((((1 << (mcReserved_definitiontok-mcReserved_arraytok)) & (stopset1)) != 0))
2715     {
2716       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "DEFINITION", 10)));
2717       n += 1;
2718     }
2719   if ((((1 << (mcReserved_consttok-mcReserved_arraytok)) & (stopset1)) != 0))
2720     {
2721       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "CONST", 5)));
2722       n += 1;
2723     }
2724   if ((((1 << (mcReserved_casetok-mcReserved_arraytok)) & (stopset1)) != 0))
2725     {
2726       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "CASE", 4)));
2727       n += 1;
2728     }
2729   if ((((1 << (mcReserved_bytok-mcReserved_arraytok)) & (stopset1)) != 0))
2730     {
2731       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "BY", 2)));
2732       n += 1;
2733     }
2734   if ((((1 << (mcReserved_begintok-mcReserved_arraytok)) & (stopset1)) != 0))
2735     {
2736       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "BEGIN", 5)));
2737       n += 1;
2738     }
2739   if ((((1 << (mcReserved_arraytok-mcReserved_arraytok)) & (stopset1)) != 0))
2740     {
2741       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "ARRAY", 5)));
2742       n += 1;
2743     }
2744   if ((((1 << (mcReserved_andtok-mcReserved_eoftok)) & (stopset0)) != 0))
2745     {
2746       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "AND", 3)));
2747       n += 1;
2748     }
2749   if ((((1 << (mcReserved_colontok-mcReserved_eoftok)) & (stopset0)) != 0))
2750     {
2751       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ":", 1)));
2752       n += 1;
2753     }
2754   if ((((1 << (mcReserved_periodperiodtok-mcReserved_eoftok)) & (stopset0)) != 0))
2755     {
2756       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "..", 2)));
2757       n += 1;
2758     }
2759   if ((((1 << (mcReserved_rdirectivetok-mcReserved_eoftok)) & (stopset0)) != 0))
2760     {
2761       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "*>", 2)));
2762       n += 1;
2763     }
2764   if ((((1 << (mcReserved_ldirectivetok-mcReserved_eoftok)) & (stopset0)) != 0))
2765     {
2766       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "<*", 2)));
2767       n += 1;
2768     }
2769   if ((((1 << (mcReserved_greaterequaltok-mcReserved_eoftok)) & (stopset0)) != 0))
2770     {
2771       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ">=", 2)));
2772       n += 1;
2773     }
2774   if ((((1 << (mcReserved_lessequaltok-mcReserved_eoftok)) & (stopset0)) != 0))
2775     {
2776       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "<=", 2)));
2777       n += 1;
2778     }
2779   if ((((1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) & (stopset0)) != 0))
2780     {
2781       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "<>", 2)));
2782       n += 1;
2783     }
2784   if ((((1 << (mcReserved_hashtok-mcReserved_eoftok)) & (stopset0)) != 0))
2785     {
2786       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "#", 1)));
2787       n += 1;
2788     }
2789   if ((((1 << (mcReserved_equaltok-mcReserved_eoftok)) & (stopset0)) != 0))
2790     {
2791       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "=", 1)));
2792       n += 1;
2793     }
2794   if ((((1 << (mcReserved_uparrowtok-mcReserved_eoftok)) & (stopset0)) != 0))
2795     {
2796       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "^", 1)));
2797       n += 1;
2798     }
2799   if ((((1 << (mcReserved_semicolontok-mcReserved_eoftok)) & (stopset0)) != 0))
2800     {
2801       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ";", 1)));
2802       n += 1;
2803     }
2804   if ((((1 << (mcReserved_commatok-mcReserved_eoftok)) & (stopset0)) != 0))
2805     {
2806       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ",", 1)));
2807       n += 1;
2808     }
2809   if ((((1 << (mcReserved_periodtok-mcReserved_eoftok)) & (stopset0)) != 0))
2810     {
2811       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ".", 1)));
2812       n += 1;
2813     }
2814   if ((((1 << (mcReserved_ambersandtok-mcReserved_eoftok)) & (stopset0)) != 0))
2815     {
2816       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "&", 1)));
2817       n += 1;
2818     }
2819   if ((((1 << (mcReserved_dividetok-mcReserved_eoftok)) & (stopset0)) != 0))
2820     {
2821       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "/", 1)));
2822       n += 1;
2823     }
2824   if ((((1 << (mcReserved_timestok-mcReserved_eoftok)) & (stopset0)) != 0))
2825     {
2826       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "*", 1)));
2827       n += 1;
2828     }
2829   if ((((1 << (mcReserved_minustok-mcReserved_eoftok)) & (stopset0)) != 0))
2830     {
2831       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "-", 1)));
2832       n += 1;
2833     }
2834   if ((((1 << (mcReserved_plustok-mcReserved_eoftok)) & (stopset0)) != 0))
2835     {
2836       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "+", 1)));
2837       n += 1;
2838     }
2839   if ((((1 << (mcReserved_doublequotestok-mcReserved_eoftok)) & (stopset0)) != 0))
2840     {
2841       message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '`'), '"'), '\''), ',');
2842       n += 1;
2843     }
2844   if ((((1 << (mcReserved_singlequotetok-mcReserved_eoftok)) & (stopset0)) != 0))
2845     {
2846       message = DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (message, ' '), '"'), '\''), '"'), ',');
2847       n += 1;
2848     }
2849   if ((((1 << (mcReserved_greatertok-mcReserved_eoftok)) & (stopset0)) != 0))
2850     {
2851       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ">", 1)));
2852       n += 1;
2853     }
2854   if ((((1 << (mcReserved_lesstok-mcReserved_eoftok)) & (stopset0)) != 0))
2855     {
2856       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "<", 1)));
2857       n += 1;
2858     }
2859   if ((((1 << (mcReserved_rparatok-mcReserved_eoftok)) & (stopset0)) != 0))
2860     {
2861       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ")", 1)));
2862       n += 1;
2863     }
2864   if ((((1 << (mcReserved_lparatok-mcReserved_eoftok)) & (stopset0)) != 0))
2865     {
2866       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "(", 1)));
2867       n += 1;
2868     }
2869   if ((((1 << (mcReserved_rcbratok-mcReserved_eoftok)) & (stopset0)) != 0))
2870     {
2871       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "}", 1)));
2872       n += 1;
2873     }
2874   if ((((1 << (mcReserved_lcbratok-mcReserved_eoftok)) & (stopset0)) != 0))
2875     {
2876       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "{", 1)));
2877       n += 1;
2878     }
2879   if ((((1 << (mcReserved_rsbratok-mcReserved_eoftok)) & (stopset0)) != 0))
2880     {
2881       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "]", 1)));
2882       n += 1;
2883     }
2884   if ((((1 << (mcReserved_lsbratok-mcReserved_eoftok)) & (stopset0)) != 0))
2885     {
2886       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "[", 1)));
2887       n += 1;
2888     }
2889   if ((((1 << (mcReserved_bartok-mcReserved_eoftok)) & (stopset0)) != 0))
2890     {
2891       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) "|", 1)));
2892       n += 1;
2893     }
2894   if ((((1 << (mcReserved_becomestok-mcReserved_eoftok)) & (stopset0)) != 0))
2895     {
2896       message = DynamicStrings_ConCat (DynamicStrings_ConCatChar (message, ' '), DynamicStrings_Mark (DynamicStrings_InitString ((const char *) ":=", 2)));
2897       n += 1;
2898     }
2899   if ((((1 << (mcReserved_eoftok-mcReserved_eoftok)) & (stopset0)) != 0))
2900     {}  /* empty.  */
2901   /* eoftok has no token name (needed to generate error messages)  */
2902   if (n == 0)
2903     {
2904       str = DynamicStrings_InitString ((const char *) " syntax error", 13);
2905       message = DynamicStrings_KillString (message);
2906     }
2907   else if (n == 1)
2908     {
2909       /* avoid dangling else.  */
2910       str = DynamicStrings_ConCat (message, DynamicStrings_Mark (DynamicStrings_InitString ((const char *) " missing ", 9)));
2911     }
2912   else
2913     {
2914       /* avoid dangling else.  */
2915       str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) " expecting one of", 17), message);
2916       message = DynamicStrings_KillString (message);
2917     }
2918   return str;
2919   /* static analysis guarentees a RETURN statement will be used before here.  */
2920   __builtin_unreachable ();
2921 }
2922
2923
2924 /*
2925    DescribeError - issues a message explaining what tokens were expected
2926 */
2927
2928 static void DescribeError (void)
2929 {
2930   DynamicStrings_String str;
2931
2932   str = DynamicStrings_InitString ((const char *) "", 0);
2933   switch (mcLexBuf_currenttoken)
2934     {
2935       case mcReserved_stringtok:
2936         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found string", 26), DynamicStrings_Mark (str));
2937         break;
2938
2939       case mcReserved_realtok:
2940         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found real number", 31), DynamicStrings_Mark (str));
2941         break;
2942
2943       case mcReserved_identtok:
2944         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found identifier", 30), DynamicStrings_Mark (str));
2945         break;
2946
2947       case mcReserved_integertok:
2948         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found integer number", 34), DynamicStrings_Mark (str));
2949         break;
2950
2951       case mcReserved_inlinetok:
2952         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __INLINE__", 30), DynamicStrings_Mark (str));
2953         break;
2954
2955       case mcReserved_builtintok:
2956         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __BUILTIN__", 31), DynamicStrings_Mark (str));
2957         break;
2958
2959       case mcReserved_attributetok:
2960         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __ATTRIBUTE__", 33), DynamicStrings_Mark (str));
2961         break;
2962
2963       case mcReserved_filetok:
2964         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __FILE__", 28), DynamicStrings_Mark (str));
2965         break;
2966
2967       case mcReserved_linetok:
2968         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __LINE__", 28), DynamicStrings_Mark (str));
2969         break;
2970
2971       case mcReserved_datetok:
2972         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found __DATE__", 28), DynamicStrings_Mark (str));
2973         break;
2974
2975       case mcReserved_periodperiodperiodtok:
2976         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ...", 23), DynamicStrings_Mark (str));
2977         break;
2978
2979       case mcReserved_volatiletok:
2980         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found VOLATILE", 28), DynamicStrings_Mark (str));
2981         break;
2982
2983       case mcReserved_asmtok:
2984         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ASM", 23), DynamicStrings_Mark (str));
2985         break;
2986
2987       case mcReserved_withtok:
2988         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found WITH", 24), DynamicStrings_Mark (str));
2989         break;
2990
2991       case mcReserved_whiletok:
2992         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found WHILE", 25), DynamicStrings_Mark (str));
2993         break;
2994
2995       case mcReserved_vartok:
2996         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found VAR", 23), DynamicStrings_Mark (str));
2997         break;
2998
2999       case mcReserved_untiltok:
3000         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found UNTIL", 25), DynamicStrings_Mark (str));
3001         break;
3002
3003       case mcReserved_typetok:
3004         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found TYPE", 24), DynamicStrings_Mark (str));
3005         break;
3006
3007       case mcReserved_totok:
3008         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found TO", 22), DynamicStrings_Mark (str));
3009         break;
3010
3011       case mcReserved_thentok:
3012         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found THEN", 24), DynamicStrings_Mark (str));
3013         break;
3014
3015       case mcReserved_settok:
3016         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found SET", 23), DynamicStrings_Mark (str));
3017         break;
3018
3019       case mcReserved_returntok:
3020         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found RETURN", 26), DynamicStrings_Mark (str));
3021         break;
3022
3023       case mcReserved_retrytok:
3024         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found RETRY", 25), DynamicStrings_Mark (str));
3025         break;
3026
3027       case mcReserved_repeattok:
3028         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found REPEAT", 26), DynamicStrings_Mark (str));
3029         break;
3030
3031       case mcReserved_remtok:
3032         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found REM", 23), DynamicStrings_Mark (str));
3033         break;
3034
3035       case mcReserved_recordtok:
3036         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found RECORD", 26), DynamicStrings_Mark (str));
3037         break;
3038
3039       case mcReserved_unqualifiedtok:
3040         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found UNQUALIFIED", 31), DynamicStrings_Mark (str));
3041         break;
3042
3043       case mcReserved_qualifiedtok:
3044         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found QUALIFIED", 29), DynamicStrings_Mark (str));
3045         break;
3046
3047       case mcReserved_proceduretok:
3048         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found PROCEDURE", 29), DynamicStrings_Mark (str));
3049         break;
3050
3051       case mcReserved_pointertok:
3052         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found POINTER", 27), DynamicStrings_Mark (str));
3053         break;
3054
3055       case mcReserved_packedsettok:
3056         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found PACKEDSET", 29), DynamicStrings_Mark (str));
3057         break;
3058
3059       case mcReserved_ortok:
3060         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found OR", 22), DynamicStrings_Mark (str));
3061         break;
3062
3063       case mcReserved_oftok:
3064         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found OF", 22), DynamicStrings_Mark (str));
3065         break;
3066
3067       case mcReserved_nottok:
3068         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found NOT", 23), DynamicStrings_Mark (str));
3069         break;
3070
3071       case mcReserved_moduletok:
3072         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found MODULE", 26), DynamicStrings_Mark (str));
3073         break;
3074
3075       case mcReserved_modtok:
3076         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found MOD", 23), DynamicStrings_Mark (str));
3077         break;
3078
3079       case mcReserved_looptok:
3080         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found LOOP", 24), DynamicStrings_Mark (str));
3081         break;
3082
3083       case mcReserved_intok:
3084         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found IN", 22), DynamicStrings_Mark (str));
3085         break;
3086
3087       case mcReserved_importtok:
3088         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found IMPORT", 26), DynamicStrings_Mark (str));
3089         break;
3090
3091       case mcReserved_implementationtok:
3092         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found IMPLEMENTATION", 34), DynamicStrings_Mark (str));
3093         break;
3094
3095       case mcReserved_iftok:
3096         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found IF", 22), DynamicStrings_Mark (str));
3097         break;
3098
3099       case mcReserved_fromtok:
3100         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found FROM", 24), DynamicStrings_Mark (str));
3101         break;
3102
3103       case mcReserved_fortok:
3104         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found FOR", 23), DynamicStrings_Mark (str));
3105         break;
3106
3107       case mcReserved_finallytok:
3108         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found FINALLY", 27), DynamicStrings_Mark (str));
3109         break;
3110
3111       case mcReserved_exporttok:
3112         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found EXPORT", 26), DynamicStrings_Mark (str));
3113         break;
3114
3115       case mcReserved_exittok:
3116         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found EXIT", 24), DynamicStrings_Mark (str));
3117         break;
3118
3119       case mcReserved_excepttok:
3120         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found EXCEPT", 26), DynamicStrings_Mark (str));
3121         break;
3122
3123       case mcReserved_endtok:
3124         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found END", 23), DynamicStrings_Mark (str));
3125         break;
3126
3127       case mcReserved_elsiftok:
3128         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ELSIF", 25), DynamicStrings_Mark (str));
3129         break;
3130
3131       case mcReserved_elsetok:
3132         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ELSE", 24), DynamicStrings_Mark (str));
3133         break;
3134
3135       case mcReserved_dotok:
3136         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found DO", 22), DynamicStrings_Mark (str));
3137         break;
3138
3139       case mcReserved_divtok:
3140         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found DIV", 23), DynamicStrings_Mark (str));
3141         break;
3142
3143       case mcReserved_definitiontok:
3144         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found DEFINITION", 30), DynamicStrings_Mark (str));
3145         break;
3146
3147       case mcReserved_consttok:
3148         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found CONST", 25), DynamicStrings_Mark (str));
3149         break;
3150
3151       case mcReserved_casetok:
3152         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found CASE", 24), DynamicStrings_Mark (str));
3153         break;
3154
3155       case mcReserved_bytok:
3156         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found BY", 22), DynamicStrings_Mark (str));
3157         break;
3158
3159       case mcReserved_begintok:
3160         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found BEGIN", 25), DynamicStrings_Mark (str));
3161         break;
3162
3163       case mcReserved_arraytok:
3164         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ARRAY", 25), DynamicStrings_Mark (str));
3165         break;
3166
3167       case mcReserved_andtok:
3168         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found AND", 23), DynamicStrings_Mark (str));
3169         break;
3170
3171       case mcReserved_colontok:
3172         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found :", 21), DynamicStrings_Mark (str));
3173         break;
3174
3175       case mcReserved_periodperiodtok:
3176         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ..", 22), DynamicStrings_Mark (str));
3177         break;
3178
3179       case mcReserved_rdirectivetok:
3180         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found *>", 22), DynamicStrings_Mark (str));
3181         break;
3182
3183       case mcReserved_ldirectivetok:
3184         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found <*", 22), DynamicStrings_Mark (str));
3185         break;
3186
3187       case mcReserved_greaterequaltok:
3188         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found >=", 22), DynamicStrings_Mark (str));
3189         break;
3190
3191       case mcReserved_lessequaltok:
3192         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found <=", 22), DynamicStrings_Mark (str));
3193         break;
3194
3195       case mcReserved_lessgreatertok:
3196         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found <>", 22), DynamicStrings_Mark (str));
3197         break;
3198
3199       case mcReserved_hashtok:
3200         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found #", 21), DynamicStrings_Mark (str));
3201         break;
3202
3203       case mcReserved_equaltok:
3204         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found =", 21), DynamicStrings_Mark (str));
3205         break;
3206
3207       case mcReserved_uparrowtok:
3208         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ^", 21), DynamicStrings_Mark (str));
3209         break;
3210
3211       case mcReserved_semicolontok:
3212         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ;", 21), DynamicStrings_Mark (str));
3213         break;
3214
3215       case mcReserved_commatok:
3216         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ,", 21), DynamicStrings_Mark (str));
3217         break;
3218
3219       case mcReserved_periodtok:
3220         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found .", 21), DynamicStrings_Mark (str));
3221         break;
3222
3223       case mcReserved_ambersandtok:
3224         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found &", 21), DynamicStrings_Mark (str));
3225         break;
3226
3227       case mcReserved_dividetok:
3228         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found /", 21), DynamicStrings_Mark (str));
3229         break;
3230
3231       case mcReserved_timestok:
3232         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found *", 21), DynamicStrings_Mark (str));
3233         break;
3234
3235       case mcReserved_minustok:
3236         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found -", 21), DynamicStrings_Mark (str));
3237         break;
3238
3239       case mcReserved_plustok:
3240         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found +", 21), DynamicStrings_Mark (str));
3241         break;
3242
3243       case mcReserved_doublequotestok:
3244         str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found '", 21), '"'), '\''), DynamicStrings_Mark (str));
3245         break;
3246
3247       case mcReserved_singlequotetok:
3248         str = DynamicStrings_ConCat (DynamicStrings_ConCatChar (DynamicStrings_ConCatChar (DynamicStrings_InitString ((const char *) "syntax error, found \"", 21), '\''), '"'), DynamicStrings_Mark (str));
3249         break;
3250
3251       case mcReserved_greatertok:
3252         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found >", 21), DynamicStrings_Mark (str));
3253         break;
3254
3255       case mcReserved_lesstok:
3256         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found <", 21), DynamicStrings_Mark (str));
3257         break;
3258
3259       case mcReserved_rparatok:
3260         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found )", 21), DynamicStrings_Mark (str));
3261         break;
3262
3263       case mcReserved_lparatok:
3264         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found (", 21), DynamicStrings_Mark (str));
3265         break;
3266
3267       case mcReserved_rcbratok:
3268         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found }", 21), DynamicStrings_Mark (str));
3269         break;
3270
3271       case mcReserved_lcbratok:
3272         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found {", 21), DynamicStrings_Mark (str));
3273         break;
3274
3275       case mcReserved_rsbratok:
3276         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ]", 21), DynamicStrings_Mark (str));
3277         break;
3278
3279       case mcReserved_lsbratok:
3280         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found [", 21), DynamicStrings_Mark (str));
3281         break;
3282
3283       case mcReserved_bartok:
3284         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found |", 21), DynamicStrings_Mark (str));
3285         break;
3286
3287       case mcReserved_becomestok:
3288         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found :=", 22), DynamicStrings_Mark (str));
3289         break;
3290
3291       case mcReserved_eoftok:
3292         str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error, found ", 20), DynamicStrings_Mark (str));
3293         break;
3294
3295
3296       default:
3297         break;
3298     }
3299   ErrorString (str);
3300 }
3301
3302
3303 /*
3304    SyntaxError - after a syntax error we skip all tokens up until we reach
3305                  a stop symbol.
3306 */
3307
3308 static void SyntaxError (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3309 {
3310   DescribeError ();
3311   if (Debugging)
3312     {
3313       mcPrintf_printf0 ((const char *) "\\nskipping token *** ", 21);
3314     }
3315   /*
3316       yes the ORD(currenttoken) looks ugly, but it is *much* safer than
3317       using currenttoken<sometok as a change to the ordering of the
3318       token declarations below would cause this to break. Using ORD() we are
3319       immune from such changes
3320   */
3321   while (! (((( ((unsigned int) (mcLexBuf_currenttoken)) < 32) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (mcLexBuf_currenttoken)) >= 32) && ( ((unsigned int) (mcLexBuf_currenttoken)) < 64)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (mcLexBuf_currenttoken)) >= 64) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & (stopset2)) != 0)))))
3322     {
3323       mcLexBuf_getToken ();
3324     }
3325   if (Debugging)
3326     {
3327       mcPrintf_printf0 ((const char *) " ***\\n", 6);
3328     }
3329 }
3330
3331
3332 /*
3333    SyntaxCheck -
3334 */
3335
3336 static void SyntaxCheck (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3337 {
3338   /* and again (see above re: ORD)
3339   */
3340   if (! (((( ((unsigned int) (mcLexBuf_currenttoken)) < 32) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (mcLexBuf_currenttoken)) >= 32) && ( ((unsigned int) (mcLexBuf_currenttoken)) < 64)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (mcLexBuf_currenttoken)) >= 64) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & (stopset2)) != 0)))))
3341     {
3342       SyntaxError (stopset0, stopset1, stopset2);
3343     }
3344 }
3345
3346
3347 /*
3348    WarnMissingToken - generates a warning message about a missing token, t.
3349 */
3350
3351 static void WarnMissingToken (mcReserved_toktype t)
3352 {
3353   mcp3_SetOfStop0 s0;
3354   mcp3_SetOfStop1 s1;
3355   mcp3_SetOfStop2 s2;
3356   DynamicStrings_String str;
3357
3358   s0 = (mcp3_SetOfStop0) 0;
3359   s1 = (mcp3_SetOfStop1) 0;
3360   s2 = (mcp3_SetOfStop2) 0;
3361   if ( ((unsigned int) (t)) < 32)
3362     {
3363       s0 = (mcp3_SetOfStop0) ((1 << (t-mcReserved_eoftok)));
3364     }
3365   else if ( ((unsigned int) (t)) < 64)
3366     {
3367       /* avoid dangling else.  */
3368       s1 = (mcp3_SetOfStop1) ((1 << (t-mcReserved_arraytok)));
3369     }
3370   else
3371     {
3372       /* avoid dangling else.  */
3373       s2 = (mcp3_SetOfStop2) ((1 << (t-mcReserved_recordtok)));
3374     }
3375   str = DescribeStop (s0, s1, s2);
3376   str = DynamicStrings_ConCat (DynamicStrings_InitString ((const char *) "syntax error,", 13), DynamicStrings_Mark (str));
3377   mcError_errorStringAt (str, mcLexBuf_getTokenNo ());
3378 }
3379
3380
3381 /*
3382    MissingToken - generates a warning message about a missing token, t.
3383 */
3384
3385 static void MissingToken (mcReserved_toktype t)
3386 {
3387   WarnMissingToken (t);
3388   if ((((t != mcReserved_identtok) && (t != mcReserved_integertok)) && (t != mcReserved_realtok)) && (t != mcReserved_stringtok))
3389     {
3390       if (Debugging)
3391         {
3392           mcPrintf_printf0 ((const char *) "inserting token\\n", 17);
3393         }
3394       mcLexBuf_insertToken (t);
3395     }
3396 }
3397
3398
3399 /*
3400    CheckAndInsert -
3401 */
3402
3403 static bool CheckAndInsert (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3404 {
3405   if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-mcReserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-mcReserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-mcReserved_recordtok)) & (stopset2)) != 0))))
3406     {
3407       WarnMissingToken (t);
3408       mcLexBuf_insertTokenAndRewind (t);
3409       return true;
3410     }
3411   else
3412     {
3413       return false;
3414     }
3415   /* static analysis guarentees a RETURN statement will be used before here.  */
3416   __builtin_unreachable ();
3417 }
3418
3419
3420 /*
3421    InStopSet
3422 */
3423
3424 static bool InStopSet (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3425 {
3426   if (((( ((unsigned int) (t)) < 32) && ((((1 << (t-mcReserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (t)) >= 32) && ( ((unsigned int) (t)) < 64)) && ((((1 << (t-mcReserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (t)) >= 64) && ((((1 << (t-mcReserved_recordtok)) & (stopset2)) != 0))))
3427     {
3428       return true;
3429     }
3430   else
3431     {
3432       return false;
3433     }
3434   /* static analysis guarentees a RETURN statement will be used before here.  */
3435   __builtin_unreachable ();
3436 }
3437
3438
3439 /*
3440    PeepToken - peep token checks to see whether the stopset is satisfied by currenttoken
3441                If it is not then it will insert a token providing the token
3442                is one of ; ] ) } . OF END ,
3443
3444                if the stopset contains <identtok> then we do not insert a token
3445 */
3446
3447 static void PeepToken (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3448 {
3449   /* and again (see above re: ORD)
3450   */
3451   if ((! (((( ((unsigned int) (mcLexBuf_currenttoken)) < 32) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & (stopset0)) != 0))) || ((( ((unsigned int) (mcLexBuf_currenttoken)) >= 32) && ( ((unsigned int) (mcLexBuf_currenttoken)) < 64)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & (stopset1)) != 0)))) || (( ((unsigned int) (mcLexBuf_currenttoken)) >= 64) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & (stopset2)) != 0))))) && (! (InStopSet (mcReserved_identtok, stopset0, stopset1, stopset2))))
3452     {
3453       /* SyntaxCheck would fail since currentoken is not part of the stopset
3454          we check to see whether any of currenttoken might be a commonly omitted token  */
3455       if ((((((((CheckAndInsert (mcReserved_semicolontok, stopset0, stopset1, stopset2)) || (CheckAndInsert (mcReserved_rsbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_rparatok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_rcbratok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_periodtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_oftok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_endtok, stopset0, stopset1, stopset2))) || (CheckAndInsert (mcReserved_commatok, stopset0, stopset1, stopset2)))
3456         {}  /* empty.  */
3457     }
3458 }
3459
3460
3461 /*
3462    Expect -
3463 */
3464
3465 static void Expect (mcReserved_toktype t, mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3466 {
3467   if (mcLexBuf_currenttoken == t)
3468     {
3469       /* avoid dangling else.  */
3470       mcLexBuf_getToken ();
3471       if (Pass1)
3472         {
3473           PeepToken (stopset0, stopset1, stopset2);
3474         }
3475     }
3476   else
3477     {
3478       MissingToken (t);
3479     }
3480   SyntaxCheck (stopset0, stopset1, stopset2);
3481 }
3482
3483
3484 /*
3485    Ident - error checking varient of Ident
3486 */
3487
3488 static void Ident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3489 {
3490   curident = nameKey_makekey (mcLexBuf_currentstring);
3491   Expect (mcReserved_identtok, stopset0, stopset1, stopset2);
3492 }
3493
3494
3495 /*
3496    string -
3497 */
3498
3499 static void string (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3500 {
3501   curstring = nameKey_makekey (mcLexBuf_currentstring);
3502   Expect (mcReserved_stringtok, stopset0, stopset1, stopset2);
3503 }
3504
3505
3506 /*
3507    Integer -
3508 */
3509
3510 static void Integer (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3511 {
3512   Expect (mcReserved_integertok, stopset0, stopset1, stopset2);
3513 }
3514
3515
3516 /*
3517    Real -
3518 */
3519
3520 static void Real (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3521 {
3522   Expect (mcReserved_realtok, stopset0, stopset1, stopset2);
3523 }
3524
3525
3526 /*
3527    FileUnit := DefinitionModule  |
3528                ImplementationOrProgramModule
3529
3530    first  symbols:implementationtok, moduletok, definitiontok
3531
3532    cannot reachend
3533 */
3534
3535 static void FileUnit (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3536 {
3537   if (mcLexBuf_currenttoken == mcReserved_definitiontok)
3538     {
3539       DefinitionModule (stopset0, stopset1, stopset2);
3540     }
3541   else if (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_implementationtok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))))) != 0)))
3542     {
3543       /* avoid dangling else.  */
3544       ImplementationOrProgramModule (stopset0, stopset1, stopset2);
3545     }
3546   else
3547     {
3548       /* avoid dangling else.  */
3549       ErrorArray ((const char *) "expecting one of: IMPLEMENTATION MODULE DEFINITION", 50);
3550     }
3551 }
3552
3553
3554 /*
3555    ProgramModule := 'MODULE' Ident
3556                     % curmodule := lookupModule (curident)  %
3557
3558                     % enterScope (curmodule)  %
3559
3560                     % resetEnumPos (curmodule)  %
3561                     [ Priority  ] ';' { Import  } Block
3562                     Ident
3563                     % checkEndName (curmodule, curident, 'program module')  %
3564
3565                     % setConstExpComplete (curmodule)  %
3566
3567                     % leaveScope  %
3568                     '.'
3569
3570    first  symbols:moduletok
3571
3572    cannot reachend
3573 */
3574
3575 static void ProgramModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3576 {
3577   Expect (mcReserved_moduletok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
3578   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2);
3579   curmodule = decl_lookupModule (curident);
3580   decl_enterScope (curmodule);
3581   decl_resetEnumPos (curmodule);
3582   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
3583     {
3584       Priority (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
3585     }
3586   Expect (mcReserved_semicolontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
3587   while (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok))))) != 0)))
3588     {
3589       Import (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_typetok-mcReserved_recordtok))));
3590     }
3591    /* while  */
3592   Block (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
3593   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
3594   checkEndName (curmodule, curident, (const char *) "program module", 14);
3595   decl_setConstExpComplete (curmodule);
3596   decl_leaveScope ();
3597   Expect (mcReserved_periodtok, stopset0, stopset1, stopset2);
3598 }
3599
3600
3601 /*
3602    ImplementationModule := 'IMPLEMENTATION' 'MODULE'
3603                            Ident
3604                            % curmodule := lookupImp (curident)  %
3605
3606                            % enterScope (lookupDef (curident))  %
3607
3608                            % enterScope (curmodule)  %
3609
3610                            % resetEnumPos (curmodule)  %
3611                            [ Priority  ] ';' { Import  }
3612                            Block Ident
3613                            % checkEndName (curmodule, curident, 'implementation module')  %
3614
3615                            % setConstExpComplete (curmodule)  %
3616
3617                            % leaveScope ; leaveScope  %
3618                            '.'
3619
3620    first  symbols:implementationtok
3621
3622    cannot reachend
3623 */
3624
3625 static void ImplementationModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3626 {
3627   Expect (mcReserved_implementationtok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2);
3628   Expect (mcReserved_moduletok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
3629   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2);
3630   curmodule = decl_lookupImp (curident);
3631   decl_enterScope (decl_lookupDef (curident));
3632   decl_enterScope (curmodule);
3633   decl_resetEnumPos (curmodule);
3634   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
3635     {
3636       Priority (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
3637     }
3638   Expect (mcReserved_semicolontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
3639   while (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok))))) != 0)))
3640     {
3641       Import (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_typetok-mcReserved_recordtok))));
3642     }
3643    /* while  */
3644   Block (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
3645   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
3646   checkEndName (curmodule, curident, (const char *) "implementation module", 21);
3647   decl_setConstExpComplete (curmodule);
3648   decl_leaveScope ();
3649   decl_leaveScope ();
3650   Expect (mcReserved_periodtok, stopset0, stopset1, stopset2);
3651 }
3652
3653
3654 /*
3655    ImplementationOrProgramModule := ImplementationModule  |
3656                                     ProgramModule
3657
3658    first  symbols:moduletok, implementationtok
3659
3660    cannot reachend
3661 */
3662
3663 static void ImplementationOrProgramModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3664 {
3665   if (mcLexBuf_currenttoken == mcReserved_implementationtok)
3666     {
3667       ImplementationModule (stopset0, stopset1, stopset2);
3668     }
3669   else if (mcLexBuf_currenttoken == mcReserved_moduletok)
3670     {
3671       /* avoid dangling else.  */
3672       ProgramModule (stopset0, stopset1, stopset2);
3673     }
3674   else
3675     {
3676       /* avoid dangling else.  */
3677       ErrorArray ((const char *) "expecting one of: MODULE IMPLEMENTATION", 39);
3678     }
3679 }
3680
3681
3682 /*
3683    Number := Integer  | Real
3684
3685    first  symbols:realtok, integertok
3686
3687    cannot reachend
3688 */
3689
3690 static void Number (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3691 {
3692   if (mcLexBuf_currenttoken == mcReserved_integertok)
3693     {
3694       Integer (stopset0, stopset1, stopset2);
3695     }
3696   else if (mcLexBuf_currenttoken == mcReserved_realtok)
3697     {
3698       /* avoid dangling else.  */
3699       Real (stopset0, stopset1, stopset2);
3700     }
3701   else
3702     {
3703       /* avoid dangling else.  */
3704       ErrorArray ((const char *) "expecting one of: real number integer number", 44);
3705     }
3706 }
3707
3708
3709 /*
3710    Qualident := Ident { '.' Ident  }
3711
3712    first  symbols:identtok
3713
3714    cannot reachend
3715 */
3716
3717 static void Qualident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3718 {
3719   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
3720   while (mcLexBuf_currenttoken == mcReserved_periodtok)
3721     {
3722       Expect (mcReserved_periodtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
3723       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
3724     }
3725    /* while  */
3726 }
3727
3728
3729 /*
3730    ConstantDeclaration :=
3731                           % VAR d, e: node ;  %
3732                           Ident
3733                           % d := lookupSym (curident)  %
3734                           '=' ConstExpression
3735                           % e := pop ()  %
3736
3737                           % assert (isConst (d))  %
3738
3739                           % putConst (d, e)  %
3740
3741
3742    first  symbols:identtok
3743
3744    cannot reachend
3745 */
3746
3747 static void ConstantDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3748 {
3749   decl_node d;
3750   decl_node e;
3751
3752   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1, stopset2);
3753   d = decl_lookupSym (curident);
3754   Expect (mcReserved_equaltok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
3755   ConstExpression (stopset0, stopset1, stopset2);
3756   e = pop ();
3757   mcDebug_assert (decl_isConst (d));
3758   decl_putConst (d, e);
3759 }
3760
3761
3762 /*
3763    ConstExpressionNop := SimpleConstExpr
3764                          % VAR n: node ;  %
3765                          [ Relation SimpleConstExpr  ]
3766
3767                          % n := makeConstExp ()  %
3768
3769
3770    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3771
3772    cannot reachend
3773 */
3774
3775 static void ConstExpressionNop (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3776 {
3777   decl_node n;
3778
3779   SimpleConstExpr (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_greaterequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_intok-mcReserved_arraytok))), stopset2);
3780   if (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_greaterequaltok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_intok))
3781     {
3782       Relation (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
3783       SimpleConstExpr (stopset0, stopset1, stopset2);
3784     }
3785   n = decl_makeConstExp ();
3786 }
3787
3788
3789 /*
3790    ConstExpression :=
3791                       % VAR n: node ;  %
3792
3793                       % n := push (makeConstExp ())  %
3794                       SimpleConstExpr [ Relation SimpleConstExpr  ]
3795
3796    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3797
3798    cannot reachend
3799 */
3800
3801 static void ConstExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3802 {
3803   decl_node n;
3804
3805   n = push (decl_makeConstExp ());
3806   SimpleConstExpr (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_greaterequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_intok-mcReserved_arraytok))), stopset2);
3807   if (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_greaterequaltok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_intok))
3808     {
3809       Relation (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
3810       SimpleConstExpr (stopset0, stopset1, stopset2);
3811     }
3812 }
3813
3814
3815 /*
3816    Relation := '='  | '#'  | '<>'  | '<'  | '<='  |
3817                '>'  | '>='  | 'IN'
3818
3819    first  symbols:intok, greaterequaltok, greatertok, lessequaltok, lesstok, lessgreatertok, hashtok, equaltok
3820
3821    cannot reachend
3822 */
3823
3824 static void Relation (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3825 {
3826   if (mcLexBuf_currenttoken == mcReserved_equaltok)
3827     {
3828       Expect (mcReserved_equaltok, stopset0, stopset1, stopset2);
3829     }
3830   else if (mcLexBuf_currenttoken == mcReserved_hashtok)
3831     {
3832       /* avoid dangling else.  */
3833       Expect (mcReserved_hashtok, stopset0, stopset1, stopset2);
3834     }
3835   else if (mcLexBuf_currenttoken == mcReserved_lessgreatertok)
3836     {
3837       /* avoid dangling else.  */
3838       Expect (mcReserved_lessgreatertok, stopset0, stopset1, stopset2);
3839     }
3840   else if (mcLexBuf_currenttoken == mcReserved_lesstok)
3841     {
3842       /* avoid dangling else.  */
3843       Expect (mcReserved_lesstok, stopset0, stopset1, stopset2);
3844     }
3845   else if (mcLexBuf_currenttoken == mcReserved_lessequaltok)
3846     {
3847       /* avoid dangling else.  */
3848       Expect (mcReserved_lessequaltok, stopset0, stopset1, stopset2);
3849     }
3850   else if (mcLexBuf_currenttoken == mcReserved_greatertok)
3851     {
3852       /* avoid dangling else.  */
3853       Expect (mcReserved_greatertok, stopset0, stopset1, stopset2);
3854     }
3855   else if (mcLexBuf_currenttoken == mcReserved_greaterequaltok)
3856     {
3857       /* avoid dangling else.  */
3858       Expect (mcReserved_greaterequaltok, stopset0, stopset1, stopset2);
3859     }
3860   else if (mcLexBuf_currenttoken == mcReserved_intok)
3861     {
3862       /* avoid dangling else.  */
3863       Expect (mcReserved_intok, stopset0, stopset1, stopset2);
3864     }
3865   else
3866     {
3867       /* avoid dangling else.  */
3868       ErrorArray ((const char *) "expecting one of: IN >= > <= < <> # =", 37);
3869     }
3870 }
3871
3872
3873 /*
3874    SimpleConstExpr := UnaryOrConstTerm { AddOperator
3875                                          ConstTerm  }
3876
3877    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
3878
3879    cannot reachend
3880 */
3881
3882 static void SimpleConstExpr (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3883 {
3884   UnaryOrConstTerm (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_ortok-mcReserved_arraytok))), stopset2);
3885   while (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_ortok))
3886     {
3887       AddOperator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
3888       ConstTerm (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_ortok-mcReserved_arraytok))), stopset2);
3889     }
3890    /* while  */
3891 }
3892
3893
3894 /*
3895    UnaryOrConstTerm := '+' ConstTerm  |
3896                        '-' ConstTerm  |
3897                        ConstTerm
3898
3899    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
3900
3901    cannot reachend
3902 */
3903
3904 static void UnaryOrConstTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3905 {
3906   if (mcLexBuf_currenttoken == mcReserved_plustok)
3907     {
3908       Expect (mcReserved_plustok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
3909       ConstTerm (stopset0, stopset1, stopset2);
3910     }
3911   else if (mcLexBuf_currenttoken == mcReserved_minustok)
3912     {
3913       /* avoid dangling else.  */
3914       Expect (mcReserved_minustok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
3915       ConstTerm (stopset0, stopset1, stopset2);
3916     }
3917   else if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))))) != 0))))
3918     {
3919       /* avoid dangling else.  */
3920       ConstTerm (stopset0, stopset1, stopset2);
3921     }
3922   else
3923     {
3924       /* avoid dangling else.  */
3925       ErrorArray ((const char *) "expecting one of: NOT ( integer number real number __ATTRIBUTE__ identifier { string - +", 88);
3926     }
3927 }
3928
3929
3930 /*
3931    AddOperator := '+'  | '-'  | 'OR'
3932
3933    first  symbols:ortok, minustok, plustok
3934
3935    cannot reachend
3936 */
3937
3938 static void AddOperator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3939 {
3940   if (mcLexBuf_currenttoken == mcReserved_plustok)
3941     {
3942       Expect (mcReserved_plustok, stopset0, stopset1, stopset2);
3943     }
3944   else if (mcLexBuf_currenttoken == mcReserved_minustok)
3945     {
3946       /* avoid dangling else.  */
3947       Expect (mcReserved_minustok, stopset0, stopset1, stopset2);
3948     }
3949   else if (mcLexBuf_currenttoken == mcReserved_ortok)
3950     {
3951       /* avoid dangling else.  */
3952       Expect (mcReserved_ortok, stopset0, stopset1, stopset2);
3953     }
3954   else
3955     {
3956       /* avoid dangling else.  */
3957       ErrorArray ((const char *) "expecting one of: OR - +", 24);
3958     }
3959 }
3960
3961
3962 /*
3963    ConstTerm := ConstFactor { MulOperator ConstFactor  }
3964
3965    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok
3966
3967    cannot reachend
3968 */
3969
3970 static void ConstTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3971 {
3972   ConstFactor (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ambersandtok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_timestok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_modtok-mcReserved_arraytok)) | (1 << (mcReserved_divtok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_remtok-mcReserved_recordtok))));
3973   while ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_timestok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_ambersandtok-mcReserved_eoftok))))) != 0))) || (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_divtok-mcReserved_arraytok)) | (1 << (mcReserved_modtok-mcReserved_arraytok))))) != 0)))) || (mcLexBuf_currenttoken == mcReserved_remtok))
3974     {
3975       MulOperator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
3976       ConstFactor (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_timestok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_ambersandtok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_divtok-mcReserved_arraytok)) | (1 << (mcReserved_modtok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_remtok-mcReserved_recordtok))));
3977     }
3978    /* while  */
3979 }
3980
3981
3982 /*
3983    MulOperator := '*'  | '/'  | 'DIV'  | 'MOD'  |
3984                   'REM'  | 'AND'  | '&'
3985
3986    first  symbols:ambersandtok, andtok, remtok, modtok, divtok, dividetok, timestok
3987
3988    cannot reachend
3989 */
3990
3991 static void MulOperator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
3992 {
3993   if (mcLexBuf_currenttoken == mcReserved_timestok)
3994     {
3995       Expect (mcReserved_timestok, stopset0, stopset1, stopset2);
3996     }
3997   else if (mcLexBuf_currenttoken == mcReserved_dividetok)
3998     {
3999       /* avoid dangling else.  */
4000       Expect (mcReserved_dividetok, stopset0, stopset1, stopset2);
4001     }
4002   else if (mcLexBuf_currenttoken == mcReserved_divtok)
4003     {
4004       /* avoid dangling else.  */
4005       Expect (mcReserved_divtok, stopset0, stopset1, stopset2);
4006     }
4007   else if (mcLexBuf_currenttoken == mcReserved_modtok)
4008     {
4009       /* avoid dangling else.  */
4010       Expect (mcReserved_modtok, stopset0, stopset1, stopset2);
4011     }
4012   else if (mcLexBuf_currenttoken == mcReserved_remtok)
4013     {
4014       /* avoid dangling else.  */
4015       Expect (mcReserved_remtok, stopset0, stopset1, stopset2);
4016     }
4017   else if (mcLexBuf_currenttoken == mcReserved_andtok)
4018     {
4019       /* avoid dangling else.  */
4020       Expect (mcReserved_andtok, stopset0, stopset1, stopset2);
4021     }
4022   else if (mcLexBuf_currenttoken == mcReserved_ambersandtok)
4023     {
4024       /* avoid dangling else.  */
4025       Expect (mcReserved_ambersandtok, stopset0, stopset1, stopset2);
4026     }
4027   else
4028     {
4029       /* avoid dangling else.  */
4030       ErrorArray ((const char *) "expecting one of: & AND REM MOD DIV / *", 39);
4031     }
4032 }
4033
4034
4035 /*
4036    ConstFactor := Number  | ConstString  |
4037                   ConstSetOrQualidentOrFunction  |
4038                   '(' ConstExpressionNop ')'  |
4039                   'NOT' ConstFactor  |
4040                   ConstAttribute
4041
4042    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok
4043
4044    cannot reachend
4045 */
4046
4047 static void ConstFactor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4048 {
4049   if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok))))) != 0)))
4050     {
4051       Number (stopset0, stopset1, stopset2);
4052     }
4053   else if (mcLexBuf_currenttoken == mcReserved_stringtok)
4054     {
4055       /* avoid dangling else.  */
4056       ConstString (stopset0, stopset1, stopset2);
4057     }
4058   else if ((mcLexBuf_currenttoken == mcReserved_lcbratok) || (mcLexBuf_currenttoken == mcReserved_identtok))
4059     {
4060       /* avoid dangling else.  */
4061       ConstSetOrQualidentOrFunction (stopset0, stopset1, stopset2);
4062     }
4063   else if (mcLexBuf_currenttoken == mcReserved_lparatok)
4064     {
4065       /* avoid dangling else.  */
4066       Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4067       ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4068       Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4069     }
4070   else if (mcLexBuf_currenttoken == mcReserved_nottok)
4071     {
4072       /* avoid dangling else.  */
4073       Expect (mcReserved_nottok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4074       ConstFactor (stopset0, stopset1, stopset2);
4075     }
4076   else if (mcLexBuf_currenttoken == mcReserved_attributetok)
4077     {
4078       /* avoid dangling else.  */
4079       ConstAttribute (stopset0, stopset1, stopset2);
4080     }
4081   else
4082     {
4083       /* avoid dangling else.  */
4084       ErrorArray ((const char *) "expecting one of: __ATTRIBUTE__ NOT ( identifier { string integer number real number", 84);
4085     }
4086 }
4087
4088
4089 /*
4090    ConstString := string
4091
4092    first  symbols:stringtok
4093
4094    cannot reachend
4095 */
4096
4097 static void ConstString (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4098 {
4099   string (stopset0, stopset1, stopset2);
4100 }
4101
4102
4103 /*
4104    ComponentElement := ConstExpressionNop [ '..' ConstExpressionNop  ]
4105
4106    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4107
4108    cannot reachend
4109 */
4110
4111 static void ComponentElement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4112 {
4113   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodperiodtok-mcReserved_eoftok))), stopset1, stopset2);
4114   if (mcLexBuf_currenttoken == mcReserved_periodperiodtok)
4115     {
4116       Expect (mcReserved_periodperiodtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4117       ConstExpressionNop (stopset0, stopset1, stopset2);
4118     }
4119 }
4120
4121
4122 /*
4123    ComponentValue := ComponentElement [ 'BY' ConstExpressionNop  ]
4124
4125    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
4126
4127    cannot reachend
4128 */
4129
4130 static void ComponentValue (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4131 {
4132   ComponentElement (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_bytok-mcReserved_arraytok))), stopset2);
4133   if (mcLexBuf_currenttoken == mcReserved_bytok)
4134     {
4135       Expect (mcReserved_bytok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4136       ConstExpressionNop (stopset0, stopset1, stopset2);
4137     }
4138 }
4139
4140
4141 /*
4142    ArraySetRecordValue := ComponentValue { ',' ComponentValue  }
4143
4144    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4145
4146    cannot reachend
4147 */
4148
4149 static void ArraySetRecordValue (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4150 {
4151   ComponentValue (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4152   while (mcLexBuf_currenttoken == mcReserved_commatok)
4153     {
4154       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4155       ComponentValue (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4156     }
4157    /* while  */
4158 }
4159
4160
4161 /*
4162    Constructor := '{' [ ArraySetRecordValue  ] '}'
4163
4164    first  symbols:lcbratok
4165
4166    cannot reachend
4167 */
4168
4169 static void Constructor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4170 {
4171   Expect (mcReserved_lcbratok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rcbratok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
4172   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))))) != 0))))
4173     {
4174       ArraySetRecordValue (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rcbratok-mcReserved_eoftok))), stopset1, stopset2);
4175     }
4176   Expect (mcReserved_rcbratok, stopset0, stopset1, stopset2);
4177 }
4178
4179
4180 /*
4181    ConstSetOrQualidentOrFunction := Qualident [ Constructor  |
4182                                                 ConstActualParameters  ]  |
4183                                     Constructor
4184
4185    first  symbols:lcbratok, identtok
4186
4187    cannot reachend
4188 */
4189
4190 static void ConstSetOrQualidentOrFunction (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4191 {
4192   if (mcLexBuf_currenttoken == mcReserved_identtok)
4193     {
4194       /* avoid dangling else.  */
4195       Qualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lcbratok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
4196       if ((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0)))
4197         {
4198           /* avoid gcc warning by using compound statement even if not strictly necessary.  */
4199           /* seen optional [ | ] expression  */
4200           if (mcLexBuf_currenttoken == mcReserved_lcbratok)
4201             {
4202               Constructor (stopset0, stopset1, stopset2);
4203             }
4204           else if (mcLexBuf_currenttoken == mcReserved_lparatok)
4205             {
4206               /* avoid dangling else.  */
4207               ConstActualParameters (stopset0, stopset1, stopset2);
4208             }
4209           else
4210             {
4211               /* avoid dangling else.  */
4212               ErrorArray ((const char *) "expecting one of: ( {", 21);
4213             }
4214         }
4215       /* end of optional [ | ] expression  */
4216     }
4217   else if (mcLexBuf_currenttoken == mcReserved_lcbratok)
4218     {
4219       /* avoid dangling else.  */
4220       Constructor (stopset0, stopset1, stopset2);
4221     }
4222   else
4223     {
4224       /* avoid dangling else.  */
4225       ErrorArray ((const char *) "expecting one of: { identifier", 30);
4226     }
4227 }
4228
4229
4230 /*
4231    ConstActualParameters := '(' [ ConstExpList  ] ')'
4232
4233    first  symbols:lparatok
4234
4235    cannot reachend
4236 */
4237
4238 static void ConstActualParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4239 {
4240   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
4241   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))))) != 0))))
4242     {
4243       ConstExpList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4244     }
4245   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4246 }
4247
4248
4249 /*
4250    ConstExpList := ConstExpressionNop { ',' ConstExpressionNop  }
4251
4252    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4253
4254    cannot reachend
4255 */
4256
4257 static void ConstExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4258 {
4259   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4260   while (mcLexBuf_currenttoken == mcReserved_commatok)
4261     {
4262       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4263       ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4264     }
4265    /* while  */
4266 }
4267
4268
4269 /*
4270    ConstAttribute := '__ATTRIBUTE__' '__BUILTIN__'
4271                      '(' '(' ConstAttributeExpression
4272                      ')' ')'
4273
4274    first  symbols:attributetok
4275
4276    cannot reachend
4277 */
4278
4279 static void ConstAttribute (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4280 {
4281   Expect (mcReserved_attributetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_builtintok-mcReserved_recordtok))));
4282   Expect (mcReserved_builtintok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
4283   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
4284   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lesstok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4285   ConstAttributeExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4286   Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4287   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4288 }
4289
4290
4291 /*
4292    ConstAttributeExpression := Ident  | '<' Qualident
4293                                ',' Ident '>'
4294
4295    first  symbols:lesstok, identtok
4296
4297    cannot reachend
4298 */
4299
4300 static void ConstAttributeExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4301 {
4302   if (mcLexBuf_currenttoken == mcReserved_identtok)
4303     {
4304       Ident (stopset0, stopset1, stopset2);
4305     }
4306   else if (mcLexBuf_currenttoken == mcReserved_lesstok)
4307     {
4308       /* avoid dangling else.  */
4309       Expect (mcReserved_lesstok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4310       Qualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4311       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4312       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_greatertok-mcReserved_eoftok))), stopset1, stopset2);
4313       Expect (mcReserved_greatertok, stopset0, stopset1, stopset2);
4314     }
4315   else
4316     {
4317       /* avoid dangling else.  */
4318       ErrorArray ((const char *) "expecting one of: < identifier", 30);
4319     }
4320 }
4321
4322
4323 /*
4324    ByteAlignment := ''
4325
4326    first  symbols:ldirectivetok
4327
4328    cannot reachend
4329 */
4330
4331 static void ByteAlignment (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4332 {
4333   Expect (mcReserved_ldirectivetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4334   AttributeExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rdirectivetok-mcReserved_eoftok))), stopset1, stopset2);
4335   Expect (mcReserved_rdirectivetok, stopset0, stopset1, stopset2);
4336 }
4337
4338
4339 /*
4340    OptAlignmentExpression := [ AlignmentExpression  ]
4341
4342    first  symbols:lparatok
4343
4344    reachend
4345 */
4346
4347 static void OptAlignmentExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4348 {
4349   if (mcLexBuf_currenttoken == mcReserved_lparatok)
4350     {
4351       AlignmentExpression (stopset0, stopset1, stopset2);
4352     }
4353 }
4354
4355
4356 /*
4357    AlignmentExpression := '(' ConstExpressionNop ')'
4358
4359    first  symbols:lparatok
4360
4361    cannot reachend
4362 */
4363
4364 static void AlignmentExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4365 {
4366   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4367   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4368   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4369 }
4370
4371
4372 /*
4373    Alignment := [ ByteAlignment  ]
4374
4375    first  symbols:ldirectivetok
4376
4377    reachend
4378 */
4379
4380 static void Alignment (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4381 {
4382   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
4383     {
4384       ByteAlignment (stopset0, stopset1, stopset2);
4385     }
4386 }
4387
4388
4389 /*
4390    IdentList := Ident { ',' Ident  }
4391
4392    first  symbols:identtok
4393
4394    cannot reachend
4395 */
4396
4397 static void IdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4398 {
4399   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4400   while (mcLexBuf_currenttoken == mcReserved_commatok)
4401     {
4402       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4403       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4404     }
4405    /* while  */
4406 }
4407
4408
4409 /*
4410    PushIdentList :=
4411                     % VAR n: node ;  %
4412
4413                     % n := makeIdentList ()  %
4414                     Ident
4415                     % checkDuplicate (putIdent (n, curident))  %
4416                     { ',' Ident
4417                       % checkDuplicate (putIdent (n, curident))  %
4418                        }
4419                     % n := push (n)  %
4420
4421
4422    first  symbols:identtok
4423
4424    cannot reachend
4425 */
4426
4427 static void PushIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4428 {
4429   decl_node n;
4430
4431   n = decl_makeIdentList ();
4432   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4433   checkDuplicate (decl_putIdent (n, curident));
4434   while (mcLexBuf_currenttoken == mcReserved_commatok)
4435     {
4436       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4437       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4438       checkDuplicate (decl_putIdent (n, curident));
4439     }
4440    /* while  */
4441   n = push (n);
4442 }
4443
4444
4445 /*
4446    SubrangeType :=
4447                    % VAR low, high: node ; d: CARDINAL ;  %
4448                    '['
4449                    % d := depth ()  %
4450                    ConstExpression
4451                    % low := pop ()  %
4452
4453                    % assert (d = depth ())  %
4454                    '..' ConstExpression
4455                    % high := pop ()  %
4456
4457                    % assert (d = depth ())  %
4458
4459                    % typeExp := push (makeSubrange (low, high))  %
4460
4461                    % assert (d = depth () - 1)  %
4462                    ']'
4463
4464    first  symbols:lsbratok
4465
4466    cannot reachend
4467 */
4468
4469 static void SubrangeType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4470 {
4471   decl_node low;
4472   decl_node high;
4473   unsigned int d;
4474
4475   Expect (mcReserved_lsbratok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4476   d = depth ();
4477   ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodperiodtok-mcReserved_eoftok))), stopset1, stopset2);
4478   low = pop ();
4479   mcDebug_assert (d == (depth ()));
4480   Expect (mcReserved_periodperiodtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4481   ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
4482   high = pop ();
4483   mcDebug_assert (d == (depth ()));
4484   typeExp = push (decl_makeSubrange (low, high));
4485   mcDebug_assert (d == ((depth ())-1));
4486   Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
4487 }
4488
4489
4490 /*
4491    ArrayType := 'ARRAY'
4492                 % VAR c: CARDINAL ; t, n: node ;  %
4493
4494                 % c := 0  %
4495                 SimpleType
4496                 % INC (c)  %
4497                 { ',' SimpleType
4498                   % INC (c)  %
4499                    } 'OF' Type
4500                 % n := push (makeIndexedArray (c, pop ()))  %
4501
4502
4503    first  symbols:arraytok
4504
4505    cannot reachend
4506 */
4507
4508 static void ArrayType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4509 {
4510   unsigned int c;
4511   decl_node t;
4512   decl_node n;
4513
4514   Expect (mcReserved_arraytok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4515   c = 0;
4516   SimpleType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
4517   c += 1;
4518   while (mcLexBuf_currenttoken == mcReserved_commatok)
4519     {
4520       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4521       SimpleType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
4522       c += 1;
4523     }
4524    /* while  */
4525   Expect (mcReserved_oftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_pointertok-mcReserved_arraytok)) | (1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok)) | (1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_settok-mcReserved_recordtok)) | (1 << (mcReserved_recordtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
4526   Type (stopset0, stopset1, stopset2);
4527   n = push (makeIndexedArray (c, pop ()));
4528 }
4529
4530
4531 /*
4532    RecordType := 'RECORD'
4533                  % VAR n: node ;  %
4534
4535                  % n := push (makeRecord ())  %
4536
4537                  % n := push (NIL)     no varient   %
4538                  [ DefaultRecordAttributes  ] FieldListSequence
4539
4540                  % assert (pop ()=NIL)  %
4541                  'END'
4542
4543    first  symbols:recordtok
4544
4545    cannot reachend
4546 */
4547
4548 static void RecordType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4549 {
4550   decl_node n;
4551
4552   Expect (mcReserved_recordtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok)) | (1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4553   n = push (decl_makeRecord ());
4554   n = push (static_cast<decl_node> (NULL));  /* no varient  */
4555   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
4556     {
4557       DefaultRecordAttributes (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4558     }
4559   FieldListSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
4560   mcDebug_assert ((pop ()) == NULL);
4561   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
4562 }
4563
4564
4565 /*
4566    DefaultRecordAttributes := ''
4567
4568    first  symbols:ldirectivetok
4569
4570    cannot reachend
4571 */
4572
4573 static void DefaultRecordAttributes (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4574 {
4575   Expect (mcReserved_ldirectivetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4576   AttributeExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rdirectivetok-mcReserved_eoftok))), stopset1, stopset2);
4577   Expect (mcReserved_rdirectivetok, stopset0, stopset1, stopset2);
4578 }
4579
4580
4581 /*
4582    RecordFieldPragma := [ ''  ]
4583
4584    first  symbols:ldirectivetok
4585
4586    reachend
4587 */
4588
4589 static void RecordFieldPragma (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4590 {
4591   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
4592     {
4593       Expect (mcReserved_ldirectivetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4594       FieldPragmaExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok)) | (1 << (mcReserved_rdirectivetok-mcReserved_eoftok))), stopset1, stopset2);
4595       while (mcLexBuf_currenttoken == mcReserved_commatok)
4596         {
4597           Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4598           FieldPragmaExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rdirectivetok-mcReserved_eoftok)) | (1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
4599         }
4600        /* while  */
4601       Expect (mcReserved_rdirectivetok, stopset0, stopset1, stopset2);
4602     }
4603 }
4604
4605
4606 /*
4607    FieldPragmaExpression := Ident PragmaConstExpression
4608
4609    first  symbols:identtok
4610
4611    cannot reachend
4612 */
4613
4614 static void FieldPragmaExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4615 {
4616   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
4617   PragmaConstExpression (stopset0, stopset1, stopset2);
4618 }
4619
4620
4621 /*
4622    PragmaConstExpression := [ '(' ConstExpressionNop
4623                               ')'  ]
4624
4625    first  symbols:lparatok
4626
4627    reachend
4628 */
4629
4630 static void PragmaConstExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4631 {
4632   if (mcLexBuf_currenttoken == mcReserved_lparatok)
4633     {
4634       Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4635       ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4636       Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4637     }
4638 }
4639
4640
4641 /*
4642    AttributeExpression := Ident '(' ConstExpressionNop
4643                           ')'
4644
4645    first  symbols:identtok
4646
4647    cannot reachend
4648 */
4649
4650 static void AttributeExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4651 {
4652   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
4653   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
4654   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
4655   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
4656 }
4657
4658
4659 /*
4660    FieldListSequence := FieldListStatement { ';' FieldListStatement  }
4661
4662    first  symbols:casetok, identtok, semicolontok
4663
4664    reachend
4665 */
4666
4667 static void FieldListSequence (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4668 {
4669   FieldListStatement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
4670   while (mcLexBuf_currenttoken == mcReserved_semicolontok)
4671     {
4672       Expect (mcReserved_semicolontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_casetok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4673       FieldListStatement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
4674     }
4675    /* while  */
4676 }
4677
4678
4679 /*
4680    FieldListStatement := [ FieldList  ]
4681
4682    first  symbols:identtok, casetok
4683
4684    reachend
4685 */
4686
4687 static void FieldListStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4688 {
4689   if ((mcLexBuf_currenttoken == mcReserved_casetok) || (mcLexBuf_currenttoken == mcReserved_identtok))
4690     {
4691       FieldList (stopset0, stopset1, stopset2);
4692     }
4693 }
4694
4695
4696 /*
4697    FieldList :=
4698                 % VAR r, i, f, t, n, v, w: node ; d: CARDINAL ;  %
4699
4700                 % d := depth ()  %
4701
4702                 % v := pop () ; assert ((v=NIL) OR isVarient (v))  %
4703
4704                 % r := peep () ; assert (isRecord (r) OR isVarientField (r))  %
4705
4706                 % v := push (v)  %
4707
4708                 % assert (d=depth ())  %
4709
4710                 % assert (((v=NIL) AND isRecord (r)) OR ((v#NIL) AND isVarientField (r)))  %
4711                 PushIdentList ':'
4712                 % assert (d=depth () - 1)  %
4713
4714                 % i := pop ()  %
4715                 Type
4716                 % assert (d=depth () - 1)  %
4717
4718                 % t := pop ()  %
4719                 RecordFieldPragma
4720                 % assert (d=depth ())  %
4721
4722                 % r := addFieldsToRecord (r, v, i, t)  %
4723
4724                 % assert (d=depth ())  %
4725                  |
4726                 'CASE'
4727                 %  addRecordToList   %
4728
4729                 % d := depth ()  %
4730
4731                 % v := pop () ; assert ((v=NIL) OR isVarient (v))  %
4732
4733                 % r := peep () ; assert (isRecord (r) OR isVarientField (r))  %
4734
4735                 % v := push (v)  %
4736
4737                 % assert (((v=NIL) AND isRecord (r)) OR ((v#NIL) AND isRecordField (r)))  %
4738
4739                 % w := push (makeVarient (r))  %
4740
4741                 % assert (d = depth () - 1)  %
4742
4743                 %  addVarientToList   %
4744                 CaseTag 'OF'
4745                 % assert (d = depth () - 1)  %
4746                 Varient
4747                 % assert (d = depth () - 1)  %
4748                 { '|' Varient
4749                   % assert (d = depth () - 1)  %
4750                    }
4751                 % w := peep () ; assert (isVarient (w))  %
4752
4753                 % assert (d = depth () - 1)  %
4754                 [ 'ELSE' FieldListSequence  ] 'END'
4755
4756                 % w := pop () ; assert (isVarient (w))  %
4757
4758                 % assert (d=depth ())  %
4759
4760
4761    first  symbols:casetok, identtok
4762
4763    cannot reachend
4764 */
4765
4766 static void FieldList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4767 {
4768   decl_node r;
4769   decl_node i;
4770   decl_node f;
4771   decl_node t;
4772   decl_node n;
4773   decl_node v;
4774   decl_node w;
4775   unsigned int d;
4776
4777   if (mcLexBuf_currenttoken == mcReserved_identtok)
4778     {
4779       d = depth ();
4780       v = pop ();
4781       mcDebug_assert ((v == NULL) || (decl_isVarient (v)));
4782       r = peep ();
4783       mcDebug_assert ((decl_isRecord (r)) || (decl_isVarientField (r)));
4784       v = push (v);
4785       mcDebug_assert (d == (depth ()));
4786       mcDebug_assert (((v == NULL) && (decl_isRecord (r))) || ((v != NULL) && (decl_isVarientField (r))));
4787       PushIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
4788       Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_pointertok-mcReserved_arraytok)) | (1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok)) | (1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_settok-mcReserved_recordtok)) | (1 << (mcReserved_recordtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
4789       mcDebug_assert (d == ((depth ())-1));
4790       i = pop ();
4791       Type (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
4792       mcDebug_assert (d == ((depth ())-1));
4793       t = pop ();
4794       RecordFieldPragma (stopset0, stopset1, stopset2);
4795       mcDebug_assert (d == (depth ()));
4796       r = decl_addFieldsToRecord (r, v, i, t);
4797       mcDebug_assert (d == (depth ()));
4798     }
4799   else if (mcLexBuf_currenttoken == mcReserved_casetok)
4800     {
4801       /* avoid dangling else.  */
4802       Expect (mcReserved_casetok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4803       /* addRecordToList  */
4804       d = depth ();
4805       v = pop ();
4806       mcDebug_assert ((v == NULL) || (decl_isVarient (v)));
4807       r = peep ();
4808       mcDebug_assert ((decl_isRecord (r)) || (decl_isVarientField (r)));
4809       v = push (v);
4810       mcDebug_assert (((v == NULL) && (decl_isRecord (r))) || ((v != NULL) && (decl_isRecordField (r))));
4811       w = push (decl_makeVarient (r));
4812       mcDebug_assert (d == ((depth ())-1));
4813       /* addVarientToList  */
4814       CaseTag (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
4815       Expect (mcReserved_oftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
4816       mcDebug_assert (d == ((depth ())-1));
4817       Varient (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
4818       mcDebug_assert (d == ((depth ())-1));
4819       while (mcLexBuf_currenttoken == mcReserved_bartok)
4820         {
4821           Expect (mcReserved_bartok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
4822           Varient (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok))), stopset2);
4823           mcDebug_assert (d == ((depth ())-1));
4824         }
4825        /* while  */
4826       w = peep ();
4827       mcDebug_assert (decl_isVarient (w));
4828       mcDebug_assert (d == ((depth ())-1));
4829       if (mcLexBuf_currenttoken == mcReserved_elsetok)
4830         {
4831           Expect (mcReserved_elsetok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4832           FieldListSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
4833         }
4834       Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
4835       w = pop ();
4836       mcDebug_assert (decl_isVarient (w));
4837       mcDebug_assert (d == (depth ()));
4838     }
4839   else
4840     {
4841       /* avoid dangling else.  */
4842       ErrorArray ((const char *) "expecting one of: CASE identifier", 33);
4843     }
4844 }
4845
4846
4847 /*
4848    TagIdent := Ident  |
4849                % curident := NulName  %
4850
4851
4852    first  symbols:identtok
4853
4854    reachend
4855 */
4856
4857 static void TagIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4858 {
4859   if (mcLexBuf_currenttoken == mcReserved_identtok)
4860     {
4861       Ident (stopset0, stopset1, stopset2);
4862     }
4863   else
4864     {
4865       curident = nameKey_NulName;
4866     }
4867 }
4868
4869
4870 /*
4871    CaseTag :=
4872               % VAR tagident: Name ; q, v, w, r: node ;  %
4873
4874               % w := pop () ; v := pop () ; r := peep () ; v := push (v) ; w := push (w)  %
4875
4876               % assert (isVarient (w))  %
4877
4878               % assert ((v=NIL) OR isVarient (v))  %
4879
4880               % assert (isRecord (r) OR isVarientField (r))  %
4881
4882               % assert (isVarient (push (pop ())))  %
4883               TagIdent
4884               % tagident := curident  %
4885               ( ':' PushQualident
4886                 % q := pop ()  %
4887
4888                 % assert (isVarient (push (pop ())))  %
4889                  |
4890                 % q := NIL  %
4891                  )
4892               % buildVarientSelector (r, w, tagident, q)  %
4893
4894
4895    first  symbols:colontok, identtok
4896
4897    reachend
4898 */
4899
4900 static void CaseTag (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4901 {
4902   nameKey_Name tagident;
4903   decl_node q;
4904   decl_node v;
4905   decl_node w;
4906   decl_node r;
4907
4908   w = pop ();
4909   v = pop ();
4910   r = peep ();
4911   v = push (v);
4912   w = push (w);
4913   mcDebug_assert (decl_isVarient (w));
4914   mcDebug_assert ((v == NULL) || (decl_isVarient (v)));
4915   mcDebug_assert ((decl_isRecord (r)) || (decl_isVarientField (r)));
4916   mcDebug_assert (decl_isVarient (push (pop ())));
4917   TagIdent (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
4918   tagident = curident;
4919   if (mcLexBuf_currenttoken == mcReserved_colontok)
4920     {
4921       Expect (mcReserved_colontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4922       PushQualident (stopset0, stopset1, stopset2);
4923       q = pop ();
4924       mcDebug_assert (decl_isVarient (push (pop ())));
4925     }
4926   else
4927     {
4928       q = static_cast<decl_node> (NULL);
4929     }
4930   decl_buildVarientSelector (r, w, tagident, q);
4931 }
4932
4933
4934 /*
4935    Varient :=
4936               % VAR p, r, v, f: node ; d: CARDINAL ;  %
4937
4938               % d := depth ()  %
4939
4940               % assert (isVarient (peep ()))  %
4941               [
4942                 % v := pop () ; assert (isVarient (v))  %
4943
4944                 % r := pop ()  %
4945
4946                 % p := peep ()  %
4947
4948                 % r := push (r)  %
4949
4950                 % f := push (buildVarientFieldRecord (v, p))  %
4951
4952                 % v := push (v)  %
4953                 VarientCaseLabelList ':' FieldListSequence
4954
4955                 % v := pop ()  %
4956
4957                 % f := pop ()  %
4958
4959                 % assert (isVarientField (f))  %
4960
4961                 % assert (isVarient (v))  %
4962
4963                 % v := push (v)  %
4964                  ]
4965               % assert (isVarient (peep ()))  %
4966
4967               % assert (d=depth ())  %
4968
4969
4970    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
4971
4972    reachend
4973 */
4974
4975 static void Varient (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
4976 {
4977   decl_node p;
4978   decl_node r;
4979   decl_node v;
4980   decl_node f;
4981   unsigned int d;
4982
4983   d = depth ();
4984   mcDebug_assert (decl_isVarient (peep ()));
4985   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))))) != 0))))
4986     {
4987       v = pop ();
4988       mcDebug_assert (decl_isVarient (v));
4989       r = pop ();
4990       p = peep ();
4991       r = push (r);
4992       f = push (decl_buildVarientFieldRecord (v, p));
4993       v = push (v);
4994       VarientCaseLabelList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
4995       Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_casetok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
4996       FieldListSequence (stopset0, stopset1, stopset2);
4997       v = pop ();
4998       f = pop ();
4999       mcDebug_assert (decl_isVarientField (f));
5000       mcDebug_assert (decl_isVarient (v));
5001       v = push (v);
5002     }
5003   mcDebug_assert (decl_isVarient (peep ()));
5004   mcDebug_assert (d == (depth ()));
5005 }
5006
5007
5008 /*
5009    VarientCaseLabelList := VarientCaseLabels { ','
5010                                                VarientCaseLabels  }
5011
5012    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
5013
5014    cannot reachend
5015 */
5016
5017 static void VarientCaseLabelList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5018 {
5019   VarientCaseLabels (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5020   while (mcLexBuf_currenttoken == mcReserved_commatok)
5021     {
5022       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
5023       VarientCaseLabels (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5024     }
5025    /* while  */
5026 }
5027
5028
5029 /*
5030    VarientCaseLabels :=
5031                         % VAR l, h: node ;  %
5032
5033                         % h := NIL  %
5034                         ConstExpression
5035                         % l := pop ()  %
5036                         [ '..' ConstExpression
5037                           % h := pop ()  %
5038                            ]
5039                         %  l, h  could be saved if necessary.    %
5040
5041
5042    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
5043
5044    cannot reachend
5045 */
5046
5047 static void VarientCaseLabels (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5048 {
5049   decl_node l;
5050   decl_node h;
5051
5052   h = static_cast<decl_node> (NULL);
5053   ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodperiodtok-mcReserved_eoftok))), stopset1, stopset2);
5054   l = pop ();
5055   if (mcLexBuf_currenttoken == mcReserved_periodperiodtok)
5056     {
5057       Expect (mcReserved_periodperiodtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
5058       ConstExpression (stopset0, stopset1, stopset2);
5059       h = pop ();
5060     }
5061 }
5062
5063
5064 /*
5065    SetType := ( 'SET'  | 'PACKEDSET'  ) 'OF' SimpleType
5066
5067               % VAR n: node ;  %
5068
5069               % n := push (makeSet (pop ()))  %
5070
5071
5072    first  symbols:oftok, packedsettok, settok
5073
5074    cannot reachend
5075 */
5076
5077 static void SetType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5078 {
5079   decl_node n;
5080
5081   if (mcLexBuf_currenttoken == mcReserved_settok)
5082     {
5083       Expect (mcReserved_settok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
5084     }
5085   else if (mcLexBuf_currenttoken == mcReserved_packedsettok)
5086     {
5087       /* avoid dangling else.  */
5088       Expect (mcReserved_packedsettok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
5089     }
5090   else
5091     {
5092       /* avoid dangling else.  */
5093       ErrorArray ((const char *) "expecting one of: PACKEDSET SET", 31);
5094     }
5095   Expect (mcReserved_oftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5096   SimpleType (stopset0, stopset1, stopset2);
5097   n = push (decl_makeSet (pop ()));
5098 }
5099
5100
5101 /*
5102    PointerType := 'POINTER' 'TO' Type
5103                   % VAR n: node ;  %
5104
5105                   % n := push (makePointer (pop ()))  %
5106
5107
5108    first  symbols:pointertok
5109
5110    cannot reachend
5111 */
5112
5113 static void PointerType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5114 {
5115   decl_node n;
5116
5117   Expect (mcReserved_pointertok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_totok-mcReserved_recordtok))));
5118   Expect (mcReserved_totok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_pointertok-mcReserved_arraytok)) | (1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok)) | (1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_settok-mcReserved_recordtok)) | (1 << (mcReserved_recordtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5119   Type (stopset0, stopset1, stopset2);
5120   n = push (decl_makePointer (pop ()));
5121 }
5122
5123
5124 /*
5125    ProcedureType := 'PROCEDURE'
5126                     % curproc := push (makeProcType ())  %
5127                     [ FormalTypeList  ]
5128
5129    first  symbols:proceduretok
5130
5131    cannot reachend
5132 */
5133
5134 static void ProcedureType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5135 {
5136   Expect (mcReserved_proceduretok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
5137   curproc = push (decl_makeProcType ());
5138   if (mcLexBuf_currenttoken == mcReserved_lparatok)
5139     {
5140       FormalTypeList (stopset0, stopset1, stopset2);
5141     }
5142 }
5143
5144
5145 /*
5146    FormalTypeList := '(' ( ')' FormalReturn  |
5147                            ProcedureParameters ')'
5148                            FormalReturn  )
5149
5150    first  symbols:lparatok
5151
5152    cannot reachend
5153 */
5154
5155 static void FormalTypeList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5156 {
5157   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5158   if (mcLexBuf_currenttoken == mcReserved_rparatok)
5159     {
5160       Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
5161       FormalReturn (stopset0, stopset1, stopset2);
5162     }
5163   else if ((mcLexBuf_currenttoken == mcReserved_arraytok) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5164     {
5165       /* avoid dangling else.  */
5166       ProcedureParameters (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
5167       Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
5168       FormalReturn (stopset0, stopset1, stopset2);
5169     }
5170   else
5171     {
5172       /* avoid dangling else.  */
5173       ErrorArray ((const char *) "expecting one of: VAR ... ARRAY identifier )", 44);
5174     }
5175 }
5176
5177
5178 /*
5179    FormalReturn := [ ':' OptReturnType  ]
5180
5181    first  symbols:colontok
5182
5183    reachend
5184 */
5185
5186 static void FormalReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5187 {
5188   if (mcLexBuf_currenttoken == mcReserved_colontok)
5189     {
5190       Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5191       OptReturnType (stopset0, stopset1, stopset2);
5192     }
5193 }
5194
5195
5196 /*
5197    OptReturnType := '[' PushQualident
5198                     % putReturnType (curproc, pop ())  %
5199
5200                     % putOptReturn (curproc)  %
5201                     ']'  | PushQualident
5202                     % putReturnType (curproc, pop ())  %
5203
5204
5205    first  symbols:identtok, lsbratok
5206
5207    cannot reachend
5208 */
5209
5210 static void OptReturnType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5211 {
5212   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
5213     {
5214       Expect (mcReserved_lsbratok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5215       PushQualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
5216       decl_putReturnType (curproc, pop ());
5217       decl_putOptReturn (curproc);
5218       Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
5219     }
5220   else if (mcLexBuf_currenttoken == mcReserved_identtok)
5221     {
5222       /* avoid dangling else.  */
5223       PushQualident (stopset0, stopset1, stopset2);
5224       decl_putReturnType (curproc, pop ());
5225     }
5226   else
5227     {
5228       /* avoid dangling else.  */
5229       ErrorArray ((const char *) "expecting one of: identifier [", 30);
5230     }
5231 }
5232
5233
5234 /*
5235    ProcedureParameters := ProcedureParameter
5236                           % addParameter (curproc, pop ())  %
5237                           { ',' ProcedureParameter
5238
5239                             % addParameter (curproc, pop ())  %
5240                              }
5241
5242    first  symbols:identtok, arraytok, periodperiodperiodtok, vartok
5243
5244    cannot reachend
5245 */
5246
5247 static void ProcedureParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5248 {
5249   ProcedureParameter (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5250   decl_addParameter (curproc, pop ());
5251   while (mcLexBuf_currenttoken == mcReserved_commatok)
5252     {
5253       Expect (mcReserved_commatok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5254       ProcedureParameter (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5255       decl_addParameter (curproc, pop ());
5256     }
5257    /* while  */
5258 }
5259
5260
5261 /*
5262    ProcedureParameter := '...'
5263                          % VAR n: node ;  %
5264
5265                          % n := push (makeVarargs ())  %
5266                           | 'VAR' FormalType
5267                          % n := push (makeVarParameter (NIL, pop (), curproc, TRUE))  %
5268                           | FormalType
5269                          % n := push (makeNonVarParameter (NIL, pop (), curproc, TRUE))  %
5270
5271
5272    first  symbols:identtok, arraytok, vartok, periodperiodperiodtok
5273
5274    cannot reachend
5275 */
5276
5277 static void ProcedureParameter (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5278 {
5279   decl_node n;
5280
5281   if (mcLexBuf_currenttoken == mcReserved_periodperiodperiodtok)
5282     {
5283       Expect (mcReserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
5284       n = push (decl_makeVarargs ());
5285     }
5286   else if (mcLexBuf_currenttoken == mcReserved_vartok)
5287     {
5288       /* avoid dangling else.  */
5289       Expect (mcReserved_vartok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5290       FormalType (stopset0, stopset1, stopset2);
5291       n = push (decl_makeVarParameter (static_cast<decl_node> (NULL), pop (), curproc, true));
5292     }
5293   else if ((mcLexBuf_currenttoken == mcReserved_arraytok) || (mcLexBuf_currenttoken == mcReserved_identtok))
5294     {
5295       /* avoid dangling else.  */
5296       FormalType (stopset0, stopset1, stopset2);
5297       n = push (decl_makeNonVarParameter (static_cast<decl_node> (NULL), pop (), curproc, true));
5298     }
5299   else
5300     {
5301       /* avoid dangling else.  */
5302       ErrorArray ((const char *) "expecting one of: ARRAY identifier VAR ...", 42);
5303     }
5304 }
5305
5306
5307 /*
5308    VarIdent :=
5309                % VAR n, a: node ;  %
5310
5311                % n := pop ()  %
5312                Ident
5313                % checkDuplicate (putIdent (n, curident))  %
5314
5315                % n := push (n)  %
5316                [ '[' ConstExpression
5317                  % a := pop ()   could store, a, into, n.    %
5318                  ']'  ]
5319
5320    first  symbols:identtok
5321
5322    cannot reachend
5323 */
5324
5325 static void VarIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5326 {
5327   decl_node n;
5328   decl_node a;
5329
5330   n = pop ();
5331   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2);
5332   checkDuplicate (decl_putIdent (n, curident));
5333   n = push (n);
5334   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
5335     {
5336       Expect (mcReserved_lsbratok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
5337       ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
5338       a = pop ();  /* could store, a, into, n.  */
5339       Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
5340     }
5341 }
5342
5343
5344 /*
5345    VarIdentList :=
5346                    % VAR n: node ;  %
5347
5348                    % n := makeIdentList ()  %
5349
5350                    % n := push (n)  %
5351                    VarIdent { ',' VarIdent  }
5352
5353    first  symbols:identtok
5354
5355    cannot reachend
5356 */
5357
5358 static void VarIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5359 {
5360   decl_node n;
5361
5362   n = decl_makeIdentList ();
5363   n = push (n);
5364   VarIdent (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5365   while (mcLexBuf_currenttoken == mcReserved_commatok)
5366     {
5367       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5368       VarIdent (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5369     }
5370    /* while  */
5371 }
5372
5373
5374 /*
5375    VariableDeclaration :=
5376                           % VAR v, d: node ;  %
5377                           VarIdentList
5378                           % v := pop ()  %
5379                           ':' Type
5380                           % d := makeVarDecl (v, pop ())  %
5381                           Alignment
5382
5383    first  symbols:identtok
5384
5385    cannot reachend
5386 */
5387
5388 static void VariableDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5389 {
5390   decl_node v;
5391   decl_node d;
5392
5393   VarIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
5394   v = pop ();
5395   Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_pointertok-mcReserved_arraytok)) | (1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok)) | (1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_settok-mcReserved_recordtok)) | (1 << (mcReserved_recordtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5396   Type (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
5397   d = decl_makeVarDecl (v, pop ());
5398   Alignment (stopset0, stopset1, stopset2);
5399 }
5400
5401
5402 /*
5403    Designator := Qualident { SubDesignator  }
5404
5405    first  symbols:identtok
5406
5407    cannot reachend
5408 */
5409
5410 static void Designator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5411 {
5412   Qualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_uparrowtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
5413   while ((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok))))) != 0)))
5414     {
5415       SubDesignator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok))), stopset1, stopset2);
5416     }
5417    /* while  */
5418 }
5419
5420
5421 /*
5422    SubDesignator := '.' Ident  | '[' ArrayExpList ']'  |
5423                     '^'
5424
5425    first  symbols:uparrowtok, lsbratok, periodtok
5426
5427    cannot reachend
5428 */
5429
5430 static void SubDesignator (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5431 {
5432   if (mcLexBuf_currenttoken == mcReserved_periodtok)
5433     {
5434       Expect (mcReserved_periodtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
5435       Ident (stopset0, stopset1, stopset2);
5436     }
5437   else if (mcLexBuf_currenttoken == mcReserved_lsbratok)
5438     {
5439       /* avoid dangling else.  */
5440       Expect (mcReserved_lsbratok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5441       ArrayExpList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
5442       Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
5443     }
5444   else if (mcLexBuf_currenttoken == mcReserved_uparrowtok)
5445     {
5446       /* avoid dangling else.  */
5447       Expect (mcReserved_uparrowtok, stopset0, stopset1, stopset2);
5448     }
5449   else
5450     {
5451       /* avoid dangling else.  */
5452       ErrorArray ((const char *) "expecting one of: ^ [ .", 23);
5453     }
5454 }
5455
5456
5457 /*
5458    ArrayExpList := Expression { ',' Expression  }
5459
5460    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
5461
5462    cannot reachend
5463 */
5464
5465 static void ArrayExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5466 {
5467   Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5468   while (mcLexBuf_currenttoken == mcReserved_commatok)
5469     {
5470       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5471       Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5472     }
5473    /* while  */
5474 }
5475
5476
5477 /*
5478    ExpList := Expression { ',' Expression  }
5479
5480    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
5481
5482    cannot reachend
5483 */
5484
5485 static void ExpList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5486 {
5487   Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5488   while (mcLexBuf_currenttoken == mcReserved_commatok)
5489     {
5490       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5491       Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
5492     }
5493    /* while  */
5494 }
5495
5496
5497 /*
5498    Expression := SimpleExpression [ Relation SimpleExpression  ]
5499
5500    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
5501
5502    cannot reachend
5503 */
5504
5505 static void Expression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5506 {
5507   SimpleExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_greaterequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_intok-mcReserved_arraytok))), stopset2);
5508   if (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok)) | (1 << (mcReserved_hashtok-mcReserved_eoftok)) | (1 << (mcReserved_lessgreatertok-mcReserved_eoftok)) | (1 << (mcReserved_lesstok-mcReserved_eoftok)) | (1 << (mcReserved_lessequaltok-mcReserved_eoftok)) | (1 << (mcReserved_greatertok-mcReserved_eoftok)) | (1 << (mcReserved_greaterequaltok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_intok))
5509     {
5510       Relation (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5511       SimpleExpression (stopset0, stopset1, stopset2);
5512     }
5513 }
5514
5515
5516 /*
5517    SimpleExpression := UnaryOrTerm { AddOperator Term  }
5518
5519    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok, plustok, minustok
5520
5521    cannot reachend
5522 */
5523
5524 static void SimpleExpression (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5525 {
5526   UnaryOrTerm (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_ortok-mcReserved_arraytok))), stopset2);
5527   while (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_ortok))
5528     {
5529       AddOperator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5530       Term (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_ortok-mcReserved_arraytok))), stopset2);
5531     }
5532    /* while  */
5533 }
5534
5535
5536 /*
5537    UnaryOrTerm := '+' Term  | '-' Term  |
5538                   Term
5539
5540    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok, minustok, plustok
5541
5542    cannot reachend
5543 */
5544
5545 static void UnaryOrTerm (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5546 {
5547   if (mcLexBuf_currenttoken == mcReserved_plustok)
5548     {
5549       Expect (mcReserved_plustok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5550       Term (stopset0, stopset1, stopset2);
5551     }
5552   else if (mcLexBuf_currenttoken == mcReserved_minustok)
5553     {
5554       /* avoid dangling else.  */
5555       Expect (mcReserved_minustok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5556       Term (stopset0, stopset1, stopset2);
5557     }
5558   else if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5559     {
5560       /* avoid dangling else.  */
5561       Term (stopset0, stopset1, stopset2);
5562     }
5563   else
5564     {
5565       /* avoid dangling else.  */
5566       ErrorArray ((const char *) "expecting one of: NOT ( string integer number real number identifier { - +", 74);
5567     }
5568 }
5569
5570
5571 /*
5572    Term := Factor { MulOperator Factor  }
5573
5574    first  symbols:lcbratok, identtok, realtok, integertok, stringtok, lparatok, nottok
5575
5576    cannot reachend
5577 */
5578
5579 static void Term (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5580 {
5581   Factor (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ambersandtok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_timestok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_modtok-mcReserved_arraytok)) | (1 << (mcReserved_divtok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_remtok-mcReserved_recordtok))));
5582   while ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_timestok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_ambersandtok-mcReserved_eoftok))))) != 0))) || (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_divtok-mcReserved_arraytok)) | (1 << (mcReserved_modtok-mcReserved_arraytok))))) != 0)))) || (mcLexBuf_currenttoken == mcReserved_remtok))
5583     {
5584       MulOperator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5585       Factor (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_timestok-mcReserved_eoftok)) | (1 << (mcReserved_dividetok-mcReserved_eoftok)) | (1 << (mcReserved_andtok-mcReserved_eoftok)) | (1 << (mcReserved_ambersandtok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_divtok-mcReserved_arraytok)) | (1 << (mcReserved_modtok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_remtok-mcReserved_recordtok))));
5586     }
5587    /* while  */
5588 }
5589
5590
5591 /*
5592    Factor := Number  | string  | SetOrDesignatorOrFunction  |
5593              '(' Expression ')'  |
5594              'NOT' ( Factor  | ConstAttribute  )
5595
5596    first  symbols:identtok, lcbratok, nottok, lparatok, stringtok, integertok, realtok
5597
5598    cannot reachend
5599 */
5600
5601 static void Factor (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5602 {
5603   if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok))))) != 0)))
5604     {
5605       Number (stopset0, stopset1, stopset2);
5606     }
5607   else if (mcLexBuf_currenttoken == mcReserved_stringtok)
5608     {
5609       /* avoid dangling else.  */
5610       string (stopset0, stopset1, stopset2);
5611     }
5612   else if ((mcLexBuf_currenttoken == mcReserved_lcbratok) || (mcLexBuf_currenttoken == mcReserved_identtok))
5613     {
5614       /* avoid dangling else.  */
5615       SetOrDesignatorOrFunction (stopset0, stopset1, stopset2);
5616     }
5617   else if (mcLexBuf_currenttoken == mcReserved_lparatok)
5618     {
5619       /* avoid dangling else.  */
5620       Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5621       Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
5622       Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
5623     }
5624   else if (mcLexBuf_currenttoken == mcReserved_nottok)
5625     {
5626       /* avoid dangling else.  */
5627       Expect (mcReserved_nottok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5628       if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5629         {
5630           Factor (stopset0, stopset1, stopset2);
5631         }
5632       else if (mcLexBuf_currenttoken == mcReserved_attributetok)
5633         {
5634           /* avoid dangling else.  */
5635           ConstAttribute (stopset0, stopset1, stopset2);
5636         }
5637       else
5638         {
5639           /* avoid dangling else.  */
5640           ErrorArray ((const char *) "expecting one of: __ATTRIBUTE__ real number integer number string ( NOT { identifier", 84);
5641         }
5642     }
5643   else
5644     {
5645       /* avoid dangling else.  */
5646       ErrorArray ((const char *) "expecting one of: NOT ( identifier { string integer number real number", 70);
5647     }
5648 }
5649
5650
5651 /*
5652    SetOrDesignatorOrFunction := Qualident [ Constructor  |
5653                                             SimpleDes
5654                                             [ ActualParameters  ]  ]  |
5655                                 Constructor
5656
5657    first  symbols:lcbratok, identtok
5658
5659    cannot reachend
5660 */
5661
5662 static void SetOrDesignatorOrFunction (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5663 {
5664   if (mcLexBuf_currenttoken == mcReserved_identtok)
5665     {
5666       /* avoid dangling else.  */
5667       Qualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lcbratok-mcReserved_eoftok)) | (1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
5668       if ((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0)))
5669         {
5670           /* avoid gcc warning by using compound statement even if not strictly necessary.  */
5671           /* seen optional [ | ] expression  */
5672           if (mcLexBuf_currenttoken == mcReserved_lcbratok)
5673             {
5674               Constructor (stopset0, stopset1, stopset2);
5675             }
5676           else if ((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_periodtok-mcReserved_eoftok))))) != 0)))
5677             {
5678               /* avoid dangling else.  */
5679               SimpleDes (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
5680               if (mcLexBuf_currenttoken == mcReserved_lparatok)
5681                 {
5682                   ActualParameters (stopset0, stopset1, stopset2);
5683                 }
5684             }
5685           else
5686             {
5687               /* avoid dangling else.  */
5688               ErrorArray ((const char *) "expecting one of: ( ^ [ . {", 27);
5689             }
5690         }
5691       /* end of optional [ | ] expression  */
5692     }
5693   else if (mcLexBuf_currenttoken == mcReserved_lcbratok)
5694     {
5695       /* avoid dangling else.  */
5696       Constructor (stopset0, stopset1, stopset2);
5697     }
5698   else
5699     {
5700       /* avoid dangling else.  */
5701       ErrorArray ((const char *) "expecting one of: { identifier", 30);
5702     }
5703 }
5704
5705
5706 /*
5707    SimpleDes := { SubDesignator  }
5708
5709    first  symbols:periodtok, lsbratok, uparrowtok
5710
5711    reachend
5712 */
5713
5714 static void SimpleDes (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5715 {
5716   while ((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok))))) != 0)))
5717     {
5718       SubDesignator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok)) | (1 << (mcReserved_uparrowtok-mcReserved_eoftok))), stopset1, stopset2);
5719     }
5720    /* while  */
5721 }
5722
5723
5724 /*
5725    ActualParameters := '(' [ ExpList  ] ')'
5726
5727    first  symbols:lparatok
5728
5729    cannot reachend
5730 */
5731
5732 static void ActualParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5733 {
5734   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5735   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5736     {
5737       ExpList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
5738     }
5739   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
5740 }
5741
5742
5743 /*
5744    ExitStatement := 'EXIT'
5745
5746    first  symbols:exittok
5747
5748    cannot reachend
5749 */
5750
5751 static void ExitStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5752 {
5753   Expect (mcReserved_exittok, stopset0, stopset1, stopset2);
5754 }
5755
5756
5757 /*
5758    ReturnStatement := 'RETURN' [ Expression  ]
5759
5760    first  symbols:returntok
5761
5762    cannot reachend
5763 */
5764
5765 static void ReturnStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5766 {
5767   Expect (mcReserved_returntok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5768   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5769     {
5770       Expression (stopset0, stopset1, stopset2);
5771     }
5772 }
5773
5774
5775 /*
5776    Statement := [ AssignmentOrProcedureCall  |
5777                   IfStatement  | CaseStatement  |
5778                   WhileStatement  |
5779                   RepeatStatement  |
5780                   LoopStatement  | ForStatement  |
5781                   WithStatement  | AsmStatement  |
5782                   ExitStatement  | ReturnStatement  |
5783                   RetryStatement  ]
5784
5785    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok
5786
5787    reachend
5788 */
5789
5790 static void Statement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5791 {
5792   if ((((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok))))) != 0))) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_retrytok-mcReserved_recordtok)) | (1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
5793     {
5794       /* avoid gcc warning by using compound statement even if not strictly necessary.  */
5795       /* seen optional [ | ] expression  */
5796       if (mcLexBuf_currenttoken == mcReserved_identtok)
5797         {
5798           AssignmentOrProcedureCall (stopset0, stopset1, stopset2);
5799         }
5800       else if (mcLexBuf_currenttoken == mcReserved_iftok)
5801         {
5802           /* avoid dangling else.  */
5803           IfStatement (stopset0, stopset1, stopset2);
5804         }
5805       else if (mcLexBuf_currenttoken == mcReserved_casetok)
5806         {
5807           /* avoid dangling else.  */
5808           CaseStatement (stopset0, stopset1, stopset2);
5809         }
5810       else if (mcLexBuf_currenttoken == mcReserved_whiletok)
5811         {
5812           /* avoid dangling else.  */
5813           WhileStatement (stopset0, stopset1, stopset2);
5814         }
5815       else if (mcLexBuf_currenttoken == mcReserved_repeattok)
5816         {
5817           /* avoid dangling else.  */
5818           RepeatStatement (stopset0, stopset1, stopset2);
5819         }
5820       else if (mcLexBuf_currenttoken == mcReserved_looptok)
5821         {
5822           /* avoid dangling else.  */
5823           LoopStatement (stopset0, stopset1, stopset2);
5824         }
5825       else if (mcLexBuf_currenttoken == mcReserved_fortok)
5826         {
5827           /* avoid dangling else.  */
5828           ForStatement (stopset0, stopset1, stopset2);
5829         }
5830       else if (mcLexBuf_currenttoken == mcReserved_withtok)
5831         {
5832           /* avoid dangling else.  */
5833           WithStatement (stopset0, stopset1, stopset2);
5834         }
5835       else if (mcLexBuf_currenttoken == mcReserved_asmtok)
5836         {
5837           /* avoid dangling else.  */
5838           AsmStatement (stopset0, stopset1, stopset2);
5839         }
5840       else if (mcLexBuf_currenttoken == mcReserved_exittok)
5841         {
5842           /* avoid dangling else.  */
5843           ExitStatement (stopset0, stopset1, stopset2);
5844         }
5845       else if (mcLexBuf_currenttoken == mcReserved_returntok)
5846         {
5847           /* avoid dangling else.  */
5848           ReturnStatement (stopset0, stopset1, stopset2);
5849         }
5850       else if (mcLexBuf_currenttoken == mcReserved_retrytok)
5851         {
5852           /* avoid dangling else.  */
5853           RetryStatement (stopset0, stopset1, stopset2);
5854         }
5855       else
5856         {
5857           /* avoid dangling else.  */
5858           ErrorArray ((const char *) "expecting one of: RETRY RETURN EXIT ASM WITH FOR LOOP REPEAT WHILE CASE IF identifier", 85);
5859         }
5860     }
5861   /* end of optional [ | ] expression  */
5862 }
5863
5864
5865 /*
5866    RetryStatement := 'RETRY'
5867
5868    first  symbols:retrytok
5869
5870    cannot reachend
5871 */
5872
5873 static void RetryStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5874 {
5875   Expect (mcReserved_retrytok, stopset0, stopset1, stopset2);
5876 }
5877
5878
5879 /*
5880    AssignmentOrProcedureCall := Designator ( ':=' Expression  |
5881                                              ActualParameters  |
5882
5883                                              %  epsilon   %
5884                                               )
5885
5886    first  symbols:identtok
5887
5888    cannot reachend
5889 */
5890
5891 static void AssignmentOrProcedureCall (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5892 {
5893   Designator (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_becomestok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
5894   if (mcLexBuf_currenttoken == mcReserved_becomestok)
5895     {
5896       Expect (mcReserved_becomestok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5897       Expression (stopset0, stopset1, stopset2);
5898     }
5899   else if (mcLexBuf_currenttoken == mcReserved_lparatok)
5900     {
5901       /* avoid dangling else.  */
5902       ActualParameters (stopset0, stopset1, stopset2);
5903     }
5904   /* epsilon  */
5905 }
5906
5907
5908 /*
5909    StatementSequence := Statement { ';' Statement  }
5910
5911    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok
5912
5913    reachend
5914 */
5915
5916 static void StatementSequence (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5917 {
5918   Statement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
5919   while (mcLexBuf_currenttoken == mcReserved_semicolontok)
5920     {
5921       Expect (mcReserved_semicolontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5922       Statement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
5923     }
5924    /* while  */
5925 }
5926
5927
5928 /*
5929    IfStatement := 'IF' Expression 'THEN' StatementSequence
5930                   { 'ELSIF' Expression 'THEN' StatementSequence  }
5931                   [ 'ELSE' StatementSequence  ] 'END'
5932
5933    first  symbols:iftok
5934
5935    cannot reachend
5936 */
5937
5938 static void IfStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5939 {
5940   Expect (mcReserved_iftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5941   Expression (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_thentok-mcReserved_recordtok))));
5942   Expect (mcReserved_thentok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_elsiftok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
5943   StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_elsiftok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
5944   while (mcLexBuf_currenttoken == mcReserved_elsiftok)
5945     {
5946       Expect (mcReserved_elsiftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5947       Expression (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_thentok-mcReserved_recordtok))));
5948       Expect (mcReserved_thentok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_elsiftok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
5949       StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_elsiftok-mcReserved_arraytok))), stopset2);
5950     }
5951    /* while  */
5952   if (mcLexBuf_currenttoken == mcReserved_elsetok)
5953     {
5954       Expect (mcReserved_elsetok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
5955       StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
5956     }
5957   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
5958 }
5959
5960
5961 /*
5962    CaseStatement := 'CASE' Expression 'OF' Case { '|'
5963                                                   Case  }
5964                     CaseEndStatement
5965
5966    first  symbols:casetok
5967
5968    cannot reachend
5969 */
5970
5971 static void CaseStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5972 {
5973   Expect (mcReserved_casetok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
5974   Expression (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
5975   Expect (mcReserved_oftok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
5976   Case (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
5977   while (mcLexBuf_currenttoken == mcReserved_bartok)
5978     {
5979       Expect (mcReserved_bartok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok)) | (1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
5980       Case (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_bartok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_elsetok-mcReserved_arraytok))), stopset2);
5981     }
5982    /* while  */
5983   CaseEndStatement (stopset0, stopset1, stopset2);
5984 }
5985
5986
5987 /*
5988    CaseEndStatement := 'END'  | 'ELSE' StatementSequence
5989                        'END'
5990
5991    first  symbols:elsetok, endtok
5992
5993    cannot reachend
5994 */
5995
5996 static void CaseEndStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
5997 {
5998   if (mcLexBuf_currenttoken == mcReserved_endtok)
5999     {
6000       Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6001     }
6002   else if (mcLexBuf_currenttoken == mcReserved_elsetok)
6003     {
6004       /* avoid dangling else.  */
6005       Expect (mcReserved_elsetok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6006       StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6007       Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6008     }
6009   else
6010     {
6011       /* avoid dangling else.  */
6012       ErrorArray ((const char *) "expecting one of: ELSE END", 26);
6013     }
6014 }
6015
6016
6017 /*
6018    Case := [ CaseLabelList ':' StatementSequence  ]
6019
6020    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6021
6022    reachend
6023 */
6024
6025 static void Case (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6026 {
6027   if ((((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_nottok)) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))))) != 0))))
6028     {
6029       CaseLabelList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6030       Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6031       StatementSequence (stopset0, stopset1, stopset2);
6032     }
6033 }
6034
6035
6036 /*
6037    CaseLabelList := CaseLabels { ',' CaseLabels  }
6038
6039    first  symbols:attributetok, identtok, lcbratok, stringtok, nottok, lparatok, integertok, realtok, minustok, plustok
6040
6041    cannot reachend
6042 */
6043
6044 static void CaseLabelList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6045 {
6046   CaseLabels (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
6047   while (mcLexBuf_currenttoken == mcReserved_commatok)
6048     {
6049       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))));
6050       CaseLabels (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
6051     }
6052    /* while  */
6053 }
6054
6055
6056 /*
6057    CaseLabels := ConstExpressionNop [ '..' ConstExpressionNop  ]
6058
6059    first  symbols:stringtok, lcbratok, identtok, attributetok, realtok, integertok, lparatok, nottok, plustok, minustok
6060
6061    cannot reachend
6062 */
6063
6064 static void CaseLabels (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6065 {
6066   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodperiodtok-mcReserved_eoftok))), stopset1, stopset2);
6067   if (mcLexBuf_currenttoken == mcReserved_periodperiodtok)
6068     {
6069       Expect (mcReserved_periodperiodtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
6070       ConstExpressionNop (stopset0, stopset1, stopset2);
6071     }
6072 }
6073
6074
6075 /*
6076    WhileStatement := 'WHILE' Expression 'DO' StatementSequence
6077                      'END'
6078
6079    first  symbols:whiletok
6080
6081    cannot reachend
6082 */
6083
6084 static void WhileStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6085 {
6086   Expect (mcReserved_whiletok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6087   Expression (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_dotok-mcReserved_arraytok))), stopset2);
6088   Expect (mcReserved_dotok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6089   StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6090   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6091 }
6092
6093
6094 /*
6095    RepeatStatement := 'REPEAT' StatementSequence 'UNTIL'
6096                       Expression
6097
6098    first  symbols:repeattok
6099
6100    cannot reachend
6101 */
6102
6103 static void RepeatStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6104 {
6105   Expect (mcReserved_repeattok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_untiltok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6106   StatementSequence (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_untiltok-mcReserved_recordtok))));
6107   Expect (mcReserved_untiltok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6108   Expression (stopset0, stopset1, stopset2);
6109 }
6110
6111
6112 /*
6113    ForStatement := 'FOR' Ident ':=' Expression 'TO'
6114                    Expression [ 'BY' ConstExpressionNop  ]
6115                    'DO' StatementSequence 'END'
6116
6117    first  symbols:fortok
6118
6119    cannot reachend
6120 */
6121
6122 static void ForStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6123 {
6124   Expect (mcReserved_fortok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6125   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_becomestok-mcReserved_eoftok))), stopset1, stopset2);
6126   Expect (mcReserved_becomestok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6127   Expression (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_totok-mcReserved_recordtok))));
6128   Expect (mcReserved_totok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6129   Expression (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_bytok-mcReserved_arraytok)) | (1 << (mcReserved_dotok-mcReserved_arraytok))), stopset2);
6130   if (mcLexBuf_currenttoken == mcReserved_bytok)
6131     {
6132       Expect (mcReserved_bytok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
6133       ConstExpressionNop (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_dotok-mcReserved_arraytok))), stopset2);
6134     }
6135   Expect (mcReserved_dotok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6136   StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6137   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6138 }
6139
6140
6141 /*
6142    LoopStatement := 'LOOP' StatementSequence 'END'
6143
6144    first  symbols:looptok
6145
6146    cannot reachend
6147 */
6148
6149 static void LoopStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6150 {
6151   Expect (mcReserved_looptok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6152   StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6153   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6154 }
6155
6156
6157 /*
6158    WithStatement := 'WITH' Designator 'DO' StatementSequence
6159                     'END'
6160
6161    first  symbols:withtok
6162
6163    cannot reachend
6164 */
6165
6166 static void WithStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6167 {
6168   Expect (mcReserved_withtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6169   Designator (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_dotok-mcReserved_arraytok))), stopset2);
6170   Expect (mcReserved_dotok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6171   StatementSequence (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6172   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6173 }
6174
6175
6176 /*
6177    ProcedureDeclaration := ProcedureHeading ';' ProcedureBlock
6178                            Ident
6179                            % leaveScope  %
6180
6181
6182    first  symbols:proceduretok
6183
6184    cannot reachend
6185 */
6186
6187 static void ProcedureDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6188 {
6189   ProcedureHeading (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6190   Expect (mcReserved_semicolontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6191   ProcedureBlock (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6192   Ident (stopset0, stopset1, stopset2);
6193   decl_leaveScope ();
6194 }
6195
6196
6197 /*
6198    ProcedureIdent := Ident
6199                      % curproc := lookupSym (curident)  %
6200
6201                      % enterScope (curproc)  %
6202
6203
6204    first  symbols:identtok
6205
6206    cannot reachend
6207 */
6208
6209 static void ProcedureIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6210 {
6211   Ident (stopset0, stopset1, stopset2);
6212   curproc = decl_lookupSym (curident);
6213   decl_enterScope (curproc);
6214 }
6215
6216
6217 /*
6218    DefProcedureIdent := Ident
6219                         % curproc := lookupSym (curident)  %
6220
6221
6222    first  symbols:identtok
6223
6224    cannot reachend
6225 */
6226
6227 static void DefProcedureIdent (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6228 {
6229   Ident (stopset0, stopset1, stopset2);
6230   curproc = decl_lookupSym (curident);
6231 }
6232
6233
6234 /*
6235    DefineBuiltinProcedure := [ '__ATTRIBUTE__' '__BUILTIN__'
6236                                '(' '(' Ident ')' ')'  |
6237                                '__INLINE__'  ]
6238
6239    first  symbols:inlinetok, attributetok
6240
6241    reachend
6242 */
6243
6244 static void DefineBuiltinProcedure (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6245 {
6246   if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_inlinetok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok))))) != 0)))
6247     {
6248       /* avoid gcc warning by using compound statement even if not strictly necessary.  */
6249       /* seen optional [ | ] expression  */
6250       if (mcLexBuf_currenttoken == mcReserved_attributetok)
6251         {
6252           Expect (mcReserved_attributetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_builtintok-mcReserved_recordtok))));
6253           Expect (mcReserved_builtintok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
6254           Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
6255           Expect (mcReserved_lparatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6256           Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
6257           Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
6258           Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
6259         }
6260       else if (mcLexBuf_currenttoken == mcReserved_inlinetok)
6261         {
6262           /* avoid dangling else.  */
6263           Expect (mcReserved_inlinetok, stopset0, stopset1, stopset2);
6264         }
6265       else
6266         {
6267           /* avoid dangling else.  */
6268           ErrorArray ((const char *) "expecting one of: __INLINE__ __ATTRIBUTE__", 42);
6269         }
6270     }
6271   /* end of optional [ | ] expression  */
6272 }
6273
6274
6275 /*
6276    ProcedureHeading := 'PROCEDURE' DefineBuiltinProcedure
6277                        ( ProcedureIdent [ FormalParameters  ]
6278                          AttributeNoReturn  )
6279
6280    first  symbols:proceduretok
6281
6282    cannot reachend
6283 */
6284
6285 static void ProcedureHeading (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6286 {
6287   Expect (mcReserved_proceduretok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_inlinetok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6288   DefineBuiltinProcedure (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6289   ProcedureIdent (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6290   if (mcLexBuf_currenttoken == mcReserved_lparatok)
6291     {
6292       FormalParameters (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6293     }
6294   AttributeNoReturn (stopset0, stopset1, stopset2);
6295 }
6296
6297
6298 /*
6299    Builtin := [ '__BUILTIN__'  | '__INLINE__'  ]
6300
6301    first  symbols:inlinetok, builtintok
6302
6303    reachend
6304 */
6305
6306 static void Builtin (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6307 {
6308   if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_inlinetok-mcReserved_recordtok)) | (1 << (mcReserved_builtintok-mcReserved_recordtok))))) != 0)))
6309     {
6310       /* avoid gcc warning by using compound statement even if not strictly necessary.  */
6311       /* seen optional [ | ] expression  */
6312       if (mcLexBuf_currenttoken == mcReserved_builtintok)
6313         {
6314           Expect (mcReserved_builtintok, stopset0, stopset1, stopset2);
6315         }
6316       else if (mcLexBuf_currenttoken == mcReserved_inlinetok)
6317         {
6318           /* avoid dangling else.  */
6319           Expect (mcReserved_inlinetok, stopset0, stopset1, stopset2);
6320         }
6321       else
6322         {
6323           /* avoid dangling else.  */
6324           ErrorArray ((const char *) "expecting one of: __INLINE__ __BUILTIN__", 40);
6325         }
6326     }
6327   /* end of optional [ | ] expression  */
6328 }
6329
6330
6331 /*
6332    DefProcedureHeading := 'PROCEDURE' Builtin ( DefProcedureIdent
6333                                                 [ DefFormalParameters  ]
6334                                                 AttributeNoReturn  )
6335
6336    first  symbols:proceduretok
6337
6338    cannot reachend
6339 */
6340
6341 static void DefProcedureHeading (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6342 {
6343   Expect (mcReserved_proceduretok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_inlinetok-mcReserved_recordtok)) | (1 << (mcReserved_builtintok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6344   Builtin (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6345   DefProcedureIdent (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6346   if (mcLexBuf_currenttoken == mcReserved_lparatok)
6347     {
6348       DefFormalParameters (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6349     }
6350   AttributeNoReturn (stopset0, stopset1, stopset2);
6351 }
6352
6353
6354 /*
6355    ProcedureBlock := { Declaration  } [ 'BEGIN' ProcedureBlockBody  ]
6356                      'END'
6357
6358    first  symbols:proceduretok, moduletok, consttok, typetok, vartok, endtok, begintok
6359
6360    cannot reachend
6361 */
6362
6363 static void ProcedureBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6364 {
6365   while ((((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))))) != 0))) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))))) != 0))))
6366     {
6367       Declaration (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6368     }
6369    /* while  */
6370   if (mcLexBuf_currenttoken == mcReserved_begintok)
6371     {
6372       Expect (mcReserved_begintok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_excepttok-mcReserved_arraytok)) | (1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6373       ProcedureBlockBody (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6374     }
6375   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6376 }
6377
6378
6379 /*
6380    Block := { Declaration  } InitialBlock FinalBlock
6381             'END'
6382
6383    first  symbols:proceduretok, moduletok, finallytok, begintok, consttok, typetok, vartok, endtok
6384
6385    cannot reachend
6386 */
6387
6388 static void Block (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6389 {
6390   while ((((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))))) != 0))) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))))) != 0))))
6391     {
6392       Declaration (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6393     }
6394    /* while  */
6395   InitialBlock (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok))), stopset2);
6396   FinalBlock (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok))), stopset2);
6397   Expect (mcReserved_endtok, stopset0, stopset1, stopset2);
6398 }
6399
6400
6401 /*
6402    InitialBlock := [ 'BEGIN' InitialBlockBody  ]
6403
6404    first  symbols:begintok
6405
6406    reachend
6407 */
6408
6409 static void InitialBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6410 {
6411   if (mcLexBuf_currenttoken == mcReserved_begintok)
6412     {
6413       Expect (mcReserved_begintok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_excepttok-mcReserved_arraytok)) | (1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6414       InitialBlockBody (stopset0, stopset1, stopset2);
6415     }
6416 }
6417
6418
6419 /*
6420    FinalBlock := [ 'FINALLY' FinalBlockBody  ]
6421
6422    first  symbols:finallytok
6423
6424    reachend
6425 */
6426
6427 static void FinalBlock (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6428 {
6429   if (mcLexBuf_currenttoken == mcReserved_finallytok)
6430     {
6431       Expect (mcReserved_finallytok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_excepttok-mcReserved_arraytok)) | (1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok))));
6432       FinalBlockBody (stopset0, stopset1, stopset2);
6433     }
6434 }
6435
6436
6437 /*
6438    InitialBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
6439
6440    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
6441
6442    reachend
6443 */
6444
6445 static void InitialBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6446 {
6447   NormalPart (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_excepttok-mcReserved_arraytok))), stopset2);
6448   if (mcLexBuf_currenttoken == mcReserved_excepttok)
6449     {
6450       Expect (mcReserved_excepttok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6451       ExceptionalPart (stopset0, stopset1, stopset2);
6452     }
6453 }
6454
6455
6456 /*
6457    FinalBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
6458
6459    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
6460
6461    reachend
6462 */
6463
6464 static void FinalBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6465 {
6466   NormalPart (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_excepttok-mcReserved_arraytok))), stopset2);
6467   if (mcLexBuf_currenttoken == mcReserved_excepttok)
6468     {
6469       Expect (mcReserved_excepttok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6470       ExceptionalPart (stopset0, stopset1, stopset2);
6471     }
6472 }
6473
6474
6475 /*
6476    ProcedureBlockBody := NormalPart [ 'EXCEPT' ExceptionalPart  ]
6477
6478    first  symbols:identtok, iftok, casetok, whiletok, repeattok, looptok, fortok, withtok, asmtok, retrytok, semicolontok, exittok, returntok, excepttok
6479
6480    reachend
6481 */
6482
6483 static void ProcedureBlockBody (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6484 {
6485   NormalPart (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_excepttok-mcReserved_arraytok))), stopset2);
6486   if (mcLexBuf_currenttoken == mcReserved_excepttok)
6487     {
6488       Expect (mcReserved_excepttok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_exittok-mcReserved_arraytok)) | (1 << (mcReserved_fortok-mcReserved_arraytok)) | (1 << (mcReserved_looptok-mcReserved_arraytok)) | (1 << (mcReserved_casetok-mcReserved_arraytok)) | (1 << (mcReserved_iftok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_returntok-mcReserved_recordtok)) | (1 << (mcReserved_retrytok-mcReserved_recordtok)) | (1 << (mcReserved_asmtok-mcReserved_recordtok)) | (1 << (mcReserved_withtok-mcReserved_recordtok)) | (1 << (mcReserved_repeattok-mcReserved_recordtok)) | (1 << (mcReserved_whiletok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
6489       ExceptionalPart (stopset0, stopset1, stopset2);
6490     }
6491 }
6492
6493
6494 /*
6495    NormalPart := StatementSequence
6496
6497    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
6498
6499    reachend
6500 */
6501
6502 static void NormalPart (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6503 {
6504   StatementSequence (stopset0, stopset1, stopset2);
6505 }
6506
6507
6508 /*
6509    ExceptionalPart := StatementSequence
6510
6511    first  symbols:retrytok, asmtok, withtok, fortok, looptok, repeattok, whiletok, casetok, iftok, identtok, returntok, exittok, semicolontok
6512
6513    reachend
6514 */
6515
6516 static void ExceptionalPart (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6517 {
6518   StatementSequence (stopset0, stopset1, stopset2);
6519 }
6520
6521
6522 /*
6523    Declaration := 'CONST' { ConstantDeclaration ';'  }  |
6524                   'TYPE' { TypeDeclaration  }  |
6525                   'VAR' { VariableDeclaration ';'  }  |
6526                   ProcedureDeclaration ';'  |
6527                   ModuleDeclaration ';'
6528
6529    first  symbols:moduletok, proceduretok, vartok, typetok, consttok
6530
6531    cannot reachend
6532 */
6533
6534 static void Declaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6535 {
6536   if (mcLexBuf_currenttoken == mcReserved_consttok)
6537     {
6538       Expect (mcReserved_consttok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6539       while (mcLexBuf_currenttoken == mcReserved_identtok)
6540         {
6541           ConstantDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6542           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6543         }
6544        /* while  */
6545     }
6546   else if (mcLexBuf_currenttoken == mcReserved_typetok)
6547     {
6548       /* avoid dangling else.  */
6549       Expect (mcReserved_typetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6550       while (mcLexBuf_currenttoken == mcReserved_identtok)
6551         {
6552           TypeDeclaration (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6553         }
6554        /* while  */
6555     }
6556   else if (mcLexBuf_currenttoken == mcReserved_vartok)
6557     {
6558       /* avoid dangling else.  */
6559       Expect (mcReserved_vartok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6560       while (mcLexBuf_currenttoken == mcReserved_identtok)
6561         {
6562           VariableDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6563           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6564         }
6565        /* while  */
6566     }
6567   else if (mcLexBuf_currenttoken == mcReserved_proceduretok)
6568     {
6569       /* avoid dangling else.  */
6570       ProcedureDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6571       Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
6572     }
6573   else if (mcLexBuf_currenttoken == mcReserved_moduletok)
6574     {
6575       /* avoid dangling else.  */
6576       ModuleDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6577       Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
6578     }
6579   else
6580     {
6581       /* avoid dangling else.  */
6582       ErrorArray ((const char *) "expecting one of: MODULE PROCEDURE VAR TYPE CONST", 49);
6583     }
6584 }
6585
6586
6587 /*
6588    DefFormalParameters := '('
6589                           % paramEnter (curproc)  %
6590                           [ DefMultiFPSection  ] ')'
6591
6592                           % paramLeave (curproc)  %
6593                           FormalReturn
6594
6595    first  symbols:lparatok
6596
6597    cannot reachend
6598 */
6599
6600 static void DefFormalParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6601 {
6602   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6603   decl_paramEnter (curproc);
6604   if ((mcLexBuf_currenttoken == mcReserved_lsbratok) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
6605     {
6606       DefMultiFPSection (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
6607     }
6608   Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6609   decl_paramLeave (curproc);
6610   FormalReturn (stopset0, stopset1, stopset2);
6611 }
6612
6613
6614 /*
6615    DefMultiFPSection := DefExtendedFP  |
6616                         FPSection [ ';' DefMultiFPSection  ]
6617
6618    first  symbols:identtok, vartok, lsbratok, periodperiodperiodtok
6619
6620    cannot reachend
6621 */
6622
6623 static void DefMultiFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6624 {
6625   if ((mcLexBuf_currenttoken == mcReserved_lsbratok) || (mcLexBuf_currenttoken == mcReserved_periodperiodperiodtok))
6626     {
6627       DefExtendedFP (stopset0, stopset1, stopset2);
6628     }
6629   else if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))))) != 0)))
6630     {
6631       /* avoid dangling else.  */
6632       FPSection (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6633       if (mcLexBuf_currenttoken == mcReserved_semicolontok)
6634         {
6635           Expect (mcReserved_semicolontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6636           DefMultiFPSection (stopset0, stopset1, stopset2);
6637         }
6638     }
6639   else
6640     {
6641       /* avoid dangling else.  */
6642       ErrorArray ((const char *) "expecting one of: identifier VAR ... [", 38);
6643     }
6644 }
6645
6646
6647 /*
6648    FormalParameters := '('
6649                        % paramEnter (curproc)  %
6650                        [ MultiFPSection  ] ')'
6651                        % paramLeave (curproc)  %
6652                        FormalReturn
6653
6654    first  symbols:lparatok
6655
6656    cannot reachend
6657 */
6658
6659 static void FormalParameters (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6660 {
6661   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6662   decl_paramEnter (curproc);
6663   if ((mcLexBuf_currenttoken == mcReserved_lsbratok) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))))) != 0))))
6664     {
6665       MultiFPSection (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
6666     }
6667   Expect (mcReserved_rparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6668   decl_paramLeave (curproc);
6669   FormalReturn (stopset0, stopset1, stopset2);
6670 }
6671
6672
6673 /*
6674    AttributeNoReturn := [ NoReturn  |
6675                           % setNoReturn (curproc, FALSE)  %
6676                            ]
6677
6678    first  symbols:ldirectivetok
6679
6680    reachend
6681 */
6682
6683 static void AttributeNoReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6684 {
6685   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
6686     {
6687       /* avoid gcc warning by using compound statement even if not strictly necessary.  */
6688       /* seen optional [ | ] expression  */
6689       if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
6690         {
6691           NoReturn (stopset0, stopset1, stopset2);
6692         }
6693       else
6694         {
6695           decl_setNoReturn (curproc, false);
6696         }
6697     }
6698   /* end of optional [ | ] expression  */
6699 }
6700
6701
6702 /*
6703    NoReturn := ''
6704
6705    first  symbols:ldirectivetok
6706
6707    cannot reachend
6708 */
6709
6710 static void NoReturn (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6711 {
6712   Expect (mcReserved_ldirectivetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6713   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rdirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6714   decl_setNoReturn (curproc, true);
6715   checkReturnAttribute ();
6716   Expect (mcReserved_rdirectivetok, stopset0, stopset1, stopset2);
6717 }
6718
6719
6720 /*
6721    AttributeUnused := [ Unused  ]
6722
6723    first  symbols:ldirectivetok
6724
6725    reachend
6726 */
6727
6728 static void AttributeUnused (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6729 {
6730   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
6731     {
6732       Unused (stopset0, stopset1, stopset2);
6733     }
6734 }
6735
6736
6737 /*
6738    Unused := ''
6739
6740    first  symbols:ldirectivetok
6741
6742    cannot reachend
6743 */
6744
6745 static void Unused (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6746 {
6747   Expect (mcReserved_ldirectivetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6748   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rdirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6749   curisused = false;
6750   checkParameterAttribute ();
6751   Expect (mcReserved_rdirectivetok, stopset0, stopset1, stopset2);
6752 }
6753
6754
6755 /*
6756    MultiFPSection := ExtendedFP  | FPSection [ ';'
6757                                                MultiFPSection  ]
6758
6759    first  symbols:identtok, vartok, lsbratok, periodperiodperiodtok
6760
6761    cannot reachend
6762 */
6763
6764 static void MultiFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6765 {
6766   if ((mcLexBuf_currenttoken == mcReserved_lsbratok) || (mcLexBuf_currenttoken == mcReserved_periodperiodperiodtok))
6767     {
6768       ExtendedFP (stopset0, stopset1, stopset2);
6769     }
6770   else if ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))))) != 0)))
6771     {
6772       /* avoid dangling else.  */
6773       FPSection (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
6774       if (mcLexBuf_currenttoken == mcReserved_semicolontok)
6775         {
6776           Expect (mcReserved_semicolontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_periodperiodperiodtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
6777           MultiFPSection (stopset0, stopset1, stopset2);
6778         }
6779     }
6780   else
6781     {
6782       /* avoid dangling else.  */
6783       ErrorArray ((const char *) "expecting one of: identifier VAR ... [", 38);
6784     }
6785 }
6786
6787
6788 /*
6789    FPSection := NonVarFPSection  |
6790                 VarFPSection
6791
6792    first  symbols:vartok, identtok
6793
6794    cannot reachend
6795 */
6796
6797 static void FPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6798 {
6799   if (mcLexBuf_currenttoken == mcReserved_identtok)
6800     {
6801       NonVarFPSection (stopset0, stopset1, stopset2);
6802     }
6803   else if (mcLexBuf_currenttoken == mcReserved_vartok)
6804     {
6805       /* avoid dangling else.  */
6806       VarFPSection (stopset0, stopset1, stopset2);
6807     }
6808   else
6809     {
6810       /* avoid dangling else.  */
6811       ErrorArray ((const char *) "expecting one of: VAR identifier", 32);
6812     }
6813 }
6814
6815
6816 /*
6817    DefExtendedFP := DefOptArg  | '...'
6818                     % addParameter (curproc, makeVarargs ())  %
6819
6820
6821    first  symbols:lsbratok, periodperiodperiodtok
6822
6823    cannot reachend
6824 */
6825
6826 static void DefExtendedFP (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6827 {
6828   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
6829     {
6830       DefOptArg (stopset0, stopset1, stopset2);
6831     }
6832   else if (mcLexBuf_currenttoken == mcReserved_periodperiodperiodtok)
6833     {
6834       /* avoid dangling else.  */
6835       Expect (mcReserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6836       decl_addParameter (curproc, decl_makeVarargs ());
6837     }
6838   else
6839     {
6840       /* avoid dangling else.  */
6841       ErrorArray ((const char *) "expecting one of: ... [", 23);
6842     }
6843 }
6844
6845
6846 /*
6847    ExtendedFP := OptArg  | '...'
6848
6849    first  symbols:lsbratok, periodperiodperiodtok
6850
6851    cannot reachend
6852 */
6853
6854 static void ExtendedFP (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6855 {
6856   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
6857     {
6858       OptArg (stopset0, stopset1, stopset2);
6859     }
6860   else if (mcLexBuf_currenttoken == mcReserved_periodperiodperiodtok)
6861     {
6862       /* avoid dangling else.  */
6863       Expect (mcReserved_periodperiodperiodtok, stopset0, stopset1, stopset2);
6864     }
6865   else
6866     {
6867       /* avoid dangling else.  */
6868       ErrorArray ((const char *) "expecting one of: ... [", 23);
6869     }
6870 }
6871
6872
6873 /*
6874    VarFPSection := 'VAR' PushIdentList
6875                    % VAR l, t: node ;  %
6876                    ':' FormalType
6877                    % t := pop ()  %
6878
6879                    % l := pop ()  %
6880
6881                    % curisused := TRUE  %
6882                    [ AttributeUnused  ]
6883                    % addVarParameters (curproc, l, t, curisused)  %
6884
6885
6886    first  symbols:vartok
6887
6888    cannot reachend
6889 */
6890
6891 static void VarFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6892 {
6893   decl_node l;
6894   decl_node t;
6895
6896   Expect (mcReserved_vartok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6897   PushIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6898   Expect (mcReserved_colontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6899   FormalType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6900   t = pop ();
6901   l = pop ();
6902   curisused = true;
6903   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
6904     {
6905       AttributeUnused (stopset0, stopset1, stopset2);
6906     }
6907   decl_addVarParameters (curproc, l, t, curisused);
6908 }
6909
6910
6911 /*
6912    NonVarFPSection := PushIdentList
6913                       % VAR l, t: node ;  %
6914                       ':' FormalType
6915                       % t := pop ()  %
6916
6917                       % l := pop ()  %
6918
6919                       % curisused := TRUE  %
6920                       [ AttributeUnused  ]
6921                       % addNonVarParameters (curproc, l, t, curisused)  %
6922
6923
6924    first  symbols:identtok
6925
6926    cannot reachend
6927 */
6928
6929 static void NonVarFPSection (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6930 {
6931   decl_node l;
6932   decl_node t;
6933
6934   PushIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6935   Expect (mcReserved_colontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6936   FormalType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok))), stopset1, stopset2);
6937   t = pop ();
6938   l = pop ();
6939   curisused = true;
6940   if (mcLexBuf_currenttoken == mcReserved_ldirectivetok)
6941     {
6942       AttributeUnused (stopset0, stopset1, stopset2);
6943     }
6944   decl_addNonVarParameters (curproc, l, t, curisused);
6945 }
6946
6947
6948 /*
6949    OptArg :=
6950              % VAR p, init, type: node ; id: Name ;  %
6951              '[' Ident
6952              % id := curident  %
6953              ':' FormalType
6954              % type := pop ()  %
6955
6956              % init := NIL  %
6957              [ '=' ConstExpression
6958                % init := pop ()  %
6959                 ] ']'
6960              % p := addOptParameter (curproc, id, type, init)  %
6961
6962
6963    first  symbols:lsbratok
6964
6965    cannot reachend
6966 */
6967
6968 static void OptArg (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
6969 {
6970   decl_node p;
6971   decl_node init;
6972   decl_node type;
6973   nameKey_Name id;
6974
6975   Expect (mcReserved_lsbratok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6976   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
6977   id = curident;
6978   Expect (mcReserved_colontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
6979   FormalType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok)) | (1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
6980   type = pop ();
6981   init = static_cast<decl_node> (NULL);
6982   if (mcLexBuf_currenttoken == mcReserved_equaltok)
6983     {
6984       Expect (mcReserved_equaltok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
6985       ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
6986       init = pop ();
6987     }
6988   Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
6989   p = decl_addOptParameter (curproc, id, type, init);
6990 }
6991
6992
6993 /*
6994    DefOptArg :=
6995                 % VAR p, init, type: node ; id: Name ;  %
6996                 '[' Ident
6997                 % id := curident  %
6998                 ':' FormalType
6999                 % type := pop ()  %
7000                 '=' ConstExpression
7001                 % init := pop ()  %
7002                 ']'
7003                 % p := addOptParameter (curproc, id, type, init)  %
7004
7005
7006    first  symbols:lsbratok
7007
7008    cannot reachend
7009 */
7010
7011 static void DefOptArg (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7012 {
7013   decl_node p;
7014   decl_node init;
7015   decl_node type;
7016   nameKey_Name id;
7017
7018   Expect (mcReserved_lsbratok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7019   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
7020   id = curident;
7021   Expect (mcReserved_colontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7022   FormalType (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1, stopset2);
7023   type = pop ();
7024   Expect (mcReserved_equaltok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
7025   ConstExpression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
7026   init = pop ();
7027   Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
7028   p = decl_addOptParameter (curproc, id, type, init);
7029 }
7030
7031
7032 /*
7033    FormalType :=
7034                  % VAR c: CARDINAL ;  %
7035
7036                  % VAR n, a, s: node ;  %
7037
7038                  % c := 0  %
7039                  { 'ARRAY' 'OF'
7040                    % INC (c)  %
7041                     } PushQualident
7042                  % pushNunbounded (c)  %
7043
7044
7045    first  symbols:identtok, arraytok
7046
7047    cannot reachend
7048 */
7049
7050 static void FormalType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7051 {
7052   unsigned int c;
7053   decl_node n;
7054   decl_node a;
7055   decl_node s;
7056
7057   c = 0;
7058   while (mcLexBuf_currenttoken == mcReserved_arraytok)
7059     {
7060       Expect (mcReserved_arraytok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_oftok-mcReserved_arraytok))), stopset2);
7061       Expect (mcReserved_oftok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7062       c += 1;
7063     }
7064    /* while  */
7065   PushQualident (stopset0, stopset1, stopset2);
7066   pushNunbounded (c);
7067 }
7068
7069
7070 /*
7071    ModuleDeclaration := 'MODULE' Ident [ Priority  ]
7072                         ';' { Import  } [ Export  ]
7073                         Block Ident
7074
7075    first  symbols:moduletok
7076
7077    cannot reachend
7078 */
7079
7080 static void ModuleDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7081 {
7082   Expect (mcReserved_moduletok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7083   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2);
7084   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
7085     {
7086       Priority (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7087     }
7088   Expect (mcReserved_semicolontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_exporttok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
7089   while (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok))))) != 0)))
7090     {
7091       Import (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_exporttok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_typetok-mcReserved_recordtok))));
7092     }
7093    /* while  */
7094   if (mcLexBuf_currenttoken == mcReserved_exporttok)
7095     {
7096       Export (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_begintok-mcReserved_arraytok)) | (1 << (mcReserved_finallytok-mcReserved_arraytok)) | (1 << (mcReserved_moduletok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_typetok-mcReserved_recordtok))));
7097     }
7098   Block (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7099   Ident (stopset0, stopset1, stopset2);
7100 }
7101
7102
7103 /*
7104    Priority := '[' ConstExpressionNop ']'
7105
7106    first  symbols:lsbratok
7107
7108    cannot reachend
7109 */
7110
7111 static void Priority (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7112 {
7113   Expect (mcReserved_lsbratok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_attributetok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok)) | (1 << (mcReserved_stringtok-mcReserved_recordtok))));
7114   ConstExpressionNop (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
7115   Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
7116 }
7117
7118
7119 /*
7120    Export := 'EXPORT' ( 'QUALIFIED' IdentList  |
7121                         'UNQUALIFIED' IdentList  |
7122                         IdentList  ) ';'
7123
7124    first  symbols:exporttok
7125
7126    cannot reachend
7127 */
7128
7129 static void Export (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7130 {
7131   Expect (mcReserved_exporttok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_qualifiedtok-mcReserved_arraytok)) | (1 << (mcReserved_unqualifiedtok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7132   if (mcLexBuf_currenttoken == mcReserved_qualifiedtok)
7133     {
7134       Expect (mcReserved_qualifiedtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7135       IdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7136     }
7137   else if (mcLexBuf_currenttoken == mcReserved_unqualifiedtok)
7138     {
7139       /* avoid dangling else.  */
7140       Expect (mcReserved_unqualifiedtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7141       IdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7142     }
7143   else if (mcLexBuf_currenttoken == mcReserved_identtok)
7144     {
7145       /* avoid dangling else.  */
7146       IdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7147     }
7148   else
7149     {
7150       /* avoid dangling else.  */
7151       ErrorArray ((const char *) "expecting one of: identifier UNQUALIFIED QUALIFIED", 50);
7152     }
7153   Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
7154 }
7155
7156
7157 /*
7158    FromIdentList := Ident
7159                     % importInto (frommodule, curident, curmodule)  %
7160                     { ',' Ident
7161                       % importInto (frommodule, curident, curmodule)  %
7162                        }
7163
7164    first  symbols:identtok
7165
7166    cannot reachend
7167 */
7168
7169 static void FromIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7170 {
7171   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7172   importInto (frommodule, curident, curmodule);
7173   while (mcLexBuf_currenttoken == mcReserved_commatok)
7174     {
7175       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7176       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7177       importInto (frommodule, curident, curmodule);
7178     }
7179    /* while  */
7180 }
7181
7182
7183 /*
7184    FromImport := 'FROM' Ident
7185                  % frommodule := lookupDef (curident)  %
7186                  'IMPORT' FromIdentList ';'
7187
7188    first  symbols:fromtok
7189
7190    cannot reachend
7191 */
7192
7193 static void FromImport (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7194 {
7195   Expect (mcReserved_fromtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7196   Ident (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_importtok-mcReserved_arraytok))), stopset2);
7197   frommodule = decl_lookupDef (curident);
7198   Expect (mcReserved_importtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7199   FromIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7200   Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
7201 }
7202
7203
7204 /*
7205    ImportModuleList := Ident { ',' Ident  }
7206
7207    first  symbols:identtok
7208
7209    cannot reachend
7210 */
7211
7212 static void ImportModuleList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7213 {
7214   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7215   while (mcLexBuf_currenttoken == mcReserved_commatok)
7216     {
7217       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7218       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7219     }
7220    /* while  */
7221 }
7222
7223
7224 /*
7225    WithoutFromImport := 'IMPORT' ImportModuleList ';'
7226
7227    first  symbols:importtok
7228
7229    cannot reachend
7230 */
7231
7232 static void WithoutFromImport (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7233 {
7234   Expect (mcReserved_importtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7235   ImportModuleList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7236   Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
7237 }
7238
7239
7240 /*
7241    Import := FromImport  | WithoutFromImport
7242
7243    first  symbols:importtok, fromtok
7244
7245    cannot reachend
7246 */
7247
7248 static void Import (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7249 {
7250   if (mcLexBuf_currenttoken == mcReserved_fromtok)
7251     {
7252       FromImport (stopset0, stopset1, stopset2);
7253     }
7254   else if (mcLexBuf_currenttoken == mcReserved_importtok)
7255     {
7256       /* avoid dangling else.  */
7257       WithoutFromImport (stopset0, stopset1, stopset2);
7258     }
7259   else
7260     {
7261       /* avoid dangling else.  */
7262       ErrorArray ((const char *) "expecting one of: IMPORT FROM", 29);
7263     }
7264 }
7265
7266
7267 /*
7268    DefinitionModule := 'DEFINITION' 'MODULE' [ 'FOR'
7269                                                string  ]
7270                        Ident ';'
7271                        % curmodule := lookupDef (curident)  %
7272
7273                        % enterScope (curmodule)  %
7274
7275                        % resetEnumPos (curmodule)  %
7276                        { Import  } [ Export  ] { Definition  }
7277                        'END' Ident '.'
7278                        % checkEndName (curmodule, curident, 'definition module')  %
7279
7280                        % setConstExpComplete (curmodule)  %
7281
7282                        % leaveScope  %
7283
7284
7285    first  symbols:definitiontok
7286
7287    cannot reachend
7288 */
7289
7290 static void DefinitionModule (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7291 {
7292   Expect (mcReserved_definitiontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_moduletok-mcReserved_arraytok))), stopset2);
7293   Expect (mcReserved_moduletok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_fortok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7294   if (mcLexBuf_currenttoken == mcReserved_fortok)
7295     {
7296       Expect (mcReserved_fortok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7297       string (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7298     }
7299   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7300   Expect (mcReserved_semicolontok, stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_exporttok-mcReserved_arraytok)) | (1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_vartok-mcReserved_recordtok)) | (1 << (mcReserved_typetok-mcReserved_recordtok))));
7301   curmodule = decl_lookupDef (curident);
7302   decl_enterScope (curmodule);
7303   decl_resetEnumPos (curmodule);
7304   while (((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok))))) != 0)))
7305     {
7306       Import (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_exporttok-mcReserved_arraytok)) | (1 << (mcReserved_fromtok-mcReserved_arraytok)) | (1 << (mcReserved_importtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
7307     }
7308    /* while  */
7309   if (mcLexBuf_currenttoken == mcReserved_exporttok)
7310     {
7311       Export (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
7312     }
7313   while ((((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))))) != 0))) || ((mcLexBuf_currenttoken >= mcReserved_recordtok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_recordtok)) & ((mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))))) != 0))))
7314     {
7315       Definition (stopset0, stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_endtok-mcReserved_arraytok)) | (1 << (mcReserved_consttok-mcReserved_arraytok)) | (1 << (mcReserved_proceduretok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_typetok-mcReserved_recordtok)) | (1 << (mcReserved_vartok-mcReserved_recordtok))));
7316     }
7317    /* while  */
7318   Expect (mcReserved_endtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7319   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
7320   Expect (mcReserved_periodtok, stopset0, stopset1, stopset2);
7321   checkEndName (curmodule, curident, (const char *) "definition module", 17);
7322   decl_setConstExpComplete (curmodule);
7323   decl_leaveScope ();
7324 }
7325
7326
7327 /*
7328    PushQualident := Ident
7329                     % typeExp := push (lookupSym (curident))  %
7330
7331                     % IF typeExp = NIL
7332                                     THEN
7333                                        metaError1 ('the symbol {%1k} is not visible in this scope (or any other nested scope)', curident)
7334                                     END  %
7335                     [ '.'
7336                       % IF NOT isDef (typeExp)
7337                                       THEN
7338                                                                                                     ErrorArray ('the first component of this qualident must be a definition module')
7339                                       END  %
7340                       Ident
7341                       % typeExp := replace (lookupInScope (typeExp, curident)) ;
7342                                                                                                  IF typeExp=NIL
7343                                       THEN
7344                                          ErrorArray ('identifier not found in definition module')
7345                                       END  %
7346                        ]
7347
7348    first  symbols:identtok
7349
7350    cannot reachend
7351 */
7352
7353 static void PushQualident (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7354 {
7355   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_periodtok-mcReserved_eoftok))), stopset1, stopset2);
7356   typeExp = push (decl_lookupSym (curident));
7357   if (typeExp == NULL)
7358     {
7359       mcMetaError_metaError1 ((const char *) "the symbol {%1k} is not visible in this scope (or any other nested scope)", 73, (const unsigned char *) &curident, (sizeof (curident)-1));
7360     }
7361   if (mcLexBuf_currenttoken == mcReserved_periodtok)
7362     {
7363       Expect (mcReserved_periodtok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7364       if (! (decl_isDef (typeExp)))
7365         {
7366           ErrorArray ((const char *) "the first component of this qualident must be a definition module", 65);
7367         }
7368       Ident (stopset0, stopset1, stopset2);
7369       typeExp = replace (decl_lookupInScope (typeExp, curident));
7370       if (typeExp == NULL)
7371         {
7372           ErrorArray ((const char *) "identifier not found in definition module", 41);
7373         }
7374     }
7375 }
7376
7377
7378 /*
7379    OptSubrange := [ SubrangeType
7380                     % VAR q, s: node ;  %
7381
7382                     % s := pop ()  %
7383
7384                     % q := pop ()  %
7385
7386                     % putSubrangeType (s, q)  %
7387
7388                     % typeExp := push (s)  %
7389                      ]
7390
7391    first  symbols:lsbratok
7392
7393    reachend
7394 */
7395
7396 static void OptSubrange (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7397 {
7398   decl_node q;
7399   decl_node s;
7400
7401   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
7402     {
7403       SubrangeType (stopset0, stopset1, stopset2);
7404       s = pop ();
7405       q = pop ();
7406       decl_putSubrangeType (s, q);
7407       typeExp = push (s);
7408     }
7409 }
7410
7411
7412 /*
7413    TypeEquiv := PushQualident OptSubrange
7414
7415    first  symbols:identtok
7416
7417    cannot reachend
7418 */
7419
7420 static void TypeEquiv (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7421 {
7422   PushQualident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2);
7423   OptSubrange (stopset0, stopset1, stopset2);
7424 }
7425
7426
7427 /*
7428    EnumIdentList :=
7429                     % VAR f: node ;  %
7430
7431                     % typeExp := push (makeEnum ())  %
7432                     Ident
7433                     % f := makeEnumField (typeExp, curident)  %
7434                     { ',' Ident
7435                       % f := makeEnumField (typeExp, curident)  %
7436                        }
7437
7438    first  symbols:identtok
7439
7440    cannot reachend
7441 */
7442
7443 static void EnumIdentList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7444 {
7445   decl_node f;
7446
7447   typeExp = push (decl_makeEnum ());
7448   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7449   f = decl_makeEnumField (typeExp, curident);
7450   while (mcLexBuf_currenttoken == mcReserved_commatok)
7451     {
7452       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7453       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7454       f = decl_makeEnumField (typeExp, curident);
7455     }
7456    /* while  */
7457 }
7458
7459
7460 /*
7461    Enumeration := '(' EnumIdentList ')'
7462
7463    first  symbols:lparatok
7464
7465    cannot reachend
7466 */
7467
7468 static void Enumeration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7469 {
7470   Expect (mcReserved_lparatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7471   EnumIdentList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
7472   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
7473 }
7474
7475
7476 /*
7477    SimpleType :=
7478                  % VAR d: CARDINAL ;  %
7479
7480                  % d := depth ()  %
7481                  ( TypeEquiv  | Enumeration  |
7482                    SubrangeType  )
7483                  % assert (d = depth () - 1)  %
7484
7485
7486    first  symbols:lsbratok, lparatok, identtok
7487
7488    cannot reachend
7489 */
7490
7491 static void SimpleType (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7492 {
7493   unsigned int d;
7494
7495   d = depth ();
7496   if (mcLexBuf_currenttoken == mcReserved_identtok)
7497     {
7498       TypeEquiv (stopset0, stopset1, stopset2);
7499     }
7500   else if (mcLexBuf_currenttoken == mcReserved_lparatok)
7501     {
7502       /* avoid dangling else.  */
7503       Enumeration (stopset0, stopset1, stopset2);
7504     }
7505   else if (mcLexBuf_currenttoken == mcReserved_lsbratok)
7506     {
7507       /* avoid dangling else.  */
7508       SubrangeType (stopset0, stopset1, stopset2);
7509     }
7510   else
7511     {
7512       /* avoid dangling else.  */
7513       ErrorArray ((const char *) "expecting one of: [ ( identifier", 32);
7514     }
7515   mcDebug_assert (d == ((depth ())-1));
7516 }
7517
7518
7519 /*
7520    Type := SimpleType  | ArrayType  | RecordType  |
7521            SetType  | PointerType  | ProcedureType
7522
7523    first  symbols:proceduretok, pointertok, settok, packedsettok, oftok, recordtok, arraytok, identtok, lparatok, lsbratok
7524
7525    cannot reachend
7526 */
7527
7528 static void Type (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7529 {
7530   if (((mcLexBuf_currenttoken < mcReserved_arraytok) && ((((1 << (mcLexBuf_currenttoken-mcReserved_eoftok)) & ((mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_identtok))
7531     {
7532       SimpleType (stopset0, stopset1, stopset2);
7533     }
7534   else if (mcLexBuf_currenttoken == mcReserved_arraytok)
7535     {
7536       /* avoid dangling else.  */
7537       ArrayType (stopset0, stopset1, stopset2);
7538     }
7539   else if (mcLexBuf_currenttoken == mcReserved_recordtok)
7540     {
7541       /* avoid dangling else.  */
7542       RecordType (stopset0, stopset1, stopset2);
7543     }
7544   else if ((((mcLexBuf_currenttoken >= mcReserved_arraytok) && (mcLexBuf_currenttoken < mcReserved_recordtok)) && ((((1 << (mcLexBuf_currenttoken-mcReserved_arraytok)) & ((mcp3_SetOfStop1) ((1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok))))) != 0))) || (mcLexBuf_currenttoken == mcReserved_settok))
7545     {
7546       /* avoid dangling else.  */
7547       SetType (stopset0, stopset1, stopset2);
7548     }
7549   else if (mcLexBuf_currenttoken == mcReserved_pointertok)
7550     {
7551       /* avoid dangling else.  */
7552       PointerType (stopset0, stopset1, stopset2);
7553     }
7554   else if (mcLexBuf_currenttoken == mcReserved_proceduretok)
7555     {
7556       /* avoid dangling else.  */
7557       ProcedureType (stopset0, stopset1, stopset2);
7558     }
7559   else
7560     {
7561       /* avoid dangling else.  */
7562       ErrorArray ((const char *) "expecting one of: PROCEDURE POINTER SET PACKEDSET OF RECORD ARRAY identifier ( [", 80);
7563     }
7564 }
7565
7566
7567 /*
7568    TypeDeclaration := { Ident
7569                         % typeDes := lookupSym (curident)  %
7570                         ( ';'  | '=' Type
7571                           % putType (typeDes, pop ())  %
7572                           Alignment ';'  )  }
7573
7574    first  symbols:identtok
7575
7576    reachend
7577 */
7578
7579 static void TypeDeclaration (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7580 {
7581   while (mcLexBuf_currenttoken == mcReserved_identtok)
7582     {
7583       Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok)) | (1 << (mcReserved_equaltok-mcReserved_eoftok))), stopset1, stopset2);
7584       typeDes = decl_lookupSym (curident);
7585       if (mcLexBuf_currenttoken == mcReserved_semicolontok)
7586         {
7587           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7588         }
7589       else if (mcLexBuf_currenttoken == mcReserved_equaltok)
7590         {
7591           /* avoid dangling else.  */
7592           Expect (mcReserved_equaltok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_proceduretok-mcReserved_arraytok)) | (1 << (mcReserved_pointertok-mcReserved_arraytok)) | (1 << (mcReserved_packedsettok-mcReserved_arraytok)) | (1 << (mcReserved_oftok-mcReserved_arraytok)) | (1 << (mcReserved_arraytok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_settok-mcReserved_recordtok)) | (1 << (mcReserved_recordtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
7593           Type (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_ldirectivetok-mcReserved_eoftok)) | (1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7594           decl_putType (typeDes, pop ());
7595           Alignment (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7596           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7597         }
7598       else
7599         {
7600           /* avoid dangling else.  */
7601           ErrorArray ((const char *) "expecting one of: = ;", 21);
7602         }
7603     }
7604    /* while  */
7605 }
7606
7607
7608 /*
7609    Definition := 'CONST' { ConstantDeclaration ';'  }  |
7610                  'TYPE' { TypeDeclaration  }  |
7611                  'VAR' { VariableDeclaration ';'  }  |
7612                  DefProcedureHeading ';'
7613
7614    first  symbols:proceduretok, vartok, typetok, consttok
7615
7616    cannot reachend
7617 */
7618
7619 static void Definition (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7620 {
7621   if (mcLexBuf_currenttoken == mcReserved_consttok)
7622     {
7623       Expect (mcReserved_consttok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7624       while (mcLexBuf_currenttoken == mcReserved_identtok)
7625         {
7626           ConstantDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7627           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7628         }
7629        /* while  */
7630     }
7631   else if (mcLexBuf_currenttoken == mcReserved_typetok)
7632     {
7633       /* avoid dangling else.  */
7634       Expect (mcReserved_typetok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7635       while (mcLexBuf_currenttoken == mcReserved_identtok)
7636         {
7637           TypeDeclaration (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7638         }
7639        /* while  */
7640     }
7641   else if (mcLexBuf_currenttoken == mcReserved_vartok)
7642     {
7643       /* avoid dangling else.  */
7644       Expect (mcReserved_vartok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7645       while (mcLexBuf_currenttoken == mcReserved_identtok)
7646         {
7647           VariableDeclaration (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7648           Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7649         }
7650        /* while  */
7651     }
7652   else if (mcLexBuf_currenttoken == mcReserved_proceduretok)
7653     {
7654       /* avoid dangling else.  */
7655       DefProcedureHeading (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_semicolontok-mcReserved_eoftok))), stopset1, stopset2);
7656       Expect (mcReserved_semicolontok, stopset0, stopset1, stopset2);
7657     }
7658   else
7659     {
7660       /* avoid dangling else.  */
7661       ErrorArray ((const char *) "expecting one of: PROCEDURE VAR TYPE CONST", 42);
7662     }
7663 }
7664
7665
7666 /*
7667    AsmStatement := 'ASM' [ 'VOLATILE'  ] '(' AsmOperands
7668                    ')'
7669
7670    first  symbols:asmtok
7671
7672    cannot reachend
7673 */
7674
7675 static void AsmStatement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7676 {
7677   Expect (mcReserved_asmtok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_volatiletok-mcReserved_recordtok))));
7678   if (mcLexBuf_currenttoken == mcReserved_volatiletok)
7679     {
7680       Expect (mcReserved_volatiletok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
7681     }
7682   Expect (mcReserved_lparatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7683   AsmOperands (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
7684   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
7685 }
7686
7687
7688 /*
7689    AsmOperands := string [ AsmOperandSpec  ]
7690
7691    first  symbols:stringtok
7692
7693    cannot reachend
7694 */
7695
7696 static void AsmOperands (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7697 {
7698   string (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
7699   if (mcLexBuf_currenttoken == mcReserved_colontok)
7700     {
7701       AsmOperandSpec (stopset0, stopset1, stopset2);
7702     }
7703 }
7704
7705
7706 /*
7707    AsmOperandSpec := [ ':' AsmList [ ':' AsmList [
7708    ':' TrashList  ]  ]  ]
7709
7710    first  symbols:colontok
7711
7712    reachend
7713 */
7714
7715 static void AsmOperandSpec (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7716 {
7717   if (mcLexBuf_currenttoken == mcReserved_colontok)
7718     {
7719       Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok)) | (1 << (mcReserved_commatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7720       AsmList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
7721       if (mcLexBuf_currenttoken == mcReserved_colontok)
7722         {
7723           Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok)) | (1 << (mcReserved_commatok-mcReserved_eoftok)) | (1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7724           AsmList (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_colontok-mcReserved_eoftok))), stopset1, stopset2);
7725           if (mcLexBuf_currenttoken == mcReserved_colontok)
7726             {
7727               Expect (mcReserved_colontok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7728               TrashList (stopset0, stopset1, stopset2);
7729             }
7730         }
7731     }
7732 }
7733
7734
7735 /*
7736    AsmList := [ AsmElement  ] { ',' AsmElement  }
7737
7738    first  symbols:lsbratok, stringtok, commatok
7739
7740    reachend
7741 */
7742
7743 static void AsmList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7744 {
7745   if ((mcLexBuf_currenttoken == mcReserved_lsbratok) || (mcLexBuf_currenttoken == mcReserved_stringtok))
7746     {
7747       AsmElement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7748     }
7749   while (mcLexBuf_currenttoken == mcReserved_commatok)
7750     {
7751       Expect (mcReserved_commatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lsbratok-mcReserved_eoftok))), stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7752       AsmElement (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7753     }
7754    /* while  */
7755 }
7756
7757
7758 /*
7759    NamedOperand := '[' Ident ']'
7760
7761    first  symbols:lsbratok
7762
7763    cannot reachend
7764 */
7765
7766 static void NamedOperand (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7767 {
7768   Expect (mcReserved_lsbratok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_identtok-mcReserved_recordtok))));
7769   Ident (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rsbratok-mcReserved_eoftok))), stopset1, stopset2);
7770   Expect (mcReserved_rsbratok, stopset0, stopset1, stopset2);
7771 }
7772
7773
7774 /*
7775    AsmOperandName := [ NamedOperand  ]
7776
7777    first  symbols:lsbratok
7778
7779    reachend
7780 */
7781
7782 static void AsmOperandName (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7783 {
7784   if (mcLexBuf_currenttoken == mcReserved_lsbratok)
7785     {
7786       NamedOperand (stopset0, stopset1, stopset2);
7787     }
7788 }
7789
7790
7791 /*
7792    AsmElement := AsmOperandName string '(' Expression
7793                  ')'
7794
7795    first  symbols:stringtok, lsbratok
7796
7797    cannot reachend
7798 */
7799
7800 static void AsmElement (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7801 {
7802   AsmOperandName (stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7803   string (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_lparatok-mcReserved_eoftok))), stopset1, stopset2);
7804   Expect (mcReserved_lparatok, stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_minustok-mcReserved_eoftok)) | (1 << (mcReserved_plustok-mcReserved_eoftok)) | (1 << (mcReserved_lparatok-mcReserved_eoftok)) | (1 << (mcReserved_lcbratok-mcReserved_eoftok))), stopset1|(mcp3_SetOfStop1) ((1 << (mcReserved_nottok-mcReserved_arraytok))), stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok)) | (1 << (mcReserved_integertok-mcReserved_recordtok)) | (1 << (mcReserved_realtok-mcReserved_recordtok)) | (1 << (mcReserved_identtok-mcReserved_recordtok))));
7805   Expression (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_rparatok-mcReserved_eoftok))), stopset1, stopset2);
7806   Expect (mcReserved_rparatok, stopset0, stopset1, stopset2);
7807 }
7808
7809
7810 /*
7811    TrashList := [ string  ] { ',' string  }
7812
7813    first  symbols:commatok, stringtok
7814
7815    reachend
7816 */
7817
7818 static void TrashList (mcp3_SetOfStop0 stopset0, mcp3_SetOfStop1 stopset1, mcp3_SetOfStop2 stopset2)
7819 {
7820   if (mcLexBuf_currenttoken == mcReserved_stringtok)
7821     {
7822       string (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7823     }
7824   while (mcLexBuf_currenttoken == mcReserved_commatok)
7825     {
7826       Expect (mcReserved_commatok, stopset0, stopset1, stopset2|(mcp3_SetOfStop2) ((1 << (mcReserved_stringtok-mcReserved_recordtok))));
7827       string (stopset0|(mcp3_SetOfStop0) ((1 << (mcReserved_commatok-mcReserved_eoftok))), stopset1, stopset2);
7828     }
7829    /* while  */
7830 }
7831
7832
7833 /*
7834    CompilationUnit - returns TRUE if the input was correct enough to parse
7835                      in future passes.
7836 */
7837
7838 extern "C" bool mcp3_CompilationUnit (void)
7839 {
7840   stk = mcStack_init ();
7841   WasNoError = true;
7842   FileUnit ((mcp3_SetOfStop0) ((1 << (mcReserved_eoftok-mcReserved_eoftok))), (mcp3_SetOfStop1) 0, (mcp3_SetOfStop2) 0);
7843   mcStack_kill (&stk);
7844   return WasNoError;
7845   /* static analysis guarentees a RETURN statement will be used before here.  */
7846   __builtin_unreachable ();
7847 }
7848
7849 extern "C" void _M2_mcp3_init (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
7850 {
7851 }
7852
7853 extern "C" void _M2_mcp3_fini (__attribute__((unused)) int argc, __attribute__((unused)) char *argv[], __attribute__((unused)) char *envp[])
7854 {
7855 }