gcc/testsuite/gm2/pim/pass/tinyvarient5.mod

(* Copyright (C) 2015 Free Software Foundation, Inc.  *)
(* This file is part of GNU Modula-2.

GNU Modula-2 is free software; you can redistribute it and/or modify it under
the terms of the GNU General Public License as published by the Free
Software Foundation; either version 3, or (at your option) any later
version.

GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
WARRANTY; without even the implied warranty of MERCHANTABILITY or
FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
for more details.

You should have received a copy of the GNU General Public License along
with gm2; see the file COPYING.  If not, write to the Free Software
Foundation, 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA.  *)

MODULE tinyvarient5 ;   (*!m2pim*)


TYPE
   atoms = (id, lit, sub, opt, mult, m2) ;
   FollowDesc = CARDINAL ;
   IdentDesc = CARDINAL ;
   CodeDesc = CARDINAL ;
   Name = CARDINAL ;
   ExpressionDesc = CARDINAL ;
   FactorType = atoms ;

   FactorDesc     = POINTER TO factordesc ;
   factordesc = RECORD
                   followinfo: FollowDesc ;
                   next      : FactorDesc ;   (* chain of successive factors *)
                   line      : CARDINAL ;
                   pushed    : FactorDesc ;   (* chain of pushed code factors *)
                   CASE type: FactorType OF

                   id  : ident : IdentDesc |
                   lit : string: Name |
                   sub,
                   opt,
                   mult: expr  : ExpressionDesc |
                   m2  : code  : CodeDesc ;

                   END
                END ;

VAR
   f: FactorDesc ;
BEGIN
   f^.expr := 1
END tinyvarient5.