/*
 *  c file Generated by P5c Pascal compiler v 1.2
 */
#include <p5c.h>
#if __P5C_H__ - 0 != 100
#error "compiler incompatible with p5c.h"
#endif
struct _PcleanupInf *_Phead=NULL;
static void _Pclose_file(text *const $fp) {
 if($fp->f != NULL) {
  if($fp->name!=NULL && $fp->flags==-2) putc('\n', $fp->f);
  fclose($fp->f);
 }
} // _Pclose_file()
static text output_1 = { .name="output", .flags=-1 };
static void _Pexit(void) {
if(output_1.flags==-2)  putc('\n', output_1.f);
while(_Phead!=NULL){
  _Phead->cuFunc();_Phead=_Phead->link;};
} //_Pexit()
static jmp_buf _PJB1;
// tagfield cclass_1
// vfstfld points to rval_1
// vfstfld points to slgth_1
// tagfield _1
// vfstfld points to ival_1
// vfstfld points to valp_1
// tagfield form_1
// vfstfld points to >>> name not found
// tagfield scalkind_1
// vfstfld points to fconst_1
// vfstfld points to >>> name not found
// vfstfld points to rangetype_1
// vfstfld points to eltype_1
// vfstfld points to elset_1
// vfstfld points to aeltype_1
// vfstfld points to fstfld_1
// vfstfld points to filtype_1
// vfstfld points to tagfieldp_1
// vfstfld points to nxtvar_1
// tagfield klass_1
// vfstfld points to >>> name not found
// vfstfld points to values_1
// vfstfld points to vkind_1
// vfstfld points to >>> name not found
// vfstfld points to varnt_1
// vfstfld points to pflist_1
// tagfield pfdeckind_1
// vfstfld points to key_1
// vfstfld points to pflev_1
// tagfield pfkind_1
// vfstfld points to forwdecl_1
// vfstfld points to >>> name not found
// tagfield n_1
// vfstfld points to binOpKind_1
// vfstfld points to strOpKind_1
// vfstfld points to setOpKind_1
// vfstfld points to unOpKind_1
// vfstfld points to nodeCval_1
// vfstfld points to nodeVar_1
// vfstfld points to nodefBuf_1
// vfstfld points to arrayType_1
// vfstfld points to varList_1
// vfstfld points to ptrType_1
// vfstfld points to fieldName_1
// vfstfld points to wfieldName_1
// vfstfld points to key_1
// vfstfld points to nodeFunc_1
// vfstfld points to fPar_1
// vfstfld points to lev_1
// vfstfld points to regNr_1
// vfstfld points to SetNr_1
// tagfield kind_1
// vfstfld points to cval_1
// vfstfld points to packing_1
// tagfield access_1
// vfstfld points to vlevel_1
// vfstfld points to >>> name not found
// vfstfld points to >>> name not found
// vfstfld points to >>> name not found
// ++ symbol ++scalar type

// type declaration symbol state is 0
typedef /* type id symbol */ /* +declared scalar [ 0 .. 48 ] */ uint8_t symbol_1;
// ++ operator ++scalar type

// type declaration operator state is 0
typedef /* type id operator */ /* +declared scalar [ 0 .. 15 ] */ uint8_t operator_1;
// ++ setofsys ++power (set) type

// type declaration setofsys state is 0
typedef /* type id setofsys */ /* +set */ struct { uint8_t element[(48>>3) - (0>>3)+1]; } setofsys_1;
// ++ chtp ++scalar type

// type declaration chtp state is 0
typedef /* type id chtp */ /* +declared scalar [ 0 .. 11 ] */ uint8_t chtp_1;
// ++ tStdNames ++scalar type

// type declaration tStdNames state is 0
typedef /* type id tStdNames */ /* +declared scalar [ 0 .. 34 ] */ uint8_t tStdNames_1;
// ++ strvsp ++pointer type
// ++ strvs ++record
/* ++ member str type --- */
/* +*array component type */
/* ++ member next type strvsp */
// ++ strvsp ++pointer type
/* ++recursive struct, state is 0 */
struct strvs_1;

// type declaration strvsp state is 0
typedef /* type id strvsp */ /* +pointer */ struct strvs_1 *strvsp_1;

// type declaration strvs state is 1
typedef /* type id strvs */ /* +record */  struct strvs_1 {
/* +packed array */  struct  {
unsigned char  component[10u]; } str_1;
strvsp_1 next_1;
} strvs_1;

// ++ cstclass ++scalar type

// type declaration cstclass state is 0
typedef /* type id cstclass */ /* +declared scalar [ 0 ..  1 ] */ uint8_t cstclass_1;
// ++ csp ++pointer type
// ++ constant ++record
/* ++ member next type csp */
// ++ csp ++pointer type
/* ++recursive struct, state is 0 */
struct constant_1;

// type declaration csp state is 0
typedef /* type id csp */ /* +pointer */ struct constant_1 *csp_1;
// +* variant part
/* +*tagfield 2 */
// +*variant
/* ++ member slgth type --- */
/* ++ member sval type strvsp */
// +*variant
/* ++ member rval type strvsp */

// type declaration constant state is 1
typedef /* type id constant */ /* +record */  struct constant_1 {
csp_1 next_1;
cstclass_1 cclass_1; // +tagfield
union {
 /* +variant 1*/
struct {
/* +subrange  0 .. 250  */ uint8_t /* +range type parsed */ slgth_1;
strvsp_1 sval_1;
};
 /* +variant 0*/
struct {
strvsp_1 rval_1;
};
}; // union
} constant_1;

// ++ valu ++record
/* ++ member ival type --- */
// +* variant part
/* +*tagfield 2 */
// +*variant
/* ++ member valp type csp */
// +*variant
/* ++ member ival type --- */

// type declaration valu state is 0
typedef /* type id valu */ /* +record */  struct valu_1 {
union {
 /* +variant 0*/
struct {
csp_1 valp_1;
};
 /* +variant 1*/
struct {
int ival_1;
};
}; // union
} valu_1;
// ++ levrange ++subrange type

// type declaration levrange state is 0
typedef /* type id levrange */ /* +subrange  0 .. 255  */ uint8_t /* +range type parsed */ levrange_1;
// ++ structform ++scalar type

// type declaration structform state is 0
typedef /* type id structform */ /* +declared scalar [ 0 ..  8 ] */ uint8_t structform_1;
// ++ declkind ++scalar type

// type declaration declkind state is 0
typedef /* type id declkind */ /* +declared scalar [ 0 ..  1 ] */ uint8_t declkind_1;
// ++ stp ++pointer type
// ++ structure ++record
/* ++ member next type stp */
// ++ stp ++pointer type
/* ++recursive struct, state is 0 */
struct structure_1;

// type declaration stp state is 0
typedef /* type id stp */ /* +pointer */ struct structure_1 *stp_1;
/* ++ member decChain type stp */
/* ++ member typeName type ctp */
// ++ ctp ++pointer type
// ++ identifier ++record
/* ++ member name type strvsp */
/* ++ member llink type ctp */
// ++ ctp ++pointer type
/* ++recursive struct, state is 0 */
struct identifier_1;

// type declaration ctp state is 0
typedef /* type id ctp */ /* +pointer */ struct identifier_1 *ctp_1;
/* ++ member rlink type ctp */
/* ++ member lev type levrange */
/* ++ member idtype type stp */
/* ++ member next type ctp */
/* ++ member keep type --- */
/* ++ member refer type --- */
/* ++ member ignore type --- */
// +* variant part
/* +*tagfield 2 */
// ++ idclass ++scalar type

// type declaration idclass state is 0
typedef /* type id idclass */ /* +declared scalar [ 0 ..  6 ] */ uint8_t idclass_1;
// +*variant
/* ++ member pflist type ctp */
// +*variant
/* ++ member pflist type ctp */
/* +*tagfield 2 */
// +*variant
/* ++ member pflev type levrange */
/* ++ member pfname type tStdNames */
/* ++ member asgn type --- */
/* ++ member dbg type --- */
/* +*tagfield 2 */
// ++ idkind ++scalar type

// type declaration idkind state is 0
typedef /* type id idkind */ /* +declared scalar [ 0 ..  1 ] */ uint8_t idkind_1;
// +*variant
// +*variant
/* ++ member forwdecl type --- */
/* ++ member externl type --- */
// +*variant
/* ++ member key type tStdNames */
// +*variant
/* ++ member varnt type stp */
/* ++ member varlb type ctp */
/* ++ member tagfield type --- */
// +*variant
// +*variant
/* ++ member vkind type idkind */
/* ++ member vlev type levrange */
/* ++ member threat type --- */
/* ++ member forcnt type --- */
// +*variant
/* ++ member values type valu */
// +*variant

// type declaration identifier state is 1
typedef /* type id identifier */ /* +record */  struct identifier_1 {
strvsp_1 name_1;
ctp_1 llink_1, rlink_1;
levrange_1 lev_1;
stp_1 idtype_1;
ctp_1 next_1;
bool keep_1, refer_1, ignore_1;
idclass_1 klass_1; // +tagfield
union {
 /* +variant 6*/
 /* +variant 5*/
struct {
ctp_1 pflist_1;
declkind_1 pfdeckind_1; // +tagfield
union {
 /* +variant 1*/
struct {
levrange_1 pflev_1;
tStdNames_1 pfname_1;
bool asgn_1, dbg_1;
idkind_1 pfkind_1; // +tagfield
union {
 /* +variant 1*/
struct {
};
 /* +variant 0*/
struct {
bool forwdecl_1, externl_1;
};
}; // union
};
 /* +variant 0*/
struct {
tStdNames_1 key_1;
};
}; // union
};
 /* +variant 3*/
struct {
stp_1 varnt_1;
ctp_1 varlb_1;
bool tagfield_1;
};
 /* +variant 4*/
struct {
};
 /* +variant 2*/
struct {
idkind_1 vkind_1;
levrange_1 vlev_1;
bool threat_1;
int forcnt_1;
};
 /* +variant 1*/
struct {
struct valu_1 values_1;
};
 /* +variant 0*/
struct {
};
}; // union
} identifier_1;

/* ++ member decState type --- */
/* ++ member isVoidPtr type --- */
/* ++ member checkStruct type --- */
/* ++ member checkPtr type --- */
/* ++ member marked type --- */
/* ++ member packing type --- */
/* ++ member hasFile type --- */
// +* variant part
/* +*tagfield 2 */
// +*variant
/* ++ member nxtvar type stp */
/* ++ member subvar type stp */
/* ++ member caslst type stp */
/* ++ member vfstfld type ctp */
/* ++ member varval type --- */
// +*variant
/* ++ member tagfieldp type ctp */
/* ++ member fstvar type stp */
// +*variant
/* ++ member filtype type stp */
// +*variant
/* ++ member fstfld type ctp */
/* ++ member recvar type stp */
/* ++ member recyc type stp */
// +*variant
/* ++ member aeltype type stp */
/* ++ member inxtype type stp */
/* ++ member lowbound type ctp */
/* ++ member highbound type ctp */
/* ++ member slen type --- */
/* ++ member confFlag type --- */
// +*variant
/* ++ member elset type stp */
/* ++ member matchpack type --- */
// +*variant
/* ++ member eltype type stp */
// +*variant
/* ++ member rangetype type stp */
/* ++ member smin type --- */
/* ++ member smax type --- */
// +*variant
/* +*tagfield 2 */
// +*variant
// +*variant
/* ++ member fconst type ctp */

// type declaration structure state is 1
typedef /* type id structure */ /* +record */  struct structure_1 {
stp_1 next_1, decChain_1;
ctp_1 typeName_1;
/* +declared scalar [ 0 ..  3 ] */ uint8_t decState_1;
bool isVoidPtr_1, checkStruct_1, checkPtr_1, marked_1, packing_1, hasFile_1;
structform_1 form_1; // +tagfield
union {
 /* +variant 8*/
struct {
stp_1 nxtvar_1, subvar_1, caslst_1;
ctp_1 vfstfld_1;
int varval_1;
};
 /* +variant 7*/
struct {
ctp_1 tagfieldp_1;
stp_1 fstvar_1;
};
 /* +variant 6*/
struct {
stp_1 filtype_1;
};
 /* +variant 5*/
struct {
ctp_1 fstfld_1;
stp_1 recvar_1, recyc_1;
};
 /* +variant 4*/
struct {
stp_1 aeltype_1, inxtype_1;
ctp_1 lowbound_1, highbound_1;
int slen_1;
bool confFlag_1;
};
 /* +variant 3*/
struct {
stp_1 elset_1;
bool matchpack_1;
};
 /* +variant 2*/
struct {
stp_1 eltype_1;
};
 /* +variant 1*/
struct {
stp_1 rangetype_1;
int smin_1, smax_1;
};
 /* +variant 0*/
struct {
declkind_1 scalkind_1; // +tagfield
union {
 /* +variant 0*/
struct {
};
 /* +variant 1*/
struct {
ctp_1 fconst_1;
};
}; // union
};
}; // union
} structure_1;

// ++ setofids ++power (set) type

// type declaration setofids state is 0
typedef /* type id setofids */ /* +set */ struct { uint8_t element[(6>>3) - (0>>3)+1]; } setofids_1;
// ++ idstr ++array component type

// type declaration idstr state is 0
typedef /* type id idstr */ /* +packed array */  struct idstr_1 {
unsigned char  component[250u]; } idstr_1;
// ++ restr ++array component type

// type declaration restr state is 0
typedef /* type id restr */ /* +packed array */  struct restr_1 {
unsigned char  component[9u]; } restr_1;
// ++ nmstr ++array component type

// type declaration nmstr state is 0
typedef /* type id nmstr */ /* +packed array */  struct nmstr_1 {
unsigned char  component[250u]; } nmstr_1;
// ++ csstr ++array component type

// type declaration csstr state is 0
typedef /* type id csstr */ /* +packed array */  struct csstr_1 {
unsigned char  component[250u]; } csstr_1;
// ++ disprange ++subrange type

// type declaration disprange state is 0
typedef /* type id disprange */ /* +subrange  0 .. 300  */ uint16_t /* +range type parsed */ disprange_1;
// ++ where ++scalar type

// type declaration where state is 0
typedef /* type id where */ /* +declared scalar [ 0 ..  3 ] */ uint8_t where_1;
// ++ nodeType ++scalar type

// type declaration nodeType state is 0
typedef /* type id nodeType */ /* +declared scalar [ 0 .. 17 ] */ uint8_t nodeType_1;
// ++ exprTreePtr ++pointer type
// ++ exprTree ++record
/* ++ member n type nodeType */
// +* variant part
/* +*tagfield 2 */
// +*variant
/* ++ member SetNr type --- */
/* ++ member pSelFlag type --- */
// +*variant
/* ++ member regNr type --- */
// +*variant
/* ++ member lev type levrange */
/* ++ member fdbg type --- */
// +*variant
/* ++ member fPar type ctp */
// +*variant
/* ++ member nodeFunc type ctp */
/* ++ member paramList type pfParamPtr */
// ++ pfParamPtr ++pointer type
// ++ pfParam ++record
/* ++ member next type pfParamPtr */
// ++ pfParamPtr ++pointer type
/* ++recursive struct, state is 0 */
struct pfParam_1;

// type declaration pfParamPtr state is 0
typedef /* type id pfParamPtr */ /* +pointer */ struct pfParam_1 *pfParamPtr_1;
/* ++ member parAccess type --- */
/* ++ member parExpr type exprTreePtr */
// ++ exprTreePtr ++pointer type
/* ++recursive struct, state is 0 */
struct exprTree_1;

// type declaration exprTreePtr state is 0
typedef /* type id exprTreePtr */ /* +pointer */ struct exprTree_1 *exprTreePtr_1;
/* ++ member parType type stp */

// type declaration pfParam state is 1
typedef /* type id pfParam */ /* +record */  struct pfParam_1 {
pfParamPtr_1 next_1;
/* +declared scalar [ 0 ..  2 ] */ uint8_t parAccess_1;
exprTreePtr_1 parExpr_1;
stp_1 parType_1;
} pfParam_1;

// +*variant
/* ++ member key type tStdNames */
/* ++ member argType type stp */
/* ++ member arg type exprTreePtr */
// +*variant
/* ++ member wfieldName type ctp */
/* ++ member fLevel type disprange */
// +*variant
/* ++ member fieldName type ctp */
/* ++ member fParent type exprTreePtr */
// +*variant
/* ++ member ptrType type stp */
/* ++ member pparent type exprTreePtr */
// +*variant
/* ++ member varList type varElementPtr */
// ++ varElementPtr ++pointer type
// ++ varElement ++record
/* ++ member next type varElementPtr */
// ++ varElementPtr ++pointer type
/* ++recursive struct, state is 0 */
struct varElement_1;

// type declaration varElementPtr state is 0
typedef /* type id varElementPtr */ /* +pointer */ struct varElement_1 *varElementPtr_1;
/* ++ member isRange type --- */
/* ++ member elvalue type exprTreePtr */
/* ++ member hiValue type exprTreePtr */

// type declaration varElement state is 1
typedef /* type id varElement */ /* +record */  struct varElement_1 {
varElementPtr_1 next_1;
bool isRange_1;
exprTreePtr_1 elvalue_1, hiValue_1;
} varElement_1;

/* ++ member constList type constElementPtr */
// ++ constElementPtr ++pointer type
// ++ constElement ++record
/* ++ member next type constElementPtr */
// ++ constElementPtr ++pointer type
/* ++recursive struct, state is 0 */
struct constElement_1;

// type declaration constElementPtr state is 0
typedef /* type id constElementPtr */ /* +pointer */ struct constElement_1 *constElementPtr_1;
/* ++ member isRange type --- */
/* ++ member elvalue type --- */
/* ++ member hiValue type --- */

// type declaration constElement state is 1
typedef /* type id constElement */ /* +record */  struct constElement_1 {
constElementPtr_1 next_1;
bool isRange_1;
int elvalue_1, hiValue_1;
} constElement_1;

/* ++ member listLo type --- */
/* ++ member listHi type --- */
/* ++ member sparent type exprTreePtr */
/* ++ member invert type --- */
/* ++ member newList type --- */
/* ++ member seltype type stp */
// +*variant
/* ++ member arrayType type stp */
/* ++ member index type exprTreePtr */
/* ++ member aparent type exprTreePtr */
// +*variant
/* ++ member nodefBuf type ctp */
/* ++ member fBufType type stp */
/* ++ member fbParent type exprTreePtr */
/* ++ member lvalue type --- */
// +*variant
/* ++ member nodeVar type ctp */
/* ++ member isVar type --- */
// +*variant
/* ++ member nodeCval type valu */
/* ++ member constType type stp */
// +*variant
/* ++ member unOpKind type --- */
/* ++ member operand type exprTreePtr */
// +*variant
/* ++ member setOpKind type operator */
/* ++ member setLeft type exprTreePtr */
/* ++ member setRight type exprTreePtr */
/* ++ member resNr type --- */
/* ++ member resHi type --- */
/* ++ member resLo type --- */
/* ++ member locked type --- */
// +*variant
/* ++ member strOpKind type operator */
/* ++ member slen type --- */
/* ++ member strLeft type exprTreePtr */
/* ++ member strRight type exprTreePtr */
/* ++ member lvar type --- */
/* ++ member rvar type --- */
// +*variant
/* ++ member binOpKind type operator */
/* ++ member binOpType type stp */
/* ++ member left type exprTreePtr */
/* ++ member right type exprTreePtr */

// type declaration exprTree state is 1
typedef /* type id exprTree */ /* +record */  struct exprTree_1 {
nodeType_1 n_1; // +tagfield
union {
 /* +variant 17*/
struct {
int SetNr_1;
bool pSelFlag_1;
};
 /* +variant 16*/
struct {
int regNr_1;
};
 /* +variant 15*/
struct {
levrange_1 lev_1;
bool fdbg_1;
};
 /* +variant 7*/
struct {
ctp_1 fPar_1;
};
 /* +variant 13*/
struct {
ctp_1 nodeFunc_1;
pfParamPtr_1 paramList_1;
};
 /* +variant 14*/
struct {
tStdNames_1 key_1;
stp_1 argType_1;
exprTreePtr_1 arg_1;
};
 /* +variant 12*/
struct {
ctp_1 wfieldName_1;
disprange_1 fLevel_1;
};
 /* +variant 11*/
struct {
ctp_1 fieldName_1;
exprTreePtr_1 fParent_1;
};
 /* +variant 4*/
struct {
stp_1 ptrType_1;
exprTreePtr_1 pparent_1;
};
 /* +variant 10*/
struct {
varElementPtr_1 varList_1;
constElementPtr_1 constList_1;
int listLo_1, listHi_1;
exprTreePtr_1 sparent_1;
bool invert_1, newList_1;
stp_1 seltype_1;
};
 /* +variant 9*/
struct {
stp_1 arrayType_1;
exprTreePtr_1 index_1, aparent_1;
};
 /* +variant 8*/
struct {
ctp_1 nodefBuf_1;
stp_1 fBufType_1;
exprTreePtr_1 fbParent_1;
bool lvalue_1;
};
 /* +variant 6*/
struct {
ctp_1 nodeVar_1;
bool isVar_1;
};
 /* +variant 5*/
struct {
struct valu_1 nodeCval_1;
stp_1 constType_1;
};
 /* +variant 3*/
struct {
/* +declared scalar [ 0 ..  3 ] */ uint8_t unOpKind_1;
exprTreePtr_1 operand_1;
};
 /* +variant 2*/
struct {
operator_1 setOpKind_1;
exprTreePtr_1 setLeft_1, setRight_1;
int resNr_1, resHi_1, resLo_1;
bool locked_1;
};
 /* +variant 1*/
struct {
operator_1 strOpKind_1;
int slen_1;
exprTreePtr_1 strLeft_1, strRight_1;
bool lvar_1, rvar_1;
};
 /* +variant 0*/
struct {
operator_1 binOpKind_1;
stp_1 binOpType_1;
exprTreePtr_1 left_1, right_1;
};
}; // union
} exprTree_1;

// ++ attrkind ++scalar type

// type declaration attrkind state is 0
typedef /* type id attrkind */ /* +declared scalar [ 0 ..  2 ] */ uint8_t attrkind_1;
// ++ vaccess ++scalar type

// type declaration vaccess state is 0
typedef /* type id vaccess */ /* +declared scalar [ 0 ..  2 ] */ uint8_t vaccess_1;
// ++ attr ++record
/* ++ member typtr type stp */
/* ++ member codeTree type exprTreePtr */
// +* variant part
/* +*tagfield 2 */
// +*variant
// +*variant
/* ++ member packing type --- */
/* ++ member packcom type --- */
/* ++ member tagfieldg type --- */
/* ++ member ptrref type --- */
/* +*tagfield 2 */
// +*variant
// +*variant
// +*variant
/* ++ member vlevel type levrange */
// +*variant
/* ++ member cval type valu */

// type declaration attr state is 0
typedef /* type id attr */ /* +record */  struct attr_1 {
stp_1 typtr_1;
exprTreePtr_1 codeTree_1;
attrkind_1 kind_1; // +tagfield
union {
 /* +variant 2*/
struct {
};
 /* +variant 1*/
struct {
bool packing_1, packcom_1, tagfieldg_1, ptrref_1;
vaccess_1 access_1; // +tagfield
union {
 /* +variant 2*/
struct {
};
 /* +variant 1*/
struct {
};
 /* +variant 0*/
struct {
levrange_1 vlevel_1;
};
}; // union
};
 /* +variant 0*/
struct {
struct valu_1 cval_1;
};
}; // union
} attr_1;
// ++ lbp ++pointer type
// ++ labl ++record
/* ++ member nextlab type lbp */
// ++ lbp ++pointer type
/* ++recursive struct, state is 0 */
struct labl_1;

// type declaration lbp state is 0
typedef /* type id lbp */ /* +pointer */ struct labl_1 *lbp_1;
/* ++ member defined type --- */
/* ++ member labval type --- */
/* ++ member labname type --- */
/* ++ member vlevel type levrange */
/* ++ member slevel type --- */
/* ++ member ipcref type --- */
/* ++ member minlvl type --- */
/* ++ member bact type --- */
/* ++ member refer type --- */

// type declaration labl state is 1
typedef /* type id labl */ /* +record */  struct labl_1 {
lbp_1 nextlab_1;
bool defined_1;
int labval_1, labname_1;
levrange_1 vlevel_1;
int slevel_1;
bool ipcref_1;
int minlvl_1;
bool bact_1, refer_1;
} labl_1;

// ++ extfilep ++pointer type
// ++ filerec ++record
/* ++ member argNr type --- */
/* ++ member filename type idstr */
/* ++ member nextfile type extfilep */
// ++ extfilep ++pointer type
/* ++recursive struct, state is 0 */
struct filerec_1;

// type declaration extfilep state is 0
typedef /* type id extfilep */ /* +pointer */ struct filerec_1 *extfilep_1;

// type declaration filerec state is 1
typedef /* type id filerec */ /* +record */  struct filerec_1 {
int argNr_1;
struct idstr_1 filename_1;
extfilep_1 nextfile_1;
} filerec_1;

// ++ cip ++pointer type
// ++ caseinfo ++record
/* ++ member next type cip */
// ++ cip ++pointer type
/* ++recursive struct, state is 0 */
struct caseinfo_1;

// type declaration cip state is 0
typedef /* type id cip */ /* +pointer */ struct caseinfo_1 *cip_1;
/* ++ member cslab type --- */

// type declaration caseinfo state is 1
typedef /* type id caseinfo */ /* +record */  struct caseinfo_1 {
cip_1 next_1;
int cslab_1;
} caseinfo_1;

// ++ errNumType ++subrange type

// type declaration errNumType state is 0
typedef /* type id errNumType */ /* +subrange  -10 .. 500  */ int16_t /* +range type parsed */ errNumType_1;
static /* +file */ text  /* form (6) */ prc_1={0}, prd_1={0};
static symbol_1  /* form (0) */ sy_1;
static operator_1  /* form (0) */ op_1;
static struct valu_1  /* form (5) */ val_1;
static int  /* form (0) */ lgth_1;
static struct idstr_1  /* form (4) */ id_1;
static /* +subrange  1 .. 250  */ uint8_t /* +range type parsed */  /* form (1) */ kk_1;
static unsigned char  /* form (0) */ ch_1;
static bool  /* form (0) */ eol_1;
static int  /* form (0) */ chcnt_1;
static int  /* form (0) */ linecount_1;
static bool  /* form (0) */ chkvar_1, prtables_1, list_1, dp_1;
static bool  /* form (0) */ debug_1;
static bool  /* form (0) */ memDebug_1;
static bool  /* form (0) */ lnflag_1;
static bool  /* form (0) */ algSet_1;
static bool  /* form (0) */ chkref_1;
static stp_1  /* form (2) */ textptr_1, nilptr_1, boolptr_1, charptr_1, realptr_1, intptr_1, parmptr_1;
static ctp_1  /* form (2) */ fwptr_1, ufctptr_1, uprcptr_1, ufldptr_1, uvarptr_1, ucstptr_1, utypptr_1;
static ctp_1  /* form (2) */ inputptr_1, outputptr_1;
static extfilep_1  /* form (2) */ fextfilep_1;
static levrange_1  /* form (1) */ level_1;
static disprange_1  /* form (1) */ top_1, disx_1;
// tagfield occur_1
// vfstfld points to clev_1
// vfstfld points to >>> name not found
// vfstfld points to bname_1
// vfstfld points to >>> name not found
static /* +array */  struct  {
/* +record */  struct __attribute__ ((__packed__))  {
ctp_1 fname_1;
lbp_1 flabel_1;
csp_1 fconst_1;
stp_1 fstruct_1;
 /* bitfield */ unsigned packing_1 : 1;
 /* bitfield */ unsigned packcom_1 : 1;
 /* bitfield */ unsigned ptrref_1 : 1;
 /* bitfield */ unsigned occur_1 : 2; // +tagfield
union {
 /* +variant 3*/
struct {
};
 /* +variant 0*/
struct {
ctp_1 bname_1;
 /* bitfield */ unsigned hasFile_1 : 1;
};
 /* +variant 2*/
struct {
};
 /* +variant 1*/
struct {
 /* bitfield */ unsigned clev_1 : 8;
};
}; // union
}  component[301u]; }  /* form (4) */ display_1;
static /* +subrange  0 .. 10  */ uint8_t /* +range type parsed */  /* form (1) */ errinx_1;
static /* +array */  struct  {
/* +record */  struct __attribute__ ((__packed__))  {
int pos_1;
 /* bitfield */ signed nmr_1 : 10;
}  component[10u]; }  /* form (4) */ errlist_1;
static struct attr_1  /* form (5) */ gattr_1;
static setofsys_1  /* form (3) */ typedels_1, statbegsys_1, facbegsys_1, selectsys_1, blockbegsys_1, typebegsys_1, simptypebegsys_1, constbegsys_1;
static /* +array */  struct  {
chtp_1  component[256u]; }  /* form (4) */ chartp_1;
static /* +array */  struct  {
struct restr_1  component[35u]; }  /* form (4) */ rw_1;
static /* +array */  struct  {
/* +subrange  1 .. 36  */ uint8_t /* +range type parsed */  component[10u]; }  /* form (4) */ frw_1;
static /* +array */  struct  {
symbol_1  component[35u]; }  /* form (4) */ rsy_1;
static /* +array */  struct  {
symbol_1  component[256u]; }  /* form (4) */ ssy_1;
static /* +array */  struct  {
operator_1  component[35u]; }  /* form (4) */ rop_1;
static /* +array */  struct  {
operator_1  component[256u]; }  /* form (4) */ sop_1;
static /* +array */  struct  {
struct restr_1  component[35u]; }  /* form (4) */ na_1;
static /* +array */  struct  {
int  component[256u]; }  /* form (4) */ ordint_1;
static int  /* form (0) */ mxint10_1, intlabel_1;
static bool  /* form (0) */ inputhdf_1;
static bool  /* form (0) */ outputhdf_1;
static /* +set */ struct { uint8_t element[(500>>3) - (-10>>3)+1]; }  /* form (3) */ errtbl_1;
static int  /* form (0) */ toterr_1;
static int  /* form (0) */ totwarn_1;
static bool  /* form (0) */ warnings_1;
static int  /* form (0) */ strcnt_1;
static int  /* form (0) */ cspcnt_1;
static int  /* form (0) */ stpcnt_1;
static int  /* form (0) */ ctpcnt_1;
static int  /* form (0) */ lbpcnt_1;
static int  /* form (0) */ filcnt_1;
static int  /* form (0) */ cipcnt_1;
static bool  /* form (0) */ f_1;
static errNumType_1  /* form (1) */ erridx_1;
static int  strtoint_1(strvsp_1  p_2) {
int $result1;
// tagfield _2
// vfstfld points to p_2
// vfstfld points to i_2
/* +record */  struct  {
union {
 /* +variant 1*/
struct {
int i_2;
};
 /* +variant 0*/
struct {
strvsp_1 p_2;
};
}; // union
}  /* form (5) */ r_2;
r_2.p_2 = p_2;
$result1 = r_2.i_2;
return $result1;
} /* strtoint_1() */
static int  stptoint_1(stp_1  p_2) {
int $result1;
// tagfield _2
// vfstfld points to p_2
// vfstfld points to i_2
/* +record */  struct  {
union {
 /* +variant 1*/
struct {
int i_2;
};
 /* +variant 0*/
struct {
stp_1 p_2;
};
}; // union
}  /* form (5) */ r_2;
r_2.p_2 = p_2;
$result1 = r_2.i_2;
return $result1;
} /* stptoint_1() */
static int  ctptoint_1(ctp_1  p_2) {
int $result1;
// tagfield _2
// vfstfld points to p_2
// vfstfld points to i_2
/* +record */  struct  {
union {
 /* +variant 1*/
struct {
int i_2;
};
 /* +variant 0*/
struct {
ctp_1 p_2;
};
}; // union
}  /* form (5) */ r_2;
r_2.p_2 = p_2;
$result1 = r_2.i_2;
return $result1;
} /* ctptoint_1() */
static bool  isConfArray_1(stp_1  fsp_2) {
bool $result1;
$result1 = 0;
if( (fsp_2 != (NULL)) )
if( ( /* &pointer Node */ (*fsp_2).form_1 == (4)) )
$result1 =  /* &pointer Node */ (*fsp_2).confFlag_1;
return $result1;
} /* isConfArray_1() */
static void getstr_1(strvsp_1  *const p_2) {
(*p_2) = calloc( 1, sizeof( struct strvs_1 ));
strcnt_1 = (strcnt_1 + (1));
} /* getstr_1() */
static void putstrs_1(strvsp_1  p_2) {
strvsp_1  /* form (2) */ p1_2;
while( (p_2 != (NULL)))
{
p1_2 = p_2;
p_2 =  /* &pointer Node */ (*p_2).next_1;
({ typeof(p1_2) $p=p1_2; 
free($p);});
strcnt_1 = (strcnt_1 - (1));
}
} /* putstrs_1() */
static void getlab_1(lbp_1  *const p_2) {
(*p_2) = calloc( 1, sizeof( struct labl_1 ));
lbpcnt_1 = (lbpcnt_1 + (1));
} /* getlab_1() */
static void putlab_1(lbp_1  p_2) {
({ typeof(p_2) $p=p_2; 
free($p);});
lbpcnt_1 = (lbpcnt_1 - (1));
} /* putlab_1() */
static void pshcst_1(csp_1  p_2) {
 /* &pointer Node */ (*p_2).next_1 = display_1.component[(unsigned)(top_1 - 0) ].fconst_1;
display_1.component[(unsigned)(top_1 - 0) ].fconst_1 = p_2;
cspcnt_1 = (cspcnt_1 + (1));
} /* pshcst_1() */
static void putcst_1(csp_1  p_2) {
if( ( /* &pointer Node */ (*p_2).cclass_1 == (1)) )
putstrs_1(  /* &pointer Node */ (*p_2).sval_1 );
else 
if( ( /* &pointer Node */ (*p_2).cclass_1 == (0)) )
putstrs_1(  /* &pointer Node */ (*p_2).rval_1 );
({ typeof(p_2) $p=p_2; 
free($p);});
cspcnt_1 = (cspcnt_1 - (1));
} /* putcst_1() */
static void pshstc_1(stp_1  p_2) {
 /* &pointer Node */ (*p_2).next_1 = display_1.component[(unsigned)(top_1 - 0) ].fstruct_1;
display_1.component[(unsigned)(top_1 - 0) ].fstruct_1 = p_2;
stpcnt_1 = (stpcnt_1 + (1));
} /* pshstc_1() */
static void putstc_1(stp_1  p_2) {
({ typeof(p_2) $p=p_2; 
free($p);});
stpcnt_1 = (stpcnt_1 - (1));
} /* putstc_1() */
static void ininam_1(ctp_1  p_2) {
ctpcnt_1 = (ctpcnt_1 + (1));
 /* &pointer Node */ (*p_2).lev_1 = level_1;
 /* &pointer Node */ (*p_2).keep_1 = 0;
 /* &pointer Node */ (*p_2).ignore_1 = 0;
 /* &pointer Node */ (*p_2).refer_1 = 0;
} /* ininam_1() */
static void putConfArray_1(stp_1 );
static void putnam_1(ctp_1  p_2) {
ctp_1  /* form (2) */ p2_2, p1_2;
if( ((( /* &pointer Node */ (*p_2).klass_1 == (5))) || ((( /* &pointer Node */ (*p_2).klass_1 == (6))))) )
{
p1_2 =  /* &pointer Node */ (*p_2).pflist_1;
while( (p1_2 != (NULL)))
{
p2_2 =  /* &pointer Node */ (*p1_2).next_1;
if( isConfArray_1(  /* &pointer Node */ (*p1_2).idtype_1 ) )
if( (((p2_2 == (NULL))) || ((( /* &pointer Node */ (*p1_2).idtype_1 != ( /* &pointer Node */ (*p2_2).idtype_1))))) )
putConfArray_1(  /* &pointer Node */ (*p1_2).idtype_1 );
putnam_1( p1_2 );
p1_2 = p2_2;
}
}
putstrs_1(  /* &pointer Node */ (*p_2).name_1 );
({ typeof(p_2) $p=p_2; 
free($p);});
ctpcnt_1 = (ctpcnt_1 - (1));
} /* putnam_1() */
static void putConfArray_1(stp_1  p_2) {
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*p_2);
{
if( ($tw3->lowbound_1 != (NULL)) )
putnam_1( $tw3->lowbound_1 );
if( ($tw3->highbound_1 != (NULL)) )
putnam_1( $tw3->highbound_1 );
if( isConfArray_1( $tw3->aeltype_1 ) )
putConfArray_1( $tw3->aeltype_1 );
}
} // with
putstc_1( p_2 );
} /* putConfArray_1() */
static void putnams_1(ctp_1  p_2) {
if( (p_2 != (NULL)) )
{
putnams_1(  /* &pointer Node */ (*p_2).llink_1 );
putnams_1(  /* &pointer Node */ (*p_2).rlink_1 );
if( !( /* &pointer Node */ (*p_2).keep_1) )
putnam_1( p_2 );
}
} /* putnams_1() */
static void putdsp_1(disprange_1  l_2) {
lbp_1  /* form (2) */ llp_2;
csp_1  /* form (2) */ lvp_2;
stp_1  /* form (2) */ lsp_2;
void putsub_2(stp_1  p_3) {
stp_1  /* form (2) */ p1_3;
if( ( /* &pointer Node */ (*p_3).form_1 == (5)) )
{
while( ( /* &pointer Node */ (*p_3).recyc_1 != (NULL)))
{
p1_3 =  /* &pointer Node */ (*p_3).recyc_1;
 /* &pointer Node */ (*p_3).recyc_1 =  /* &pointer Node */ (*p1_3).next_1;
putsub_2( p1_3 );
}
putnams_1(  /* &pointer Node */ (*p_3).fstfld_1 );
}
else 
if( ( /* &pointer Node */ (*p_3).form_1 == (7)) )
{
if( ( /* &pointer Node */ (*p_3).tagfieldp_1 != (NULL)) )
if( ( /* &pointer Node */ (* /* &pointer Node */ (*p_3).tagfieldp_1).name_1 == (NULL)) )
putnam_1(  /* &pointer Node */ (*p_3).tagfieldp_1 );
}
putstc_1( p_3 );
} /* putsub_2() */
putnams_1( display_1.component[(unsigned)(l_2 - 0) ].fname_1 );
while( (display_1.component[(unsigned)(l_2 - 0) ].flabel_1 != (NULL)))
{
llp_2 = display_1.component[(unsigned)(l_2 - 0) ].flabel_1;
display_1.component[(unsigned)(l_2 - 0) ].flabel_1 =  /* &pointer Node */ (*llp_2).nextlab_1;
putlab_1( llp_2 );
}
while( (display_1.component[(unsigned)(l_2 - 0) ].fconst_1 != (NULL)))
{
lvp_2 = display_1.component[(unsigned)(l_2 - 0) ].fconst_1;
display_1.component[(unsigned)(l_2 - 0) ].fconst_1 =  /* &pointer Node */ (*lvp_2).next_1;
putcst_1( lvp_2 );
}
while( (display_1.component[(unsigned)(l_2 - 0) ].fstruct_1 != (NULL)))
{
lsp_2 = display_1.component[(unsigned)(l_2 - 0) ].fstruct_1;
display_1.component[(unsigned)(l_2 - 0) ].fstruct_1 =  /* &pointer Node */ (*lsp_2).next_1;
if( !(isConfArray_1( lsp_2 )) )
putsub_2( lsp_2 );
}
} /* putdsp_1() */
static void putdsps_1(disprange_1  l_2) {
disprange_1  /* form (1) */ t_2;
if( (l_2 > (top_1)) )
{
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({while(_Phead!=NULL && _Phead->level>1) { _Phead->cuFunc(); _Phead=_Phead->link; }; longjmp( _PJB1, 1 );});
}
t_2 = top_1;
while( (t_2 > (l_2)))
{
putdsp_1( t_2 );
t_2 = (t_2 - (1));
}
} /* putdsps_1() */
static void getfil_1(extfilep_1  *const p_2) {
(*p_2) = calloc( 1, sizeof( struct filerec_1 ));
filcnt_1 = (filcnt_1 + (1));
} /* getfil_1() */
static void putfil_1(extfilep_1  p_2) {
({ typeof(p_2) $p=p_2; 
free($p);});
filcnt_1 = (filcnt_1 - (1));
} /* putfil_1() */
static void getcas_1(cip_1  *const p_2) {
(*p_2) = calloc( 1, sizeof( struct caseinfo_1 ));
cipcnt_1 = (cipcnt_1 + (1));
} /* getcas_1() */
static void putcas_1(cip_1  p_2) {
({ typeof(p_2) $p=p_2; 
free($p);});
cipcnt_1 = (cipcnt_1 - (1));
} /* putcas_1() */
static unsigned char  lcase_1(unsigned char  c_2) {
unsigned char $result1;
if( ({ const int $e = c_2;
(0 /*@ (in) set test set node */ || ( $e >= 65 &&   $e <= 90 ));})
 )
c_2 = (unsigned char)((((int)c_2 - ((int)65)) + ((int)97)));
$result1 = c_2;
return $result1;
} /* lcase_1() */
static bool  strequri_1(struct restr_1  a_2, struct idstr_1  *const b_2) {
bool $result1;
bool  /* form (0) */ m_2;
int  /* form (0) */ i_2;
m_2 = 1;
i_2 = 1;
while( (m_2 && (((i_2 <= (9))))))
{
if( (lcase_1( a_2.component[(unsigned)(i_2 - 1) ] ) != (lcase_1( (*b_2).component[(unsigned)(i_2 - 1) ] ))) )
m_2 = 0;
i_2 = (i_2 + (1));
}
if( ((*b_2).component[(unsigned)(10 - 1) ] != (32)) )
m_2 = 0;
$result1 = m_2;
return $result1;
} /* strequri_1() */
static void writev_1(/* +file */ text  *const f_2, strvsp_1  s_2, int  fl_2) {
int  /* form (0) */ i_2;
unsigned char  /* form (0) */ c_2;
i_2 = 1;
while( (fl_2 > (0)))
{
c_2 = 32;
if( (s_2 != (NULL)) )
{
c_2 =  /* &pointer Node */ (*s_2).str_1.component[(unsigned)(i_2 - 1) ];
i_2 = (i_2 + (1));
}
({
text  *const $fp = &(*f_2);
{char $c = c_2;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
fl_2 = (fl_2 - (1));
if( (i_2 > (10)) )
{
s_2 =  /* &pointer Node */ (*s_2).next_1;
i_2 = 1;
}
}
} /* writev_1() */
static void writeve_1(/* +file */ text  *const f_2, strvsp_1  s_2, int  fl_2) {
int  /* form (0) */ i_2;
unsigned char  /* form (0) */ c_2;
i_2 = 1;
while( (fl_2 > (0)))
{
c_2 = 32;
if( (s_2 != (NULL)) )
{
c_2 =  /* &pointer Node */ (*s_2).str_1.component[(unsigned)(i_2 - 1) ];
i_2 = (i_2 + (1));
}
if( (((c_2 == (34))) || (((c_2 == (92))))) )
({
text  *const $fp = &(*f_2);
{char $c = 92;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
({
text  *const $fp = &(*f_2);
{char $c = c_2;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
fl_2 = (fl_2 - (1));
if( (i_2 > (10)) )
{
s_2 =  /* &pointer Node */ (*s_2).next_1;
i_2 = 1;
}
}
} /* writeve_1() */
static int  lenpv_1(strvsp_1  s_2) {
int $result1;
int  /* form (0) */ lc_2, l_2, i_2;
l_2 = 1;
lc_2 = 0;
while( (s_2 != (NULL)))
{
{ const int $tf1 = 1; const int $tf2 = 10;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
if( ( /* &pointer Node */ (*s_2).str_1.component[(unsigned)(i_2 - 1) ] != (32)) )
lc_2 = l_2;
l_2 = (l_2 + (1));
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
s_2 =  /* &pointer Node */ (*s_2).next_1;
}
$result1 = lc_2;
return $result1;
} /* lenpv_1() */
static void strassvf_1(strvsp_1  *const a_2,  /* conf array */ const int lo_2, const int hi_2, void *const b_2c) {
/* +packed array */  struct  {
unsigned char  component[(unsigned)(hi_2+1-lo_2)]; } b_2;
b_2 = *(typeof(b_2)*)b_2c; /* initialise conf array */
int  /* form (0) */ l_2, j_2, i_2;
strvsp_1  /* form (2) */ lp_2, p_2;
l_2 = hi_2;
p_2 = NULL;
(*a_2) = NULL;
j_2 = lo_2;
while( (((l_2 > (1))) && (((b_2.component[(unsigned)(l_2 - lo_2) ] == (32))))))
l_2 = (l_2 - (1));
if( (b_2.component[(unsigned)(l_2 - lo_2) ] == (32)) )
l_2 = 0;
{ const int $tf1 = 1; const int $tf2 = l_2;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
if( (j_2 > (10)) )
p_2 = NULL;
if( (p_2 == (NULL)) )
{
getstr_1( &p_2 );
 /* &pointer Node */ (*p_2).next_1 = NULL;
j_2 = 1;
if( ((*a_2) == (NULL)) )
(*a_2) = p_2;
else 
 /* &pointer Node */ (*lp_2).next_1 = p_2;
lp_2 = p_2;
}
 /* &pointer Node */ (*p_2).str_1.component[(unsigned)(j_2 - 1) ] = b_2.component[(unsigned)(i_2 - lo_2) ];
j_2 = (j_2 + (1));
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
if( (p_2 != (NULL)) )
{ const int $tf1 = j_2; const int $tf2 = 10;
if( $tf2 >= $tf1 ) {
j_2 = $tf1; do
 /* &pointer Node */ (*p_2).str_1.component[(unsigned)(j_2 - 1) ] = 32;
while(j_2 != $tf2 && (++j_2, 1) ); }}
} /* strassvf_1() */
static void strassfv_1(struct idstr_1  *const a_2, strvsp_1  b_2) {
int  /* form (0) */ j_2, i_2;
{ const int $tf1 = 1; const int $tf2 = 250;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
(*a_2).component[(unsigned)(i_2 - 1) ] = 32;
while(i_2 != $tf2 && (++i_2, 1) ); }}
i_2 = 1;
while( (b_2 != (NULL)))
{
{ const int $tf1 = 1; const int $tf2 = 10;
if( $tf2 >= $tf1 ) {
j_2 = $tf1; do
{
(*a_2).component[(unsigned)(i_2 - 1) ] =  /* &pointer Node */ (*b_2).str_1.component[(unsigned)(j_2 - 1) ];
i_2 = (i_2 + (1));
}
while(j_2 != $tf2 && (++j_2, 1) ); }}
b_2 =  /* &pointer Node */ (*b_2).next_1;
}
} /* strassfv_1() */
static bool  strequvv_1(strvsp_1  a_2, strvsp_1  b_2) {
bool $result1;
bool  /* form (0) */ m_2;
int  /* form (0) */ i_2;
m_2 = 1;
while( (((a_2 != (NULL))) && (((b_2 != (NULL))))))
{
{ const int $tf1 = 1; const int $tf2 = 10;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
if( (lcase_1(  /* &pointer Node */ (*a_2).str_1.component[(unsigned)(i_2 - 1) ] ) != (lcase_1(  /* &pointer Node */ (*b_2).str_1.component[(unsigned)(i_2 - 1) ] ))) )
m_2 = 0;
while(i_2 != $tf2 && (++i_2, 1) ); }}
a_2 =  /* &pointer Node */ (*a_2).next_1;
b_2 =  /* &pointer Node */ (*b_2).next_1;
}
if( (a_2 != (b_2)) )
m_2 = 0;
$result1 = m_2;
return $result1;
} /* strequvv_1() */
static bool  strltnvv_1(strvsp_1  a_2, strvsp_1  b_2) {
bool $result1;
int  /* form (0) */ i_2;
unsigned char  /* form (0) */ cb_2, ca_2;
ca_2 = 32;
cb_2 = 32;
while( (((a_2 != (NULL))) || (((b_2 != (NULL))))))
{
i_2 = 1;
while( (((i_2 <= (10))) && (((((a_2 != (NULL))) || (((b_2 != (NULL)))))))))
{
if( (a_2 != (NULL)) )
ca_2 = lcase_1(  /* &pointer Node */ (*a_2).str_1.component[(unsigned)(i_2 - 1) ] );
else 
ca_2 = 32;
if( (b_2 != (NULL)) )
cb_2 = lcase_1(  /* &pointer Node */ (*b_2).str_1.component[(unsigned)(i_2 - 1) ] );
else 
cb_2 = 32;
if( (ca_2 != (cb_2)) )
{
a_2 = NULL;
b_2 = NULL;
}
i_2 = (i_2 + (1));
}
if( (a_2 != (NULL)) )
a_2 =  /* &pointer Node */ (*a_2).next_1;
if( (b_2 != (NULL)) )
b_2 =  /* &pointer Node */ (*b_2).next_1;
}
$result1 = (ca_2 < (cb_2));
return $result1;
} /* strltnvv_1() */
static bool  strequvf_1(strvsp_1  a_2, struct idstr_1  *const b_2) {
bool $result1;
bool  /* form (0) */ m_2;
int  /* form (0) */ j_2, i_2;
unsigned char  /* form (0) */ c_2;
m_2 = 1;
j_2 = 1;
i_2 = 1;
while( (m_2 && (((i_2 <= (250))))))
{
if( (a_2 != (NULL)) )
{
c_2 = lcase_1(  /* &pointer Node */ (*a_2).str_1.component[(unsigned)(j_2 - 1) ] );
j_2 = (j_2 + (1));
if( (j_2 > (10)) )
{
a_2 =  /* &pointer Node */ (*a_2).next_1;
j_2 = 1;
}
if( (c_2 != (lcase_1( (*b_2).component[(unsigned)(i_2 - 1) ] ))) )
m_2 = 0;
}
else 
{
if( ((*b_2).component[(unsigned)(i_2 - 1) ] != (32)) )
m_2 = 0;
i_2 = 250;
}
i_2 = (i_2 + (1));
}
$result1 = m_2;
return $result1;
} /* strequvf_1() */
static bool  strltnvf_1(strvsp_1  a_2, struct idstr_1  *const b_2) {
bool $result1;
int  /* form (0) */ f_2, j_2, i_2;
unsigned char  /* form (0) */ c_2;
i_2 = 1;
j_2 = 1;
while( (i_2 < (250)))
{
c_2 = 32;
if( (a_2 != (NULL)) )
{
c_2 = lcase_1(  /* &pointer Node */ (*a_2).str_1.component[(unsigned)(j_2 - 1) ] );
j_2 = (j_2 + (1));
}
if( (c_2 != (lcase_1( (*b_2).component[(unsigned)(i_2 - 1) ] ))) )
{
f_2 = i_2;
i_2 = 250;
}
else 
i_2 = (i_2 + (1));
if( (j_2 > (10)) )
{
a_2 =  /* &pointer Node */ (*a_2).next_1;
j_2 = 1;
}
}
$result1 = (lcase_1( c_2 ) < (lcase_1( (*b_2).component[(unsigned)(f_2 - 1) ] )));
return $result1;
} /* strltnvf_1() */
static unsigned char  strchr_1(strvsp_1  a_2, int  x_2) {
unsigned char $result1;
unsigned char  /* form (0) */ c_2;
int  /* form (0) */ i_2;
int  /* form (0) */ q_2;
c_2 = 32;
i_2 = 1;
q_2 = 1;
while( (i_2 < (x_2)))
{
if( (q_2 >= (10)) )
{
q_2 = 1;
if( (a_2 != (NULL)) )
a_2 =  /* &pointer Node */ (*a_2).next_1;
}
else 
q_2 = (q_2 + (1));
i_2 = (i_2 + (1));
}
if( (a_2 != (NULL)) )
c_2 =  /* &pointer Node */ (*a_2).str_1.component[(unsigned)(q_2 - 1) ];
$result1 = c_2;
return $result1;
} /* strchr_1() */
static void strchrass_1(strvsp_1  *const a_2, int  x_2, unsigned char  c_2) {
int  /* form (0) */ i_2;
int  /* form (0) */ q_2;
strvsp_1  /* form (2) */ l_2, p_2;
void getsqt_2(void) {
int  /* form (0) */ y_3;
if( (p_2 == (NULL)) )
{
getstr_1( &p_2 );
{ const int $tf1 = 1; const int $tf2 = 10;
if( $tf2 >= $tf1 ) {
y_3 = $tf1; do
 /* &pointer Node */ (*p_2).str_1.component[(unsigned)(y_3 - 1) ] = 32;
while(y_3 != $tf2 && (++y_3, 1) ); }}
 /* &pointer Node */ (*p_2).next_1 = NULL;
if( ((*a_2) == (NULL)) )
(*a_2) = p_2;
else 
{
 /* &pointer Node */ (*l_2).next_1 = p_2;
}
}
} /* getsqt_2() */
i_2 = 1;
q_2 = 1;
p_2 = (*a_2);
l_2 = NULL;
getsqt_2(  );
while( (i_2 < (x_2)))
{
if( (q_2 >= (10)) )
{
q_2 = 1;
l_2 = p_2;
p_2 =  /* &pointer Node */ (*p_2).next_1;
getsqt_2(  );
}
else 
q_2 = (q_2 + (1));
i_2 = (i_2 + (1));
}
 /* &pointer Node */ (*p_2).str_1.component[(unsigned)(q_2 - 1) ] = c_2;
} /* strchrass_1() */
static void prtdsp_1(void) {
int  /* form (0) */ i_2;
void prtlnk_2(ctp_1  p_3, int  f_3) {
int  /* form (0) */ i_3;
if( (p_3 != (NULL)) )
{
{ const int $tf1 = 1; const int $tf2 = f_3;
if( $tf2 >= $tf1 ) {
i_3 = $tf1; do
({
text *const $fp = &output_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
while(i_3 != $tf2 && (++i_3, 1) ); }}
writev_1( &output_1,  /* &pointer Node */ (*p_3).name_1, 10 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ( /* &pointer Node */ (*p_3).llink_1 != (NULL)) )
prtlnk_2(  /* &pointer Node */ (*p_3).llink_1, (f_3 + (3)) );
if( ( /* &pointer Node */ (*p_3).rlink_1 != (NULL)) )
prtlnk_2(  /* &pointer Node */ (*p_3).rlink_1, (f_3 + (3)) );
}
} /* prtlnk_2() */
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "Display:" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
{ const int $tf1 = 0; const int $tf2 = 300;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
if( (display_1.component[(unsigned)(i_2 - 0) ].fname_1 != (NULL)) )
{
({
text *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "level " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_2 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
prtlnk_2( display_1.component[(unsigned)(i_2 - 0) ].fname_1, 0 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} /* prtdsp_1() */
static void endofline_1(void) {
int  /* form (0) */ k_2, f_2, currnmr_2, currpos_2, freepos_2, lastpos_2;
if( list_1 )
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (errinx_1 > (0)) )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%6i", (int)linecount_1 );
$fp->flags = -2;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " **** " );
});
lastpos_2 = -1;
freepos_2 = 1;
{ const int $tf1 = 1; const int $tf2 = errinx_1;
if( $tf2 >= $tf1 ) {
k_2 = $tf1; do
{
{ // with statement
typeof(errlist_1.component[(unsigned)(k_2 - 1) ]) *const $tw3 = &errlist_1.component[(unsigned)(k_2 - 1) ];
{
currpos_2 = $tw3->pos_1;
currnmr_2 = $tw3->nmr_1;
}
} // with
if( (currpos_2 == (lastpos_2)) )
({
text  *const $fp = &output_1;
{char $c = 44;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
{
while( (freepos_2 < (currpos_2)))
{
({
text  *const $fp = &output_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
freepos_2 = (freepos_2 + (1));
}
({
text  *const $fp = &output_1;
{char $c = 94;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
lastpos_2 = currpos_2;
}
if( (currnmr_2 < (0)) )
{
({
text  *const $fp = &output_1;
{char $c = 87;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
freepos_2 = (freepos_2 + (1));
currnmr_2 = -(currnmr_2);
}
if( (currnmr_2 < (10)) )
f_2 = 1;
else 
if( (currnmr_2 < (100)) )
f_2 = 2;
else 
f_2 = 3;
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%*i", (int)f_2, (int)currnmr_2 );
$fp->flags = -2;
});
freepos_2 = ((freepos_2 + (f_2)) + (1));
}
while(k_2 != $tf2 && (++k_2, 1) ); }}
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
errinx_1 = 0;
}
linecount_1 = (linecount_1 + (1));
if( /* eof/eoln on text file */ (list_1 && ((!(({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)))) )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%6i", (int)linecount_1 );
$fp->flags = -2;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "       " );
});
}
chcnt_1 = 0;
} /* endofline_1() */
static void errmsg_1(int  ferrnr_2) {
switch( ferrnr_2 ) {
case 1 :
({
text *const $fp = &output_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "Error in simple type" );
$fp->flags = -2;
});
break;
case 2 :
({
text *const $fp = &output_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "Identifier expected" );
$fp->flags = -2;
});
break;
case 3 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "'program' expected" );
$fp->flags = -2;
});
break;
case 4 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "')' expected" );
$fp->flags = -2;
});
break;
case 5 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "':' expected" );
$fp->flags = -2;
});
break;
case 6 :
({
text *const $fp = &output_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "Illegal symbol" );
$fp->flags = -2;
});
break;
case 7 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "Error in parameter list" );
$fp->flags = -2;
});
break;
case 8 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "'of' expected" );
$fp->flags = -2;
});
break;
case 9 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "'(' expected" );
$fp->flags = -2;
});
break;
case 10 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "Error in type" );
$fp->flags = -2;
});
break;
case 11 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "'[' expected" );
$fp->flags = -2;
});
break;
case 12 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "']' expected" );
$fp->flags = -2;
});
break;
case 13 :
({
text *const $fp = &output_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "'end' expected" );
$fp->flags = -2;
});
break;
case 14 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "';' expected" );
$fp->flags = -2;
});
break;
case 15 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "Integer expected" );
$fp->flags = -2;
});
break;
case 16 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "'=' expected" );
$fp->flags = -2;
});
break;
case 17 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "'begin' expected" );
$fp->flags = -2;
});
break;
case 18 :
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "Error in declaration part" );
$fp->flags = -2;
});
break;
case 19 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "identifier or case expected" );
$fp->flags = -2;
});
break;
case 20 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "',' expected" );
$fp->flags = -2;
});
break;
case 21 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "'..' expected" );
$fp->flags = -2;
});
break;
case 22 :
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "'.' expected" );
$fp->flags = -2;
});
break;
case 50 :
({
text *const $fp = &output_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "Error in constant" );
$fp->flags = -2;
});
break;
case 51 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "':=' expected" );
$fp->flags = -2;
});
break;
case 52 :
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "'then' expected" );
$fp->flags = -2;
});
break;
case 53 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "'until' expected" );
$fp->flags = -2;
});
break;
case 54 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "'do' expected" );
$fp->flags = -2;
});
break;
case 55 :
({
text *const $fp = &output_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "'to'/'downto' expected" );
$fp->flags = -2;
});
break;
case 56 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "'if' expected" );
$fp->flags = -2;
});
break;
case 57 :
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "'file' expected" );
$fp->flags = -2;
});
break;
case 58 :
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "Error in factor" );
$fp->flags = -2;
});
break;
case 59 :
({
text *const $fp = &output_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "Error in variable" );
$fp->flags = -2;
});
break;
case 101 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Identifier declared previously" );
$fp->flags = -2;
});
break;
case 102 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "Low bound exceeds highbound" );
$fp->flags = -2;
});
break;
case 103 :
({
text *const $fp = &output_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "Identifier is not of appropriate class" );
$fp->flags = -2;
});
break;
case 104 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "Identifier not declared" );
$fp->flags = -2;
});
break;
case 105 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "Sign not allowed" );
$fp->flags = -2;
});
break;
case 106 :
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "Number expected" );
$fp->flags = -2;
});
break;
case 107 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "Incompatible subrange types" );
$fp->flags = -2;
});
break;
case 109 :
({
text *const $fp = &output_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "Type must not be real" );
$fp->flags = -2;
});
break;
case 110 :
({
text *const $fp = &output_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "Tagfield type must be scalar or subrange" );
$fp->flags = -2;
});
break;
case 111 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Incompatible with tagfield type" );
$fp->flags = -2;
});
break;
case 112 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "Index type must not be real" );
$fp->flags = -2;
});
break;
case 113 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "Index type must be scalar or subrange" );
$fp->flags = -2;
});
break;
case 114 :
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Base type must not be real" );
$fp->flags = -2;
});
break;
case 115 :
({
text *const $fp = &output_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "Base type must be scalar or subrange" );
$fp->flags = -2;
});
break;
case 116 :
({
text *const $fp = &output_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "Error in type of standard procedure parameter" );
$fp->flags = -2;
});
break;
case 117 :
({
text *const $fp = &output_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "Unsatisfied forward reference" );
$fp->flags = -2;
});
break;
case 118 :
({
text *const $fp = &output_1;
/* const string, len is 57 */
fprintf( $fp->f, "%s", "Forward reference type identifier in variable declaration" );
$fp->flags = -2;
});
break;
case 119 :
({
text *const $fp = &output_1;
/* const string, len is 58 */
fprintf( $fp->f, "%s", "Forward declared; repetition of parameter list not allowed" );
$fp->flags = -2;
});
break;
case 120 :
({
text *const $fp = &output_1;
/* const string, len is 56 */
fprintf( $fp->f, "%s", "Function result type must be scalar, subrange or pointer" );
$fp->flags = -2;
});
break;
case 121 :
({
text *const $fp = &output_1;
/* const string, len is 54 */
fprintf( $fp->f, "%s", "value parameter that is or contains a file not allowed" );
$fp->flags = -2;
});
break;
case 122 :
({
text *const $fp = &output_1;
/* const string, len is 64 */
fprintf( $fp->f, "%s", "Forward declared function; repetition of result type not allowed" );
$fp->flags = -2;
});
break;
case 123 :
({
text *const $fp = &output_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "Missing result type in function declaration" );
$fp->flags = -2;
});
break;
case 125 :
({
text *const $fp = &output_1;
/* const string, len is 44 */
fprintf( $fp->f, "%s", "Error in type of standard function parameter" );
$fp->flags = -2;
});
break;
case 126 :
({
text *const $fp = &output_1;
/* const string, len is 52 */
fprintf( $fp->f, "%s", "Number of parameters does not agree with declaration" );
$fp->flags = -2;
});
break;
case 127 :
({
text *const $fp = &output_1;
/* const string, len is 49 */
fprintf( $fp->f, "%s", "All parameters in a group must have the same type" );
$fp->flags = -2;
});
break;
case 128 :
({
text *const $fp = &output_1;
/* const string, len is 65 */
fprintf( $fp->f, "%s", "Result type of parameter function does not agree with declaration" );
$fp->flags = -2;
});
break;
case 129 :
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "Type conflict of operands" );
$fp->flags = -2;
});
break;
case 130 :
({
text *const $fp = &output_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "Expression is not of set type" );
$fp->flags = -2;
});
break;
case 131 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Tests on equality allowed only" );
$fp->flags = -2;
});
break;
case 132 :
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "'<' and '>' not allowed for sets" );
$fp->flags = -2;
});
break;
case 133 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "File comparison not allowed" );
$fp->flags = -2;
});
break;
case 134 :
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Illegal type of operand(s)" );
$fp->flags = -2;
});
break;
case 135 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Type of operand must be Boolean" );
$fp->flags = -2;
});
break;
case 136 :
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "Set element type must be ordinal" );
$fp->flags = -2;
});
break;
case 137 :
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "Set element types not compatible" );
$fp->flags = -2;
});
break;
case 138 :
({
text *const $fp = &output_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "Type of variable is not array" );
$fp->flags = -2;
});
break;
case 139 :
({
text *const $fp = &output_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "Index type is not compatible with declaration" );
$fp->flags = -2;
});
break;
case 140 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Type of variable is not record" );
$fp->flags = -2;
});
break;
case 141 :
({
text *const $fp = &output_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "Type of variable must be file or pointer" );
$fp->flags = -2;
});
break;
case 142 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Illegal parameter substitution" );
$fp->flags = -2;
});
break;
case 143 :
({
text *const $fp = &output_1;
/* const string, len is 42 */
fprintf( $fp->f, "%s", "Loop control variable type must be ordinal" );
$fp->flags = -2;
});
break;
case 144 :
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Illegal type of expression" );
$fp->flags = -2;
});
break;
case 145 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "Type conflict" );
$fp->flags = -2;
});
break;
case 146 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Assignment of files not allowed" );
$fp->flags = -2;
});
break;
case 147 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Incorrect type of case constant" );
$fp->flags = -2;
});
break;
case 148 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Subrange bounds must be scalar" );
$fp->flags = -2;
});
break;
case 149 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Index type must not be integer" );
$fp->flags = -2;
});
break;
case 150 :
({
text *const $fp = &output_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "Assignment to standard function is not allowed" );
$fp->flags = -2;
});
break;
case 151 :
({
text *const $fp = &output_1;
/* const string, len is 44 */
fprintf( $fp->f, "%s", "Assignment to formal function is not allowed" );
$fp->flags = -2;
});
break;
case 152 :
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "No such field in this record" );
$fp->flags = -2;
});
break;
case 153 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "Type error in read" );
$fp->flags = -2;
});
break;
case 154 :
({
text *const $fp = &output_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "Actual parameter must be a variable" );
$fp->flags = -2;
});
break;
case 155 :
({
text *const $fp = &output_1;
/* const string, len is 53 */
fprintf( $fp->f, "%s", "Control variable must not be declared on intermediate" );
$fp->flags = -2;
});
break;
case 156 :
({
text *const $fp = &output_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "case value defined again" );
$fp->flags = -2;
});
break;
case 157 :
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "Too many cases in case statement" );
$fp->flags = -2;
});
break;
case 158 :
({
text *const $fp = &output_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "Missing corresponding variant declaration" );
$fp->flags = -2;
});
break;
case 159 :
({
text *const $fp = &output_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "Real or string tagfields not allowed" );
$fp->flags = -2;
});
break;
case 160 :
({
text *const $fp = &output_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "Previous declaration was not forward" );
$fp->flags = -2;
});
break;
case 161 :
({
text *const $fp = &output_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "Again forward declared" );
$fp->flags = -2;
});
break;
case 162 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Parameter size must be constant" );
$fp->flags = -2;
});
break;
case 163 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Missing variant in declaration" );
$fp->flags = -2;
});
break;
case 164 :
({
text *const $fp = &output_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "Substitution of standard proc/func not allowed" );
$fp->flags = -2;
});
break;
case 165 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "Multidefined label" );
$fp->flags = -2;
});
break;
case 166 :
({
text *const $fp = &output_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "Multideclared label" );
$fp->flags = -2;
});
break;
case 167 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "Undeclared label" );
$fp->flags = -2;
});
break;
case 168 :
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "Missing label" );
$fp->flags = -2;
});
break;
case 169 :
({
text *const $fp = &output_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "Error in base set" );
$fp->flags = -2;
});
break;
case 170 :
({
text *const $fp = &output_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "Value parameter expected" );
$fp->flags = -2;
});
break;
case 171 :
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "Standard file was redeclared" );
$fp->flags = -2;
});
break;
case 172 :
({
text *const $fp = &output_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "Undeclared external file" );
$fp->flags = -2;
});
break;
case 173 :
({
text *const $fp = &output_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "Fortran procedure or function expected" );
$fp->flags = -2;
});
break;
case 174 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "Pascal procedure or function expected" );
$fp->flags = -2;
});
break;
case 175 :
({
text *const $fp = &output_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "Missing file \"input\" in program heading" );
$fp->flags = -2;
});
break;
case 176 :
({
text *const $fp = &output_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "Missing file \"output\" in program heading" );
$fp->flags = -2;
});
break;
case 177 :
({
text *const $fp = &output_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "Assiqnment to function identifier not allowed here" );
$fp->flags = -2;
});
break;
case 178 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "Multidefined record variant" );
$fp->flags = -2;
});
break;
case 179 :
({
text *const $fp = &output_1;
/* const string, len is 59 */
fprintf( $fp->f, "%s", "X-opt of actual proc/func does not match formal declaration" );
$fp->flags = -2;
});
break;
case 180 :
({
text *const $fp = &output_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "Control variable must not be formal" );
$fp->flags = -2;
});
break;
case 181 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "Constant part of address out of ranqe" );
$fp->flags = -2;
});
break;
case 182 :
({
text *const $fp = &output_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "identifier too long" );
$fp->flags = -2;
});
break;
case 183 :
({
text *const $fp = &output_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "For index variable must be local to this block" );
$fp->flags = -2;
});
break;
case 184 :
({
text *const $fp = &output_1;
/* const string, len is 65 */
fprintf( $fp->f, "%s", "Interprocedure goto does not reference outer block of destination" );
$fp->flags = -2;
});
break;
case 185 :
({
text *const $fp = &output_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "Goto references deeper nested statement" );
$fp->flags = -2;
});
break;
case 186 :
({
text *const $fp = &output_1;
/* const string, len is 47 */
fprintf( $fp->f, "%s", "Goto references label within a nested statement" );
$fp->flags = -2;
});
break;
case 187 :
({
text *const $fp = &output_1;
/* const string, len is 51 */
fprintf( $fp->f, "%s", "Goto references label in different nested statement" );
$fp->flags = -2;
});
break;
case 188 :
({
text *const $fp = &output_1;
/* const string, len is 54 */
fprintf( $fp->f, "%s", "Label referenced by goto in different nested statement" );
$fp->flags = -2;
});
break;
case 189 :
({
text *const $fp = &output_1;
/* const string, len is 61 */
fprintf( $fp->f, "%s", "Parameter lists of formal and actual parameters not congruous" );
$fp->flags = -2;
});
break;
case 190 :
({
text *const $fp = &output_1;
/* const string, len is 57 */
fprintf( $fp->f, "%s", "identifier used in this scope before it has been declared" );
$fp->flags = -2;
});
break;
case 191 :
({
text *const $fp = &output_1;
/* const string, len is 42 */
fprintf( $fp->f, "%s", "File component may not contain other files" );
$fp->flags = -2;
});
break;
case 192 :
({
text *const $fp = &output_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "Assignment to function that is not active" );
$fp->flags = -2;
});
break;
case 193 :
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "Function does not assign to result" );
$fp->flags = -2;
});
break;
case 194 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "Exponent too large" );
$fp->flags = -2;
});
break;
case 195 :
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "For loop index is threatened" );
$fp->flags = -2;
});
break;
case 196 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Label must be in range 0..9999" );
$fp->flags = -2;
});
break;
case 197 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Var parameter cannot be packed" );
$fp->flags = -2;
});
break;
case 198 :
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "Var parameter cannot be a tagfield" );
$fp->flags = -2;
});
break;
case 199 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Var parameter must be same type" );
$fp->flags = -2;
});
break;
case 201 :
({
text *const $fp = &output_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "Error in real constant: digit expected" );
$fp->flags = -2;
});
break;
case 202 :
({
text *const $fp = &output_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "String constant must not exceed source line" );
$fp->flags = -2;
});
break;
case 203 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Integer constant exceeds range" );
$fp->flags = -2;
});
break;
case 204 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "constant integer expression overflows" );
$fp->flags = -2;
});
break;
case 205 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "Zero string not allowed" );
$fp->flags = -2;
});
break;
case 206 :
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "number too long" );
$fp->flags = -2;
});
break;
case 207 :
({
text *const $fp = &output_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "real constant exceeds ranqe" );
$fp->flags = -2;
});
break;
case 208 :
({
text *const $fp = &output_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "Fixed point format allowed for reals only" );
$fp->flags = -2;
});
break;
case 209 :
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "Fixed point precision must be >= 0" );
$fp->flags = -2;
});
break;
case 220 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "only the last dimension may be packed" );
$fp->flags = -2;
});
break;
case 221 :
({
text *const $fp = &output_1;
/* const string, len is 51 */
fprintf( $fp->f, "%s", "type-identifier or conformant-array schema expected" );
$fp->flags = -2;
});
break;
case 222 :
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "bound-identifier expected" );
$fp->flags = -2;
});
break;
case 223 :
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "ordinal-type identifier expected" );
$fp->flags = -2;
});
break;
case 224 :
({
text *const $fp = &output_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "cannot assign new value to conformant array bounds" );
$fp->flags = -2;
});
break;
case 250 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "Too many nested scopes of identifiers" );
$fp->flags = -2;
});
break;
case 251 :
({
text *const $fp = &output_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "Too many nested procedures and/or functions" );
$fp->flags = -2;
});
break;
case 252 :
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "forward routine cannot be external" );
$fp->flags = -2;
});
break;
case 253 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "Procedure too long" );
$fp->flags = -2;
});
break;
case 254 :
({
text *const $fp = &output_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "Too many long constants in this procedure" );
$fp->flags = -2;
});
break;
case 255 :
({
text *const $fp = &output_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "Too many errors on this source line" );
$fp->flags = -2;
});
break;
case 256 :
({
text *const $fp = &output_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "external reference must be at top level" );
$fp->flags = -2;
});
break;
case 257 :
({
text *const $fp = &output_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "Too many externals" );
$fp->flags = -2;
});
break;
case 258 :
({
text *const $fp = &output_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "Too many local files" );
$fp->flags = -2;
});
break;
case 259 :
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Expression too complicated" );
$fp->flags = -2;
});
break;
case 260 :
({
text *const $fp = &output_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "Too many exit labels" );
$fp->flags = -2;
});
break;
case 300 :
({
text *const $fp = &output_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "Division by zero" );
$fp->flags = -2;
});
break;
case 301 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "No case provided for this value" );
$fp->flags = -2;
});
break;
case 302 :
({
text *const $fp = &output_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "Index expression out of bounds" );
$fp->flags = -2;
});
break;
case 303 :
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "Value to be assigned is out of bounds" );
$fp->flags = -2;
});
break;
case 304 :
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "Element expression out of range" );
$fp->flags = -2;
});
break;
case 398 :
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Implementation restriction" );
$fp->flags = -2;
});
break;
case 399 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "Feature not implemented" );
$fp->flags = -2;
});
break;
case 400 :
case 500 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "Compiler internal error" );
$fp->flags = -2;
});
break;
case -1 :
({
text *const $fp = &output_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "unknown option" );
$fp->flags = -2;
});
break;
case -2 :
({
text *const $fp = &output_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "warning: integer set bounds limited to " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)-255 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)255 );
});
break;
case -3 :
({
text *const $fp = &output_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "warning: comparing sets analytically" );
$fp->flags = -2;
});
break;
case -4 :
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "unpacked array expected" );
$fp->flags = -2;
});
break;
case -5 :
({
text *const $fp = &output_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "packed array expected" );
$fp->flags = -2;
});
break;
} /* switch */
} /* errmsg_1() */
static void error_1(errNumType_1  ferrnr_2) {
if( (((ferrnr_2 >= (0))) || (warnings_1)) )
{
 /* [-10..500] 3 */  /* [-10..500] 3 */  /* merge right + left --> result */ ({ uint8_t *const $s0 = errtbl_1.element;
/* dest bounds are -10 .. 500 */
/* src bounds are -10..500 */
memmove($s0+(-10>>3)-(-10>>3), errtbl_1.element+(-10>>3)-(-10>>3), (500>>3)-(-10>>3)+1);
$s0[0]&=(~0<<(-10&7));
$s0[(500>>3)-(-10>>3)]&=((uint8_t)~0)>>(7-(500&7));
{
({ const int $e = ferrnr_2;
if( $e>=-10 && $e<=500 ) $s0[($e>>3) - (-10>>3)] |= (1<<($e&7)); });
}
}) // $s0 := set expr
;
if( (errinx_1 >= (9)) )
{
errlist_1.component[(unsigned)(10 - 1) ].nmr_1 = 255;
errinx_1 = 10;
}
else 
{
errinx_1 = (errinx_1 + (1));
errlist_1.component[(unsigned)(errinx_1 - 1) ].nmr_1 = ferrnr_2;
}
errlist_1.component[(unsigned)(errinx_1 - 1) ].pos_1 = chcnt_1;
if( (ferrnr_2 >= (0)) )
toterr_1 = (toterr_1 + (1));
else 
totwarn_1 = (totwarn_1 + (1));
}
} /* error_1() */
static void insymbol_1(void) {
jmp_buf _PJB2;
int  /* form (0) */ k_2, i_2;
struct nmstr_1  /* form (4) */ digit_2;
struct nmstr_1  /* form (4) */ rvalb_2;
struct csstr_1  /* form (4) */ string_2;
csp_1  /* form (2) */ lvp_2;
bool  /* form (0) */ ferr_2, test_2;
int  /* form (0) */ ev_2;
void nextch_2(void) {
if( eol_1 )
{
endofline_1(  );
}
if( /* eof/eoln on text file */ !(({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
) )
{
/* eof/eoln on text file */ eol_1 = ({ text  *const $fp = &prd_1;
if($fp->flags == 0) {int $c = fgetc($fp->f);if($c == EOF) {$c = '\n';}$fp->flags=1; if( $c== '\n' ) { $c = ' '; $fp->flags = 2;} $fp->buffer=$c;} $fp->flags == 2; });
({
text  *const $fp = &prd_1;
ch_1 = $fp->flags>0 ? ({char $c = $fp->buffer; $fp->buffer=$fp->flags; $c;}) : 
({int $c = fgetc($fp->f);
if( $c=='\n' || $c==EOF) { $c = ' '; $fp->buffer=2;} else $fp->buffer=1;
 $c;});
$fp->flags = 0;
})
;
if( list_1 )
({
text  *const $fp = &output_1;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
chcnt_1 = (chcnt_1 + (1));
}
else 
{
if( test_2 )
{
({
text *const $fp = &output_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "   **** eof encountered" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
test_2 = 0;
}
ch_1 = 32;
}
} /* nextch_2() */
void comment_2(void) {
unsigned char  /* form (0) */ ch1_3;
bool  /* form (0) */ iscmte_3;
void switch_3(bool  *const opt_4) {
nextch_2(  );
if( ({ const int $e = ch_1;
(0 /*@ (in) set test set node */ || $e == 45 || $e == 43);})
 )
{
(*opt_4) = (ch_1 == (43));
nextch_2(  );
}
} /* switch_3() */
nextch_2(  );
iscmte_3 = 0;
if( (ch_1 == (64)) )
{
nextch_2(  );
if( (ch_1 == (64)) )
{
nextch_2(  );
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
do {
if( (ch_1 != (64)) )
({
text  *const $fp = &prc_1;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
{
nextch_2(  );
if( (ch_1 != (64)) )
({
text  *const $fp = &prc_1;
{char $c = 64;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
});
else 
{
nextch_2(  );
while( (ch_1 == (64)))
{
({
text  *const $fp = &prc_1;
{char $c = 64;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
nextch_2(  );
}
if( (ch_1 == (125)) )
iscmte_3 = 1;
else 
if( (ch_1 != (42)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "@@" );
$fp->flags = -2;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
});
else 
{
nextch_2(  );
if( (ch_1 != (41)) )
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "@@*" );
$fp->flags = -2;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
});
else 
iscmte_3 = 1;
}
}
}
nextch_2(  );
if( eol_1 )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} while( ! /* eof/eoln on text file */ (iscmte_3 || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
}
}
else 
if( (ch_1 == (36)) )
{
do {
nextch_2(  );
ch1_3 = lcase_1( ch_1 );
if( (ch1_3 == (108)) )
{
switch_3( &list_1 );
if( !(list_1) )
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (ch1_3 == (119)) )
switch_3( &warnings_1 );
else 
if( (ch1_3 == (100)) )
{
switch_3( &debug_1 );
}
else 
if( (ch1_3 == (110)) )
switch_3( &lnflag_1 );
else 
if( (ch1_3 == (116)) )
switch_3( &prtables_1 );
else 
if( (ch1_3 == (118)) )
switch_3( &chkvar_1 );
else 
if( (ch1_3 == (114)) )
switch_3( &chkref_1 );
else 
if( (ch1_3 == (122)) )
{
switch_3( &algSet_1 );
}
else 
{
error_1( -1 );
while( ({ const int $e = ch_1;
(0 /*@ (in) set test set node */ || $e == 95 || ( $e >= 48 &&   $e <= 57 ) || $e == 45 || $e == 43 || ( $e >= 65 &&   $e <= 90 ) || ( $e >= 97 &&   $e <= 122 ));})
)
nextch_2(  );
}
} while( ! (ch_1 != (44)));
}
if( !(iscmte_3) )
{
do {
while( /* eof/eoln on text file */ ((((ch_1 != (125))) && (((ch_1 != (42))))) && (!(({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
))))
nextch_2(  );
iscmte_3 = (ch_1 == (125));
nextch_2(  );
} while( ! /* eof/eoln on text file */ ((iscmte_3 || (((ch_1 == (41))))) || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
if( !(iscmte_3) )
nextch_2(  );
}
} /* comment_2() */
_PL2:
do {
test_2 = 1;
while( (((ch_1 <= (32))) && (!(eol_1))))
nextch_2(  );
test_2 = eol_1;
if( test_2 )
{
nextch_2(  );
if( (ch_1 == (35)) )
{
nextch_2(  );
while( (((ch_1 <= (32))) && (!(eol_1))))
nextch_2(  );
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
});
k_2 = 0;
while( (chartp_1.component[(unsigned)(ch_1 - 0) ] == (1)))
{
k_2 = (((10 * (k_2)) + ((int)ch_1)) - ((int)48));
if( lnflag_1 )
({
text  *const $fp = &prc_1;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
nextch_2(  );
}
if( (k_2 > (0)) )
linecount_1 = (k_2 - (1));
k_2 = 2;
while( !(eol_1))
{
if( (lnflag_1 && (((k_2 > (0))))) )
({
text  *const $fp = &prc_1;
{char $c = ch_1;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( (ch_1 == (34)) )
k_2 = (k_2 - (1));
nextch_2(  );
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} while( ! !(test_2));
switch( chartp_1.component[(unsigned)(ch_1 - 0) ] ) {
case 3 :
{
sy_1 = 48;
op_1 = 15;
nextch_2(  );
}
break;
case 0 :
{
k_2 = 0;
ferr_2 = 1;
do {
if( (k_2 < (250)) )
{
k_2 = (k_2 + (1));
id_1.component[(unsigned)(k_2 - 1) ] = ch_1;
}
else 
if( ferr_2 )
{
error_1( 182 );
ferr_2 = 0;
}
nextch_2(  );
} while( ! !((({ const int $e = chartp_1.component[(unsigned)(ch_1 - 0) ];
(0 /*@ (in) set test set node */ || $e == 1 || $e == 0);})
)));
if( (k_2 >= (kk_1)) )
kk_1 = k_2;
else 
do {
id_1.component[(unsigned)(kk_1 - 1) ] = 32;
kk_1 = (kk_1 - (1));
} while( ! (kk_1 == (k_2)));
sy_1 = 0;
op_1 = 15;
if( (k_2 <= (9)) )
{ const int $tf1 = frw_1.component[(unsigned)(k_2 - 1) ]; const int $tf2 = (frw_1.component[(unsigned)((k_2 + (1)) - 1) ] - (1));
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
if( strequri_1( *(restr_1 *)&rw_1.component[(unsigned)(i_2 - 1) ], &id_1 ) )
{
sy_1 = rsy_1.component[(unsigned)(i_2 - 1) ];
op_1 = rop_1.component[(unsigned)(i_2 - 1) ];
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
}
break;
case 1 :
{
op_1 = 15;
i_2 = 0;
do {
i_2 = (i_2 + (1));
if( (i_2 <= (250)) )
digit_2.component[(unsigned)(i_2 - 1) ] = ch_1;
nextch_2(  );
} while( ! (chartp_1.component[(unsigned)(ch_1 - 0) ] != (1)));
if( ((((((ch_1 == (46))) && ((((*({ text  *const $fp = &prd_1;
if( $fp->flags == 0 ) { int $c = getc($fp->f);
if($c == EOF) {
$c='\n';}
if($c=='\n') {$fp->buffer=' '; $fp->flags=2;}
else {$fp->buffer=$c; $fp->flags=1;}
} &$fp->buffer;}))  != (46))))) && ((((*({ text  *const $fp = &prd_1;
if( $fp->flags == 0 ) { int $c = getc($fp->f);
if($c == EOF) {
$c='\n';}
if($c=='\n') {$fp->buffer=' '; $fp->flags=2;}
else {$fp->buffer=$c; $fp->flags=1;}
} &$fp->buffer;}))  != (41)))))) || ((({ const int $e = ch_1;
(0 /*@ (in) set test set node */ || $e == 101 || $e == 69);})
))) )
{
k_2 = i_2;
if( (ch_1 == (46)) )
{
k_2 = (k_2 + (1));
if( (k_2 <= (250)) )
digit_2.component[(unsigned)(k_2 - 1) ] = ch_1;
nextch_2(  );
if( (chartp_1.component[(unsigned)(ch_1 - 0) ] != (1)) )
error_1( 201 );
else 
do {
k_2 = (k_2 + (1));
if( (k_2 <= (250)) )
digit_2.component[(unsigned)(k_2 - 1) ] = ch_1;
nextch_2(  );
} while( ! (chartp_1.component[(unsigned)(ch_1 - 0) ] != (1)));
}
if( ({ const int $e = ch_1;
(0 /*@ (in) set test set node */ || $e == 101 || $e == 69);})
 )
{
k_2 = (k_2 + (1));
if( (k_2 <= (250)) )
digit_2.component[(unsigned)(k_2 - 1) ] = ch_1;
nextch_2(  );
if( (((ch_1 == (43))) || (((ch_1 == (45))))) )
{
k_2 = (k_2 + (1));
if( (k_2 <= (250)) )
digit_2.component[(unsigned)(k_2 - 1) ] = ch_1;
nextch_2(  );
}
if( (chartp_1.component[(unsigned)(ch_1 - 0) ] != (1)) )
error_1( 201 );
else 
{
ev_2 = 0;
ferr_2 = 1;
do {
k_2 = (k_2 + (1));
if( (k_2 <= (250)) )
{
digit_2.component[(unsigned)(k_2 - 1) ] = ch_1;
i_2 = ordint_1.component[(unsigned)(ch_1 - 0) ];
}
nextch_2(  );
if( ferr_2 )
{
if( (((ev_2 < (mxint10_1))) || (((((ev_2 == (mxint10_1))) && ((((10 * (ev_2)) <= ((2147483647 - (i_2)))))))))) )
ev_2 = ((ev_2 * (10)) + (i_2));
else 
{
error_1( 194 );
ferr_2 = 0;
}
}
} while( ! (chartp_1.component[(unsigned)(ch_1 - 0) ] != (1)));
}
}
lvp_2 = calloc( 1, sizeof( struct constant_1 ));
pshcst_1( lvp_2 );
sy_1 = 2;
 /* &pointer Node */ (*lvp_2).cclass_1 = 0;
{ // with statement
struct constant_1  *const $tw3 = & /* &pointer Node */ (*lvp_2);
{
{ const int $tf1 = 1; const int $tf2 = 250;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
rvalb_2.component[(unsigned)(i_2 - 1) ] = 32;
while(i_2 != $tf2 && (++i_2, 1) ); }}
if( (k_2 <= (250)) )
{ const int $tf1 = 2; const int $tf2 = (k_2 + (1));
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
rvalb_2.component[(unsigned)(i_2 - 1) ] = digit_2.component[(unsigned)((i_2 - (1)) - 1) ];
while(i_2 != $tf2 && (++i_2, 1) ); }}
else 
{
error_1( 206 );
rvalb_2.component[(unsigned)(2 - 1) ] = 48;
rvalb_2.component[(unsigned)(3 - 1) ] = 46;
rvalb_2.component[(unsigned)(4 - 1) ] = 48;
}
strassvf_1( &$tw3->rval_1, /* bounds: */ 1, 250, &rvalb_2 );
}
} // with
val_1.valp_1 = lvp_2;
}
else 
{
if( (i_2 > (250)) )
{
error_1( 206 );
val_1.ival_1 = 0;
}
else 
{ // with statement
struct valu_1  *const $tw3 = &val_1;
{
$tw3->ival_1 = 0;
{ const int $tf1 = 1; const int $tf2 = i_2;
if( $tf2 >= $tf1 ) {
k_2 = $tf1; do
{
if( ((($tw3->ival_1 < (mxint10_1))) || (((($tw3->ival_1 == (mxint10_1))) && (((ordint_1.component[(unsigned)(digit_2.component[(unsigned)(k_2 - 1) ] - 0) ] <= (7))))))) )
$tw3->ival_1 = (($tw3->ival_1 * (10)) + (ordint_1.component[(unsigned)(digit_2.component[(unsigned)(k_2 - 1) ] - 0) ]));
else 
{
error_1( 203 );
$tw3->ival_1 = 0;
}
}
while(k_2 != $tf2 && (++k_2, 1) ); }}
sy_1 = 1;
}
} // with
}
}
break;
case 4 :
{
lgth_1 = 0;
sy_1 = 3;
op_1 = 15;
{ const int $tf1 = 1; const int $tf2 = 250;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
string_2.component[(unsigned)(i_2 - 1) ] = 32;
while(i_2 != $tf2 && (++i_2, 1) ); }}
do {
do {
nextch_2(  );
lgth_1 = (lgth_1 + (1));
if( (lgth_1 <= (250)) )
string_2.component[(unsigned)(lgth_1 - 1) ] = ch_1;
} while( ! (eol_1 || (((ch_1 == (39))))));
if( eol_1 )
error_1( 202 );
else 
nextch_2(  );
} while( ! (ch_1 != (39)));
if( (lgth_1 <= (250)) )
{
string_2.component[(unsigned)(lgth_1 - 1) ] = 32;
lgth_1 = (lgth_1 - (1));
}
if( (lgth_1 == (1)) )
val_1.ival_1 = (int)string_2.component[(unsigned)(1 - 1) ];
else 
{
if( (lgth_1 == (0)) )
error_1( 205 );
lvp_2 = calloc( 1, sizeof( struct constant_1 ));
pshcst_1( lvp_2 );
 /* &pointer Node */ (*lvp_2).cclass_1 = 1;
if( (lgth_1 > (250)) )
{
error_1( 399 );
lgth_1 = 250;
}
{ // with statement
struct constant_1  *const $tw3 = & /* &pointer Node */ (*lvp_2);
{
$tw3->slgth_1 = lgth_1;
strassvf_1( &$tw3->sval_1, /* bounds: */ 1, 250, &string_2 );
}
} // with
val_1.valp_1 = lvp_2;
}
}
break;
case 5 :
{
op_1 = 15;
nextch_2(  );
if( (ch_1 == (61)) )
{
sy_1 = 17;
nextch_2(  );
}
else 
sy_1 = 16;
}
break;
case 6 :
{
op_1 = 15;
nextch_2(  );
if( (ch_1 == (46)) )
{
sy_1 = 18;
nextch_2(  );
}
else 
if( (ch_1 == (41)) )
{
sy_1 = 11;
nextch_2(  );
}
else 
sy_1 = 14;
}
break;
case 7 :
{
nextch_2(  );
sy_1 = 7;
if( (ch_1 == (61)) )
{
op_1 = 9;
nextch_2(  );
}
else 
if( (ch_1 == (62)) )
{
op_1 = 12;
nextch_2(  );
}
else 
op_1 = 8;
}
break;
case 8 :
{
nextch_2(  );
sy_1 = 7;
if( (ch_1 == (61)) )
{
op_1 = 10;
nextch_2(  );
}
else 
op_1 = 11;
}
break;
case 9 :
{
nextch_2(  );
if( (ch_1 == (42)) )
{
comment_2(  );
goto _PL2;
}
else 
if( (ch_1 == (46)) )
{
sy_1 = 10;
nextch_2(  );
}
else 
sy_1 = 8;
op_1 = 15;
}
break;
case 11 :
{
comment_2(  );
goto _PL2;
}
break;
case 2 :
{
sy_1 = ssy_1.component[(unsigned)(ch_1 - 0) ];
op_1 = sop_1.component[(unsigned)(ch_1 - 0) ];
nextch_2(  );
}
break;
case 10 :
sy_1 = 48;
break;
} /* switch */
if( 0 )
{
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "symbol: " );
$fp->flags = -2;
});
switch( sy_1 ) {
case 0 :
({
text *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "ident: " );
$fp->flags = -2;
/* string var, len is 250 */
fprintf( $fp->f, "%10.10s", id_1.component );
});
break;
case 1 :
({
text *const $fp = &output_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "int const: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)val_1.ival_1 );
});
break;
case 2 :
{
({
text *const $fp = &output_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "real const: " );
$fp->flags = -2;
});
writev_1( &output_1,  /* &pointer Node */ (*val_1.valp_1).rval_1, 9 );
}
break;
case 3 :
{
({
text *const $fp = &output_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "string const: '" );
$fp->flags = -2;
});
writev_1( &output_1,  /* &pointer Node */ (*val_1.valp_1).sval_1,  /* &pointer Node */ (*val_1.valp_1).slgth_1 );
({
text *const $fp = &output_1;
{char $c = 39;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
break;
case 4 :
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "not" );
$fp->flags = -2;
});
break;
case 5 :
({
text *const $fp = &output_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 6 :
({
text *const $fp = &output_1;
{char $c = 43;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 7 :
({
text *const $fp = &output_1;
{char $c = 60;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 8 :
({
text *const $fp = &output_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 9 :
({
text *const $fp = &output_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 10 :
({
text *const $fp = &output_1;
{char $c = 91;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 11 :
({
text *const $fp = &output_1;
{char $c = 93;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 12 :
({
text *const $fp = &output_1;
{char $c = 44;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 13 :
({
text *const $fp = &output_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 14 :
({
text *const $fp = &output_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 15 :
({
text *const $fp = &output_1;
{char $c = 94;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 16 :
({
text *const $fp = &output_1;
{char $c = 58;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
break;
case 17 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ":=" );
$fp->flags = -2;
});
break;
case 18 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
$fp->flags = -2;
});
break;
case 19 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "label" );
$fp->flags = -2;
});
break;
case 20 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "const" );
$fp->flags = -2;
});
break;
case 21 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "type" );
$fp->flags = -2;
});
break;
case 22 :
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "var" );
$fp->flags = -2;
});
break;
case 23 :
({
text *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "function" );
$fp->flags = -2;
});
break;
case 24 :
({
text *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "program" );
$fp->flags = -2;
});
break;
case 25 :
({
text *const $fp = &output_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "procedure" );
$fp->flags = -2;
});
break;
case 26 :
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "set" );
$fp->flags = -2;
});
break;
case 27 :
({
text *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "packed" );
$fp->flags = -2;
});
break;
case 28 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "array" );
$fp->flags = -2;
});
break;
case 29 :
({
text *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "record" );
$fp->flags = -2;
});
break;
case 30 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "file" );
$fp->flags = -2;
});
break;
case 31 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "begin" );
$fp->flags = -2;
});
break;
case 32 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "if" );
$fp->flags = -2;
});
break;
case 33 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "case" );
$fp->flags = -2;
});
break;
case 34 :
({
text *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "repeat" );
$fp->flags = -2;
});
break;
case 35 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "while" );
$fp->flags = -2;
});
break;
case 36 :
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "for" );
$fp->flags = -2;
});
break;
case 37 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "with" );
$fp->flags = -2;
});
break;
case 38 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "goto" );
$fp->flags = -2;
});
break;
case 39 :
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "end" );
$fp->flags = -2;
});
break;
case 40 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "else" );
$fp->flags = -2;
});
break;
case 41 :
({
text *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "until" );
$fp->flags = -2;
});
break;
case 42 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "of" );
$fp->flags = -2;
});
break;
case 43 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "do" );
$fp->flags = -2;
});
break;
case 44 :
({
text *const $fp = &output_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "to" );
$fp->flags = -2;
});
break;
case 45 :
({
text *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "downto" );
$fp->flags = -2;
});
break;
case 46 :
({
text *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "then" );
$fp->flags = -2;
});
break;
case 48 :
({
text *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "<other>" );
$fp->flags = -2;
});
break;
} /* switch */
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* insymbol_1() */
static void enterid_1(ctp_1  fcp_2) {
ctp_1  /* form (2) */ lcp1_2, lcp_2;
bool  /* form (0) */ lleft_2;
lcp_2 = display_1.component[(unsigned)(top_1 - 0) ].fname_1;
if( (lcp_2 == (NULL)) )
display_1.component[(unsigned)(top_1 - 0) ].fname_1 = fcp_2;
else 
{
do {
lcp1_2 = lcp_2;
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*lcp_2);
{
if( strequvv_1( $tw3->name_1,  /* &pointer Node */ (*fcp_2).name_1 ) )
{
if( !($tw3->ignore_1) )
{
error_1( 101 );
$tw3->ignore_1 = 1;
}
lcp_2 = $tw3->rlink_1;
lleft_2 = 0;
}
else 
if( strltnvv_1( $tw3->name_1,  /* &pointer Node */ (*fcp_2).name_1 ) )
{
lcp_2 = $tw3->rlink_1;
lleft_2 = 0;
}
else 
{
lcp_2 = $tw3->llink_1;
lleft_2 = 1;
}
}
} // with
} while( ! (lcp_2 == (NULL)));
if( lleft_2 )
 /* &pointer Node */ (*lcp1_2).llink_1 = fcp_2;
else 
 /* &pointer Node */ (*lcp1_2).rlink_1 = fcp_2;
}
 /* &pointer Node */ (*fcp_2).llink_1 = NULL;
 /* &pointer Node */ (*fcp_2).rlink_1 = NULL;
} /* enterid_1() */
static void writeId_1(ctp_1  p_2) {
bool  /* form (0) */ verbatim_2;
verbatim_2 = 0;
if( (p_2 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", ">>> name not found" );
$fp->flags = -2;
});
else 
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*p_2);
{
writev_1( &prc_1, $tw3->name_1, lenpv_1( $tw3->name_1 ) );
if( ((($tw3->klass_1 == (6))) || ((($tw3->klass_1 == (5))))) )
if( ($tw3->pfdeckind_1 == (1)) )
if( ($tw3->pfkind_1 == (0)) )
verbatim_2 = $tw3->externl_1;
if( !(verbatim_2) )
({
text  *const $fp = &prc_1;
{char $c = 95;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw3->lev_1 );
});
}
} // with
} /* writeId_1() */
static void searchsection_1(ctp_1  fcp_2, ctp_1  *const fcp1_2) {
jmp_buf _PJB3;
while( (fcp_2 != (NULL)))
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*fcp_2);
{
if( strequvf_1( $tw3->name_1, &id_1 ) )
{
if( $tw3->ignore_1 )
fcp_2 = $tw3->rlink_1;
else 
goto _PL3;
}
else 
if( strltnvf_1( $tw3->name_1, &id_1 ) )
fcp_2 = $tw3->rlink_1;
else 
fcp_2 = $tw3->llink_1;
}
} // with
_PL3:
(*fcp1_2) = fcp_2;
} /* searchsection_1() */
static void searchidnenm_1(setofids_1  fidcls_2, ctp_1  *const fcp_2, bool  *const mm_2) {
jmp_buf _PJB4;
ctp_1  /* form (2) */ lcp_2;
disprange_1  /* form (1) */ disxl_2;
(*mm_2) = 0;
{ const int $tf1 = top_1; const int $tf2 = 0;
if( $tf2 <= $tf1 ) {
disxl_2 = $tf1; do
{
lcp_2 = display_1.component[(unsigned)(disxl_2 - 0) ].fname_1;
while( (lcp_2 != (NULL)))
{
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*lcp_2);
{
if( strequvf_1( $tw3->name_1, &id_1 ) )
{
if( $tw3->ignore_1 )
lcp_2 = $tw3->rlink_1;
else 
if(  /* [0..6] 3 */ ({ const int $e = $tw3->klass_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
disx_1 = disxl_2;
goto _PL4;
}
else 
{
(*mm_2) = 1;
lcp_2 = $tw3->rlink_1;
}
}
else 
if( strltnvf_1( $tw3->name_1, &id_1 ) )
lcp_2 = $tw3->rlink_1;
else 
lcp_2 = $tw3->llink_1;
}
} // with
}
}
while(disxl_2 != $tf2 && (--disxl_2, 1) ); }}
disx_1 = 0;
lcp_2 = NULL;
_PL4:
(*fcp_2) = lcp_2;
} /* searchidnenm_1() */
static void searchidne_1(setofids_1  fidcls_2, ctp_1  *const fcp_2) {
bool  /* form (0) */ mm_2;
 /* [0..6] 3 */ searchidnenm_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
/* src bounds are 0..6 */
memmove($s0+(0>>3)-(0>>3), fidcls_2.element+(0>>3)-(0>>3), (6>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(6>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(6&7));
$set0; })
, &(*fcp_2), &mm_2 );
if( mm_2 )
error_1( 103 );
} /* searchidne_1() */
static void searchid_1(setofids_1  fidcls_2, ctp_1  *const fcp_2) {
ctp_1  /* form (2) */ lcp_2;
bool  /* form (0) */ mm_2;
 /* [0..6] 3 */ searchidnenm_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
/* src bounds are 0..6 */
memmove($s0+(0>>3)-(0>>3), fidcls_2.element+(0>>3)-(0>>3), (6>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(6>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(6&7));
$set0; })
, &lcp_2, &mm_2 );
if( (lcp_2 != (NULL)) )
{
 /* &pointer Node */ (*lcp_2).refer_1 = 1;
}
else 
{
if( mm_2 )
error_1( 103 );
else 
error_1( 104 );
if(  /* [0..6] 3 */ ({ const int $e = 0;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
lcp_2 = utypptr_1;
else 
if(  /* [0..6] 3 */ ({ const int $e = 2;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
lcp_2 = uvarptr_1;
else 
if(  /* [0..6] 3 */ ({ const int $e = 3;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
lcp_2 = ufldptr_1;
else 
if(  /* [0..6] 3 */ ({ const int $e = 1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
lcp_2 = ucstptr_1;
else 
if(  /* [0..6] 3 */ ({ const int $e = 5;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=6) && ((fidcls_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
lcp_2 = uprcptr_1;
else 
lcp_2 = ufctptr_1;
}
(*fcp_2) = lcp_2;
} /* searchid_1() */
static void getbounds_1(stp_1  fsp_2, int  *const fmin_2, int  *const fmax_2) {
(*fmin_2) = 0;
(*fmax_2) = 0;
if( (fsp_2 != (NULL)) )
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*fsp_2);
if( ($tw3->form_1 == (1)) )
{
(*fmin_2) = $tw3->smin_1;
(*fmax_2) = $tw3->smax_1;
}
else 
if( (fsp_2 == (charptr_1)) )
{
(*fmin_2) = 0;
(*fmax_2) = 255;
}
else 
if( (fsp_2 == (intptr_1)) )
{
(*fmin_2) = -2147483647;
(*fmax_2) = 2147483647;
}
else 
if( (($tw3->fconst_1 != (NULL))) )
(*fmax_2) =  /* &pointer Node */ (*$tw3->fconst_1).values_1.ival_1;
} // with
} /* getbounds_1() */
static void checkbounds_1(stp_1  fsp_2, int  val_2, int  n_2) {
int  /* form (0) */ hi_2, lo_2;
getbounds_1( fsp_2, &lo_2, &hi_2 );
if( (((hi_2 >= (lo_2))) && (((((val_2 < (lo_2))) || (((val_2 > (hi_2)))))))) )
error_1( n_2 );
} /* checkbounds_1() */
static void printtables_1(bool  fb_2) {
disprange_1  /* form (1) */ lim_2, i_2;
void marker_2(void) {
int  /* form (0) */ i_3;
auto void markctp_3(ctp_1 );
void markstp_3(stp_1  fp_4) {
if( (fp_4 != (NULL)) )
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*fp_4);
{
$tw5->marked_1 = 1;
switch( $tw5->form_1 ) {
case 0 :
;
break;
case 1 :
markstp_3( $tw5->rangetype_1 );
break;
case 2 :
;
break;
case 3 :
markstp_3( $tw5->elset_1 );
break;
case 4 :
{
markstp_3( $tw5->aeltype_1 );
markstp_3( $tw5->inxtype_1 );
}
break;
case 5 :
{
markctp_3( $tw5->fstfld_1 );
markstp_3( $tw5->recvar_1 );
}
break;
case 6 :
markstp_3( $tw5->filtype_1 );
break;
case 7 :
markstp_3( $tw5->fstvar_1 );
break;
case 8 :
{
markstp_3( $tw5->nxtvar_1 );
markstp_3( $tw5->subvar_1 );
}
break;
} /* switch */
}
} // with
} /* markstp_3() */
void markctp_3(ctp_1  fp_4) {
if( (fp_4 != (NULL)) )
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*fp_4);
{
markctp_3( $tw5->llink_1 );
markctp_3( $tw5->rlink_1 );
markstp_3( $tw5->idtype_1 );
}
} // with
} /* markctp_3() */
{ const int $tf1 = top_1; const int $tf2 = lim_2;
if( $tf2 <= $tf1 ) {
i_3 = $tf1; do
markctp_3( display_1.component[(unsigned)(i_3 - 0) ].fname_1 );
while(i_3 != $tf2 && (--i_3, 1) ); }}
} /* marker_2() */
auto void followctp_2(ctp_1 );
void followstp_2(stp_1  fp_3) {
if( (fp_3 != (NULL)) )
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*fp_3);
if( $tw4->marked_1 )
{
$tw4->marked_1 = 0;
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "S: " );
$fp->flags = -2;
fprintf( $fp->f, "%20i", (int)stptoint_1( fp_3 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
switch( $tw4->form_1 ) {
case 0 :
{
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "scalar" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->scalkind_1 == (0)) )
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "standard" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "declared" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->fconst_1 ) );
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 1 :
{
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "subrange" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->rangetype_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->rangetype_1 != (realptr_1)) )
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%20i", (int)$tw4->smin_1 );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)$tw4->smax_1 );
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", "<<real range type not supported>>" );
$fp->flags = -2;
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->rangetype_1 );
}
break;
case 2 :
({
text  *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%20.7s", "pointer" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->eltype_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
break;
case 3 :
{
({
text  *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%20.3s", "set" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->elset_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->elset_1 );
}
break;
case 4 :
{
({
text  *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "array" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->aeltype_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->inxtype_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->aeltype_1 );
followstp_2( $tw4->inxtype_1 );
}
break;
case 5 :
{
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "record" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->fstfld_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->recvar_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followctp_2( $tw4->fstfld_1 );
followstp_2( $tw4->recvar_1 );
}
break;
case 6 :
{
({
text  *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%20.4s", "file" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->filtype_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->filtype_1 );
}
break;
case 7 :
{
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "tagfld" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->tagfieldp_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->fstvar_1 ) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->fstvar_1 );
}
break;
case 8 :
{
({
text  *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%20.7s", "variant" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->nxtvar_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->subvar_1 ) );
fprintf( $fp->f, "%i", (int)$tw4->varval_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followstp_2( $tw4->nxtvar_1 );
followstp_2( $tw4->subvar_1 );
}
break;
} /* switch */
}
} // with
} /* followstp_2() */
void followctp_2(ctp_1  fp_3) {
if( (fp_3 != (NULL)) )
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*fp_3);
{
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "C: " );
$fp->flags = -2;
fprintf( $fp->f, "%20i", (int)ctptoint_1( fp_3 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
writev_1( &output_1, $tw4->name_1, 20 );
({
text *const $fp = &output_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->llink_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->rlink_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)stptoint_1( $tw4->idtype_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
switch( $tw4->klass_1 ) {
case 0 :
({
text  *const $fp = &output_1;
/* const string, len is 4 */
fprintf( $fp->f, "%20.4s", "type" );
$fp->flags = -2;
});
break;
case 1 :
{
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "constant" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->next_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->idtype_1 != (NULL)) )
if( ($tw4->idtype_1 == (realptr_1)) )
{
if( ($tw4->values_1.valp_1 != (NULL)) )
{
writev_1( &output_1,  /* &pointer Node */ (*$tw4->values_1.valp_1).rval_1, 9 );
}
}
else 
if( ( /* &pointer Node */ (*$tw4->idtype_1).form_1 == (4)) )
{
if( ($tw4->values_1.valp_1 != (NULL)) )
{
{ // with statement
struct constant_1  *const $tw5 = & /* &pointer Node */ (*$tw4->values_1.valp_1);
writev_1( &output_1, $tw5->sval_1, $tw5->slgth_1 );
} // with
}
}
else 
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%20i", (int)$tw4->values_1.ival_1 );
$fp->flags = -2;
});
}
break;
case 2 :
{
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "variable" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->vkind_1 == (0)) )
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "actual" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "formal" );
$fp->flags = -2;
});
({
text  *const $fp = &output_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->next_1 ) );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)$tw4->vlev_1 );
});
}
break;
case 3 :
({
text  *const $fp = &output_1;
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "field" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->next_1 ) );
});
break;
case 5 :
case 6 :
{
if( ($tw4->klass_1 == (5)) )
({
text  *const $fp = &output_1;
/* const string, len is 9 */
fprintf( $fp->f, "%20.9s", "procedure" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "function" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->pfdeckind_1 == (0)) )
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "standard" );
$fp->flags = -2;
{char $c = 45;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)(int)$tw4->key_1 );
});
else 
{
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%20.8s", "declared" );
$fp->flags = -2;
{char $c = 45;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)ctptoint_1( $tw4->next_1 ) );
{char $c = 45;
fprintf( $fp->f, "%c", $c); };
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "%20i", (int)$tw4->pflev_1 );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%20i", (int)(int)$tw4->pfname_1 );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( ($tw4->pfkind_1 == (0)) )
{
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "actual" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( $tw4->forwdecl_1 )
({
text  *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%20.7s", "forward" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 10 */
fprintf( $fp->f, "%20.10s", "notforward" );
$fp->flags = -2;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
if( $tw4->externl_1 )
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "extern" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &output_1;
/* const string, len is 10 */
fprintf( $fp->f, "%20.10s", "not extern" );
$fp->flags = -2;
});
}
else 
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%20.6s", "formal" );
$fp->flags = -2;
});
}
}
break;
} /* switch */
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
followctp_2( $tw4->llink_1 );
followctp_2( $tw4->rlink_1 );
followstp_2( $tw4->idtype_1 );
}
} // with
} /* followctp_2() */
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( fb_2 )
lim_2 = 0;
else 
{
lim_2 = top_1;
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " local" );
$fp->flags = -2;
});
}
({
text  *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", " tables:" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "C: " );
$fp->flags = -2;
/* const string, len is 7 */
fprintf( $fp->f, "%20.7s", "Entry #" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 2 */
fprintf( $fp->f, "%20.2s", "Id" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "llink" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "rlink" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 3 */
fprintf( $fp->f, "%20.3s", "Typ" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "Class" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "S: " );
$fp->flags = -2;
/* const string, len is 7 */
fprintf( $fp->f, "%20.7s", "Entry #" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 4 */
fprintf( $fp->f, "%20.4s", "Size" );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
/* const string, len is 5 */
fprintf( $fp->f, "%20.5s", "Form " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 63 */
fprintf( $fp->f, "%s", "===============================================================" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
marker_2(  );
{ const int $tf1 = top_1; const int $tf2 = lim_2;
if( $tf2 <= $tf1 ) {
i_2 = $tf1; do
followctp_2( display_1.component[(unsigned)(i_2 - 0) ].fname_1 );
while(i_2 != $tf2 && (--i_2, 1) ); }}
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( !(eol_1) )
({
text  *const $fp = &output_1;
{char $c = 32;
int $w = (chcnt_1 + (16)); if( $w != 0 ) fprintf( $fp->f, "%*c", $w, $c);
 };
$fp->flags = -2;
});
} /* printtables_1() */
static void chkrefs_1(ctp_1  p_2, bool  *const w_2) {
if( chkref_1 )
{
if( (p_2 != (NULL)) )
{
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*p_2);
{
chkrefs_1( $tw3->llink_1, &(*w_2) );
chkrefs_1( $tw3->rlink_1, &(*w_2) );
if( (!($tw3->refer_1) && (!($tw3->ignore_1))) )
{
if( !((*w_2)) )
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
writev_1( &output_1, $tw3->name_1, 10 );
({
text *const $fp = &output_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", " unreferenced" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
(*w_2) = 1;
}
}
} // with
}
}
} /* chkrefs_1() */
static void genlabel_1(int  *const nxtlab_2) {
intlabel_1 = (intlabel_1 + (1));
(*nxtlab_2) = intlabel_1;
} /* genlabel_1() */
static void searchlabel_1(lbp_1  *const llp_2, disprange_1  level_2) {
lbp_1  /* form (2) */ fllp_2;
fllp_2 = NULL;
(*llp_2) = display_1.component[(unsigned)(level_2 - 0) ].flabel_1;
while( ((*llp_2) != (NULL)))
{
if( ( /* &pointer Node */ (*(*llp_2)).labval_1 == (val_1.ival_1)) )
{
fllp_2 = (*llp_2);
(*llp_2) = NULL;
}
else 
(*llp_2) =  /* &pointer Node */ (*(*llp_2)).nextlab_1;
}
(*llp_2) = fllp_2;
} /* searchlabel_1() */
static void newlabel_1(lbp_1  *const llp_2) {
{ // with statement
typeof(display_1.component[(unsigned)(top_1 - 0) ]) *const $tw3 = &display_1.component[(unsigned)(top_1 - 0) ];
{
getlab_1( &(*llp_2) );
{ // with statement
struct labl_1  *const $tw4 = & /* &pointer Node */ (*(*llp_2));
{
$tw4->labval_1 = val_1.ival_1;
$tw4->defined_1 = 0;
$tw4->nextlab_1 = $tw3->flabel_1;
genlabel_1( &$tw4->labname_1 );
$tw4->vlevel_1 = level_1;
$tw4->slevel_1 = 0;
$tw4->ipcref_1 = 0;
$tw4->minlvl_1 = 2147483647;
$tw4->bact_1 = 0;
$tw4->refer_1 = 0;
}
} // with
$tw3->flabel_1 = (*llp_2);
}
} // with
} /* newlabel_1() */
static void prtlabels_1(void) {
lbp_1  /* form (2) */ llp_2;
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "Labels: " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
llp_2 = display_1.component[(unsigned)(level_1 - 0) ].flabel_1;
while( (llp_2 != (NULL)))
{ // with statement
struct labl_1  *const $tw3 = & /* &pointer Node */ (*llp_2);
{
({
text *const $fp = &output_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "label: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw3->labval_1 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", " defined: " );
fprintf( $fp->f, "%s", ($tw3->defined_1)? "true" : "false" );
/* const string, len is 11 */
fprintf( $fp->f, "%s", " internal: " );
fprintf( $fp->f, "%1i", (int)$tw3->labname_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", " vlevel: " );
fprintf( $fp->f, "%1i", (int)$tw3->vlevel_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", " slevel: " );
fprintf( $fp->f, "%1i", (int)$tw3->slevel_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", " ipcref: " );
fprintf( $fp->f, "%.1s", ($tw3->ipcref_1)? "true" : "false" );
/* const string, len is 9 */
fprintf( $fp->f, "%s", " minlvl: " );
fprintf( $fp->f, "%1i", (int)$tw3->minlvl_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "   bact: " );
$fp->flags = -2;
fprintf( $fp->f, "%s", ($tw3->bact_1)? "true" : "false" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
llp_2 =  /* &pointer Node */ (*llp_2).nextlab_1;
}
} // with
} /* prtlabels_1() */
static void block_1(setofsys_1  fsys_2, symbol_1  fsy_2, ctp_1  fprocp_2) {
// ++ fileListItemPtr ++pointer type
// ++ fileListItem ++record
/* ++ member next type fileListItemPtr */
// ++ fileListItemPtr ++pointer type
/* ++recursive struct, state is 0 */
struct fileListItem_2;

// type declaration fileListItemPtr state is 0
typedef /* type id fileListItemPtr */ /* +pointer */ struct fileListItem_2 *fileListItemPtr_2;
/* ++ member fileVar type ctp */

// type declaration fileListItem state is 1
typedef /* type id fileListItem */ /* +record */  struct fileListItem_2 {
fileListItemPtr_2 next_2;
ctp_1 fileVar_2;
} fileListItem_2;

int  /* form (0) */ stalvl_2;
int  /* form (0) */ lforwcnt_2;
fileListItemPtr_2  /* form (2) */ fileList_2;
void skip_2(setofsys_1  fsys_3) {
if( /* eof/eoln on text file */ !(({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
) )
{
while(  /* [0..48] 3 */ /* eof/eoln on text file */ (!((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_3.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) && ((!(({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)))))
insymbol_1(  );
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_3.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
insymbol_1(  );
}
} /* skip_2() */
void mkStrConst_2(stp_1  *const lsp_3, int  len_3) {
(*lsp_3) = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( (*lsp_3) );
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*(*lsp_3));
{
$tw4->typeName_1 = NULL;
$tw4->hasFile_1 = 0;
$tw4->form_1 = 4;
$tw4->aeltype_1 = charptr_1;
$tw4->packing_1 = 1;
$tw4->confFlag_1 = 0;
$tw4->inxtype_1 = NULL;
$tw4->slen_1 = len_3;
}
} // with
} /* mkStrConst_2() */
void constant_2(setofsys_1  fsys_3, stp_1  *const fsp_3, struct valu_1  *const fvalu_3) {
stp_1  /* form (2) */ lsp_3;
ctp_1  /* form (2) */ lcp_3;
/* +declared scalar [ 0 ..  2 ] */ uint8_t  /* form (0) */ sign_3;
csp_1  /* form (2) */ lvp_3;
/* +subrange  2 .. 250  */ uint8_t /* +range type parsed */  /* form (1) */ i_3;
lsp_3 = NULL;
(*fvalu_3).ival_1 = 0;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((constbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 50 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), constbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((constbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
if( (sy_1 == (3)) )
{
if( (lgth_1 == (1)) )
lsp_3 = charptr_1;
else 
mkStrConst_2( &lsp_3, lgth_1 );
(*fvalu_3) = val_1;
insymbol_1(  );
}
else 
{
sign_3 = 0;
if( (((sy_1 == (6))) && ((({ const int $e = op_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
))) )
{
if( (op_1 == (5)) )
sign_3 = 1;
else 
sign_3 = 2;
insymbol_1(  );
}
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(1>>3) - (0>>3)] |= (1<<(1&7));
$set0; })
, &lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
lsp_3 = $tw4->idtype_1;
(*fvalu_3) = $tw4->values_1;
}
} // with
if( (sign_3 != (0)) )
{
if( (lsp_3 == (intptr_1)) )
{
if( (sign_3 == (2)) )
(*fvalu_3).ival_1 = -((*fvalu_3).ival_1);
}
else 
if( (lsp_3 == (realptr_1)) )
{
if( (sign_3 == (2)) )
{
lvp_3 = calloc( 1, sizeof( struct constant_1 ));
pshcst_1( lvp_3 );
 /* &pointer Node */ (*lvp_3).cclass_1 = 0;
 /* &pointer Node */ (*lvp_3).rval_1 = NULL;
if( (strchr_1(  /* &pointer Node */ (*(*fvalu_3).valp_1).rval_1, 1 ) == (45)) )
strchrass_1( & /* &pointer Node */ (*lvp_3).rval_1, 1, 43 );
else 
strchrass_1( & /* &pointer Node */ (*lvp_3).rval_1, 1, 45 );
{ const int $tf1 = 2; const int $tf2 = 250;
if( $tf2 >= $tf1 ) {
i_3 = $tf1; do
strchrass_1( & /* &pointer Node */ (*lvp_3).rval_1, i_3, strchr_1(  /* &pointer Node */ (*(*fvalu_3).valp_1).rval_1, i_3 ) );
while(i_3 != $tf2 && (++i_3, 1) ); }}
(*fvalu_3).valp_1 = lvp_3;
}
}
else 
error_1( 105 );
}
insymbol_1(  );
}
else 
if( (sy_1 == (1)) )
{
if( (sign_3 == (2)) )
val_1.ival_1 = -(val_1.ival_1);
lsp_3 = intptr_1;
(*fvalu_3) = val_1;
insymbol_1(  );
}
else 
if( (sy_1 == (2)) )
{
if( (sign_3 == (2)) )
strchrass_1( & /* &pointer Node */ (*val_1.valp_1).rval_1, 1, 45 );
lsp_3 = realptr_1;
(*fvalu_3) = val_1;
insymbol_1(  );
}
else 
{
error_1( 106 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_3.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
(*fsp_3) = lsp_3;
} /* constant_2() */
bool  isString_2(stp_1  fsp_3) {
bool $result2;
$result2 = 0;
if( (fsp_3 != (NULL)) )
if( ( /* &pointer Node */ (*fsp_3).form_1 == (4)) )
$result2 = ( /* &pointer Node */ (*fsp_3).slen_1 >= (0));
return $result2;
} /* isString_2() */
bool  comptypes_2(stp_1  fsp1_3, stp_1  fsp2_3) {
bool $result2;
if( ((((fsp1_3 == (fsp2_3))) || (((fsp1_3 == (NULL))))) || (((fsp2_3 == (NULL))))) )
$result2 = 1;
else 
{
$result2 = 0;
if( ( /* &pointer Node */ (*fsp1_3).form_1 == ( /* &pointer Node */ (*fsp2_3).form_1)) )
switch(  /* &pointer Node */ (*fsp1_3).form_1 ) {
case 0 :
;
break;
case 1 :
$result2 = (((( /* &pointer Node */ (*fsp1_3).rangetype_1 == (fsp2_3))) || ((( /* &pointer Node */ (*fsp2_3).rangetype_1 == (fsp1_3))))) || ((( /* &pointer Node */ (*fsp1_3).rangetype_1 == ( /* &pointer Node */ (*fsp2_3).rangetype_1)))));
break;
case 3 :
$result2 = ((((comptypes_2(  /* &pointer Node */ (*fsp1_3).elset_1,  /* &pointer Node */ (*fsp2_3).elset_1 ) && (((((( /* &pointer Node */ (*fsp1_3).packing_1 == ( /* &pointer Node */ (*fsp2_3).packing_1))) || (!( /* &pointer Node */ (*fsp1_3).matchpack_1))) || (!( /* &pointer Node */ (*fsp2_3).matchpack_1))))))) || ((( /* &pointer Node */ (*fsp1_3).elset_1 == (NULL))))) || ((( /* &pointer Node */ (*fsp2_3).elset_1 == (NULL)))));
break;
case 4 :
{
if( (isString_2( fsp1_3 ) && (isString_2( fsp2_3 ))) )
{
$result2 = ( /* &pointer Node */ (*fsp1_3).slen_1 == ( /* &pointer Node */ (*fsp2_3).slen_1));
}
}
break;
case 2 :
$result2 = ((( /* &pointer Node */ (*fsp1_3).eltype_1 == (NULL))) || ((( /* &pointer Node */ (*fsp2_3).eltype_1 == (NULL)))));
break;
case 5 :
;
break;
case 6 :
;
break;
} /* switch */
else 
if( ( /* &pointer Node */ (*fsp1_3).form_1 == (1)) )
$result2 = ( /* &pointer Node */ (*fsp1_3).rangetype_1 == (fsp2_3));
else 
if( ( /* &pointer Node */ (*fsp2_3).form_1 == (1)) )
$result2 = (fsp1_3 == ( /* &pointer Node */ (*fsp2_3).rangetype_1));
else 
$result2 = 0;
}
return $result2;
} /* comptypes_2() */
bool  filecomponent_2(stp_1  fsp_3) {
bool $result2;
bool  /* form (0) */ f_3;
f_3 = 0;
if( (fsp_3 != (NULL)) )
f_3 =  /* &pointer Node */ (*fsp_3).hasFile_1;
$result2 = f_3;
return $result2;
} /* filecomponent_2() */
void resolvep_2(void) {
struct idstr_1  /* form (4) */ ids_3;
ctp_1  /* form (2) */ lcp2_3, lcp1_3;
bool  /* form (0) */ fe_3, mm_3;
ids_3 = *(typeof(ids_3) *)&id_1;
fe_3 = 1;
while( (fwptr_1 != (NULL)))
{
lcp1_3 = fwptr_1;
fwptr_1 =  /* &pointer Node */ (*lcp1_3).next_1;
strassfv_1( &id_1,  /* &pointer Node */ (*lcp1_3).name_1 );
searchidnenm_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp2_3, &mm_3 );
if( (lcp2_3 != (NULL)) )
{
 /* &pointer Node */ (* /* &pointer Node */ (*lcp1_3).idtype_1).eltype_1 =  /* &pointer Node */ (*lcp2_3).idtype_1;
 /* &pointer Node */ (*lcp2_3).refer_1 = 1;
}
else 
{
if( fe_3 )
{
error_1( 117 );
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text *const $fp = &output_1;
/* const string, len is 49 */
fprintf( $fp->f, "%s", "**** Error: undefined type-id forward reference: " );
$fp->flags = -2;
});
writev_1( &output_1,  /* &pointer Node */ (*lcp1_3).name_1, 10 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
fe_3 = 0;
}
putnam_1( lcp1_3 );
}
id_1 = *(typeof(id_1) *)&ids_3;
} /* resolvep_2() */
void genCType_2(stp_1  idtype1_3, bool  definingVar_3) {
int  /* form (0) */ hi_3, lo_3;
void emitIntType_3(int  min_4, int  max_4) {
int  /* form (0) */ l_4, n_4;
n_4 = 8;
l_4 = 64;
if( (min_4 >= (0)) )
{
while( (l_4 <= ((max_4 / (int)(4)))))
{
n_4 = (2 * (n_4));
l_4 = (4 * (({ const int $e = (l_4); $e*$e; })));
}
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "uint" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)n_4 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", "_t " );
});
}
else 
{
while( ((((min_4 + (l_4)) < (-(l_4)))) || ((((max_4 / (int)(2)) >= (l_4))))))
{
n_4 = (2 * (n_4));
l_4 = (4 * (({ const int $e = (l_4); $e*$e; })));
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "int" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)n_4 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", "_t " );
});
}
} /* emitIntType_3() */
bool  writeField_3(ctp_1  member_4, bool  isPacked_4) {
bool $result3;
int  /* form (0) */ hi_4, lo_4;
int  /* form (0) */ t_4;
stp_1  /* form (2) */ v_4;
$result3 = 1;
v_4 =  /* &pointer Node */ (*member_4).idtype_1;
if( ((isPacked_4 && ((( /* &pointer Node */ (*v_4).form_1 == (0))))) && ((( /* &pointer Node */ (*v_4).scalkind_1 == (1))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " /* bitfield */ " );
$fp->flags = -2;
});
getbounds_1( v_4, &lo_4, &hi_4 );
t_4 = 1;
lo_4 = 1;
while( (t_4 < (hi_4)))
{
t_4 = ((t_4 + (t_4)) + (1));
lo_4 = (lo_4 + (1));
}
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "unsigned " );
$fp->flags = -2;
});
writeId_1( member_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " : " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_4 );
});
}
else 
if( (isPacked_4 && ((( /* &pointer Node */ (*v_4).form_1 == (1))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " /* bitfield */ " );
$fp->flags = -2;
});
getbounds_1( v_4, &lo_4, &hi_4 );
if( (lo_4 >= (0)) )
{
t_4 = 1;
lo_4 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "unsigned " );
$fp->flags = -2;
});
}
else 
{
if( (-(lo_4) > (hi_4)) )
hi_4 = -(lo_4);
t_4 = 1;
lo_4 = 2;
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "signed " );
$fp->flags = -2;
});
}
writeId_1( member_4 );
while( (hi_4 > (t_4)))
{
t_4 = ((t_4 + (t_4)) + (1));
lo_4 = (lo_4 + (1));
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " : " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_4 );
});
}
else 
$result3 = 0;
return $result3;
} /* writeField_3() */
void genFixed_3(ctp_1  member_4, bool  isPacked_4) {
stp_1  /* form (2) */ v_4;
if( (member_4 != (NULL)) )
{
if( ( /* &pointer Node */ (*member_4).klass_1 != (3)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "//unexpected id klass (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int) /* &pointer Node */ (*member_4).klass_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ") " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
writeId_1( member_4 );
}
else 
{
while( (member_4 != (NULL)))
{
if( !(writeField_3( member_4, isPacked_4 )) )
{
v_4 =  /* &pointer Node */ (*member_4).idtype_1;
genCType_2( v_4, 0 );
writeId_1( member_4 );
while( ((( /* &pointer Node */ (*member_4).next_1 != (NULL))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*member_4).next_1).idtype_1 == (v_4))))))
{
member_4 =  /* &pointer Node */ (*member_4).next_1;
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
if( ((((v_4 != (NULL))) && ((( /* &pointer Node */ (*v_4).form_1 == (2))))) && ((( /* &pointer Node */ (*v_4).typeName_1 == (NULL))))) )
({
text  *const $fp = &prc_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( member_4 );
}
}
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
member_4 =  /* &pointer Node */ (*member_4).next_1;
}
}
}
} /* genFixed_3() */
void genVariant_3(stp_1  tag_4, bool  isPacked_4) {
stp_1  /* form (2) */ v_4;
ctp_1  /* form (2) */ member_4;
if( (tag_4 != (NULL)) )
{
member_4 =  /* &pointer Node */ (*tag_4).tagfieldp_1;
if( (member_4 != (NULL)) )
{
if( ( /* &pointer Node */ (*member_4).name_1 != (NULL)) )
{
if( !(writeField_3( member_4, isPacked_4 )) )
{
genCType_2(  /* &pointer Node */ (*member_4).idtype_1, 0 );
writeId_1( member_4 );
}
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "; // +tagfield" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "union {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
v_4 =  /* &pointer Node */ (*tag_4).fstvar_1;
while( (v_4 != (NULL)))
{
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*v_4);
{
if( !($tw5->hasFile_1) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", " /* +variant " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw5->varval_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "*/" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw5->caslst_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "struct {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genFixed_3( $tw5->vfstfld_1, isPacked_4 );
genVariant_3( $tw5->subvar_1, isPacked_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "};" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
}
} // with
v_4 =  /* &pointer Node */ (*v_4).nxtvar_1;
}
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "}; // union" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
v_4 =  /* &pointer Node */ (*tag_4).fstvar_1;
while( (v_4 != (NULL)))
{
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*v_4);
{
if( $tw5->hasFile_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", " /* +variant with file " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw5->varval_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "*/" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw5->caslst_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "struct {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genFixed_3( $tw5->vfstfld_1, isPacked_4 );
genVariant_3( $tw5->subvar_1, isPacked_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "};" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
}
} // with
v_4 =  /* &pointer Node */ (*v_4).nxtvar_1;
}
}
} /* genVariant_3() */
if( (idtype1_3 != (NULL)) )
{
if( (idtype1_3 == (intptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "int " );
$fp->flags = -2;
});
else 
if( (idtype1_3 == (charptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "unsigned char " );
$fp->flags = -2;
});
else 
if( (idtype1_3 == (realptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "double " );
$fp->flags = -2;
});
else 
if( (idtype1_3 == (boolptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "bool " );
$fp->flags = -2;
});
else 
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*idtype1_3);
{
if( (!(definingVar_3) && ((($tw4->typeName_1 != (NULL))))) )
{
if( ($tw4->decState_1 == (2)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", " /* +pointer recursion-0 " );
$fp->flags = -2;
});
writeId_1(  /* &pointer Node */ (*idtype1_3).typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " */ void *" );
$fp->flags = -2;
});
}
else 
{
if( ((($tw4->form_1 == (5))) || ((($tw4->form_1 == (4))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "struct " );
$fp->flags = -2;
});
writeId_1( $tw4->typeName_1 );
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
else 
{
switch( $tw4->form_1 ) {
case 0 :
{
if( ($tw4->scalkind_1 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", ">>> error: unknown standard scalar " );
$fp->flags = -2;
});
}
else 
{
if( ($tw4->fconst_1 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "int /* >>> error: scalar without max value */ " );
$fp->flags = -2;
});
else 
{
getbounds_1( idtype1_3, &lo_3, &hi_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "/* +declared scalar [ 0 .." );
$fp->flags = -2;
fprintf( $fp->f, "%3i", (int)hi_3 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", " ] */ " );
});
emitIntType_3( 0, hi_3 );
}
}
}
break;
case 1 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "/* +subrange " );
$fp->flags = -2;
});
if( ($tw4->rangetype_1 != (realptr_1)) )
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw4->smin_1 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", " .. " );
fprintf( $fp->f, "%1i", (int)$tw4->smax_1 );
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
});
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", " >>> real subrange " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " */ " );
$fp->flags = -2;
});
emitIntType_3( $tw4->smin_1, $tw4->smax_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "/* +range type parsed */ " );
$fp->flags = -2;
});
}
break;
case 2 :
{
if( ($tw4->eltype_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", ">>> pointer to non existent type" );
$fp->flags = -2;
});
}
else 
if( $tw4->isVoidPtr_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", " /* +pointer recursion-2 */ void *" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "/* +pointer */ " );
$fp->flags = -2;
});
genCType_2( $tw4->eltype_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
break;
case 3 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "/* +set */ " );
$fp->flags = -2;
});
getbounds_1( $tw4->elset_1, &lo_3, &hi_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "struct { uint8_t element" );
$fp->flags = -2;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "[(" );
fprintf( $fp->f, "%1i", (int)hi_3 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3) - (" );
fprintf( $fp->f, "%1i", (int)lo_3 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", ">>3)+1]; } " );
});
}
break;
case 4 :
{
if( $tw4->packing_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "/* +packed array */ " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "/* +array */ " );
$fp->flags = -2;
});
if( ($tw4->inxtype_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", ">>> error: array without index " );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", " struct " );
$fp->flags = -2;
});
if( ($tw4->typeName_1 != (NULL)) )
writeId_1( $tw4->typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCType_2( $tw4->aeltype_1, 0 );
if( $tw4->confFlag_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", " component[(unsigned)(" );
$fp->flags = -2;
});
writeId_1( $tw4->highbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "+1-" );
$fp->flags = -2;
});
writeId_1( $tw4->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", ")]; } " );
$fp->flags = -2;
});
}
else 
{
getbounds_1( $tw4->inxtype_1, &lo_3, &hi_3 );
if( (((lo_3 <= (0))) && (((hi_3 >= ((2147483647 + (lo_3))))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " component[" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_3 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "u + " );
fprintf( $fp->f, "%1i", (int)(1 - (lo_3)) );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "u]; } " );
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " component[" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)((hi_3 - (lo_3)) + (1)) );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "u]; } " );
});
}
}
}
break;
case 5 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/* +record */  struct " );
$fp->flags = -2;
});
if( $tw4->packing_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "__attribute__ ((__packed__)) " );
$fp->flags = -2;
});
if( ($tw4->typeName_1 != (NULL)) )
writeId_1( $tw4->typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (((($tw4->fstfld_1 != (NULL))) && ((( /* &pointer Node */ (*$tw4->fstfld_1).varnt_1 == (NULL))))) && (!( /* &pointer Node */ (*$tw4->fstfld_1).tagfield_1))) )
genFixed_3( $tw4->fstfld_1, $tw4->packing_1 );
genVariant_3( $tw4->recvar_1, $tw4->packing_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "} " );
$fp->flags = -2;
});
}
break;
case 6 :
{
if( $tw4->packing_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "/* +packed file */ " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "/* +file */ " );
$fp->flags = -2;
});
if( (idtype1_3 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "text " );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "struct {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "FILE *f;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "char *name;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "int flags;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCType_2( $tw4->filtype_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", " buffer;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "} " );
$fp->flags = -2;
});
}
}
break;
} /* switch */
}
}
} // with
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", ">>> idtype is nil " );
$fp->flags = -2;
});
}
} /* genCType_2() */
void typ_2(setofsys_1  fsys_3, stp_1  *const fsp_3) {
stp_1  /* form (2) */ lsp2_3, lsp1_3, lsp_3;
disprange_1  /* form (1) */ oldtop_3;
ctp_1  /* form (2) */ lcp_3;
int  /* form (0) */ fmax_3, fmin_3;
bool  /* form (0) */ test_3;
bool  /* form (0) */ ispacked_3;
void simpletype_3(setofsys_1  fsys_4, stp_1  *const fsp_4) {
stp_1  /* form (2) */ lsp1_4, lsp_4;
ctp_1  /* form (2) */ lcp1_4, lcp_4;
disprange_1  /* form (1) */ ttop_4;
int  /* form (0) */ lcnt_4;
struct valu_1  /* form (5) */ lvalu_4;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((simptypebegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 1 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), simptypebegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((simptypebegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
if( (sy_1 == (8)) )
{
ttop_4 = top_1;
while( (display_1.component[(unsigned)(top_1 - 0) ].occur_1 != (0)))
top_1 = (top_1 - (1));
lsp_4 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_4 );
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp_4);
{
$tw5->typeName_1 = NULL;
$tw5->hasFile_1 = 0;
$tw5->form_1 = 0;
$tw5->scalkind_1 = 1;
}
} // with
lcp1_4 = NULL;
lcnt_4 = 0;
do {
insymbol_1(  );
if( (sy_1 == (0)) )
{
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
$tw5->idtype_1 = lsp_4;
$tw5->next_1 = lcp1_4;
$tw5->klass_1 = 1;
$tw5->values_1.ival_1 = lcnt_4;
}
} // with
enterid_1( lcp_4 );
lcnt_4 = (lcnt_4 + (1));
lcp1_4 = lcp_4;
insymbol_1(  );
}
else 
error_1( 2 );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 9 || $e == 12);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
} while( ! (sy_1 != (12)));
 /* &pointer Node */ (*lsp_4).fconst_1 = lcp1_4;
top_1 = ttop_4;
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
{
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(1>>3) - (0>>3)] |= (1<<(1&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp_4 );
insymbol_1(  );
if( (sy_1 == (18)) )
{
lsp_4 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_4 );
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp_4);
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*lcp_4);
{
$tw5->typeName_1 = NULL;
$tw5->hasFile_1 = 0;
$tw5->form_1 = 1;
$tw5->rangetype_1 = $tw6->idtype_1;
if( isString_2( $tw5->rangetype_1 ) )
{
error_1( 148 );
$tw5->rangetype_1 = NULL;
}
$tw5->smin_1 = $tw6->values_1.ival_1;
}
} // with
if( (sy_1 == (18)) )
insymbol_1(  );
else 
error_1( 21 );
 /* [0..48] 3 */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp1_4, &lvalu_4 );
 /* &pointer Node */ (*lsp_4).smax_1 = lvalu_4.ival_1;
if( (((lsp1_4 != (NULL))) && ((( /* &pointer Node */ (*lsp_4).rangetype_1 != (lsp1_4))))) )
error_1( 107 );
}
else 
{
lsp_4 =  /* &pointer Node */ (*lcp_4).idtype_1;
}
}
else 
{
 /* [0..48] 3 */  /* merge right + left --> result */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(18>>3) - (0>>3)] |= (1<<(18&7));
$set0; })
, &lsp1_4, &lvalu_4 );
if( isString_2( lsp1_4 ) )
{
error_1( 148 );
lsp1_4 = NULL;
}
lsp_4 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_4 );
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp_4);
{
$tw5->typeName_1 = NULL;
$tw5->hasFile_1 = 0;
$tw5->form_1 = 1;
$tw5->rangetype_1 = lsp1_4;
$tw5->smin_1 = lvalu_4.ival_1;
}
} // with
if( (sy_1 == (18)) )
insymbol_1(  );
else 
error_1( 21 );
 /* [0..48] 3 */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp1_4, &lvalu_4 );
 /* &pointer Node */ (*lsp_4).smax_1 = lvalu_4.ival_1;
if( (((lsp1_4 != (NULL))) && ((( /* &pointer Node */ (*lsp_4).rangetype_1 != (lsp1_4))))) )
error_1( 107 );
}
if( (lsp_4 != (NULL)) )
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp_4);
if( ($tw5->form_1 == (1)) )
if( ($tw5->rangetype_1 != (NULL)) )
if( ($tw5->rangetype_1 == (realptr_1)) )
error_1( 399 );
else 
if( ($tw5->smin_1 > ($tw5->smax_1)) )
{
error_1( 102 );
}
} // with
}
(*fsp_4) = lsp_4;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
else 
(*fsp_4) = NULL;
} /* simpletype_3() */
void fieldlist_3(setofsys_1  fsys_4, stp_1  *const frecvar_4, stp_1  vartyp_4, ctp_1  varlab_4, bool  *const aFile_4, int  lvl_4) {
ctp_1  /* form (2) */ nxt1_4, nxt_4, lcp1_4, lcp_4;
stp_1  /* form (2) */ lsp4_4, lsp3_4, lsp2_4, lsp1_4, lsp_4;
struct valu_1  /* form (5) */ lvalu_4;
bool  /* form (0) */ done_4;
bool  /* form (0) */ mm_4;
nxt1_4 = NULL;
lsp_4 = NULL;
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 33 || $e == 0);})
)) )
{
error_1( 19 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
while( (sy_1 == (0)))
{
nxt_4 = nxt1_4;
do {
if( (sy_1 == (0)) )
{
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
$tw5->idtype_1 = NULL;
$tw5->next_1 = nxt_4;
$tw5->klass_1 = 3;
$tw5->varnt_1 = vartyp_4;
$tw5->varlb_1 = varlab_4;
$tw5->tagfield_1 = 0;
}
} // with
nxt_4 = lcp_4;
enterid_1( lcp_4 );
insymbol_1(  );
}
else 
error_1( 2 );
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 16 || $e == 12);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
done_4 = (sy_1 != (12));
if( !(done_4) )
insymbol_1(  );
} while( ! done_4);
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
 /* [0..48] 3 */  /* merge right + left --> result */ typ_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$set0; })
, &lsp_4 );
if( filecomponent_2( lsp_4 ) )
(*aFile_4) = 1;
while( (nxt_4 != (nxt1_4)))
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*nxt_4);
{
$tw5->idtype_1 = lsp_4;
nxt_4 = $tw5->next_1;
}
} // with
nxt1_4 = lcp_4;
while( (sy_1 == (13)))
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 13 || $e == 33 || $e == 0);})
)) )
{
error_1( 19 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
}
}
nxt_4 = NULL;
while( (nxt1_4 != (NULL)))
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*nxt1_4);
{
lcp_4 = $tw5->next_1;
$tw5->next_1 = nxt_4;
nxt_4 = nxt1_4;
nxt1_4 = lcp_4;
}
} // with
if( (vartyp_4 != (NULL)) )
{
 /* &pointer Node */ (*vartyp_4).vfstfld_1 = nxt_4;
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "// vfstfld points to " );
$fp->flags = -2;
});
writeId_1(  /* &pointer Node */ (*vartyp_4).vfstfld_1 );
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( (sy_1 == (33)) )
{
lsp_4 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_4 );
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp_4);
{
$tw5->typeName_1 = NULL;
$tw5->hasFile_1 = 0;
$tw5->form_1 = 7;
$tw5->tagfieldp_1 = NULL;
$tw5->fstvar_1 = NULL;
$tw5->packing_1 = 0;
}
} // with
(*frecvar_4) = lsp_4;
insymbol_1(  );
if( (sy_1 == (0)) )
{
searchidnenm_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp1_4, &mm_4 );
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
$tw5->idtype_1 = NULL;
$tw5->klass_1 = 3;
$tw5->next_1 = NULL;
$tw5->varnt_1 = vartyp_4;
$tw5->varlb_1 = varlab_4;
$tw5->tagfield_1 = 1;
}
} // with
insymbol_1(  );
if( (sy_1 == (16)) )
{
enterid_1( lcp_4 );
insymbol_1(  );
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp1_4 );
insymbol_1(  );
}
else 
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$set0; })
 );
lcp1_4 = NULL;
}
}
else 
{
if( (lcp1_4 == (NULL)) )
error_1( 104 );
else 
if( mm_4 )
error_1( 103 );
putstrs_1(  /* &pointer Node */ (*lcp_4).name_1 );
 /* &pointer Node */ (*lcp_4).name_1 = NULL;
}
if( (lcp1_4 != (NULL)) )
{
lsp1_4 =  /* &pointer Node */ (*lcp1_4).idtype_1;
if( (lsp1_4 != (NULL)) )
{
if( ((( /* &pointer Node */ (*lsp1_4).form_1 <= (1))) || (isString_2( lsp1_4 ))) )
{
if( comptypes_2( realptr_1, lsp1_4 ) )
error_1( 109 );
else 
if( isString_2( lsp1_4 ) )
error_1( 399 );
 /* &pointer Node */ (*lcp_4).idtype_1 = lsp1_4;
}
else 
error_1( 110 );
}
}
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "// tagfield " );
$fp->flags = -2;
});
writeId_1( lcp_4 );
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
error_1( 2 );
lcp_4 = NULL;
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$set0; })
 );
}
 /* &pointer Node */ (*lsp_4).tagfieldp_1 = lcp_4;
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
lsp1_4 = NULL;
do {
lsp2_4 = NULL;
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 13);})
)) )
{
do {
 /* [0..48] 3 */  /* merge right + left --> result */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, &lsp3_4, &lvalu_4 );
if( ( /* &pointer Node */ (*lsp_4).tagfieldp_1 != (NULL)) )
if( !(comptypes_2(  /* &pointer Node */ (* /* &pointer Node */ (*lsp_4).tagfieldp_1).idtype_1, lsp3_4 )) )
error_1( 111 );
lsp3_4 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp3_4 );
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp3_4);
{
$tw5->typeName_1 = NULL;
$tw5->form_1 = 8;
$tw5->nxtvar_1 = lsp1_4;
$tw5->varval_1 = lvalu_4.ival_1;
$tw5->vfstfld_1 = NULL;
$tw5->caslst_1 = lsp2_4;
}
} // with
lsp4_4 = lsp1_4;
while( (lsp4_4 != (NULL)))
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp4_4);
{
if( ($tw5->varval_1 == (lvalu_4.ival_1)) )
error_1( 178 );
lsp4_4 = $tw5->nxtvar_1;
}
} // with
lsp1_4 = lsp3_4;
lsp2_4 = lsp3_4;
done_4 = (sy_1 != (12));
if( !(done_4) )
insymbol_1(  );
} while( ! done_4);
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
if( (sy_1 == (8)) )
insymbol_1(  );
else 
error_1( 9 );
mm_4 = 0;
 /* [0..48] 3 */  /* merge right + left --> result */ fieldlist_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
, &lsp2_4, lsp3_4, lcp_4, &mm_4, (lvl_4 + (1)) );
if( mm_4 )
(*aFile_4) = 1;
lcp1_4 =  /* &pointer Node */ (*lsp3_4).vfstfld_1;
while( (lsp3_4 != (NULL)))
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*lsp3_4);
{
$tw5->subvar_1 = lsp2_4;
$tw5->vfstfld_1 = lcp1_4;
$tw5->hasFile_1 = mm_4;
lsp3_4 = $tw5->caslst_1;
}
} // with
if( (sy_1 == (9)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 13);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
}
}
else 
error_1( 4 );
}
done_4 = (sy_1 != (13));
if( !(done_4) )
insymbol_1(  );
} while( ! done_4);
 /* &pointer Node */ (*lsp_4).fstvar_1 = lsp1_4;
}
else 
(*frecvar_4) = NULL;
} /* fieldlist_3() */
lsp_3 = NULL;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((typebegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 10 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), typebegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((typebegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
ispacked_3 = 0;
if( (sy_1 == (27)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((typedels_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
ispacked_3 = 1;
else 
{
error_1( 10 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), typebegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
({uint8_t $s1 [(48>>3)-(0>>3)+1]; 
int $i;
/* dest bounds are 0 .. 48 */
memset($s1, 0, (48>>3)-(0>>3)+1 );
$s1[(27>>3) - (0>>3)] |= (1<<(27&7));
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] &= ~$s1[$i];
});
$set0; })
 );
}
}
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((simptypebegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
 /* [0..48] 3 */ simpletype_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp_3 );
else 
if( (sy_1 == (15)) )
{
lsp_3 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_3 );
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
$tw4->typeName_1 = NULL;
$tw4->hasFile_1 = 0;
$tw4->isVoidPtr_1 = 0;
$tw4->form_1 = 2;
$tw4->eltype_1 = NULL;
$tw4->packing_1 = 0;
}
} // with
insymbol_1(  );
if( (sy_1 == (0)) )
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 250, &id_1 );
$tw4->idtype_1 = lsp_3;
$tw4->next_1 = fwptr_1;
$tw4->klass_1 = 0;
}
} // with
fwptr_1 = lcp_3;
insymbol_1(  );
}
else 
error_1( 2 );
}
else 
if( (sy_1 == (28)) )
{
insymbol_1(  );
if( (sy_1 == (10)) )
insymbol_1(  );
else 
error_1( 11 );
lsp1_3 = NULL;
do {
lsp_3 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_3 );
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
$tw4->typeName_1 = NULL;
$tw4->form_1 = 4;
$tw4->aeltype_1 = lsp1_3;
$tw4->inxtype_1 = NULL;
$tw4->confFlag_1 = 0;
$tw4->slen_1 = -1;
$tw4->packing_1 = ispacked_3;
}
} // with
lsp1_3 = lsp_3;
 /* [0..48] 3 */  /* merge right + left --> result */ simpletype_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, &lsp2_3 );
if( (lsp2_3 != (NULL)) )
{
if( ( /* &pointer Node */ (*lsp2_3).form_1 > (1)) )
error_1( 113 );
else 
if( (lsp2_3 == (realptr_1)) )
error_1( 112 );
else 
if( (lsp2_3 == (intptr_1)) )
error_1( 149 );
else 
 /* &pointer Node */ (*lsp_3).inxtype_1 = lsp2_3;
}
test_3 = (sy_1 != (12));
if( !(test_3) )
insymbol_1(  );
} while( ! test_3);
if( (sy_1 == (11)) )
insymbol_1(  );
else 
error_1( 12 );
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
 /* [0..48] 3 */ typ_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp_3 );
if( (comptypes_2( lsp_3, charptr_1 ) && (ispacked_3)) )
{
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp1_3);
{
if( ($tw4->inxtype_1 == (NULL)) )
$tw4->slen_1 = 1;
else 
if( comptypes_2( $tw4->inxtype_1, intptr_1 ) )
{
getbounds_1( $tw4->inxtype_1, &fmin_3, &fmax_3 );
if( ((fmin_3 == (1))) )
{
$tw4->slen_1 = fmax_3;
}
}
}
} // with
}
do {
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp1_3);
{
lsp2_3 = $tw4->aeltype_1;
$tw4->aeltype_1 = lsp_3;
$tw4->hasFile_1 = filecomponent_2( $tw4->aeltype_1 );
}
} // with
lsp_3 = lsp1_3;
lsp1_3 = lsp2_3;
} while( ! (lsp1_3 == (NULL)));
}
else 
if( (sy_1 == (29)) )
{
insymbol_1(  );
oldtop_3 = top_1;
if( (top_1 < (300)) )
{
top_1 = (top_1 + (1));
{ // with statement
typeof(display_1.component[(unsigned)(top_1 - 0) ]) *const $tw4 = &display_1.component[(unsigned)(top_1 - 0) ];
{
$tw4->fname_1 = NULL;
$tw4->flabel_1 = NULL;
$tw4->fconst_1 = NULL;
$tw4->fstruct_1 = NULL;
$tw4->packing_1 = 0;
$tw4->occur_1 = 3;
}
} // with
}
else 
error_1( 250 );
lsp_3 = calloc( 1, sizeof( struct structure_1 ));
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
$tw4->typeName_1 = NULL;
$tw4->form_1 = 5;
$tw4->hasFile_1 = 0;
 /* [0..48] 3 */  /* [0..48] 0 */  /* [0..48] 0 */ fieldlist_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set->left op node*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1 [(48>>3)-(0>>3)+1]; 
int $i;
/* dest bounds are 0 .. 48 */
memset($s1, 0, (48>>3)-(0>>3)+1 );
$s1[(13>>3) - (0>>3)] |= (1<<(13&7));
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] &= ~$s1[$i];
});
$s0[(39>>3) - (0>>3)] |= (1<<(39&7));
$set0; })
, &$tw4->recvar_1, NULL, NULL, &$tw4->hasFile_1, 1 );
$tw4->fstfld_1 = display_1.component[(unsigned)(top_1 - 0) ].fname_1;
display_1.component[(unsigned)(top_1 - 0) ].fname_1 = NULL;
$tw4->packing_1 = ispacked_3;
$tw4->recyc_1 = display_1.component[(unsigned)(top_1 - 0) ].fstruct_1;
display_1.component[(unsigned)(top_1 - 0) ].fstruct_1 = NULL;
}
} // with
putdsps_1( oldtop_3 );
top_1 = oldtop_3;
pshstc_1( lsp_3 );
if( (sy_1 == (39)) )
insymbol_1(  );
else 
error_1( 13 );
}
else 
if( (sy_1 == (26)) )
{
insymbol_1(  );
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
 /* [0..48] 3 */ simpletype_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp1_3 );
if( (lsp1_3 != (NULL)) )
if( ( /* &pointer Node */ (*lsp1_3).form_1 > (1)) )
{
error_1( 115 );
lsp1_3 = NULL;
}
else 
if( (lsp1_3 == (realptr_1)) )
{
error_1( 114 );
lsp1_3 = NULL;
}
else 
if( (lsp1_3 == (intptr_1)) )
{
error_1( 169 );
lsp1_3 = NULL;
}
lsp_3 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_3 );
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
$tw4->typeName_1 = NULL;
$tw4->hasFile_1 = 0;
$tw4->packing_1 = ispacked_3;
$tw4->form_1 = 3;
$tw4->elset_1 = lsp1_3;
$tw4->matchpack_1 = 1;
}
} // with
}
else 
if( (sy_1 == (30)) )
{
insymbol_1(  );
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
 /* [0..48] 3 */ typ_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, &lsp1_3 );
if( filecomponent_2( lsp1_3 ) )
error_1( 191 );
lsp_3 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_3 );
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
$tw4->typeName_1 = NULL;
$tw4->hasFile_1 = 1;
$tw4->form_1 = 6;
$tw4->filtype_1 = lsp1_3;
$tw4->packing_1 = ispacked_3;
}
} // with
}
else 
lsp_3 = NULL;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_3.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
(*fsp_3) = lsp_3;
} /* typ_2() */
void labeldeclaration_2(void) {
lbp_1  /* form (2) */ llp_3;
bool  /* form (0) */ test_3;
insymbol_1(  );
do {
if( (sy_1 == (1)) )
{
searchlabel_1( &llp_3, top_1 );
if( (llp_3 != (NULL)) )
error_1( 166 );
else 
{
newlabel_1( &llp_3 );
if( ( /* &pointer Node */ (*llp_3).labval_1 > (9999)) )
error_1( 196 );
if( (level_1 == (1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "static " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "jmp_buf _PJB" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*llp_3).labname_1 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
insymbol_1(  );
}
else 
error_1( 15 );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 13 || $e == 12);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
test_3 = (sy_1 != (12));
if( !(test_3) )
insymbol_1(  );
} while( ! test_3);
if( (sy_1 == (13)) )
insymbol_1(  );
else 
error_1( 14 );
} /* labeldeclaration_2() */
void constdeclaration_2(void) {
ctp_1  /* form (2) */ lcp_3;
stp_1  /* form (2) */ lsp_3;
struct valu_1  /* form (5) */ lvalu_3;
insymbol_1(  );
if( (sy_1 != (0)) )
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
while( (sy_1 == (0)))
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 250, &id_1 );
$tw4->idtype_1 = NULL;
$tw4->next_1 = NULL;
$tw4->klass_1 = 1;
$tw4->refer_1 = 0;
}
} // with
insymbol_1(  );
if( (((sy_1 == (7))) && (((op_1 == (13))))) )
insymbol_1(  );
else 
error_1( 16 );
 /* [0..48] 3 */  /* merge right + left --> result */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
, &lsp_3, &lvalu_3 );
enterid_1( lcp_3 );
 /* &pointer Node */ (*lcp_3).idtype_1 = lsp_3;
 /* &pointer Node */ (*lcp_3).values_1 = lvalu_3;
if( (sy_1 == (13)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 0);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
}
else 
error_1( 14 );
}
} /* constdeclaration_2() */
void typedeclaration_2(void) {
ctp_1  /* form (2) */ lcp_3;
stp_1  /* form (2) */ lsp_3;
stp_1  /* form (2) */ lsp1_3, head_3;
void declareType_3(stp_1  t_4) {
void wrMembers_4(ctp_1  member_5) {
while( (member_5 != (NULL)))
{
{ // with statement
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*member_5);
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "/* ++ member " );
$fp->flags = -2;
});
writev_1( &prc_1, $tw6->name_1, lenpv_1( $tw6->name_1 ) );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " type " );
$fp->flags = -2;
});
if( ($tw6->idtype_1 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", ">>> field has no type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
if( ( /* &pointer Node */ (*$tw6->idtype_1).typeName_1 != (NULL)) )
writev_1( &prc_1,  /* &pointer Node */ (* /* &pointer Node */ (*$tw6->idtype_1).typeName_1).name_1, lenpv_1(  /* &pointer Node */ (* /* &pointer Node */ (*$tw6->idtype_1).typeName_1).name_1 ) );
else 
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "---" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw6->idtype_1 );
member_5 = $tw6->next_1;
}
} // with
}
} /* wrMembers_4() */
if( (t_4 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", ">>> non-existent type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
{ // with statement
struct structure_1  *const $tw5 = & /* &pointer Node */ (*t_4);
{
if( ($tw5->typeName_1 != (NULL)) )
{
if( $tw5->checkStruct_1 )
{
if( ($tw5->decState_1 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "/* ++recursive struct, state is " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw5->decState_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "struct " );
$fp->flags = -2;
});
writeId_1( $tw5->typeName_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
$tw5->decState_1 = 1;
}
}
else 
if( $tw5->checkPtr_1 )
{
if( ($tw5->decState_1 == (0)) )
{
$tw5->decState_1 = 2;
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "/* ++pointer recursion X " );
$fp->flags = -2;
});
writeId_1( $tw5->typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
if( ($tw5->decState_1 != (3)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "// ++ " );
$fp->flags = -2;
});
writev_1( &prc_1,  /* &pointer Node */ (*$tw5->typeName_1).name_1, lenpv_1(  /* &pointer Node */ (*$tw5->typeName_1).name_1 ) );
$tw5->checkPtr_1 = 1;
if( ($tw5->form_1 == (5)) )
{
$tw5->checkPtr_1 = 0;
$tw5->checkStruct_1 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " ++record" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
wrMembers_4( $tw5->fstfld_1 );
if( ($tw5->recvar_1 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "// +* variant part" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->recvar_1 );
}
$tw5->checkStruct_1 = 0;
}
else 
if( ($tw5->form_1 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " ++scalar type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ($tw5->form_1 == (1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " ++subrange type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->rangetype_1 );
}
else 
if( ($tw5->form_1 == (2)) )
{
if( (((($tw5->eltype_1 != (NULL))) && ((( /* &pointer Node */ (*$tw5->eltype_1).form_1 == (5))))) && ((( /* &pointer Node */ (*$tw5->eltype_1).typeName_1 != (NULL))))) )
$tw5->checkPtr_1 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", " ++pointer type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->eltype_1 );
}
else 
if( ($tw5->form_1 == (3)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", " ++power (set) type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->elset_1 );
}
else 
if( ($tw5->form_1 == (4)) )
{
$tw5->checkPtr_1 = 0;
$tw5->checkStruct_1 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", " ++array component type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->aeltype_1 );
$tw5->checkStruct_1 = 0;
}
else 
if( ($tw5->form_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", " ++file type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->filtype_1 );
}
else 
if( ($tw5->form_1 == (7)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 44 */
fprintf( $fp->f, "%s", ">>> not expecting tagfield to define a type " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ($tw5->form_1 == (8)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", ">>> not expecting variant to define a type " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
$tw5->checkPtr_1 = 0;
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw5->decState_1 != (3)) )
{
{ // with statement
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*$tw5->typeName_1);
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "// type declaration " );
$fp->flags = -2;
});
writev_1( &prc_1, $tw6->name_1, lenpv_1( $tw6->name_1 ) );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " state is " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw5->decState_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "typedef " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "/* type id " );
$fp->flags = -2;
});
writev_1( &prc_1, $tw6->name_1, lenpv_1( $tw6->name_1 ) );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " */ " );
$fp->flags = -2;
});
genCType_2( t_4, 1 );
writeId_1( $tw5->typeName_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
$tw5->isVoidPtr_1 = ($tw5->decState_1 == (2));
if( $tw5->isVoidPtr_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "/* void*, form is " );
$fp->flags = -2;
fprintf( $fp->f, "%i", (int)(int)$tw5->form_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
$tw5->decState_1 = 3;
}
}
}
else 
{
if( ($tw5->form_1 == (4)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "/* +*array component type */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->aeltype_1 );
}
else 
if( ($tw5->form_1 == (5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "// +*record" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
wrMembers_4( $tw5->fstfld_1 );
if( ($tw5->recvar_1 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "/* +* variant part */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->recvar_1 );
}
}
else 
if( ($tw5->form_1 == (7)) )
{
if( ($tw5->tagfieldp_1 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "/* +*tagfield 2 */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ( /* &pointer Node */ (*$tw5->tagfieldp_1).name_1 != (NULL)) )
{
declareType_3(  /* &pointer Node */ (*$tw5->tagfieldp_1).idtype_1 );
}
}
if( ($tw5->fstvar_1 != (NULL)) )
declareType_3( $tw5->fstvar_1 );
}
else 
if( ($tw5->form_1 == (8)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "// +*variant" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
wrMembers_4( $tw5->vfstfld_1 );
if( ((($tw5->subvar_1 != (NULL))) && ((($tw5->caslst_1 == (NULL))))) )
declareType_3( $tw5->subvar_1 );
if( ($tw5->nxtvar_1 != (NULL)) )
declareType_3( $tw5->nxtvar_1 );
}
else 
if( ($tw5->form_1 == (2)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "/* +*pointer type */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->eltype_1 );
}
else 
if( ($tw5->form_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "/* +*file type */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
declareType_3( $tw5->filtype_1 );
}
}
}
} // with
} /* declareType_3() */
head_3 = NULL;
lsp1_3 = NULL;
insymbol_1(  );
if( (sy_1 != (0)) )
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
while( (sy_1 == (0)))
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 250, &id_1 );
$tw4->idtype_1 = NULL;
$tw4->klass_1 = 0;
$tw4->refer_1 = 0;
}
} // with
insymbol_1(  );
if( (((sy_1 == (7))) && (((op_1 == (13))))) )
insymbol_1(  );
else 
error_1( 16 );
 /* [0..48] 3 */  /* merge right + left --> result */ typ_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
, &lsp_3 );
enterid_1( lcp_3 );
 /* &pointer Node */ (*lcp_3).idtype_1 = lsp_3;
if( (lsp_3 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", ">>> nil type pointer " );
$fp->flags = -2;
});
writeId_1( lcp_3 );
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (((lsp_3 != (boolptr_1))) && (((lsp_3 != (textptr_1))))) )
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp_3);
{
if( ((($tw4->typeName_1 == (NULL))) && ((((($tw4->form_1 != (0))) || ((($tw4->scalkind_1 != (0)))))))) )
{
$tw4->typeName_1 = lcp_3;
$tw4->decState_1 = 0;
$tw4->checkStruct_1 = 0;
$tw4->checkPtr_1 = 0;
$tw4->decChain_1 = NULL;
if( (lsp1_3 == (NULL)) )
{
head_3 = lsp_3;
}
else 
{
 /* &pointer Node */ (*lsp1_3).decChain_1 = lsp_3;
}
lsp1_3 = lsp_3;
}
}
} // with
if( (sy_1 == (13)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 0);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
}
else 
error_1( 14 );
}
resolvep_2(  );
lsp1_3 = head_3;
while( (lsp1_3 != (NULL)))
{
{ // with statement
struct structure_1  *const $tw4 = & /* &pointer Node */ (*lsp1_3);
{
if( ($tw4->typeName_1 == (NULL)) )
{
({
text *const $fp = &output_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "internal error: empty type name" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
declareType_3( lsp1_3 );
}
lsp1_3 =  /* &pointer Node */ (*lsp1_3).decChain_1;
}
} // with
}
} /* typedeclaration_2() */
void vardeclaration_2(void) {
ctp_1  /* form (2) */ nxt_3, lcp_3;
stp_1  /* form (2) */ lsp_3;
bool  /* form (0) */ haveComma_3;
bool  /* form (0) */ fileFlag_3;
fileListItemPtr_2  /* form (2) */ t_3;
insymbol_1(  );
nxt_3 = NULL;
do {
do {
if( (sy_1 == (0)) )
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 250, &id_1 );
$tw4->next_1 = nxt_3;
$tw4->klass_1 = 2;
$tw4->idtype_1 = NULL;
$tw4->vkind_1 = 0;
$tw4->vlev_1 = level_1;
$tw4->refer_1 = 0;
$tw4->threat_1 = 0;
$tw4->forcnt_1 = 0;
}
} // with
enterid_1( lcp_3 );
nxt_3 = lcp_3;
insymbol_1(  );
}
else 
error_1( 2 );
if(  /* [0..48] 3 */  /* merge right + left --> result */  /* [0..48] 3 */  /* [0..48] 0 */ !((({ const int $e = sy_1;
(0 /*@ (in) set->+ node*/ || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 16 || $e == 12) || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((typedels_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
));})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), typedels_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
haveComma_3 = (sy_1 == (12));
if( haveComma_3 )
insymbol_1(  );
} while( ! !(haveComma_3));
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
 /* [0..48] 3 */  /* merge right + left --> result */  /* [0..48] 3 */  /* [0..48] 0 */ typ_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), typedels_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
, &lsp_3 );
resolvep_2(  );
if( (level_1 == (1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "static " );
$fp->flags = -2;
});
genCType_2( lsp_3, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " /* form " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( (lsp_3 != (NULL)) )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)(int) /* &pointer Node */ (*lsp_3).form_1 );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
{char $c = 63;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
;
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", ") */ " );
$fp->flags = -2;
});
fileFlag_3 = filecomponent_2( lsp_3 );
if( fileFlag_3 )
display_1.component[(unsigned)(level_1 - 0) ].hasFile_1 = 1;
while( (nxt_3 != (NULL)))
{
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*nxt_3);
{
$tw4->idtype_1 = lsp_3;
writeId_1( nxt_3 );
if( fileFlag_3 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "={0}" );
$fp->flags = -2;
});
t_3 = calloc( 1, sizeof( struct fileListItem_2 ));
 /* &pointer Node */ (*t_3).fileVar_2 = nxt_3;
 /* &pointer Node */ (*t_3).next_2 = fileList_2;
fileList_2 = t_3;
}
nxt_3 = $tw4->next_1;
}
} // with
if( (nxt_3 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
if( ((((lsp_3 != (NULL))) && ((( /* &pointer Node */ (*lsp_3).form_1 == (2))))) && ((( /* &pointer Node */ (*lsp_3).typeName_1 == (NULL))))) )
({
text  *const $fp = &prc_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
if( (sy_1 == (13)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 0);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
}
else 
error_1( 14 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} while( !  /* [0..48] 3 */ (((sy_1 != (0))) && (!((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((typedels_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)))));
} /* vardeclaration_2() */
void procdeclaration_2(void) {
/* +subrange  0 .. 255  */ uint8_t /* +range type parsed */  /* form (1) */ oldlev_3;
ctp_1  /* form (2) */ lcp2_3, lcp1_3, lcp_3;
stp_1  /* form (2) */ lsp_3;
bool  /* form (0) */ forw_3;
disprange_1  /* form (1) */ oldtop_3;
symbol_1  /* form (0) */ fsy_3;
bool  /* form (0) */ funcDebug_3;
void pushlvl_3(bool  forw_4, ctp_1  lcp_4) {
if( (level_1 < (255)) )
level_1 = (level_1 + (1));
else 
error_1( 251 );
if( (top_1 < (300)) )
{
top_1 = (top_1 + (1));
{ // with statement
typeof(display_1.component[(unsigned)(top_1 - 0) ]) *const $tw5 = &display_1.component[(unsigned)(top_1 - 0) ];
{
if( forw_4 )
$tw5->fname_1 =  /* &pointer Node */ (*lcp_4).pflist_1;
else 
$tw5->fname_1 = NULL;
$tw5->flabel_1 = NULL;
$tw5->fconst_1 = NULL;
$tw5->fstruct_1 = NULL;
$tw5->packing_1 = 0;
$tw5->occur_1 = 0;
$tw5->hasFile_1 = 0;
$tw5->bname_1 = lcp_4;
}
} // with
}
else 
error_1( 250 );
} /* pushlvl_3() */
void parameterlist_3(setofsys_1  fsy_4, ctp_1  *const fpar_4) {
ctp_1  /* form (2) */ lcp3_4, lcp2_4, lcp1_4, lcp_4;
stp_1  /* form (2) */ lsp_4;
idkind_1  /* form (0) */ lkind_4;
int  /* form (0) */ count_4;
/* +subrange  0 .. 255  */ uint8_t /* +range type parsed */  /* form (1) */ oldlev_4;
disprange_1  /* form (1) */ oldtop_4;
bool  /* form (0) */ haveComma_4;
void paramType_4(stp_1  *const fsp_5, bool  idOnly_5) {
stp_1  /* form (2) */ lsp2_5, lsp1_5, lsp_5;
ctp_1  /* form (2) */ lcp3_5, lcp2_5, lcp1_5;
bool  /* form (0) */ haveSemi_5, ispacked_5;
void bounddeclaration_5(setofsys_1  fsy_6, ctp_1  *const fcp_6) {
ctp_1  /* form (2) */ lcp_6;
if( (sy_1 == (0)) )
{
lcp_6 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_6 );
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*lcp_6);
{
$tw7->klass_1 = 4;
strassvf_1( &$tw7->name_1, /* bounds: */ 1, 250, &id_1 );
$tw7->idtype_1 = NULL;
$tw7->next_1 = NULL;
$tw7->keep_1 = 1;
$tw7->lev_1 = level_1;
}
} // with
enterid_1( lcp_6 );
insymbol_1(  );
}
else 
{
error_1( 222 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsy_6.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
lcp_6 = NULL;
}
(*fcp_6) = lcp_6;
} /* bounddeclaration_5() */
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp_4 );
lsp_5 =  /* &pointer Node */ (*lcp_4).idtype_1;
insymbol_1(  );
}
else 
{
if( idOnly_5 )
error_1( 220 );
if( (sy_1 == (27)) )
{
insymbol_1(  );
ispacked_5 = 1;
}
else 
ispacked_5 = 0;
if( (sy_1 == (28)) )
{
insymbol_1(  );
if( (sy_1 == (10)) )
insymbol_1(  );
else 
error_1( 11 );
lsp1_5 = NULL;
do {
 /* [0..48] 3 */  /* merge right + left --> result */ bounddeclaration_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$s0[(18>>3) - (0>>3)] |= (1<<(18&7));
$set0; })
, &lcp1_5 );
if( (sy_1 == (18)) )
insymbol_1(  );
else 
error_1( 21 );
 /* [0..48] 3 */  /* merge right + left --> result */ bounddeclaration_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp2_5 );
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp3_5 );
lsp2_5 =  /* &pointer Node */ (*lcp3_5).idtype_1;
if( (lsp2_5 != (NULL)) )
if( ( /* &pointer Node */ (*lsp2_5).form_1 > (1)) )
{
lsp2_5 = NULL;
error_1( 223 );
}
else 
if( (lsp2_5 == (realptr_1)) )
{
error_1( 109 );
lsp2_5 = NULL;
}
insymbol_1(  );
}
else 
{
error_1( 2 );
lsp2_5 = NULL;
}
if( (lcp1_5 != (NULL)) )
 /* &pointer Node */ (*lcp1_5).idtype_1 = lsp2_5;
if( (lcp2_5 != (NULL)) )
 /* &pointer Node */ (*lcp2_5).idtype_1 = lsp2_5;
lsp_5 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_5 );
{ // with statement
struct structure_1  *const $tw6 = & /* &pointer Node */ (*lsp_5);
{
$tw6->form_1 = 4;
$tw6->typeName_1 = NULL;
$tw6->decState_1 = 0;
$tw6->aeltype_1 = lsp1_5;
$tw6->inxtype_1 = lsp2_5;
$tw6->packing_1 = ispacked_5;
$tw6->slen_1 = -1;
$tw6->lowbound_1 = lcp1_5;
$tw6->highbound_1 = lcp2_5;
$tw6->confFlag_1 = 1;
}
} // with
lsp1_5 = lsp_5;
haveSemi_5 = (sy_1 == (13));
if( (sy_1 == (12)) )
{
error_1( 14 );
haveSemi_5 = 1;
}
if( haveSemi_5 )
{
insymbol_1(  );
if( ispacked_5 )
error_1( 220 );
}
} while( ! !(haveSemi_5));
if( (sy_1 == (11)) )
insymbol_1(  );
else 
error_1( 12 );
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
paramType_4( &lsp_5, ispacked_5 );
do {
{ // with statement
struct structure_1  *const $tw6 = & /* &pointer Node */ (*lsp1_5);
{
lsp2_5 = $tw6->aeltype_1;
$tw6->aeltype_1 = lsp_5;
$tw6->hasFile_1 = filecomponent_2( lsp_5 );
}
} // with
lsp_5 = lsp1_5;
lsp1_5 = lsp2_5;
} while( ! (lsp1_5 == (NULL)));
}
else 
lsp_5 = NULL;
}
(*fsp_5) = lsp_5;
} /* paramType_4() */
lcp1_4 = NULL;
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsy_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 8);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set->left op node*//*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), fsy_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
$set0; })
 );
}
if( (sy_1 == (8)) )
{
if( forw_3 )
error_1( 119 );
insymbol_1(  );
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 23 || $e == 25 || $e == 22 || $e == 0);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
while( ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 23 || $e == 25 || $e == 22 || $e == 0);})
)
{
if( (sy_1 == (25)) )
{
insymbol_1(  );
lcp_4 = NULL;
if( !(forw_3) )
{
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
if( (sy_1 == (0)) )
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
insymbol_1(  );
}
else 
{
error_1( 2 );
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 9, &"         " );
}
$tw5->idtype_1 = NULL;
$tw5->next_1 = lcp1_4;
$tw5->klass_1 = 5;
$tw5->pfdeckind_1 = 1;
$tw5->pflev_1 = level_1;
$tw5->pfkind_1 = 1;
$tw5->keep_1 = 1;
}
} // with
enterid_1( lcp_4 );
lcp1_4 = lcp_4;
}
oldlev_4 = level_1;
oldtop_4 = top_1;
pushlvl_3( 0, lcp_4 );
parameterlist_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
, &lcp2_4 );
if( (lcp_4 != (NULL)) )
 /* &pointer Node */ (*lcp_4).pflist_1 = lcp2_4;
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 9 || $e == 13);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
}
level_1 = oldlev_4;
putdsps_1( oldtop_4 );
top_1 = oldtop_4;
}
else 
if( (sy_1 == (23)) )
{
lcp_4 = NULL;
insymbol_1(  );
if( !(forw_3) )
{
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
if( (sy_1 == (0)) )
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
insymbol_1(  );
}
else 
{
error_1( 2 );
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 9, &"         " );
}
$tw5->idtype_1 = NULL;
$tw5->next_1 = lcp1_4;
$tw5->klass_1 = 6;
$tw5->pfdeckind_1 = 1;
$tw5->pflev_1 = level_1;
$tw5->pfkind_1 = 1;
$tw5->keep_1 = 1;
}
} // with
enterid_1( lcp_4 );
lcp1_4 = lcp_4;
}
oldlev_4 = level_1;
oldtop_4 = top_1;
pushlvl_3( 0, lcp_4 );
parameterlist_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$set0; })
, &lcp2_4 );
if( (lcp_4 != (NULL)) )
 /* &pointer Node */ (*lcp_4).pflist_1 = lcp2_4;
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 16);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$set0; })
 );
}
if( (sy_1 == (16)) )
{
insymbol_1(  );
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp2_4 );
lsp_4 =  /* &pointer Node */ (*lcp2_4).idtype_1;
 /* &pointer Node */ (*lcp_4).idtype_1 = lsp_4;
if( (lsp_4 != (NULL)) )
if( !((({ const int $e =  /* &pointer Node */ (*lsp_4).form_1;
(0 /*@ (in) set test set node */ || $e == 2 || $e == 1 || $e == 0);})
)) )
{
error_1( 120 );
lsp_4 = NULL;
}
insymbol_1(  );
}
else 
error_1( 2 );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 9 || $e == 13);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
}
}
else 
error_1( 5 );
level_1 = oldlev_4;
putdsps_1( oldtop_4 );
top_1 = oldtop_4;
}
else 
{
if( (sy_1 == (22)) )
{
lkind_4 = 1;
insymbol_1(  );
}
else 
lkind_4 = 0;
lcp2_4 = NULL;
count_4 = 0;
do {
if( (sy_1 == (0)) )
{
if( !(forw_3) )
{
lcp_4 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( lcp_4 );
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp_4);
{
strassvf_1( &$tw5->name_1, /* bounds: */ 1, 250, &id_1 );
$tw5->idtype_1 = NULL;
$tw5->klass_1 = 2;
$tw5->vkind_1 = lkind_4;
$tw5->next_1 = lcp2_4;
$tw5->vlev_1 = level_1;
$tw5->keep_1 = 1;
$tw5->refer_1 = 0;
$tw5->threat_1 = 0;
$tw5->forcnt_1 = 0;
}
} // with
enterid_1( lcp_4 );
lcp2_4 = lcp_4;
count_4 = (count_4 + (1));
}
insymbol_1(  );
}
else 
error_1( 2 );
if(  /* [0..48] 3 */  /* merge left + right --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 16 || $e == 12);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
haveComma_4 = (sy_1 == (12));
if( haveComma_4 )
insymbol_1(  );
} while( ! !(haveComma_4));
if( (sy_1 == (16)) )
{
insymbol_1(  );
paramType_4( &lsp_4, 0 );
if( (lsp_4 != (NULL)) )
{
if( (lsp_4 != (NULL)) )
if( (lkind_4 == (0)) )
if( ( /* &pointer Node */ (*lsp_4).form_1 > (3)) )
if( filecomponent_2( lsp_4 ) )
error_1( 121 );
lcp3_4 = lcp2_4;
while( (lcp2_4 != (NULL)))
{
lcp_4 = lcp2_4;
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp2_4);
{
$tw5->idtype_1 = lsp_4;
}
} // with
lcp2_4 =  /* &pointer Node */ (*lcp2_4).next_1;
}
 /* &pointer Node */ (*lcp_4).next_1 = lcp1_4;
lcp1_4 = lcp3_4;
}
else 
{
error_1( 221 );
while( (lcp2_4 != (NULL)))
{
 /* &pointer Node */ (*lcp2_4).keep_1 = 0;
lcp2_4 =  /* &pointer Node */ (*lcp2_4).next_1;
}
}
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 9 || $e == 13);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
}
}
else 
{
error_1( 5 );
while( (lcp2_4 != (NULL)))
{
 /* &pointer Node */ (*lcp2_4).keep_1 = 0;
lcp2_4 =  /* &pointer Node */ (*lcp2_4).next_1;
}
}
}
if( (sy_1 == (13)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 23 || $e == 25 || $e == 22 || $e == 0);})
)) )
{
error_1( 7 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
 );
}
}
}
if( (sy_1 == (9)) )
{
insymbol_1(  );
if(  /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ !((({ const int $e = sy_1;
(0 /*@ (in) set->+ node*/ || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsy_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
) || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
));})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsy_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
}
else 
error_1( 4 );
lcp3_4 = NULL;
while( (lcp1_4 != (NULL)))
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*lcp1_4);
{
lcp2_4 = $tw5->next_1;
$tw5->next_1 = lcp3_4;
lcp3_4 = lcp1_4;
lcp1_4 = lcp2_4;
}
} // with
(*fpar_4) = lcp3_4;
}
else 
(*fpar_4) = NULL;
} /* parameterlist_3() */
void genCParams_3(ctp_1  parList_4, bool  withName_4) {
stp_1  /* form (2) */ lsp1_4, lsp_4;
lsp_4 = NULL;
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( (parList_4 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "void" );
$fp->flags = -2;
});
else 
{
do {
{ // with statement
struct identifier_1  *const $tw5 = & /* &pointer Node */ (*parList_4);
{
if( ($tw5->klass_1 == (2)) )
{
if( isConfArray_1( $tw5->idtype_1 ) )
{
if( ($tw5->idtype_1 != (lsp_4)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", " /* conf array */ " );
$fp->flags = -2;
});
lsp_4 = $tw5->idtype_1;
lsp1_4 = lsp_4;
do {
{ // with statement
struct structure_1  *const $tw6 = & /* &pointer Node */ (*lsp1_4);
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "const " );
$fp->flags = -2;
});
genCType_2( $tw6->inxtype_1, 0 );
writeId_1( $tw6->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", ", const " );
$fp->flags = -2;
});
genCType_2( $tw6->inxtype_1, 0 );
writeId_1( $tw6->highbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
lsp1_4 = $tw6->aeltype_1;
}
} // with
} while( ! !(isConfArray_1( lsp1_4 )));
}
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "void *const " );
$fp->flags = -2;
});
writeId_1( parList_4 );
({
text  *const $fp = &prc_1;
{char $c = 99;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
else 
{
genCType_2( $tw5->idtype_1, 0 );
if( withName_4 )
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( ($tw5->vkind_1 == (1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "*const " );
$fp->flags = -2;
});
if( withName_4 )
writeId_1( parList_4 );
}
}
else 
if( ($tw5->klass_1 == (5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", " /* proc */ void (*const " );
$fp->flags = -2;
});
writeId_1( parList_4 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCParams_3( $tw5->pflist_1, 0 );
}
else 
if( ($tw5->klass_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", " /* func */ " );
$fp->flags = -2;
});
genCType_2( $tw5->idtype_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " (*const " );
$fp->flags = -2;
});
writeId_1( parList_4 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCParams_3( $tw5->pflist_1, 0 );
}
else 
error_1( 10 );
parList_4 = $tw5->next_1;
}
} // with
if( (parList_4 != (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
} while( ! (parList_4 == (NULL)));
}
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
} /* genCParams_3() */
forw_3 = 0;
fsy_3 = sy_1;
funcDebug_3 = debug_1;
insymbol_1(  );
if( (sy_1 == (0)) )
{
searchsection_1( display_1.component[(unsigned)(top_1 - 0) ].fname_1, &lcp_3 );
if( (lcp_3 != (NULL)) )
{
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
if( ({ const int $e = $tw4->klass_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
 )
{
if( ($tw4->klass_1 == (5)) )
forw_3 = (($tw4->forwdecl_1 && (((fsy_3 == (25))))) && ((($tw4->pfkind_1 == (0)))));
else 
forw_3 = (($tw4->forwdecl_1 && (((fsy_3 == (23))))) && ((($tw4->pfkind_1 == (0)))));
if( !(forw_3) )
{
$tw4->ignore_1 = 1;
error_1( 160 );
}
}
}
} // with
}
}
if( !(forw_3) )
{
if( (fsy_3 == (25)) )
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
 /* &pointer Node */ (*lcp_3).klass_1 = 5;
}
else 
{
lcp_3 = calloc( 1, sizeof( struct identifier_1 ));
 /* &pointer Node */ (*lcp_3).klass_1 = 6;
}
ininam_1( lcp_3 );
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp_3);
{
$tw4->pfdeckind_1 = 1;
$tw4->pfkind_1 = 0;
if( (sy_1 == (0)) )
{
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 250, &id_1 );
$tw4->asgn_1 = 0;
$tw4->refer_1 = 0;
}
else 
{
error_1( 2 );
strassvf_1( &$tw4->name_1, /* bounds: */ 1, 8, &"        " );
$tw4->asgn_1 = 1;
$tw4->refer_1 = 1;
}
$tw4->idtype_1 = NULL;
$tw4->pfdeckind_1 = 1;
$tw4->pfkind_1 = 0;
$tw4->externl_1 = 0;
$tw4->pflev_1 = level_1;
$tw4->dbg_1 = funcDebug_3;
}
} // with
enterid_1( lcp_3 );
}
else 
{
lcp1_3 =  /* &pointer Node */ (*lcp_3).pflist_1;
while( (lcp1_3 != (NULL)))
{
lcp1_3 =  /* &pointer Node */ (*lcp1_3).next_1;
}
}
if( (sy_1 == (0)) )
insymbol_1(  );
oldlev_3 = level_1;
oldtop_3 = top_1;
pushlvl_3( forw_3, lcp_3 );
parameterlist_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
, &lcp1_3 );
if( !(forw_3) )
 /* &pointer Node */ (*lcp_3).pflist_1 = lcp1_3;
if( (sy_1 == (16)) )
{
if( (fsy_3 == (25)) )
error_1( 14 );
insymbol_1(  );
if( (sy_1 == (0)) )
{
if( forw_3 )
error_1( 122 );
top_1 = (top_1 - (1));
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$set0; })
, &lcp1_3 );
top_1 = (top_1 + (1));
lsp_3 =  /* &pointer Node */ (*lcp1_3).idtype_1;
 /* &pointer Node */ (*lcp_3).idtype_1 = lsp_3;
if( (lsp_3 != (NULL)) )
if( !((({ const int $e =  /* &pointer Node */ (*lsp_3).form_1;
(0 /*@ (in) set test set node */ || $e == 2 || $e == 1 || $e == 0);})
)) )
{
error_1( 120 );
 /* &pointer Node */ (*lcp_3).idtype_1 = NULL;
}
insymbol_1(  );
}
else 
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
}
}
else 
if( (((fsy_3 == (23))) && (!(forw_3))) )
error_1( 123 );
if( (sy_1 == (13)) )
insymbol_1(  );
else 
error_1( 14 );
if( (((sy_1 == (0))) && (strequri_1( ({restr_1 $str = {{"forward  "}}; $str; }), &id_1 ))) )
{
if( forw_3 )
error_1( 161 );
else 
{
 /* &pointer Node */ (*lcp_3).forwdecl_1 = 1;
lforwcnt_2 = (lforwcnt_2 + (1));
if( ( /* &pointer Node */ (*lcp_3).lev_1 > (1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "auto " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "static " );
$fp->flags = -2;
});
if( ( /* &pointer Node */ (*lcp_3).klass_1 == (5)) )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "void" );
$fp->flags = -2;
});
else 
genCType_2(  /* &pointer Node */ (*lcp_3).idtype_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( lcp_3 );
genCParams_3(  /* &pointer Node */ (*lcp_3).pflist_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
insymbol_1(  );
if( (sy_1 == (13)) )
insymbol_1(  );
else 
error_1( 14 );
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
else 
if( (((sy_1 == (0))) && (strequri_1( ({restr_1 $str = {{"external "}}; $str; }), &id_1 ))) )
{
if( forw_3 )
{
error_1( 252 );
lforwcnt_2 = (lforwcnt_2 - (1));
 /* &pointer Node */ (*lcp_3).forwdecl_1 = 0;
}
else 
{
 /* &pointer Node */ (*lcp_3).externl_1 = 1;
 /* &pointer Node */ (*lcp_3).pfname_1 = 0;
 /* &pointer Node */ (*lcp_3).forwdecl_1 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "extern " );
$fp->flags = -2;
});
if( ( /* &pointer Node */ (*lcp_3).klass_1 == (5)) )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "void" );
$fp->flags = -2;
});
else 
genCType_2(  /* &pointer Node */ (*lcp_3).idtype_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( lcp_3 );
genCParams_3(  /* &pointer Node */ (*lcp_3).pflist_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
insymbol_1(  );
if( (sy_1 == (13)) )
insymbol_1(  );
else 
error_1( 14 );
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_2.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
else 
{
if( forw_3 )
{
lforwcnt_2 = (lforwcnt_2 - (1));
}
 /* &pointer Node */ (*lcp_3).forwdecl_1 = 0;
if( ( /* &pointer Node */ (*lcp_3).pflev_1 == (1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "static " );
$fp->flags = -2;
});
if( ( /* &pointer Node */ (*lcp_3).klass_1 == (5)) )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "void" );
$fp->flags = -2;
});
else 
genCType_2(  /* &pointer Node */ (*lcp_3).idtype_1, 0 );
({
text  *const $fp = &prc_1;
{char $c = 32;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( lcp_3 );
genCParams_3(  /* &pointer Node */ (*lcp_3).pflist_1, 1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ( /* &pointer Node */ (*lcp_3).klass_1 == (6)) )
{
if( funcDebug_3 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "struct { bool valid; " );
$fp->flags = -2;
});
genCType_2(  /* &pointer Node */ (*lcp_3).idtype_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", " value; } $result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lcp_3).pflev_1 );
/* const string, len is 14 */
fprintf( $fp->f, "%s", " = {.valid=0};" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
genCType_2(  /* &pointer Node */ (*lcp_3).idtype_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "$result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lcp_3).pflev_1 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
lcp1_3 =  /* &pointer Node */ (*lcp_3).pflist_1;
lsp_3 = NULL;
while( (lcp1_3 != (NULL)))
{
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp1_3);
{
lcp2_3 = $tw4->next_1;
if( isConfArray_1( $tw4->idtype_1 ) )
{
if( (lsp_3 != ($tw4->idtype_1)) )
{
lsp_3 = $tw4->idtype_1;
genCType_2( $tw4->idtype_1, 0 );
}
if( ( /* &pointer Node */ (*lcp1_3).vkind_1 == (1)) )
({
text  *const $fp = &prc_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( lcp1_3 );
if( (((lcp2_3 != (NULL))) && ((( /* &pointer Node */ (*lcp2_3).idtype_1 == (lsp_3))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} // with
lcp1_3 = lcp2_3;
}
lcp1_3 =  /* &pointer Node */ (*lcp_3).pflist_1;
while( (lcp1_3 != (NULL)))
{
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*lcp1_3);
{
if( isConfArray_1( $tw4->idtype_1 ) )
{
writeId_1( lcp1_3 );
if( ( /* &pointer Node */ (*lcp1_3).vkind_1 == (1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " = (typeof(" );
$fp->flags = -2;
});
writeId_1( lcp1_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "))" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", " = *(typeof(" );
$fp->flags = -2;
});
writeId_1( lcp1_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ")*)" );
$fp->flags = -2;
});
}
writeId_1( lcp1_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "c; /* initialise conf array */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} // with
lcp1_3 =  /* &pointer Node */ (*lcp1_3).next_1;
}
do {
 /* [0..48] 3 */ block_1( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, 13, lcp_3 );
if( (sy_1 == (13)) )
{
if( prtables_1 )
printtables_1( 0 );
if( display_1.component[(unsigned)(level_1 - 0) ].hasFile_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "_Pcleanup();" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "_Phead=_Pcudat.link;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( ( /* &pointer Node */ (*lcp_3).klass_1 == (6)) )
{
if( (lcp_3 != (ufctptr_1)) )
if( !( /* &pointer Node */ (*lcp_3).asgn_1) )
error_1( 193 );
if( funcDebug_3 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "if(!$result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lcp_3).pflev_1 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ".valid)" );
/* const string, len is 19 */
fprintf( $fp->f, "%s", "_Pfatal(\"function '" );
});
writev_1( &prc_1,  /* &pointer Node */ (*lcp_3).name_1, lenpv_1(  /* &pointer Node */ (*lcp_3).name_1 ) );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "' has no result\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "return $result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lcp_3).pflev_1 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ".value;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "return $result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lcp_3).pflev_1 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "} /* " );
$fp->flags = -2;
});
writeId_1( lcp_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "() */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 23 || $e == 25 || $e == 31);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
else 
error_1( 14 );
} while( ! /* eof/eoln on text file */ ((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 23 || $e == 25 || $e == 31);})
) || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
}
level_1 = oldlev_3;
putdsps_1( oldtop_3 );
top_1 = oldtop_3;
} /* procdeclaration_2() */
void checkforw_2(ctp_1  fcp_3) {
if( (fcp_3 != (NULL)) )
{ // with statement
struct identifier_1  *const $tw4 = & /* &pointer Node */ (*fcp_3);
{
checkforw_2( $tw4->llink_1 );
if( ({ const int $e = $tw4->klass_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
 )
if( ($tw4->pfdeckind_1 == (1)) )
if( ($tw4->pfkind_1 == (0)) )
if( $tw4->forwdecl_1 )
{
({
text  *const $fp = &output_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", "**** undeclared forward routine: " );
$fp->flags = -2;
});
writev_1( &output_1, $tw4->name_1, lenpv_1( $tw4->name_1 ) );
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
checkforw_2( $tw4->rlink_1 );
}
} // with
} /* checkforw_2() */
void body_2(setofsys_1  fsys_3) {
ctp_1  /* form (2) */ llcp_3;
struct idstr_1  /* form (4) */ saveid_3;
lbp_1  /* form (2) */ llp_3;
extfilep_1  /* form (2) */ fp_3;
bool  /* form (0) */ test_3;
bool  /* form (0) */ printed_3;
void addlvl_3(void) {
stalvl_2 = (stalvl_2 + (1));
} /* addlvl_3() */
void sublvl_3(void) {
lbp_1  /* form (2) */ llp_4;
stalvl_2 = (stalvl_2 - (1));
llp_4 = display_1.component[(unsigned)(top_1 - 0) ].flabel_1;
while( (llp_4 != (NULL)))
{ // with statement
struct labl_1  *const $tw5 = & /* &pointer Node */ (*llp_4);
{
if( ($tw5->slevel_1 > (stalvl_2)) )
$tw5->bact_1 = 0;
if( ($tw5->refer_1 && ((($tw5->minlvl_1 > (stalvl_2))))) )
$tw5->minlvl_1 = stalvl_2;
llp_4 = $tw5->nextlab_1;
}
} // with
} /* sublvl_3() */
void genCloseFiles_3(stp_1  fty_4,  /* proc */ void (*const prVar_4)(void)) {
// ++ chainp ++pointer type
// ++ chain ++record
/* ++ member next type chainp */
// ++ chainp ++pointer type
/* ++recursive struct, state is 0 */
struct chain_4;

// type declaration chainp state is 0
typedef /* type id chainp */ /* +pointer */ struct chain_4 *chainp_4;
/* ++ member ty type stp */

// type declaration chain state is 1
typedef /* type id chain */ /* +record */  struct chain_4 {
chainp_4 next_4;
stp_1 ty_4;
} chain_4;

chainp_4  /* form (2) */ head_4;
int  /* form (0) */ arrayCount_4;
void buildTypeChain_4(chainp_4  x_5,  /* proc */ void (*const prParent_5)(void)) {
chainp_4  /* form (2) */ t1_5, t_5;
int  /* form (0) */ hi_5, lo_5;
stp_1  /* form (2) */ lsp_5;
void genFileRef_5(chainp_4  x_6) {
if( (x_6 == (NULL)) )
(*prParent_5)(  );
else 
{
{ // with statement
struct chain_4  *const $tw7 = & /* &pointer Node */ (*x_6);
{
genFileRef_5( $tw7->next_4 );
if( ( /* &pointer Node */ (*$tw7->ty_4).form_1 == (4)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", ".component[$i" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
{char $c = 93;
fprintf( $fp->f, "%c", $c); };
});
arrayCount_4 = (arrayCount_4 + (1));
}
else 
if( ( /* &pointer Node */ (*$tw7->ty_4).form_1 == (5)) )
{
({
text  *const $fp = &prc_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
} // with
}
} /* genFileRef_5() */
void bRec_5(ctp_1  n_6, chainp_4  x_6) {
chainp_4  /* form (2) */ t_6;
void prn_6(void) {
genFileRef_5( x_6 );
writeId_1( n_6 );
} /* prn_6() */
if( (n_6 != (NULL)) )
{
t_6 = calloc( 1, sizeof( struct chain_4 ));
 /* &pointer Node */ (*t_6).ty_4 =  /* &pointer Node */ (*n_6).idtype_1;
 /* &pointer Node */ (*t_6).next_4 = NULL;
buildTypeChain_4( t_6, prn_6 );
({ typeof(t_6) $p=t_6; 
free($p);});
bRec_5(  /* &pointer Node */ (*n_6).llink_1, x_6 );
bRec_5(  /* &pointer Node */ (*n_6).rlink_1, x_6 );
}
} /* bRec_5() */
lsp_5 =  /* &pointer Node */ (*x_5).ty_4;
if( ( /* &pointer Node */ (*lsp_5).form_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "_Pclose_file((text*)&" );
$fp->flags = -2;
});
arrayCount_4 = 0;
genFileRef_5( x_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( filecomponent_2( lsp_5 ) )
{
if( ( /* &pointer Node */ (*lsp_5).form_1 == (4)) )
{
getbounds_1(  /* &pointer Node */ (*lsp_5).inxtype_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "{ int $i" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "; for($i" );
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "=0" );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "; $i" );
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "<=" );
fprintf( $fp->f, "%1i", (int)(hi_5 - (lo_5)) );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "; $i" );
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "++) {" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
arrayCount_4 = (arrayCount_4 + (1));
t_5 = calloc( 1, sizeof( struct chain_4 ));
 /* &pointer Node */ (*t_5).next_4 = x_5;
 /* &pointer Node */ (*t_5).ty_4 =  /* &pointer Node */ (*lsp_5).aeltype_1;
buildTypeChain_4( t_5, prParent_5 );
t1_5 = t_5;
t_5 =  /* &pointer Node */ (*t_5).next_4;
({ typeof(t1_5) $p=t1_5; 
free($p);});
arrayCount_4 = (arrayCount_4 - (1));
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "}} // for $i" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)arrayCount_4 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ( /* &pointer Node */ (*lsp_5).form_1 == (5)) )
{
bRec_5(  /* &pointer Node */ (*lsp_5).fstfld_1, x_5 );
}
}
} /* buildTypeChain_4() */
if( (toterr_1 == (0)) )
{
arrayCount_4 = 0;
head_4 = calloc( 1, sizeof( struct chain_4 ));
 /* &pointer Node */ (*head_4).next_4 = NULL;
 /* &pointer Node */ (*head_4).ty_4 = fty_4;
buildTypeChain_4( head_4, prVar_4 );
({ typeof(head_4) $p=head_4; 
free($p);});
}
} /* genCloseFiles_3() */
void statement_3(setofsys_1  fsys_4) {
ctp_1  /* form (2) */ lcp_4;
lbp_1  /* form (2) */ llp_4;
bool  /* form (0) */ mergeFixedSets_4;
auto void genCExpr_4(exprTreePtr_1 );
void genSetPtr_4(exprTreePtr_1  se_5) {
if( ( /* &pointer Node */ (*se_5).n_1 == (17)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "$setTmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*se_5).SetNr_1 );
});
}
else 
{
genCExpr_4( se_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", ".element" );
$fp->flags = -2;
});
}
} /* genSetPtr_4() */
void genTypeOf_4(exprTreePtr_1  t_5) {
bool  /* form (0) */ savDebug_5, savMemDebug_5, savChkVar_5;
savChkVar_5 = chkvar_1;
savMemDebug_5 = memDebug_1;
savDebug_5 = debug_1;
chkvar_1 = 0;
memDebug_1 = 0;
debug_1 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "typeof(" );
$fp->flags = -2;
});
genCExpr_4( t_5 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
chkvar_1 = savChkVar_5;
memDebug_1 = savMemDebug_5;
debug_1 = savDebug_5;
} /* genTypeOf_4() */
void genfp_4(stp_1  fType_5, exprTreePtr_1  fParent_5) {
if( (fType_5 != (NULL)) )
{
if( (fType_5 == (textptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "text " );
$fp->flags = -2;
});
else 
if( ( /* &pointer Node */ (*fType_5).typeName_1 == (NULL)) )
{
genTypeOf_4( fParent_5 );
}
else 
{
genCType_2( fType_5, 0 );
}
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", " *const $fp = &" );
$fp->flags = -2;
});
genCExpr_4( fParent_5 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* genfp_4() */
void checkdefined_4(void) {
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 47 */
fprintf( $fp->f, "%s", "if($fp->f == NULL) _Pfatal(\"file is undefined\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* checkdefined_4() */
void checkWritable_4(void) {
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 65 */
fprintf( $fp->f, "%s", "if($fp->flags >= 0) _Pfatal( \"writing to file opened for input\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* checkWritable_4() */
void checkReadable_4(void) {
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 67 */
fprintf( $fp->f, "%s", "if($fp->flags < 0) _Pfatal( \"reading from file opened for output\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* checkReadable_4() */
auto bool  checkSet_4(exprTreePtr_1 , int , int );
void addLists_4(exprTreePtr_1  t_5, int  loBound_5, int  hiBound_5, int  i_5) {
varElementPtr_1  /* form (2) */ v1_5;
constElementPtr_1  /* form (2) */ c1_5;
if( (((t_5 != (NULL))) && ((( /* &pointer Node */ (*t_5).n_1 == (10))))) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*t_5);
{
v1_5 = $tw6->varList_1;
while( (v1_5 != (NULL)))
{
{ // with statement
struct varElement_1  *const $tw7 = & /* &pointer Node */ (*v1_5);
{
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( $tw7->isRange_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "int $l = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->elvalue_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "; if( $l<" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", " ) $l=" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "int $h = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->hiValue_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "; if( $h>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", " ) $h=" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "const int $loPos = ($l>>3) - (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ">>3);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", "const int $loMask = (~0<<($l&7));" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "const int $hiPos = ($h>>3) - (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ">>3);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "const int $hiMask = ((uint8_t)~0)>>(7-($h&7));" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "if( $hiPos==$loPos) $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 30 */
fprintf( $fp->f, "%s", "[$hiPos] |= ($hiMask&$loMask);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "else if( $hiPos>$loPos) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "int $i;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$hiPos] |= $hiMask;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$loPos] |= $loMask;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "for( $i=$loPos+1; $i<$hiPos; $i++ ) $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$i] = (uint8_t)~0;}" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $e = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->elvalue_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "if( $e>=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", " && $e<=" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", " ) $s" );
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 12 */
fprintf( $fp->f, "%s", "[($e>>3) - (" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 25 */
fprintf( $fp->f, "%s", ">>3)] |= (1<<($e&7)); });" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
v1_5 =  /* &pointer Node */ (*v1_5).next_1;
}
c1_5 = $tw6->constList_1;
while( (c1_5 != (NULL)))
{
{ // with statement
struct constElement_1  *const $tw7 = & /* &pointer Node */ (*c1_5);
{
if( $tw7->isRange_1 )
{
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw7->elvalue_1 < (loBound_5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "const int $loPos = 0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "const int $loMask = (~0<<(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "const int $loPos = (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw7->elvalue_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3) - (" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ">>3);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "const int $loMask = (~0<<(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw7->elvalue_1 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw7->hiValue_1 > (hiBound_5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "const int $hiPos = (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3) - (" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ">>3);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "const int $hiMask = " );
$fp->flags = -2;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "((uint8_t)~0)>>(7-(" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "const int $hiPos = (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw7->hiValue_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3) - (" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ">>3);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "const int $hiMask = " );
$fp->flags = -2;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "((uint8_t)~0)>>(7-(" );
fprintf( $fp->f, "%1i", (int)$tw7->hiValue_1 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "if( $hiPos==$loPos) $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 30 */
fprintf( $fp->f, "%s", "[$hiPos] |= ($hiMask&$loMask);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "else if( $hiPos>$loPos) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "int $i;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$hiPos] |= $hiMask;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$loPos] |= $loMask;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "for( $i=$loPos+1; $i<$hiPos; $i++ ) $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 20 */
fprintf( $fp->f, "%s", "[$i] = (uint8_t)~0;}" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ((($tw7->elvalue_1 >= (loBound_5))) && ((($tw7->elvalue_1 <= (hiBound_5))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "[(" );
fprintf( $fp->f, "%1i", (int)$tw7->elvalue_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3) - (" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 14 */
fprintf( $fp->f, "%s", ">>3)] |= (1<<(" );
fprintf( $fp->f, "%1i", (int)$tw7->elvalue_1 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
;
}
}
}
} // with
c1_5 =  /* &pointer Node */ (*c1_5).next_1;
}
}
} // with
}
} /* addLists_4() */
void constructSet_4(exprTreePtr_1  t_5, int  loBound_5, int  hiBound_5, int  i_5) {
int  /* form (0) */ hi0_5, lo0_5;
int  /* form (0) */ hi1_5, lo1_5;
int  /* form (0) */ savHi_5, savLo_5;
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "/* dest bounds are " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", " .. " );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*t_5);
{
if( ($tw6->n_1 == (10)) )
{
if( ($tw6->sparent_1 != (NULL)) )
{
getbounds_1( $tw6->seltype_1, &lo1_5, &hi1_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "/* src bounds are " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo1_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)hi1_5 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (((hi1_5 < (hiBound_5))) || (((lo1_5 > (loBound_5))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "memset($s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ", 0, (" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1 );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (hiBound_5 < (hi1_5)) )
hi0_5 = hiBound_5;
else 
hi0_5 = hi1_5;
if( (loBound_5 > (lo1_5)) )
lo0_5 = loBound_5;
else 
lo0_5 = lo1_5;
if( (lo0_5 <= (hi0_5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "memmove($s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "+(" );
fprintf( $fp->f, "%1i", (int)lo0_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3), " );
});
genSetPtr_4( $tw6->sparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "+(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo0_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo1_5 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ">>3), (" );
fprintf( $fp->f, "%1i", (int)hi0_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo0_5 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3)+1);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", "[0]&=(~0<<(" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "[(" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 26 */
fprintf( $fp->f, "%s", ">>3)]&=((uint8_t)~0)>>(7-(" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "&7));" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "memset($s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)i_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ", 0, (" );
fprintf( $fp->f, "%1i", (int)hiBound_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)loBound_5 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1 );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
addLists_4( t_5, loBound_5, hiBound_5, i_5 );
}
else 
if( ($tw6->n_1 == (2)) )
{
$tw6->resNr_1 = i_5;
savHi_5 = $tw6->resHi_1;
savLo_5 = $tw6->resLo_1;
$tw6->resHi_1 = hiBound_5;
$tw6->resLo_1 = loBound_5;
genCExpr_4( t_5 );
$tw6->resHi_1 = savHi_5;
$tw6->resLo_1 = savLo_5;
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", ">>> ConstructSet: unexpected node kind(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw6->n_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
} /* constructSet_4() */
void findResBounds_4(exprTreePtr_1  t_5) {
int  /* form (0) */ resHiRight_5, resHiLeft_5;
int  /* form (0) */ resLoRight_5, resLoLeft_5;
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*t_5);
{
if( ($tw6->n_1 != (2)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", ">>> setOpNode expected" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ( /* &pointer Node */ (*$tw6->setLeft_1).n_1 == (2)) )
{
resHiLeft_5 =  /* &pointer Node */ (*$tw6->setLeft_1).resHi_1;
resLoLeft_5 =  /* &pointer Node */ (*$tw6->setLeft_1).resLo_1;
}
else 
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*$tw6->setLeft_1);
{
resHiLeft_5 = -2147483647;
resLoLeft_5 = 2147483647;
if( ($tw7->n_1 == (10)) )
{
if( ($tw7->seltype_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", " /* >>> left set empty */ " );
$fp->flags = -2;
});
}
else 
{
getbounds_1( $tw7->seltype_1, &resLoLeft_5, &resHiLeft_5 );
if( ($tw7->constList_1 != (NULL)) )
{
if( ($tw7->sparent_1 == (NULL)) )
{
resLoLeft_5 = $tw7->listLo_1;
resHiLeft_5 = $tw7->listHi_1;
}
else 
{
if( (resLoLeft_5 > ($tw7->listLo_1)) )
resLoLeft_5 = $tw7->listLo_1;
if( (resHiLeft_5 < ($tw7->listHi_1)) )
resHiLeft_5 = $tw7->listHi_1;
}
}
if( ($tw7->varList_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->seltype_1).form_1 == (1)) )
getbounds_1(  /* &pointer Node */ (*$tw7->seltype_1).rangetype_1, &resLoLeft_5, &resHiLeft_5 );
else 
getbounds_1( $tw7->seltype_1, &resLoLeft_5, &resHiLeft_5 );
}
}
}
}
} // with
}
if( ( /* &pointer Node */ (*$tw6->setRight_1).n_1 == (2)) )
{
resHiRight_5 =  /* &pointer Node */ (*$tw6->setRight_1).resHi_1;
resLoRight_5 =  /* &pointer Node */ (*$tw6->setRight_1).resLo_1;
}
else 
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*$tw6->setRight_1);
{
resHiRight_5 = -2147483647;
resLoRight_5 = 2147483647;
if( ($tw7->n_1 == (10)) )
{
if( ($tw7->seltype_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", " /* >>> right set empty */ " );
$fp->flags = -2;
});
}
else 
{
getbounds_1( $tw7->seltype_1, &resLoRight_5, &resHiRight_5 );
if( ($tw7->constList_1 != (NULL)) )
{
if( ($tw7->sparent_1 == (NULL)) )
{
resLoRight_5 = $tw7->listLo_1;
resHiRight_5 = $tw7->listHi_1;
}
else 
{
if( (resLoRight_5 > ($tw7->listLo_1)) )
resLoRight_5 = $tw7->listLo_1;
if( (resHiRight_5 < ($tw7->listHi_1)) )
resHiRight_5 = $tw7->listHi_1;
}
}
if( ($tw7->varList_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->seltype_1).form_1 == (1)) )
getbounds_1(  /* &pointer Node */ (*$tw7->seltype_1).rangetype_1, &resLoRight_5, &resHiRight_5 );
else 
getbounds_1( $tw7->seltype_1, &resLoRight_5, &resHiRight_5 );
}
}
}
}
} // with
}
if( ($tw6->setOpKind_1 == (6)) )
{
$tw6->resHi_1 = resHiLeft_5;
$tw6->resLo_1 = resLoLeft_5;
}
else 
if( ($tw6->setOpKind_1 == (0)) )
{
if( (resHiRight_5 < (resHiLeft_5)) )
$tw6->resHi_1 = resHiRight_5;
else 
$tw6->resHi_1 = resHiLeft_5;
if( (resLoRight_5 > (resLoLeft_5)) )
$tw6->resLo_1 = resLoRight_5;
else 
$tw6->resLo_1 = resLoLeft_5;
}
else 
if( ($tw6->setOpKind_1 == (9)) )
{
$tw6->resHi_1 = resHiLeft_5;
$tw6->resLo_1 = resLoLeft_5;
}
else 
if( ($tw6->setOpKind_1 == (10)) )
{
$tw6->resHi_1 = resHiRight_5;
$tw6->resLo_1 = resLoRight_5;
}
else 
{
if( (resHiRight_5 > (resHiLeft_5)) )
$tw6->resHi_1 = resHiRight_5;
else 
$tw6->resHi_1 = resHiLeft_5;
if( (resLoRight_5 < (resLoLeft_5)) )
$tw6->resLo_1 = resLoRight_5;
else 
$tw6->resLo_1 = resLoLeft_5;
}
if( ((($tw6->resHi_1 == (2147483647))) && ((($tw6->resLo_1 == (-2147483647))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", " /* >>> indeterminate set */" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " /* [" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resLo_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)$tw6->resHi_1 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", "] 0 */ " );
});
}
}
} // with
} /* findResBounds_4() */
auto void freeTree_4(exprTreePtr_1 );
void genCExpr_4(exprTreePtr_1  t_5) {
int  /* form (0) */ hi_5, lo_5;
int  /* form (0) */ savHi_5, savLo_5;
exprTreePtr_1  /* form (2) */ t1_5;
pfParamPtr_1  /* form (2) */ parPtr_5;
stp_1  /* form (2) */ lsp2_5, lsp1_5, lsp_5;
bool  /* form (0) */ test_5;
bool  /* form (0) */ sav_5;
exprTreePtr_1  /* form (2) */ second_5, first_5;
void isMember_5(exprTreePtr_1  t_6) {
int  /* form (0) */ hi_6, lo_6;
varElementPtr_1  /* form (2) */ v1_6;
constElementPtr_1  /* form (2) */ c1_6;
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "(0 " );
$fp->flags = -2;
});
if( (t_6 != (NULL)) )
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t_6);
{
if( ($tw7->n_1 == (2)) )
{
if( ($tw7->setOpKind_1 == (5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/*@ (in) set->+ node*/" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " || " );
$fp->flags = -2;
});
isMember_5( $tw7->setLeft_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " || " );
$fp->flags = -2;
});
isMember_5( $tw7->setRight_1 );
}
else 
if( ($tw7->setOpKind_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/*@ (in) set->- node*/" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " || ((" );
$fp->flags = -2;
});
isMember_5( $tw7->setLeft_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ") && !(" );
$fp->flags = -2;
});
isMember_5( $tw7->setRight_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "))" );
$fp->flags = -2;
});
}
else 
if( ($tw7->setOpKind_1 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/*@ (in) set->* node*/" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " || ((" );
$fp->flags = -2;
});
isMember_5( $tw7->setLeft_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", ") && (" );
$fp->flags = -2;
});
isMember_5( $tw7->setRight_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "))" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", ">>> unknown set operator: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw7->setOpKind_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
if( ($tw7->n_1 == (10)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "/*@ (in) set test set node */" );
$fp->flags = -2;
});
if( ($tw7->sparent_1 != (NULL)) )
{
getbounds_1( $tw7->seltype_1, &lo_6, &hi_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " || (($e>=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", ") && ($e<=" );
fprintf( $fp->f, "%1i", (int)hi_6 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ") && ((" );
});
genSetPtr_4( $tw7->sparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "[($e>>3) - (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 28 */
fprintf( $fp->f, "%s", ">>3)] & (1<<($e&7))) != 0 ))" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
v1_6 = $tw7->varList_1;
while( (v1_6 != (NULL)))
{
{ // with statement
struct varElement_1  *const $tw8 = & /* &pointer Node */ (*v1_6);
{
if( $tw8->isRange_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", " || (( $e >= " );
$fp->flags = -2;
});
genCExpr_4( $tw8->elvalue_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " &&  $e <= " );
$fp->flags = -2;
});
genCExpr_4( $tw8->hiValue_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " ))" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " || $e == " );
$fp->flags = -2;
});
genCExpr_4( $tw8->elvalue_1 );
}
}
} // with
v1_6 =  /* &pointer Node */ (*v1_6).next_1;
}
c1_6 = $tw7->constList_1;
while( (c1_6 != (NULL)))
{
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*c1_6);
{
if( $tw8->isRange_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", " || ( $e >= " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw8->elvalue_1 );
/* const string, len is 12 */
fprintf( $fp->f, "%s", " &&   $e <= " );
fprintf( $fp->f, "%1i", (int)$tw8->hiValue_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", " )" );
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " || $e == " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw8->elvalue_1 );
});
}
}
} // with
c1_6 =  /* &pointer Node */ (*c1_6).next_1;
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", ">>> set expression expected (3), node is " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw7->n_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} // with
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
} /* isMember_5() */
bool  isStdMaFun_5(ctp_1  node_6, tStdNames_1  fn_6) {
bool $result5;
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*node_6);
{
$result5 = (((($tw7->pfkind_1 == (0))) && ($tw7->externl_1)) && ((($tw7->pfname_1 == (fn_6)))));
}
} // with
return $result5;
} /* isStdMaFun_5() */
if( (t_5 != (NULL)) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*t_5);
{
switch( $tw6->n_1 ) {
case 0 :
{
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( ($tw6->binOpKind_1 == (4)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "{ const int $d = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->right_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "if($d==0) _Pfatal(\"zero divisor in mod\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $a = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->left_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " % $d;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 48 */
fprintf( $fp->f, "%s", "($d>0)? (($a>=0)? $a: $a+$d): ($a>0? $a+$d: $a);" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ((debug_1 && ((($tw6->binOpType_1 == (intptr_1))))) && ((({ const int $e = $tw6->binOpKind_1;
(0 /*@ (in) set test set node */ || $e == 0 || $e == 6 || $e == 5);})
))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "{const int $a=" );
$fp->flags = -2;
});
genCExpr_4( $tw6->left_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", ", $b=" );
$fp->flags = -2;
});
genCExpr_4( $tw6->right_1 );
switch( $tw6->binOpKind_1 ) {
case 5 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "; const int $res=$a+$b;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "if(((~($a^$b))&($a^$res)) < 0)" );
$fp->flags = -2;
/* const string, len is 36 */
fprintf( $fp->f, "%s", " _Pfatal(\"integer overflow on add\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 6 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "; const int $res=$a-$b;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "if((($a^$b)&($a^$res)) < 0)" );
$fp->flags = -2;
/* const string, len is 41 */
fprintf( $fp->f, "%s", " _Pfatal(\"integer overflow on subtract\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 0 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "; const int $res=$a*$b;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 48 */
fprintf( $fp->f, "%s", "if(($b>1 && ($a>INT_MAX/$b || $a<INT_MIN/$b)) ||" );
$fp->flags = -2;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "($b<-1 && ($a>INT_MIN/$b || $a<INT_MAX/$b)) ||" );
/* const string, len is 25 */
fprintf( $fp->f, "%s", "($b==-1 && $a==INT_MIN) )" );
/* const string, len is 41 */
fprintf( $fp->f, "%s", " _Pfatal(\"integer overflow on multiply\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
} /* switch */
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "; $res;}" );
$fp->flags = -2;
});
}
else 
{
genCExpr_4( $tw6->left_1 );
switch( $tw6->binOpKind_1 ) {
case 0 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " * " );
$fp->flags = -2;
});
break;
case 1 :
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " / (double)" );
$fp->flags = -2;
});
break;
case 3 :
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", " / (int)" );
$fp->flags = -2;
});
break;
case 2 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " && " );
$fp->flags = -2;
});
break;
case 5 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " + " );
$fp->flags = -2;
});
break;
case 6 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " - " );
$fp->flags = -2;
});
break;
case 7 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " || " );
$fp->flags = -2;
});
break;
case 8 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " < " );
$fp->flags = -2;
});
break;
case 9 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " <= " );
$fp->flags = -2;
});
break;
case 11 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " > " );
$fp->flags = -2;
});
break;
case 10 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " >= " );
$fp->flags = -2;
});
break;
case 12 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " != " );
$fp->flags = -2;
});
break;
case 13 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " == " );
$fp->flags = -2;
});
break;
} /* switch */
if( (debug_1 && ((($tw6->binOpKind_1 == (3))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "({ int $d = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->right_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "if($d==0) _Pfatal(\"integer division by zero\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " $d;})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (debug_1 && ((($tw6->binOpKind_1 == (1))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "({ double $d = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->right_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 48 */
fprintf( $fp->f, "%s", "if(fabs($d)<=0) _Pfatal(\"real division by zero\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " $d;})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( $tw6->right_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
break;
case 1 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "(strncmp(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->strLeft_1 );
if( $tw6->lvar_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", ".component" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
genCExpr_4( $tw6->strRight_1 );
if( $tw6->rvar_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", ".component" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
fprintf( $fp->f, "%i", (int)$tw6->slen_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ") " );
});
switch( $tw6->strOpKind_1 ) {
case 8 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "< 0" );
$fp->flags = -2;
});
break;
case 9 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "<= 0" );
$fp->flags = -2;
});
break;
case 11 :
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "> 0" );
$fp->flags = -2;
});
break;
case 10 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", ">= 0" );
$fp->flags = -2;
});
break;
case 12 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "!= 0" );
$fp->flags = -2;
});
break;
case 13 :
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "== 0" );
$fp->flags = -2;
});
break;
} /* switch */
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
break;
case 2 :
{
if( ($tw6->setOpKind_1 == (14)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $e = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->setLeft_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
isMember_5( $tw6->setRight_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ";})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (($tw6->setOpKind_1 == (5))) )
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*$tw6->setLeft_1);
{
if( ((($tw7->n_1 == (10))) && ((($tw7->sparent_1 == (NULL))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "/* @+swapped left & right*/ " );
$fp->flags = -2;
});
first_5 =  /* &pointer Node */ (*t_5).setRight_1;
second_5 =  /* &pointer Node */ (*t_5).setLeft_1;
}
else 
{
first_5 =  /* &pointer Node */ (*t_5).setLeft_1;
second_5 =  /* &pointer Node */ (*t_5).setRight_1;
}
}
} // with
if( ( /* &pointer Node */ (*first_5).n_1 == (2)) )
{
savHi_5 =  /* &pointer Node */ (*first_5).resHi_1;
savLo_5 =  /* &pointer Node */ (*first_5).resLo_1;
 /* &pointer Node */ (*first_5).resNr_1 = $tw6->resNr_1;
 /* &pointer Node */ (*first_5).resHi_1 = $tw6->resHi_1;
 /* &pointer Node */ (*first_5).resLo_1 = $tw6->resLo_1;
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "/*@+set->left op node*/" );
$fp->flags = -2;
});
genCExpr_4( first_5 );
 /* &pointer Node */ (*first_5).resHi_1 = savHi_5;
 /* &pointer Node */ (*first_5).resLo_1 = savLo_5;
}
else 
if( ( /* &pointer Node */ (*first_5).n_1 == (10)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "/*@+set construct left set*/" );
$fp->flags = -2;
});
constructSet_4( first_5, $tw6->resLo_1, $tw6->resHi_1, $tw6->resNr_1 );
}
if( ((( /* &pointer Node */ (*second_5).n_1 == (10))) && ((( /* &pointer Node */ (*second_5).sparent_1 == (NULL))))) )
{
addLists_4( second_5, $tw6->resLo_1, $tw6->resHi_1, $tw6->resNr_1 );
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "({uint8_t $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "[(" );
fprintf( $fp->f, "%1i", (int)$tw6->resHi_1 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)$tw6->resLo_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1]; " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ( /* &pointer Node */ (*second_5).n_1 == (10)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "/*@+set construct right set*/" );
$fp->flags = -2;
});
constructSet_4( second_5, $tw6->resLo_1, $tw6->resHi_1, ($tw6->resNr_1 + (1)) );
}
else 
if( ( /* &pointer Node */ (*second_5).n_1 == (2)) )
{
savHi_5 =  /* &pointer Node */ (*second_5).resHi_1;
savLo_5 =  /* &pointer Node */ (*second_5).resLo_1;
 /* &pointer Node */ (*second_5).resNr_1 = ($tw6->resNr_1 + (1));
 /* &pointer Node */ (*second_5).resHi_1 = $tw6->resHi_1;
 /* &pointer Node */ (*second_5).resLo_1 = $tw6->resLo_1;
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "/*@+set-> right op node*/ " );
$fp->flags = -2;
});
genCExpr_4( second_5 );
 /* &pointer Node */ (*second_5).resHi_1 = savHi_5;
 /* &pointer Node */ (*second_5).resLo_1 = savLo_5;
}
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "({ int $i;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "for($i=0; $i<=(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resHi_1 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)$tw6->resLo_1 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", ">>3); ++$i)" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resNr_1 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", "[$i] |= $s" );
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "[$i];});" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "}); // $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
if( ({ const int $e = $tw6->setOpKind_1;
(0 /*@ (in) set test set node */ || $e == 0 || $e == 6 || $e == 5);})
 )
{
constructSet_4( $tw6->setLeft_1, $tw6->resLo_1, $tw6->resHi_1, $tw6->resNr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "({uint8_t $s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " [(" );
fprintf( $fp->f, "%1i", (int)$tw6->resHi_1 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)$tw6->resLo_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1]; " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "int $i;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
constructSet_4( $tw6->setRight_1, $tw6->resLo_1, $tw6->resHi_1, ($tw6->resNr_1 + (1)) );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "for($i=0; $i<=(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resHi_1 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)$tw6->resLo_1 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", ">>3); ++$i)" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( ($tw6->setOpKind_1 == (6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resNr_1 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", "[$i] &= ~$s" );
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "[$i];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ($tw6->setOpKind_1 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resNr_1 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", "[$i] &= $s" );
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "[$i];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( ($tw6->setOpKind_1 == (5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$s" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->resNr_1 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", "[$i] |= $s" );
fprintf( $fp->f, "%1i", (int)($tw6->resNr_1 + (1)) );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "[$i];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "});" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ($tw6->resLo_1 > ($tw6->resHi_1)) )
{
if( ($tw6->setOpKind_1 == (12)) )
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " 0 " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " 1 " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", " // comparing empty sets!" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (algSet_1 && ((((((($tw6->resLo_1 < (0))) && ((($tw6->resHi_1 >= ((2147483647 + ($tw6->resLo_1)))))))) || (((($tw6->resHi_1 - ($tw6->resLo_1)) >= (511)))))))) )
{
error_1( -3 );
sav_5 = mergeFixedSets_4;
mergeFixedSets_4 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "({ bool $r=0;" );
$fp->flags = -2;
});
if( ({ const int $e = $tw6->setOpKind_1;
(0 /*@ (in) set test set node */ || $e == 9 || $e == 10);})
 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "/*== replacing " );
$fp->flags = -2;
});
if( ($tw6->setOpKind_1 == (10)) )
({
text  *const $fp = &prc_1;
{char $c = 62;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
{char $c = 60;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "= with set '-' */" );
$fp->flags = -2;
});
if( ($tw6->setOpKind_1 == (10)) )
{
t1_5 = $tw6->setLeft_1;
$tw6->setLeft_1 = $tw6->setRight_1;
$tw6->setRight_1 = t1_5;
}
$tw6->setOpKind_1 = 6;
if( checkSet_4( t_5, 2147483647, -2147483647 ) )
({
text  *const $fp = &prc_1;
{char $c = 48;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "!$r" );
$fp->flags = -2;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", " /* indeterminate compare eq/ne */ " );
$fp->flags = -2;
});
t1_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t1_5);
{
$tw7->n_1 = 2;
$tw7->setOpKind_1 = 5;
$tw7->locked_1 = 1;
$tw7->resLo_1 = -2147483647;
$tw7->resHi_1 = 2147483647;
$tw7->setLeft_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->setLeft_1);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 6;
$tw8->locked_1 = 1;
$tw8->setLeft_1 =  /* &pointer Node */ (*t_5).setLeft_1;
$tw8->setRight_1 =  /* &pointer Node */ (*t_5).setRight_1;
}
} // with
findResBounds_4( $tw7->setLeft_1 );
$tw7->setRight_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->setRight_1);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 6;
$tw8->locked_1 = 1;
$tw8->setLeft_1 =  /* &pointer Node */ (*t_5).setRight_1;
$tw8->setRight_1 =  /* &pointer Node */ (*t_5).setLeft_1;
}
} // with
findResBounds_4( $tw7->setRight_1 );
}
} // with
if( checkSet_4( t1_5, 2147483647, -2147483647 ) )
{
if( ($tw6->setOpKind_1 == (13)) )
({
text  *const $fp = &prc_1;
{char $c = 48;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
{char $c = 49;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
else 
{
if( ($tw6->setOpKind_1 == (13)) )
({
text  *const $fp = &prc_1;
{char $c = 33;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "$r" );
$fp->flags = -2;
});
}
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t1_5);
{
if( ( /* &pointer Node */ (*$tw7->setLeft_1).n_1 == (10)) )
{
freeTree_4( $tw7->setLeft_1 );
}
else 
({ typeof($tw7->setLeft_1) $p=$tw7->setLeft_1; 
free($p);});
if( ( /* &pointer Node */ (*$tw7->setRight_1).n_1 == (10)) )
{
freeTree_4( $tw7->setRight_1 );
}
else 
({ typeof($tw7->setRight_1) $p=$tw7->setRight_1; 
free($p);});
}
} // with
({ typeof(t1_5) $p=t1_5; 
free($p);});
}
mergeFixedSets_4 = sav_5;
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", ";}) // analytic set compare" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
lo_5 = $tw6->resLo_1;
hi_5 = $tw6->resHi_1;
if( (((hi_5 == (2147483647))) && (((lo_5 == (-2147483647))))) )
{
hi_5 = 255;
lo_5 = -255;
error_1( -2 );
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", " /* >>> integer set bounds limited to " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", " */ " );
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "({uint8_t $s0[(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1]; " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "uint8_t $s1[(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1]; " );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "int $i; bool $r=1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
constructSet_4( $tw6->setLeft_1, lo_5, hi_5, 0 );
constructSet_4( $tw6->setRight_1, lo_5, hi_5, 1 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "for($i=0; $i<=(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", ">>3); ++$i)" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
switch( $tw6->setOpKind_1 ) {
case 8 :
case 11 :
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "> & < not implemented" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
break;
case 9 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "if(($s0[$i] & ~$s1[$i]) != 0) { $r=0; break; }; $r" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 10 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "if((~$s0[$i] & $s1[$i]) != 0) { $r=0; break; }; $r" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 12 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 44 */
fprintf( $fp->f, "%s", "if($s0[$i] != $s1[$i]) { $r=0; break; }; !$r" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 13 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "if($s0[$i] != $s1[$i]) { $r=0; break; }; $r" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
} /* switch */
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ";})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
}
break;
case 3 :
{
if( (debug_1 && ((($tw6->unOpKind_1 == (1))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $a = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->operand_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "if($a<" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)-2147483647 );
/* const string, len is 36 */
fprintf( $fp->f, "%s", ") _Pfatal(\"-(-maxint-1) overflows\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "-$a;})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ($tw6->unOpKind_1 == (3)) )
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
if( ({ const int $e = $tw6->unOpKind_1;
(0 /*@ (in) set test set node */ || $e == 1 || $e == 0);})
 )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "-(" );
$fp->flags = -2;
});
else 
if( ($tw6->unOpKind_1 == (2)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "!(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->operand_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
break;
case 5 :
{
if( ($tw6->constType_1 != (NULL)) )
if( ($tw6->constType_1 == (realptr_1)) )
{
if( ($tw6->nodeCval_1.valp_1 != (NULL)) )
{
writev_1( &prc_1,  /* &pointer Node */ (*$tw6->nodeCval_1.valp_1).rval_1, lenpv_1(  /* &pointer Node */ (*$tw6->nodeCval_1.valp_1).rval_1 ) );
}
}
else 
if( ( /* &pointer Node */ (*$tw6->constType_1).form_1 == (4)) )
{
({
text  *const $fp = &prc_1;
{char $c = 34;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( ( /* &pointer Node */ (*$tw6->constType_1).slen_1 == (1)) )
{
({
text  *const $fp = &prc_1;
{char $c = (unsigned char)($tw6->nodeCval_1.ival_1);
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
else 
if( ($tw6->nodeCval_1.valp_1 != (NULL)) )
{
{ // with statement
struct constant_1  *const $tw7 = & /* &pointer Node */ (*$tw6->nodeCval_1.valp_1);
{
writeve_1( &prc_1, $tw7->sval_1, $tw7->slgth_1 );
}
} // with
}
({
text  *const $fp = &prc_1;
{char $c = 34;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
else 
if( ($tw6->constType_1 == (nilptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "NULL" );
$fp->flags = -2;
});
}
else 
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)$tw6->nodeCval_1.ival_1 );
$fp->flags = -2;
});
}
break;
case 6 :
{
if( $tw6->isVar_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "(*" );
$fp->flags = -2;
});
writeId_1( $tw6->nodeVar_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
else 
writeId_1( $tw6->nodeVar_1 );
}
break;
case 8 :
{
if( $tw6->lvalue_1 )
{
genCExpr_4( $tw6->fbParent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", ".buffer " );
$fp->flags = -2;
});
}
else 
if( ($tw6->fBufType_1 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "(*({ " );
$fp->flags = -2;
});
genfp_4( $tw6->fBufType_1, $tw6->fbParent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", "if( $fp->flags == 0 ) { int $c = getc($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "if($c == EOF) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 82 */
fprintf( $fp->f, "%s", "if($fp->buffer==2) _Pfatal(\"attempt to use file buffer variable when eof is true\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "$c='\\n';}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "if($c=='\\n') {$fp->buffer=' '; $fp->flags=2;}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "else {$fp->buffer=$c; $fp->flags=1;}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "} &$fp->buffer;})) " );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "(*({ " );
$fp->flags = -2;
});
genfp_4( $tw6->fBufType_1, $tw6->fbParent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "if($fp->flags == 0) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 70 */
fprintf( $fp->f, "%s", "  ( $fp->flags = fread(&$fp->buffer, sizeof($fp->buffer), 1, $fp->f));" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 62 */
fprintf( $fp->f, "%s", "  if( $fp->flags == 0 ) _Pfatal(\"file buffer variable failed\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "};  &$fp->buffer;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "})) " );
$fp->flags = -2;
});
}
}
break;
case 9 :
{
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*$tw6->arrayType_1);
{
if( ($tw7->aeltype_1 != (NULL)) )
if(  /* &pointer Node */ (*$tw7->aeltype_1).isVoidPtr_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "*( /*isVoid*/ " );
$fp->flags = -2;
});
genCType_2( $tw7->aeltype_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "*const)&" );
$fp->flags = -2;
});
}
genCExpr_4( $tw6->aparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", ".component[(unsigned)(" );
$fp->flags = -2;
});
if( !($tw7->confFlag_1) )
{
getbounds_1( $tw7->inxtype_1, &lo_5, &hi_5 );
}
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "({ int $i = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->index_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "if( $i<" );
$fp->flags = -2;
});
if( $tw7->confFlag_1 )
{
writeId_1( $tw7->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", " || $i>" );
$fp->flags = -2;
});
writeId_1( $tw7->highbound_1 );
}
else 
{
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)lo_5 );
$fp->flags = -2;
/* const string, len is 7 */
fprintf( $fp->f, "%s", " || $i>" );
fprintf( $fp->f, "%1i", (int)hi_5 );
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", ") _Pfatal(\"array index out of range\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "$i;})" );
$fp->flags = -2;
});
}
else 
{
genCExpr_4( $tw6->index_1 );
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " - " );
$fp->flags = -2;
});
if( $tw7->confFlag_1 )
{
writeId_1( $tw7->lowbound_1 );
}
else 
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)lo_5 );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ") ]" );
$fp->flags = -2;
});
}
} // with
}
break;
case 10 :
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", ">>> unexpected use of sets" );
$fp->flags = -2;
});
break;
case 11 :
{
test_5 = 1;
if( (chkvar_1 && ((($tw6->fieldName_1 != (NULL))))) )
{
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*$tw6->fieldName_1);
{
if( ($tw7->varlb_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->varlb_1).name_1 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "/* tag is " );
$fp->flags = -2;
});
writeId_1( $tw7->varlb_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", ", variant nrs are " );
$fp->flags = -2;
});
lsp_5 = $tw7->varnt_1;
while( (lsp_5 != (NULL)))
{
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lsp_5).varval_1 );
$fp->flags = -2;
});
lsp_5 =  /* &pointer Node */ (*lsp_5).caslst_1;
if( (lsp_5 != (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genTypeOf_4( $tw6->fParent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", " *$p = &" );
$fp->flags = -2;
});
genCExpr_4( $tw6->fParent_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "switch((int)$p->" );
$fp->flags = -2;
});
writeId_1( $tw7->varlb_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "){ default: _Pfatal(\"variant does not match tag\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
lsp_5 = $tw7->varnt_1;
while( (lsp_5 != (NULL)))
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " case " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lsp_5).varval_1 );
{char $c = 58;
fprintf( $fp->f, "%c", $c); };
});
lsp_5 =  /* &pointer Node */ (*lsp_5).caslst_1;
}
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", ";}; $p;})->" );
$fp->flags = -2;
});
writeId_1( $tw6->fieldName_1 );
test_5 = 0;
}
}
}
} // with
}
if( test_5 )
{
genCExpr_4( $tw6->fParent_1 );
({
text  *const $fp = &prc_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
writeId_1( $tw6->fieldName_1 );
}
}
break;
case 12 :
{
test_5 = 1;
if( (chkvar_1 && ((($tw6->wfieldName_1 != (NULL))))) )
{
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*$tw6->wfieldName_1);
{
if( ($tw7->varlb_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->varlb_1).name_1 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "/* tag is " );
$fp->flags = -2;
});
writeId_1( $tw7->varlb_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", ", variant nrs are " );
$fp->flags = -2;
});
lsp_5 = $tw7->varnt_1;
while( (lsp_5 != (NULL)))
{
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lsp_5).varval_1 );
$fp->flags = -2;
});
lsp_5 =  /* &pointer Node */ (*lsp_5).caslst_1;
if( (lsp_5 != (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ switch((int)$tw" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->fLevel_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "->" );
});
writeId_1( $tw7->varlb_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "){ default: _Pfatal(\"variant does not match tag\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
lsp_5 = $tw7->varnt_1;
while( (lsp_5 != (NULL)))
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " case " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lsp_5).varval_1 );
{char $c = 58;
fprintf( $fp->f, "%c", $c); };
});
lsp_5 =  /* &pointer Node */ (*lsp_5).caslst_1;
}
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", ";}; " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "$tw" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->fLevel_1 );
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", ";})->" );
$fp->flags = -2;
});
writeId_1( $tw6->wfieldName_1 );
test_5 = 0;
}
}
}
} // with
}
if( test_5 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "$tw" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->fLevel_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "->" );
});
writeId_1( $tw6->wfieldName_1 );
}
}
break;
case 4 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", " /* &pointer Node */ (*" );
$fp->flags = -2;
});
if( ($tw6->ptrType_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " >>> nil type " );
$fp->flags = -2;
});
}
else 
{
if(  /* &pointer Node */ (*$tw6->ptrType_1).isVoidPtr_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "( /*isVoid*/ " );
$fp->flags = -2;
});
genCType_2( $tw6->ptrType_1, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "*)" );
$fp->flags = -2;
});
}
if( (memDebug_1 || (debug_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genTypeOf_4( $tw6->pparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " $p = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->pparent_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "if($p==NULL) " );
$fp->flags = -2;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "_Pfatal( \"attempt to use nil pointer\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( memDebug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "_Puse_mem(_Proot, $p, " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "$p; })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
genCExpr_4( $tw6->pparent_1 );
}
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
break;
case 14 :
{
switch( $tw6->key_1 ) {
case 19 :
{
if( (debug_1 && ((($tw6->argType_1 == (intptr_1))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "({ const int $a = abs(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "if($a<0) _Pfatal(\"abs(-maxint-1) overflows\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "$a;})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ($tw6->argType_1 == (realptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "fabs(" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "abs(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
break;
case 20 :
{
if( ($tw6->argType_1 == (intptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "({ const int $e = (" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " if( abs($e) >" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)trunc(sqrt( 2147483647 )) );
/* const string, len is 27 */
fprintf( $fp->f, "%s", ") _Pfatal(\"sqr overflows\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "({ const double $e = (" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "); " );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 56 */
fprintf( $fp->f, "%s", " if( fabs($e) > sqrt(DBL_MAX)) _Pfatal(\"sqr overflows\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " $e*$e; })" );
$fp->flags = -2;
});
}
break;
case 17 :
{
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "({ const double $x = trunc(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "if(fabs($x)>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)2147483647 );
/* const string, len is 29 */
fprintf( $fp->f, "%s", ") _Pfatal(\"trunc overflows\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 13 */
fprintf( $fp->f, "%s", "); (int)$x;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "(int)trunc(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
break;
case 21 :
{
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " & 1)" );
$fp->flags = -2;
});
}
break;
case 22 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "(int)" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
}
break;
case 23 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "(unsigned char)(" );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "({ const unsigned int $c = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
getbounds_1( charptr_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "if($c>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 31 */
fprintf( $fp->f, "%s", ") _Pfatal(\"chr() range error\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "$c;})" );
$fp->flags = -2;
});
}
else 
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
break;
case 18 :
{
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "({ const double $x = round(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "if(fabs($x)>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)2147483647 );
/* const string, len is 29 */
fprintf( $fp->f, "%s", ") _Pfatal(\"round overflows\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 13 */
fprintf( $fp->f, "%s", "); (int)$x;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "(int)round(" );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
}
break;
case 24 :
{
if( debug_1 )
{
getbounds_1( $tw6->argType_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $e = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "if($e<=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 29 */
fprintf( $fp->f, "%s", ") _Pfatal(\"pred range error\"," );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " $e-1; })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " - 1)" );
$fp->flags = -2;
});
}
}
break;
case 25 :
{
if( debug_1 )
{
getbounds_1( $tw6->argType_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $e = " );
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "if($e>=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 29 */
fprintf( $fp->f, "%s", ") _Pfatal(\"succ range error\"," );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " $e+1; })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( $tw6->arg_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " + 1)" );
$fp->flags = -2;
});
}
}
break;
case 26 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genfp_4( $tw6->argType_1, $tw6->arg_1 );
checkdefined_4(  );
if( ($tw6->argType_1 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 104 */
fprintf( $fp->f, "%s", "$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "if($c==EOF) {" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 65 */
fprintf( $fp->f, "%s", "  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}}" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 76 */
fprintf( $fp->f, "%s", " else { $fp->flags=($c=='\\n'?2:1); $fp->buffer=($c=='\\n'?' ':$c); }; $r;}));" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 103 */
fprintf( $fp->f, "%s", "$fp->flags<0 || ($fp->flags==0 && !($fp->flags = fread(&$fp->buffer, sizeof($fp->buffer), 1, $fp->f)));" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 27 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genfp_4( $tw6->argType_1, $tw6->arg_1 );
checkdefined_4(  );
checkReadable_4(  );
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "if($fp->flags == 0) {" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "int $c = fgetc($fp->f);" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "if($c == EOF) {" );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 66 */
fprintf( $fp->f, "%s", "if($fp->buffer==2) _Pfatal(\"attempt to use eoln when eof is true\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "$c = '\\n';}" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 95 */
fprintf( $fp->f, "%s", "$fp->flags=1; if( $c== '\\n' ) { $c = ' '; $fp->flags = 2;} $fp->buffer=$c;} $fp->flags == 2; })" );
$fp->flags = -2;
});
}
break;
} /* switch */
}
break;
case 13 :
{
if( (((((((isStdMaFun_5( $tw6->nodeFunc_1, 30 ) && ((($tw6->paramList_1 != (NULL))))) && ((( /* &pointer Node */ (*$tw6->paramList_1).parExpr_1 != (NULL))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).n_1 == (0))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).binOpKind_1 == (0))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).left_1 != (NULL))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).left_1).n_1 == (13))))) && (isStdMaFun_5(  /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).left_1).nodeFunc_1, 32 ))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "({ const double $x = " );
$fp->flags = -2;
});
genCExpr_4(  /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).left_1).paramList_1).parExpr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $y = " );
$fp->flags = -2;
});
genCExpr_4(  /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).right_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "if($x<=0) _Pfatal(\"arg of ln must be >0\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 102 */
fprintf( $fp->f, "%s", "if( (($x>1.0 && $y>1.0) || ($x<1.0 && $y<-1.0)) && ln($x)*$y>=ln(DBL_MAX) ) _Pfatal(\"exp() overflows\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "pow($x,$y);})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (((((((isStdMaFun_5( $tw6->nodeFunc_1, 30 ) && ((($tw6->paramList_1 != (NULL))))) && ((( /* &pointer Node */ (*$tw6->paramList_1).parExpr_1 != (NULL))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).n_1 == (0))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).binOpKind_1 == (0))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).right_1 != (NULL))))) && ((( /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).right_1).n_1 == (13))))) && (isStdMaFun_5(  /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).right_1).nodeFunc_1, 32 ))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "({ const double $x = " );
$fp->flags = -2;
});
genCExpr_4(  /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).right_1).paramList_1).parExpr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $y = " );
$fp->flags = -2;
});
genCExpr_4(  /* &pointer Node */ (* /* &pointer Node */ (*$tw6->paramList_1).parExpr_1).left_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "if($x<=0) _Pfatal(\"arg of ln must be >0\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 102 */
fprintf( $fp->f, "%s", "if( (($x>1.0 && $y>1.0) || ($x<1.0 && $y<-1.0)) && ln($x)*$y>=ln(DBL_MAX) ) _Pfatal(\"exp() overflows\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "pow($x,$y);})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ( /* &pointer Node */ (*$tw6->nodeFunc_1).pfkind_1 == (0)) )
writeId_1( $tw6->nodeFunc_1 );
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "(*" );
$fp->flags = -2;
});
writeId_1( $tw6->nodeFunc_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "( " );
$fp->flags = -2;
});
parPtr_5 = $tw6->paramList_1;
lsp2_5 = NULL;
while( (parPtr_5 != (NULL)))
{
{ // with statement
struct pfParam_1  *const $tw7 = & /* &pointer Node */ (*parPtr_5);
{
if( isConfArray_1( $tw7->parType_1 ) )
{
lsp1_5 = $tw7->parType_1;
if( (lsp1_5 != (lsp2_5)) )
{
lsp2_5 = lsp1_5;
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->parExpr_1);
{
lsp_5 = NULL;
switch( $tw8->n_1 ) {
case 5 :
lsp_5 = $tw8->constType_1;
break;
case 6 :
lsp_5 =  /* &pointer Node */ (*$tw8->nodeVar_1).idtype_1;
break;
case 8 :
lsp_5 =  /* &pointer Node */ (*$tw8->fBufType_1).filtype_1;
break;
case 9 :
lsp_5 =  /* &pointer Node */ (*$tw8->arrayType_1).aeltype_1;
break;
case 4 :
lsp_5 = $tw8->ptrType_1;
break;
case 11 :
lsp_5 =  /* &pointer Node */ (*$tw8->fieldName_1).idtype_1;
break;
case 12 :
lsp_5 =  /* &pointer Node */ (*$tw8->wfieldName_1).idtype_1;
break;
} /* switch */
}
} // with
if( (lsp_5 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", ">>> no bounds for array" );
$fp->flags = -2;
});
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "/* bounds: */ " );
$fp->flags = -2;
});
while( (isConfArray_1( lsp_5 ) && (isConfArray_1( lsp1_5 ))))
{
{ // with statement
struct structure_1  *const $tw8 = & /* &pointer Node */ (*lsp_5);
{
getbounds_1(  /* &pointer Node */ (*lsp1_5).inxtype_1, &lo_5, &hi_5 );
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "({if(" );
$fp->flags = -2;
});
writeId_1( $tw8->lowbound_1 );
({
text  *const $fp = &prc_1;
{char $c = 60;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 43 */
fprintf( $fp->f, "%s", ") _Pfatal(\"low parameter bounds mismatch\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
writeId_1( $tw8->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ";})" );
$fp->flags = -2;
});
}
else 
writeId_1( $tw8->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "({if(" );
$fp->flags = -2;
});
writeId_1( $tw8->highbound_1 );
({
text  *const $fp = &prc_1;
{char $c = 62;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 44 */
fprintf( $fp->f, "%s", ") _Pfatal(\"high parameter bounds mismatch\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
writeId_1( $tw8->highbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", ";})" );
$fp->flags = -2;
});
}
else 
writeId_1( $tw8->highbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
lsp_5 = $tw8->aeltype_1;
}
} // with
lsp1_5 =  /* &pointer Node */ (*lsp1_5).aeltype_1;
}
if( (isString_2( lsp_5 ) && ((( /* &pointer Node */ (*lsp_5).inxtype_1 == (NULL))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "1, " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int) /* &pointer Node */ (*lsp_5).slen_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
});
}
else 
{
while( isConfArray_1( lsp1_5 ))
{
if( ( /* &pointer Node */ (*lsp_5).form_1 != (4)) )
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", ">>> not an array (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int) /* &pointer Node */ (*lsp_5).form_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
{
getbounds_1(  /* &pointer Node */ (*lsp_5).inxtype_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)lo_5 );
$fp->flags = -2;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
});
lsp_5 =  /* &pointer Node */ (*lsp_5).aeltype_1;
}
lsp1_5 =  /* &pointer Node */ (*lsp1_5).aeltype_1;
}
}
}
}
({
text  *const $fp = &prc_1;
{char $c = 38;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
}
else 
switch( $tw7->parAccess_1 ) {
case 0 :
{
if( ( /* &pointer Node */ (*$tw7->parType_1).form_1 == (3)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
writeId_1(  /* &pointer Node */ (*$tw7->parType_1).typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", " $set0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "uint8_t *const $s0 =  $set0.element;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
getbounds_1(  /* &pointer Node */ (*$tw7->parType_1).elset_1, &lo_5, &hi_5 );
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "bool $r=0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( checkSet_4( $tw7->parExpr_1, lo_5, hi_5 ) )
error_1( 304 );
({
text  *const $fp = &prc_1;
/* const string, len is 54 */
fprintf( $fp->f, "%s", "if($r) _Pfatal(\"assigning element outside set bounds\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
constructSet_4( $tw7->parExpr_1, lo_5, hi_5, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "$set0; })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isString_2( $tw7->parType_1 ) )
{
if( ( /* &pointer Node */ (*$tw7->parExpr_1).n_1 == (5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
writeId_1(  /* &pointer Node */ (*$tw7->parType_1).typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", " $str = {{" );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "}}; $str; })" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "*(" );
$fp->flags = -2;
});
writeId_1(  /* &pointer Node */ (*$tw7->parType_1).typeName_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " *)&" );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
}
}
else 
if( (((debug_1 && ((($tw7->parType_1 != (intptr_1))))) && ((($tw7->parType_1 != (realptr_1))))) && ((( /* &pointer Node */ (*$tw7->parType_1).form_1 <= (1))))) )
{
getbounds_1( $tw7->parType_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "({const int $i = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "; if($i>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "|| $i<" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 38 */
fprintf( $fp->f, "%s", ") _Pfatal(\"bounds error in parameter\"," );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $i;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (debug_1 && (isStdMaFun_5( $tw6->nodeFunc_1, 31 ))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "({ const double $x = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "if($x<0) _Pfatal(\"arg of sqrt must be >=0\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $x;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (debug_1 && (isStdMaFun_5( $tw6->nodeFunc_1, 32 ))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "({ const double $x = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "if($x<=0) _Pfatal(\"arg of ln must be >0\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "$x;})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (debug_1 && (isStdMaFun_5( $tw6->nodeFunc_1, 30 ))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "({ const double $x = " );
$fp->flags = -2;
});
genCExpr_4( $tw7->parExpr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "if($x>ln(DBL_MAX)) _Pfatal(\"exp() overflows\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $x;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
genCExpr_4( $tw7->parExpr_1 );
}
}
break;
case 1 :
{
({
text  *const $fp = &prc_1;
{char $c = 38;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( ( /* &pointer Node */ (*$tw7->parExpr_1).n_1 == (10)) )
{
genCExpr_4(  /* &pointer Node */ (*$tw7->parExpr_1).sparent_1 );
}
else 
genCExpr_4( $tw7->parExpr_1 );
}
break;
case 2 :
genCExpr_4( $tw7->parExpr_1 );
break;
} /* switch */
parPtr_5 = $tw7->next_1;
}
} // with
if( (parPtr_5 != (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " )" );
$fp->flags = -2;
});
}
}
break;
case 7 :
writeId_1( $tw6->fPar_1 );
break;
case 15 :
{
if( $tw6->fdbg_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "*({$result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->lev_1 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", ".valid = 1;" );
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "&$result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->lev_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ".value;})" );
});
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "$result" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->lev_1 );
});
}
break;
case 16 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "$tmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->regNr_1 );
});
}
break;
case 17 :
{
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", ">>> unexpected tmpSetNode" );
$fp->flags = -2;
});
}
break;
} /* switch */
}
} // with
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", ">>> expression sub tree is nil" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* genCExpr_4() */
void freeTree_4(exprTreePtr_1  t_5) {
varElementPtr_1  /* form (2) */ v2_5, v1_5;
constElementPtr_1  /* form (2) */ c2_5, c1_5;
pfParamPtr_1  /* form (2) */ parPtr1_5, parPtr_5;
if( (t_5 != (NULL)) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*t_5);
{
switch( $tw6->n_1 ) {
case 0 :
{
freeTree_4( $tw6->left_1 );
freeTree_4( $tw6->right_1 );
}
break;
case 1 :
{
freeTree_4( $tw6->strLeft_1 );
freeTree_4( $tw6->strRight_1 );
}
break;
case 2 :
{
freeTree_4( $tw6->setLeft_1 );
freeTree_4( $tw6->setRight_1 );
}
break;
case 3 :
freeTree_4( $tw6->operand_1 );
break;
case 4 :
{
freeTree_4( $tw6->pparent_1 );
}
break;
case 5 :
{
;
}
break;
case 6 :
{
;
}
break;
case 7 :
{
;
}
break;
case 8 :
{
freeTree_4( $tw6->fbParent_1 );
}
break;
case 9 :
{
freeTree_4( $tw6->index_1 );
freeTree_4( $tw6->aparent_1 );
}
break;
case 10 :
{
if( ($tw6->sparent_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw6->sparent_1).n_1 == (17)) )
{
if(  /* &pointer Node */ (*$tw6->sparent_1).pSelFlag_1 )
({ typeof($tw6->seltype_1) $p=$tw6->seltype_1; 
free($p);});
}
freeTree_4( $tw6->sparent_1 );
}
v1_5 = $tw6->varList_1;
while( (v1_5 != (NULL)))
{
{ // with statement
struct varElement_1  *const $tw7 = & /* &pointer Node */ (*v1_5);
{
freeTree_4( $tw7->elvalue_1 );
if( $tw7->isRange_1 )
freeTree_4( $tw7->hiValue_1 );
v2_5 = $tw7->next_1;
}
} // with
({ typeof(v1_5) $p=v1_5; 
free($p);});
v1_5 = v2_5;
}
c1_5 = $tw6->constList_1;
while( (c1_5 != (NULL)))
{
c2_5 =  /* &pointer Node */ (*c1_5).next_1;
({ typeof(c1_5) $p=c1_5; 
free($p);});
c1_5 = c2_5;
}
}
break;
case 11 :
{
freeTree_4( $tw6->fParent_1 );
}
break;
case 12 :
{
;
}
break;
case 13 :
{
parPtr_5 = $tw6->paramList_1;
while( (parPtr_5 != (NULL)))
{
parPtr1_5 = parPtr_5;
parPtr_5 =  /* &pointer Node */ (*parPtr_5).next_1;
freeTree_4(  /* &pointer Node */ (*parPtr1_5).parExpr_1 );
({ typeof(parPtr1_5) $p=parPtr1_5; 
free($p);});
}
}
break;
case 14 :
{
freeTree_4( $tw6->arg_1 );
}
break;
case 15 :
{
;
}
break;
case 16 :
{
;
}
break;
case 17 :
{
;
}
break;
} /* switch */
}
} // with
({ typeof(t_5) $p=t_5; 
free($p);});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "// >>> free expression sub tree is nil" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* freeTree_4() */
bool  checkSet_4(exprTreePtr_1  t_5, int  a_5, int  b_5) {
bool $result4;
int  /* form (0) */ tmpcount_5;
exprTreePtr_1  /* form (2) */ tCheck_5;
int  /* form (0) */ np_5;
void rmSide_5(exprTreePtr_1  t_6, int  ns_6, int  *const np_6) {
varElementPtr_1  /* form (2) */ v_6;
constElementPtr_1  /* form (2) */ c_6;
int  /* form (0) */ hi_6, lo_6;
exprTreePtr_1  /* form (2) */ t1_6;
int  /* form (0) */ p2_6, p1_6;
int  /* form (0) */ ns1_6;
bool  /* form (0) */ fixed_6;
void genTmp_6(exprTreePtr_1  *const val_7) {
if( (((( /* &pointer Node */ (*(*val_7)).n_1 != (6))) && ((( /* &pointer Node */ (*(*val_7)).n_1 != (5))))) && ((( /* &pointer Node */ (*(*val_7)).n_1 != (16))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "const int $tmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)tmpcount_5 );
{char $c = 61;
fprintf( $fp->f, "%c", $c); };
});
genCExpr_4( (*val_7) );
freeTree_4( (*val_7) );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
(*val_7) = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*(*val_7)).n_1 = 16;
 /* &pointer Node */ (*(*val_7)).regNr_1 = tmpcount_5;
tmpcount_5 = (tmpcount_5 + (1));
}
} /* genTmp_6() */
if( (t_6 != (NULL)) )
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t_6);
{
if( ($tw7->n_1 == (10)) )
{
if( ($tw7->sparent_1 == (NULL)) )
(*np_6) = -1;
else 
(*np_6) = 0;
if( (((($tw7->sparent_1 != (NULL))) && ((( /* &pointer Node */ (*$tw7->sparent_1).n_1 != (6))))) && ((( /* &pointer Node */ (*$tw7->sparent_1).n_1 != (17))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "uint8_t *const $setTmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)tmpcount_5 );
{char $c = 61;
fprintf( $fp->f, "%c", $c); };
});
genSetPtr_4( $tw7->sparent_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
freeTree_4( $tw7->sparent_1 );
$tw7->sparent_1 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*$tw7->sparent_1).n_1 = 17;
 /* &pointer Node */ (*$tw7->sparent_1).SetNr_1 = tmpcount_5;
 /* &pointer Node */ (*$tw7->sparent_1).pSelFlag_1 = 0;
tmpcount_5 = (tmpcount_5 + (1));
}
v_6 = $tw7->varList_1;
while( (v_6 != (NULL)))
{
(*np_6) = ((*np_6) + (1));
{ // with statement
struct varElement_1  *const $tw8 = & /* &pointer Node */ (*v_6);
{
genTmp_6( &$tw8->elvalue_1 );
if( $tw8->isRange_1 )
{
genTmp_6( &$tw8->hiValue_1 );
}
}
} // with
v_6 =  /* &pointer Node */ (*v_6).next_1;
}
c_6 = $tw7->constList_1;
while( (c_6 != (NULL)))
{
(*np_6) = ((*np_6) + (1));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*c_6);
{
if( $tw8->isRange_1 )
{
;
}
}
} // with
c_6 =  /* &pointer Node */ (*c_6).next_1;
}
}
else 
if( ($tw7->n_1 == (2)) )
{
lo_6 = $tw7->resLo_1;
hi_6 = $tw7->resHi_1;
fixed_6 = (((mergeFixedSets_4 && (((hi_6 >= (lo_6))))) && (((((lo_6 >= (0))) || (((hi_6 <= ((2147483647 + (lo_6)))))))))) && ((((hi_6 - (lo_6)) <= (511)))));
if( (((ns_6 >= (0))) && ((({ const int $e = $tw7->setOpKind_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 0);})
))) )
ns_6 = (ns_6 + (1));
ns1_6 = ns_6;
if( (fixed_6 && ((($tw7->setOpKind_1 != (6))))) )
{
ns1_6 = -1;
}
rmSide_5( $tw7->setLeft_1, ns1_6, &p1_6 );
rmSide_5( $tw7->setRight_1, ns1_6, &p2_6 );
(*np_6) = (p1_6 + (p2_6));
if( ({ const int $e = $tw7->setOpKind_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
 )
(*np_6) = ((*np_6) + (1));
if( (((fixed_6 && ((((*np_6) > (0))))) && (((ns_6 > (0))))) && ((((ns_6 + ((*np_6))) > (2))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", " /* found fixed subex [" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)hi_6 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", "] at line " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ", ns is " );
fprintf( $fp->f, "%1i", (int)ns_6 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ", np is " );
fprintf( $fp->f, "%1i", (int)(*np_6) );
/* const string, len is 4 */
fprintf( $fp->f, "%s", " */ " );
});
(*np_6) = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "uint8_t $setTmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)tmpcount_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "[(" );
fprintf( $fp->f, "%1i", (int)hi_6 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", ">>3)+1];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "({uint8_t *const $s0 = $setTmp" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)tmpcount_5 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
constructSet_4( t_6, lo_6, hi_6, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", ";}); // $s0" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( !($tw7->locked_1) )
{
t1_6 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*t1_6) =  /* &pointer Node */ (*t_6);
freeTree_4( t1_6 );
}
$tw7->n_1 = 10;
$tw7->varList_1 = NULL;
$tw7->constList_1 = NULL;
$tw7->newList_1 = 0;
$tw7->sparent_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->sparent_1);
{
$tw8->n_1 = 17;
$tw8->SetNr_1 = tmpcount_5;
$tw8->pSelFlag_1 = 1;
}
} // with
$tw7->seltype_1 = calloc( 1, sizeof( struct structure_1 ));
{ // with statement
struct structure_1  *const $tw8 = & /* &pointer Node */ (*$tw7->seltype_1);
{
$tw8->form_1 = 1;
$tw8->rangetype_1 = intptr_1;
$tw8->smin_1 = lo_6;
$tw8->smax_1 = hi_6;
}
} // with
tmpcount_5 = (tmpcount_5 + (1));
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", ">>> rmSide: unexpected node kind(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw7->n_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} // with
}
} /* rmSide_5() */
void sxcopy_5(exprTreePtr_1  t_6, exprTreePtr_1  *const t1_6, bool  invFlag_6) {
exprTreePtr_1  /* form (2) */ p0_6, p_6;
exprTreePtr_1  /* form (2) */ ph_6, pl_6;
bool  /* form (0) */ rInv_6;
varElementPtr_1  /* form (2) */ v1_6;
constElementPtr_1  /* form (2) */ c1_6;
int  /* form (0) */ xhi_6, xlo_6;
exprTreePtr_1  sxadd_6(exprTreePtr_1  plo_7, exprTreePtr_1  phi_7) {
exprTreePtr_1 $result6;
exprTreePtr_1  /* form (2) */ pr_7;
if( (plo_7 == (NULL)) )
pr_7 = phi_7;
else 
if( (phi_7 == (NULL)) )
pr_7 = plo_7;
else 
{
pr_7 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*pr_7);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 5;
$tw8->setLeft_1 = plo_7;
$tw8->setRight_1 = phi_7;
$tw8->locked_1 = 0;
}
} // with
}
$result6 = pr_7;
return $result6;
} /* sxadd_6() */
exprTreePtr_1  sxmul_6(exprTreePtr_1  pa_7, exprTreePtr_1  pb_7) {
exprTreePtr_1 $result6;
exprTreePtr_1  /* form (2) */ pr_7;
if( (pa_7 == (NULL)) )
pr_7 = pb_7;
else 
if( (pb_7 == (NULL)) )
{
pr_7 = pa_7;
}
else 
{
pr_7 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*pr_7);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 0;
$tw8->setLeft_1 = pa_7;
$tw8->setRight_1 = pb_7;
$tw8->locked_1 = 0;
}
} // with
}
$result6 = pr_7;
return $result6;
} /* sxmul_6() */
exprTreePtr_1  emptySet_6(void) {
exprTreePtr_1 $result6;
exprTreePtr_1  /* form (2) */ p_7;
p_7 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*p_7);
{
$tw8->n_1 = 10;
$tw8->sparent_1 = NULL;
$tw8->seltype_1 = NULL;
$tw8->varList_1 = NULL;
$tw8->newList_1 = 1;
$tw8->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw9 = & /* &pointer Node */ (*$tw8->constList_1);
{
$tw9->isRange_1 = 1;
$tw9->elvalue_1 = 2147483647;
$tw9->hiValue_1 = -2147483647;
}
} // with
}
} // with
$result6 = p_7;
return $result6;
} /* emptySet_6() */
p_6 = NULL;
if( (t_6 != (NULL)) )
switch(  /* &pointer Node */ (*t_6).n_1 ) {
case 10 :
{
if( invFlag_6 )
{
if( ( /* &pointer Node */ (*t_6).seltype_1 == (NULL)) )
{
p_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p_6);
{
$tw7->n_1 = 10;
$tw7->sparent_1 = NULL;
$tw7->varList_1 = NULL;
$tw7->seltype_1 = intptr_1;
$tw7->newList_1 = 1;
$tw7->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->constList_1);
{
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = -2147483647;
$tw8->hiValue_1 = 2147483647;
}
} // with
}
} // with
}
else 
{
if( ( /* &pointer Node */ (*t_6).sparent_1 != (NULL)) )
{
getbounds_1(  /* &pointer Node */ (*t_6).seltype_1, &xlo_6, &xhi_6 );
if( (xlo_6 > (-2147483647)) )
{
pl_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*pl_6);
{
$tw7->n_1 = 10;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->varList_1 = NULL;
$tw7->newList_1 = 1;
$tw7->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->constList_1);
{
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = -2147483647;
$tw8->hiValue_1 = (xlo_6 - (1));
}
} // with
}
} // with
}
else 
{
pl_6 = NULL;
}
if( (xhi_6 < (2147483647)) )
{
ph_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*ph_6);
{
$tw7->n_1 = 10;
$tw7->varList_1 = NULL;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->newList_1 = 1;
$tw7->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->constList_1);
{
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = (xhi_6 + (1));
$tw8->hiValue_1 = 2147483647;
}
} // with
}
} // with
}
else 
{
ph_6 = NULL;
}
p0_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p0_6);
{
$tw7->n_1 = 10;
$tw7->newList_1 = 0;
$tw7->sparent_1 =  /* &pointer Node */ (*t_6).sparent_1;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->varList_1 = NULL;
$tw7->constList_1 = NULL;
$tw7->invert_1 = 1;
}
} // with
p_6 = sxadd_6( p0_6, sxadd_6( pl_6, ph_6 ) );
}
v1_6 =  /* &pointer Node */ (*t_6).varList_1;
while( (v1_6 != (NULL)))
{
pl_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*pl_6);
{
$tw7->n_1 = 10;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->constList_1 = NULL;
$tw7->invert_1 = 1;
$tw7->newList_1 = 1;
$tw7->varList_1 = calloc( 1, sizeof( struct varElement_1 ));
{ // with statement
struct varElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->varList_1);
{
$tw8->next_1 = NULL;
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = NULL;
$tw8->hiValue_1 =  /* &pointer Node */ (*v1_6).elvalue_1;
}
} // with
}
} // with
ph_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*ph_6);
{
$tw7->n_1 = 10;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->constList_1 = NULL;
$tw7->invert_1 = 1;
$tw7->newList_1 = 1;
$tw7->varList_1 = calloc( 1, sizeof( struct varElement_1 ));
{ // with statement
struct varElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->varList_1);
{
$tw8->next_1 = NULL;
$tw8->isRange_1 = 1;
if(  /* &pointer Node */ (*v1_6).isRange_1 )
$tw8->elvalue_1 =  /* &pointer Node */ (*v1_6).hiValue_1;
else 
$tw8->elvalue_1 =  /* &pointer Node */ (*v1_6).elvalue_1;
$tw8->hiValue_1 = NULL;
}
} // with
}
} // with
p_6 = sxmul_6( p_6, sxadd_6( pl_6, ph_6 ) );
v1_6 =  /* &pointer Node */ (*v1_6).next_1;
}
c1_6 =  /* &pointer Node */ (*t_6).constList_1;
while( (c1_6 != (NULL)))
{
if( ( /* &pointer Node */ (*c1_6).elvalue_1 > (-2147483647)) )
{
pl_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*pl_6);
{
$tw7->n_1 = 10;
$tw7->invert_1 = 1;
$tw7->varList_1 = NULL;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->newList_1 = 1;
$tw7->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->constList_1);
{
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = -2147483647;
$tw8->hiValue_1 = ( /* &pointer Node */ (*c1_6).elvalue_1 - (1));
}
} // with
}
} // with
}
else 
{
pl_6 = NULL;
}
if(  /* &pointer Node */ (*c1_6).isRange_1 )
xhi_6 =  /* &pointer Node */ (*c1_6).hiValue_1;
else 
xhi_6 =  /* &pointer Node */ (*c1_6).elvalue_1;
if( (xhi_6 < (2147483647)) )
{
ph_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*ph_6);
{
$tw7->n_1 = 10;
$tw7->invert_1 = 1;
$tw7->varList_1 = NULL;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->newList_1 = 1;
$tw7->constList_1 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw8 = & /* &pointer Node */ (*$tw7->constList_1);
{
$tw8->isRange_1 = 1;
$tw8->elvalue_1 = (xhi_6 + (1));
$tw8->hiValue_1 = 2147483647;
}
} // with
}
} // with
}
else 
{
ph_6 = NULL;
}
p0_6 = sxadd_6( pl_6, ph_6 );
if( (p0_6 == (NULL)) )
{
p0_6 = emptySet_6(  );
}
p_6 = sxmul_6( p_6, p0_6 );
c1_6 =  /* &pointer Node */ (*c1_6).next_1;
}
if( (p_6 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", " >>> unexpected nil expression tree " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
{
if( ( /* &pointer Node */ (*t_6).seltype_1 == (NULL)) )
{
p_6 = emptySet_6(  );
}
else 
{
if( ( /* &pointer Node */ (*t_6).sparent_1 != (NULL)) )
{
p_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p_6);
{
$tw7->n_1 = 10;
$tw7->newList_1 = 0;
$tw7->sparent_1 =  /* &pointer Node */ (*t_6).sparent_1;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
$tw7->invert_1 = 0;
$tw7->varList_1 = NULL;
$tw7->constList_1 = NULL;
}
} // with
}
v1_6 =  /* &pointer Node */ (*t_6).varList_1;
while( (v1_6 != (NULL)))
{
p0_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p0_6);
{
$tw7->n_1 = 10;
$tw7->newList_1 = 0;
$tw7->varList_1 = v1_6;
$tw7->constList_1 = NULL;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
}
} // with
p_6 = sxadd_6( p_6, p0_6 );
v1_6 =  /* &pointer Node */ (*v1_6).next_1;
}
c1_6 =  /* &pointer Node */ (*t_6).constList_1;
while( (c1_6 != (NULL)))
{
p0_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p0_6);
{
$tw7->n_1 = 10;
$tw7->newList_1 = 0;
$tw7->constList_1 = c1_6;
$tw7->varList_1 = NULL;
$tw7->sparent_1 = NULL;
$tw7->seltype_1 =  /* &pointer Node */ (*t_6).seltype_1;
}
} // with
p_6 = sxadd_6( p_6, p0_6 );
c1_6 =  /* &pointer Node */ (*c1_6).next_1;
}
}
}
}
break;
case 2 :
{
p_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*p_6);
{
$tw7->n_1 = 2;
$tw7->setOpKind_1 =  /* &pointer Node */ (*t_6).setOpKind_1;
if( ($tw7->setOpKind_1 == (6)) )
{
$tw7->setOpKind_1 = 0;
rInv_6 = !(invFlag_6);
}
else 
{
rInv_6 = invFlag_6;
}
if( invFlag_6 )
{
if( ($tw7->setOpKind_1 == (5)) )
$tw7->setOpKind_1 = 0;
else 
if( ($tw7->setOpKind_1 == (0)) )
$tw7->setOpKind_1 = 5;
}
sxcopy_5(  /* &pointer Node */ (*t_6).setLeft_1, &$tw7->setLeft_1, invFlag_6 );
sxcopy_5(  /* &pointer Node */ (*t_6).setRight_1, &$tw7->setRight_1, rInv_6 );
$tw7->locked_1 = 0;
}
} // with
}
break;
} /* switch */
(*t1_6) = p_6;
} /* sxcopy_5() */
void sxfree_5(exprTreePtr_1  t_6) {
if( (t_6 != (NULL)) )
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t_6);
{
if( ($tw7->n_1 == (2)) )
{
sxfree_5( $tw7->setLeft_1 );
sxfree_5( $tw7->setRight_1 );
}
else 
if( ($tw7->n_1 == (10)) )
{
if( $tw7->newList_1 )
{
if( ($tw7->varList_1 != (NULL)) )
({ typeof($tw7->varList_1) $p=$tw7->varList_1; 
free($p);});
if( ($tw7->constList_1 != (NULL)) )
({ typeof($tw7->constList_1) $p=$tw7->constList_1; 
free($p);});
}
}
else 
({
text *const $fp = &output_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", ">>> sxfree: unexpected node type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
({ typeof(t_6) $p=t_6; 
free($p);});
}
} /* sxfree_5() */
void sxuot_5(exprTreePtr_1  t_6) {
exprTreePtr_1  /* form (2) */ p2_6, p1_6;
void dup_6(exprTreePtr_1  t_7, exprTreePtr_1  *const t1_7) {
if( (t_7 == (NULL)) )
(*t1_7) = NULL;
else 
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*t_7);
{
if( ($tw8->n_1 == (2)) )
{
(*t1_7) = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*(*t1_7)) =  /* &pointer Node */ (*t_7);
dup_6(  /* &pointer Node */ (*t_7).setLeft_1, & /* &pointer Node */ (*(*t1_7)).setLeft_1 );
dup_6(  /* &pointer Node */ (*t_7).setRight_1, & /* &pointer Node */ (*(*t1_7)).setRight_1 );
$tw8->locked_1 = 0;
}
else 
if( ($tw8->n_1 == (10)) )
{
(*t1_7) = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*(*t1_7)) =  /* &pointer Node */ (*t_7);
 /* &pointer Node */ (*(*t1_7)).newList_1 = 0;
}
else 
({
text *const $fp = &output_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", ">>> unexpected node type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
} /* dup_6() */
if( (t_6 != (NULL)) )
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t_6);
{
if( ($tw7->n_1 == (2)) )
{
sxuot_5( $tw7->setLeft_1 );
sxuot_5( $tw7->setRight_1 );
if( ($tw7->setOpKind_1 == (0)) )
{
if( ($tw7->setLeft_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->setLeft_1).n_1 == (2)) )
{
if( ( /* &pointer Node */ (*$tw7->setLeft_1).setOpKind_1 == (5)) )
{
$tw7->setOpKind_1 = 5;
 /* &pointer Node */ (*$tw7->setLeft_1).setOpKind_1 = 0;
p1_6 = $tw7->setRight_1;
p2_6 =  /* &pointer Node */ (*$tw7->setLeft_1).setRight_1;
dup_6( p1_6, & /* &pointer Node */ (*$tw7->setLeft_1).setRight_1 );
$tw7->setRight_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->setRight_1);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 0;
$tw8->setLeft_1 = p2_6;
$tw8->setRight_1 = p1_6;
$tw8->locked_1 = 0;
}
} // with
sxuot_5( $tw7->setLeft_1 );
sxuot_5( $tw7->setRight_1 );
}
}
}
}
if( ($tw7->setOpKind_1 == (0)) )
{
if( ($tw7->setRight_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->setRight_1).n_1 == (2)) )
{
if( ( /* &pointer Node */ (*$tw7->setRight_1).setOpKind_1 == (5)) )
{
$tw7->setOpKind_1 = 5;
 /* &pointer Node */ (*$tw7->setRight_1).setOpKind_1 = 0;
p1_6 = $tw7->setLeft_1;
p2_6 =  /* &pointer Node */ (*$tw7->setRight_1).setLeft_1;
dup_6( p1_6, & /* &pointer Node */ (*$tw7->setRight_1).setLeft_1 );
$tw7->setLeft_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->setLeft_1);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = 0;
$tw8->setLeft_1 = p1_6;
$tw8->setRight_1 = p2_6;
$tw8->locked_1 = 0;
}
} // with
sxuot_5( $tw7->setLeft_1 );
sxuot_5( $tw7->setRight_1 );
}
}
}
}
}
}
} // with
}
} /* sxuot_5() */
bool  isNonEmpty_5(exprTreePtr_1  t_6, int  zlo_6, int  zhi_6) {
bool $result5;
bool  /* form (0) */ result_6;
void sxpr_6(/* +file */ text  *const f_7, exprTreePtr_1  t_7) {
int  /* form (0) */ count_7;
if( (t_7 == (NULL)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 4 */
fprintf( $fp->f, "%s", " [] " );
$fp->flags = -2;
});
else 
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*t_7);
{
if( ($tw8->n_1 == (10)) )
{
count_7 = 0;
if( ($tw8->sparent_1 != (NULL)) )
{
count_7 = (count_7 + (1));
if( $tw8->invert_1 )
({
text  *const $fp = &(*f_7);
/* const string, len is 4 */
fprintf( $fp->f, "%s", " ~S " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &(*f_7);
/* const string, len is 3 */
fprintf( $fp->f, "%s", " S " );
$fp->flags = -2;
});
}
if( ($tw8->varList_1 != (NULL)) )
{
count_7 = (count_7 + (1));
{ // with statement
struct varElement_1  *const $tw9 = & /* &pointer Node */ (*$tw8->varList_1);
{
if( $tw9->isRange_1 )
{
if( ($tw9->elvalue_1 == (NULL)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 13 */
fprintf( $fp->f, "%s", " [-M .. v-1] " );
$fp->flags = -2;
});
else 
if( ($tw9->hiValue_1 == (NULL)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 12 */
fprintf( $fp->f, "%s", " [v+1 .. M] " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &(*f_7);
/* const string, len is 14 */
fprintf( $fp->f, "%s", " [vlo .. vhi] " );
$fp->flags = -2;
});
}
else 
({
text  *const $fp = &(*f_7);
/* const string, len is 5 */
fprintf( $fp->f, "%s", " [v] " );
$fp->flags = -2;
});
}
} // with
}
if( ($tw8->constList_1 != (NULL)) )
{
count_7 = (count_7 + (1));
{ // with statement
struct constElement_1  *const $tw9 = & /* &pointer Node */ (*$tw8->constList_1);
{
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", " [" );
$fp->flags = -2;
});
if( (!($tw9->isRange_1) || ((($tw9->elvalue_1 <= ($tw9->hiValue_1))))) )
{
if( ($tw9->elvalue_1 == (-2147483647)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 7 */
fprintf( $fp->f, "%s", "-maxint" );
$fp->flags = -2;
});
else 
if( ($tw9->elvalue_1 == (2147483647)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 6 */
fprintf( $fp->f, "%s", "maxint" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &(*f_7);
fprintf( $fp->f, "%1i", (int)$tw9->elvalue_1 );
$fp->flags = -2;
});
if( $tw9->isRange_1 )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 4 */
fprintf( $fp->f, "%s", " .. " );
$fp->flags = -2;
});
if( ($tw9->hiValue_1 == (-2147483647)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 7 */
fprintf( $fp->f, "%s", "-maxint" );
$fp->flags = -2;
});
else 
if( ($tw9->hiValue_1 == (2147483647)) )
({
text  *const $fp = &(*f_7);
/* const string, len is 6 */
fprintf( $fp->f, "%s", "maxint" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &(*f_7);
fprintf( $fp->f, "%1i", (int)$tw9->hiValue_1 );
$fp->flags = -2;
});
}
}
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", "] " );
$fp->flags = -2;
});
}
} // with
}
if( (count_7 == (0)) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 5 */
fprintf( $fp->f, "%s", " <?> " );
$fp->flags = -2;
});
}
else 
if( (count_7 > (1)) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 39 */
fprintf( $fp->f, "%s", ">>> too many components in a single set" );
$fp->flags = -2;
});
}
}
else 
if( ($tw8->n_1 == (2)) )
{
if( ($tw8->setOpKind_1 == (5)) )
{
sxpr_6( &(*f_7), $tw8->setLeft_1 );
({
text  *const $fp = &(*f_7);
{char $c = 43;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
sxpr_6( &(*f_7), $tw8->setRight_1 );
}
else 
if( ($tw8->setOpKind_1 == (0)) )
{
if( ($tw8->setLeft_1 == (NULL)) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 4 */
fprintf( $fp->f, "%s", " [] " );
$fp->flags = -2;
});
}
else 
if( ((( /* &pointer Node */ (*$tw8->setLeft_1).n_1 == (2))) && ((( /* &pointer Node */ (*$tw8->setLeft_1).setOpKind_1 == (5))))) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", " (" );
$fp->flags = -2;
});
sxpr_6( &(*f_7), $tw8->setLeft_1 );
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", ") " );
$fp->flags = -2;
});
}
else 
{
sxpr_6( &(*f_7), $tw8->setLeft_1 );
}
({
text  *const $fp = &(*f_7);
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
if( ($tw8->setRight_1 == (NULL)) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 4 */
fprintf( $fp->f, "%s", " [] " );
$fp->flags = -2;
});
}
else 
if( ((( /* &pointer Node */ (*$tw8->setRight_1).n_1 == (2))) && ((( /* &pointer Node */ (*$tw8->setRight_1).setOpKind_1 == (5))))) )
{
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", " (" );
$fp->flags = -2;
});
sxpr_6( &(*f_7), $tw8->setRight_1 );
({
text  *const $fp = &(*f_7);
/* const string, len is 2 */
fprintf( $fp->f, "%s", ") " );
$fp->flags = -2;
});
}
else 
{
sxpr_6( &(*f_7), $tw8->setRight_1 );
}
}
else 
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", ">>> unexpected set operation" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
({
text *const $fp = &output_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", ">>> unexpected node in set expression" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
} /* sxpr_6() */
bool  sxChTerm_6(exprTreePtr_1  t_7) {
bool $result6;
bool  /* form (0) */ result_7;
int  /* form (0) */ ehi_7, elo_7;
int  /* form (0) */ nvars_7;
int  /* form (0) */ nsets_7;
void getLimC_7(exprTreePtr_1  t_8, int  *const l_8, int  *const h_8, int  *const us_8, int  *const uv_8) {
int  /* form (0) */ hh_8, ll_8;
if( (t_8 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", ">>> getLimC: unexpected nil expression tree" );
$fp->flags = -2;
});
}
else 
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*t_8);
{
if( ($tw9->n_1 == (2)) )
{
getLimC_7( $tw9->setLeft_1, &(*l_8), &(*h_8), &(*us_8), &(*uv_8) );
getLimC_7( $tw9->setRight_1, &(*l_8), &(*h_8), &(*us_8), &(*uv_8) );
}
else 
if( ($tw9->n_1 == (10)) )
{
if( ($tw9->sparent_1 != (NULL)) )
{
(*us_8) = ((*us_8) + (1));
getbounds_1( $tw9->seltype_1, &ll_8, &hh_8 );
}
else 
if( ($tw9->varList_1 != (NULL)) )
{
(*uv_8) = ((*uv_8) + (1));
ll_8 = (*l_8);
hh_8 = (*h_8);
}
else 
if( ($tw9->constList_1 != (NULL)) )
{
{ // with statement
struct constElement_1  *const $tw10 = & /* &pointer Node */ (*$tw9->constList_1);
{
ll_8 = $tw10->elvalue_1;
if( $tw10->isRange_1 )
hh_8 = $tw10->hiValue_1;
else 
hh_8 = $tw10->elvalue_1;
}
} // with
}
else 
if( ($tw9->seltype_1 == (NULL)) )
{
ll_8 = 2147483647;
hh_8 = -2147483647;
}
if( (ll_8 > ((*l_8))) )
(*l_8) = ll_8;
if( (hh_8 < ((*h_8))) )
(*h_8) = hh_8;
}
}
} // with
} /* getLimC_7() */
void getLimV_7(exprTreePtr_1  t_8) {
if( (t_8 != (NULL)) )
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*t_8);
{
if( ($tw9->n_1 == (2)) )
{
if( ($tw9->setLeft_1 != (NULL)) )
getLimV_7( $tw9->setLeft_1 );
if( ($tw9->setRight_1 != (NULL)) )
getLimV_7( $tw9->setRight_1 );
}
else 
if( ($tw9->n_1 == (10)) )
{
if( ($tw9->varList_1 != (NULL)) )
{
{ // with statement
struct varElement_1  *const $tw10 = & /* &pointer Node */ (*$tw9->varList_1);
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "{const intmax_t $lv = " );
$fp->flags = -2;
});
if( ($tw10->elvalue_1 == (NULL)) )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)-2147483647 );
$fp->flags = -2;
});
else 
{
genCExpr_4( $tw10->elvalue_1 );
if( ($tw10->isRange_1 && ((($tw10->hiValue_1 == (NULL))))) )
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " + (intmax_t)1" );
$fp->flags = -2;
});
}
if( $tw10->isRange_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", ", $hv = " );
$fp->flags = -2;
});
if( ($tw10->hiValue_1 == (NULL)) )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)2147483647 );
$fp->flags = -2;
});
else 
{
genCExpr_4( $tw10->hiValue_1 );
if( ($tw10->elvalue_1 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " - (intmax_t)1" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", ", $hv = $lv;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 42 */
fprintf( $fp->f, "%s", "if( $l<$lv ) $l=$lv; if( $h>$hv ) $h=$hv;}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
}
}
}
} // with
} /* getLimV_7() */
void mulSets_7(exprTreePtr_1  t_8) {
int  /* form (0) */ shi_8, slo_8;
if( (t_8 != (NULL)) )
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*t_8);
{
if( ($tw9->n_1 == (10)) )
{
if( ($tw9->sparent_1 != (NULL)) )
{
getbounds_1( $tw9->seltype_1, &slo_8, &shi_8 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "  $t &= " );
$fp->flags = -2;
});
if( $tw9->invert_1 )
({
text  *const $fp = &prc_1;
{char $c = 126;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genSetPtr_4( $tw9->sparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "[($i - (" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)slo_8 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ">>3))];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "/* no sparent in set */" );
$fp->flags = -2;
});
}
}
else 
if( ($tw9->n_1 == (2)) )
{
if( ($tw9->setOpKind_1 == (0)) )
{
mulSets_7( $tw9->setLeft_1 );
mulSets_7( $tw9->setRight_1 );
}
}
}
} // with
} /* mulSets_7() */
result_7 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/* checking set term <" );
$fp->flags = -2;
});
sxpr_6( &prc_1, t_7 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "> */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
elo_7 = zlo_6;
ehi_7 = zhi_6;
nsets_7 = 0;
nvars_7 = 0;
getLimC_7( t_7, &elo_7, &ehi_7, &nsets_7, &nvars_7 );
if( (elo_7 <= (ehi_7)) )
{
if( ((nsets_7 + (nvars_7)) == (0)) )
{
result_7 = 1;
}
else 
{
if( (nvars_7 > (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "if(!$r){ intmax_t $l=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)elo_7 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ", $h=" );
fprintf( $fp->f, "%1i", (int)ehi_7 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
getLimV_7( t_7 );
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "if(!$r){const int $l=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)elo_7 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ", $h=" );
fprintf( $fp->f, "%1i", (int)ehi_7 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
});
}
if( (nsets_7 == (0)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "if($l<=$h) $r=1;" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " int $i=($l>>3);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "for(; $i<=($h>>3); $i++) { uint8_t $t=~0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
mulSets_7( t_7 );
({
text  *const $fp = &prc_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "  if($i==($l>>3)) $t &= ((~0)<<($l&7));" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 42 */
fprintf( $fp->f, "%s", "  if($i==($h>>3)) $t &= (1<<(($h&7)+1))-1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "  if($t!=0) {$r=1; break;}} // for" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
$result6 = result_7;
return $result6;
} /* sxChTerm_6() */
result_6 = 1;
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*t_6);
{
if( ($tw7->n_1 == (10)) )
{
result_6 = sxChTerm_6( t_6 );
}
else 
if( ($tw7->n_1 == (2)) )
{
if( ($tw7->setOpKind_1 == (5)) )
{
result_6 = (isNonEmpty_5( $tw7->setLeft_1, zlo_6, zhi_6 ) || (isNonEmpty_5( $tw7->setRight_1, zlo_6, zhi_6 )));
}
else 
if( ($tw7->setOpKind_1 == (0)) )
{
result_6 = sxChTerm_6( t_6 );
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", ">>> isNonEmpty:  unexpected setOp node" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", ">>> isNonEmpty: unexpected node kind(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)(int)$tw7->n_1 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
} // with
$result5 = result_6;
return $result5;
} /* isNonEmpty_5() */
tmpcount_5 = 0;
rmSide_5( t_5, 0, &np_5 );
sxcopy_5( t_5, &tCheck_5, 0 );
sxuot_5( tCheck_5 );
if( (a_5 <= (b_5)) )
{
$result4 = ((((a_5 > (-2147483647))) && (isNonEmpty_5( tCheck_5, -2147483647, (a_5 - (1)) ))) || ((((b_5 < (2147483647))) && (isNonEmpty_5( tCheck_5, (b_5 + (1)), 2147483647 )))));
}
else 
{
$result4 = isNonEmpty_5( tCheck_5, b_5, a_5 );
}
sxfree_5( tCheck_5 );
return $result4;
} /* checkSet_4() */
auto void expression_4(setofsys_1 );
void selector_4(setofsys_1  fsys_5, ctp_1  fcp_5, bool  isAssign_5) {
struct attr_1  /* form (5) */ lattr_5;
ctp_1  /* form (2) */ lcp_5;
int  /* form (0) */ lmax_5, lmin_5;
exprTreePtr_1  /* form (2) */ lexpr_5;
bool  schblk_5(ctp_1  fcp_6) {
bool $result5;
disprange_1  /* form (1) */ i_6;
bool  /* form (0) */ f_6;
f_6 = 0;
{ const int $tf1 = level_1; const int $tf2 = 2;
if( $tf2 <= $tf1 ) {
i_6 = $tf1; do
if( (display_1.component[(unsigned)(i_6 - 0) ].bname_1 == (fcp_6)) )
f_6 = 1;
while(i_6 != $tf2 && (--i_6, 1) ); }}
$result5 = f_6;
return $result5;
} /* schblk_5() */
{ // with statement
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*fcp_5);
struct attr_1  *const $tw7 = &gattr_1;
{
$tw7->typtr_1 = $tw6->idtype_1;
$tw7->kind_1 = 1;
$tw7->packing_1 = 0;
$tw7->packcom_1 = 0;
$tw7->tagfieldg_1 = 0;
$tw7->ptrref_1 = 0;
$tw7->codeTree_1 = NULL;
if( ({ const int $e = $tw6->klass_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 3 || $e == 2);})
 )
switch( $tw6->klass_1 ) {
case 2 :
{
if( ($tw6->vkind_1 == (0)) )
{
$tw7->access_1 = 0;
$tw7->vlevel_1 = $tw6->vlev_1;
}
else 
{
$tw7->access_1 = 1;
}
if( ($tw7->typtr_1 != (NULL)) )
{
$tw7->packing_1 =  /* &pointer Node */ (*$tw7->typtr_1).packing_1;
$tw7->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*$tw7->codeTree_1).n_1 = 6;
 /* &pointer Node */ (*$tw7->codeTree_1).nodeVar_1 = fcp_5;
 /* &pointer Node */ (*$tw7->codeTree_1).isVar_1 = (($tw7->access_1 == (1)));
}
}
break;
case 3 :
{ // with statement
typeof(display_1.component[(unsigned)(disx_1 - 0) ]) *const $tw8 = &display_1.component[(unsigned)(disx_1 - 0) ];
{
gattr_1.packcom_1 = display_1.component[(unsigned)(disx_1 - 0) ].packing_1;
gattr_1.ptrref_1 = display_1.component[(unsigned)(disx_1 - 0) ].ptrref_1;
gattr_1.tagfieldg_1 =  /* &pointer Node */ (*fcp_5).tagfield_1;
if( ($tw8->occur_1 == (1)) )
{
$tw7->access_1 = 0;
$tw7->vlevel_1 = $tw8->clev_1;
}
else 
{
$tw7->access_1 = 1;
}
if( ($tw7->typtr_1 != (NULL)) )
{
gattr_1.packing_1 = (display_1.component[(unsigned)(disx_1 - 0) ].packing_1 || ( /* &pointer Node */ (*$tw7->typtr_1).packing_1));
$tw7->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*$tw7->codeTree_1).n_1 = 12;
 /* &pointer Node */ (*$tw7->codeTree_1).wfieldName_1 = fcp_5;
 /* &pointer Node */ (*$tw7->codeTree_1).fLevel_1 = disx_1;
}
}
} // with
break;
case 6 :
if( ($tw6->pfdeckind_1 == (0)) )
{
error_1( 150 );
$tw7->typtr_1 = NULL;
}
else 
{
if( ($tw6->pfkind_1 == (1)) )
error_1( 151 );
else 
if( !(schblk_5( fcp_5 )) )
error_1( 192 );
{
$tw7->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*$tw7->codeTree_1).n_1 = 15;
 /* &pointer Node */ (*$tw7->codeTree_1).lev_1 = $tw6->pflev_1;
 /* &pointer Node */ (*$tw7->codeTree_1).fdbg_1 = $tw6->dbg_1;
$tw7->access_1 = 0;
$tw7->vlevel_1 = ($tw6->pflev_1 + (1));
}
}
break;
} /* switch */
}
} // with
if(  /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ !((({ const int $e = sy_1;
(0 /*@ (in) set->+ node*/ || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((selectsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
) || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_5.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
));})
)) )
{
error_1( 59 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), selectsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
while(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((selectsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)
{
if( (sy_1 == (10)) )
{
do {
lattr_5 = gattr_1;
if( (lattr_5.typtr_1 == (NULL)) )
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", ">>> no array type" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
if( ( /* &pointer Node */ (*lattr_5.typtr_1).form_1 != (4)) )
error_1( 138 );
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0)) )
error_1( 113 );
if( (((lattr_5.typtr_1 != (NULL))) && ((( /* &pointer Node */ (*lattr_5.typtr_1).form_1 == (4))))) )
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_5).n_1 = 9;
 /* &pointer Node */ (*lexpr_5).aparent_1 = lattr_5.codeTree_1;
 /* &pointer Node */ (*lexpr_5).arrayType_1 = lattr_5.typtr_1;
 /* &pointer Node */ (*lexpr_5).index_1 = gattr_1.codeTree_1;
{ // with statement
struct structure_1  *const $tw6 = & /* &pointer Node */ (*lattr_5.typtr_1);
{
if( ((($tw6->inxtype_1 != (NULL))) && ((((( /* &pointer Node */ (*$tw6->inxtype_1).form_1 != (1))) || ((( /* &pointer Node */ (*$tw6->inxtype_1).rangetype_1 != (NULL)))))))) )
if( comptypes_2( $tw6->inxtype_1, gattr_1.typtr_1 ) )
{
if( ((gattr_1.kind_1 == (0))) )
checkbounds_1( $tw6->inxtype_1, gattr_1.cval_1.ival_1, 302 );
}
else 
error_1( 139 );
{ // with statement
struct attr_1  *const $tw7 = &gattr_1;
{
$tw7->typtr_1 = $tw6->aeltype_1;
$tw7->kind_1 = 1;
$tw7->codeTree_1 = lexpr_5;
$tw7->access_1 = 1;
$tw7->packing_1 = 0;
$tw7->packcom_1 = 0;
$tw7->tagfieldg_1 = 0;
$tw7->ptrref_1 = 0;
}
} // with
if( (gattr_1.typtr_1 != (NULL)) )
{
gattr_1.packcom_1 = lattr_5.packing_1;
gattr_1.packing_1 = (lattr_5.packing_1 || ( /* &pointer Node */ (*gattr_1.typtr_1).packing_1));
}
}
} // with
}
else 
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1 = lattr_5;
gattr_1.kind_1 = 2;
}
} while( ! (sy_1 != (12)));
if( (sy_1 == (11)) )
insymbol_1(  );
else 
error_1( 12 );
}
else 
if( (sy_1 == (14)) )
{
{ // with statement
struct attr_1  *const $tw6 = &gattr_1;
{
if( ($tw6->typtr_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw6->typtr_1).form_1 != (5)) )
{
error_1( 140 );
$tw6->typtr_1 = NULL;
}
}
insymbol_1(  );
if( (sy_1 == (0)) )
{
if( ($tw6->typtr_1 != (NULL)) )
{
searchsection_1(  /* &pointer Node */ (*$tw6->typtr_1).fstfld_1, &lcp_5 );
if( (lcp_5 == (NULL)) )
{
error_1( 152 );
$tw6->typtr_1 = NULL;
}
else 
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*lcp_5);
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_5).n_1 = 11;
 /* &pointer Node */ (*lexpr_5).fieldName_1 = lcp_5;
 /* &pointer Node */ (*lexpr_5).fParent_1 = gattr_1.codeTree_1;
gattr_1.codeTree_1 = lexpr_5;
$tw6->typtr_1 = $tw7->idtype_1;
gattr_1.packcom_1 = gattr_1.packing_1;
if( ($tw6->typtr_1 != (NULL)) )
gattr_1.packing_1 = (gattr_1.packing_1 || ( /* &pointer Node */ (*$tw6->typtr_1).packing_1));
gattr_1.tagfieldg_1 =  /* &pointer Node */ (*lcp_5).tagfield_1;
}
} // with
}
insymbol_1(  );
}
else 
error_1( 2 );
}
} // with
}
else 
{
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct attr_1  *const $tw6 = &gattr_1;
struct structure_1  *const $tw7 = & /* &pointer Node */ (*$tw6->typtr_1);
if( ($tw7->form_1 == (2)) )
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_5).n_1 = 4;
 /* &pointer Node */ (*lexpr_5).pparent_1 = gattr_1.codeTree_1;
 /* &pointer Node */ (*lexpr_5).ptrType_1 = $tw7->eltype_1;
gattr_1.codeTree_1 = lexpr_5;
$tw6->typtr_1 = $tw7->eltype_1;
{ // with statement
struct attr_1  *const $tw8 = &gattr_1;
{
$tw8->kind_1 = 1;
$tw8->access_1 = 1;
$tw8->packing_1 = 0;
$tw8->packcom_1 = 0;
$tw8->tagfieldg_1 = 0;
$tw8->ptrref_1 = 1;
}
} // with
}
else 
if( ($tw7->form_1 == (6)) )
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_5).n_1 = 8;
 /* &pointer Node */ (*lexpr_5).nodefBuf_1 = fcp_5;
 /* &pointer Node */ (*lexpr_5).fBufType_1 = $tw6->typtr_1;
 /* &pointer Node */ (*lexpr_5).fbParent_1 = $tw6->codeTree_1;
 /* &pointer Node */ (*lexpr_5).lvalue_1 = isAssign_5;
$tw6->codeTree_1 = lexpr_5;
$tw6->typtr_1 = $tw7->filtype_1;
}
else 
error_1( 141 );
} // with
insymbol_1(  );
}
if(  /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ !((({ const int $e = sy_1;
(0 /*@ (in) set->+ node*/ || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_5.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
) || (0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((selectsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
));})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), selectsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
}
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 == (3)) )
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 10;
$tw6->varList_1 = NULL;
$tw6->constList_1 = NULL;
$tw6->listLo_1 = 2147483647;
$tw6->listHi_1 = -2147483647;
$tw6->sparent_1 = gattr_1.codeTree_1;
$tw6->invert_1 = 0;
$tw6->seltype_1 =  /* &pointer Node */ (*gattr_1.typtr_1).elset_1;
gattr_1.codeTree_1 = lexpr_5;
getbounds_1( $tw6->seltype_1, &lmin_5, &lmax_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " /* [" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lmin_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".." );
fprintf( $fp->f, "%1i", (int)lmax_5 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", "] 3 */ " );
});
}
} // with
}
} /* selector_4() */
void call_4(setofsys_1  fsys_5, ctp_1  fcp_5) {
tStdNames_1  /* form (0) */ lkey_5;
exprTreePtr_1  /* form (2) */ lexpr_5;
void variable_5(setofsys_1  fsys_6, bool  threaten_6) {
ctp_1  /* form (2) */ lcp_6;
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$set0; })
, &lcp_6 );
insymbol_1(  );
if( (threaten_6 && ((( /* &pointer Node */ (*lcp_6).klass_1 == (2))))) )
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*lcp_6);
{
if( ($tw7->vlev_1 < (level_1)) )
$tw7->threat_1 = 1;
if( ($tw7->forcnt_1 > (0)) )
error_1( 195 );
}
} // with
}
else 
{
error_1( 2 );
lcp_6 = uvarptr_1;
}
 /* [0..48] 3 */ selector_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_6.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, lcp_6, 0 );
} /* variable_5() */
void getputresetrewriteprocedure_5(void) {
/* +packed array */  struct  {
unsigned char  component[4u]; }  /* form (4) */ modeStr_6;
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 == (6)) )
genfp_4( gattr_1.typtr_1, gattr_1.codeTree_1 );
else 
error_1( 116 );
freeTree_4( gattr_1.codeTree_1 );
switch( lkey_5 ) {
case 4 :
{
checkdefined_4(  );
checkReadable_4(  );
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "if($fp->flags==0) {" );
$fp->flags = -2;
});
if( (gattr_1.typtr_1 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "const int $c = fgetc($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "if($c == EOF) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 55 */
fprintf( $fp->f, "%s", "if($fp->buffer==2) _Pfatal(\"get attempted when at eof\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "$fp->buffer=2;}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "else { $fp->buffer=($c=='\\n'?2:1); } }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 55 */
fprintf( $fp->f, "%s", "else { $fp->buffer=$fp->flags; $fp->flags = 0; } // get" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 86 */
fprintf( $fp->f, "%s", "if( fread( &$fp->buffer, sizeof($fp->buffer), 1, $fp->f)== 0 ) _Pfatal( \"get failed\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 53 */
fprintf( $fp->f, "%s", "fread( &$fp->buffer, sizeof($fp->buffer), 1, $fp->f);" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "} else {$fp->flags = 0;} // get" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
break;
case 5 :
{
checkdefined_4(  );
checkWritable_4(  );
if( debug_1 )
{
;
}
({
text  *const $fp = &prc_1;
/* const string, len is 68 */
fprintf( $fp->f, "%s", "fwrite( &$fp->buffer, sizeof($fp->buffer), 1, $fp->f); $fp->flags = " );
$fp->flags = -2;
});
if( (gattr_1.typtr_1 == (textptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "$fp->buffer=='\\n'?-1:-2; // put" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "-1; // put" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 6 :
{
if( (gattr_1.typtr_1 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "if($fp->flags==-2) putc('\\n',$fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
modeStr_6 = (typeof(modeStr_6)){{" \"r\""}};
}
else 
modeStr_6 = (typeof(modeStr_6)){{"\"rb\""}};
({
text  *const $fp = &prc_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "if( $fp->name != NULL ) { // reset" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $fp->f != NULL )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "$fp->f = freopen($fp->name, " );
$fp->flags = -2;
/* string var, len is 4 */
fprintf( $fp->f, "%.4s", modeStr_6.component );
/* const string, len is 10 */
fprintf( $fp->f, "%s", ", $fp->f);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "else" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "$fp->f = fopen($fp->name, " );
$fp->flags = -2;
/* string var, len is 4 */
fprintf( $fp->f, "%.4s", modeStr_6.component );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "} else {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
checkdefined_4(  );
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "rewind($fp->f);}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $fp->f == NULL )" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "_Pfatal(\"file not found or reset error\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (gattr_1.typtr_1 == (textptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "$fp->buffer=2;" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "$fp->flags=0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
case 7 :
{
if( (gattr_1.typtr_1 == (textptr_1)) )
modeStr_6 = (typeof(modeStr_6)){{" \"w\""}};
else 
modeStr_6 = (typeof(modeStr_6)){{"\"wb\""}};
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "if( $fp->name != NULL ) { // rewrite" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $fp->f != NULL )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "$fp->f = freopen($fp->name, " );
$fp->flags = -2;
/* string var, len is 4 */
fprintf( $fp->f, "%.4s", modeStr_6.component );
/* const string, len is 10 */
fprintf( $fp->f, "%s", ", $fp->f);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "else" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "$fp->f = fopen($fp->name, " );
$fp->flags = -2;
/* string var, len is 4 */
fprintf( $fp->f, "%.4s", modeStr_6.component );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "} else {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "if( $fp->f != NULL ) fclose($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "$fp->f = tmpfile();" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $fp->f == NULL )" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 30 */
fprintf( $fp->f, "%s", "_Pfatal(\"file rewrite error\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 16 */
fprintf( $fp->f, "%s", ");//FileNotFound" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", " $fp->flags = -1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
break;
} /* switch */
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
} /* getputresetrewriteprocedure_5() */
void pageprocedure_5(void) {
if( (sy_1 == (8)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
if( (gattr_1.typtr_1 != (textptr_1)) )
error_1( 116 );
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "({ text *const $fp = &" );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
}
freeTree_4( gattr_1.codeTree_1 );
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
if( outputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "({ text *const $fp = &" );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
 /* &pointer Node */ (*outputptr_1).refer_1 = 1;
}
else 
error_1( 176 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
checkdefined_4(  );
checkWritable_4(  );
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "if($fp->flags == -2) fputc( '\\n', $fp->f );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 63 */
fprintf( $fp->f, "%s", "if($fp->flags < 0) {fputc( '\\f', $fp->f ); $fp->flags = -1;} })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} /* pageprocedure_5() */
void readprocedure_5(void) {
stp_1  /* form (2) */ lsp_6;
bool  /* form (0) */ txt_6;
bool  /* form (0) */ test_6;
bool  /* form (0) */ chkflags_6;
int  /* form (0) */ lmax_6, lmin_6;
exprTreePtr_1  /* form (2) */ iexpr_6;
txt_6 = 1;
chkflags_6 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (sy_1 == (8)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 1 );
lsp_6 = gattr_1.typtr_1;
test_6 = 0;
if( (lsp_6 != (NULL)) )
if( ( /* &pointer Node */ (*lsp_6).form_1 == (6)) )
{ // with statement
struct attr_1  *const $tw7 = &gattr_1;
{
genfp_4( $tw7->typtr_1, $tw7->codeTree_1 );
freeTree_4( $tw7->codeTree_1 );
checkdefined_4(  );
checkReadable_4(  );
txt_6 = (lsp_6 == (textptr_1));
if( (!(txt_6) && (((lkey_5 == (10))))) )
error_1( 116 );
if( (sy_1 == (9)) )
{
if( (lkey_5 == (8)) )
error_1( 116 );
test_6 = 1;
}
else 
if( (sy_1 != (12)) )
{
error_1( 116 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
if( (sy_1 == (12)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 1 );
}
else 
test_6 = 1;
}
} // with
else 
if( inputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "text *const $fp = &" );
$fp->flags = -2;
});
writeId_1( inputptr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
 /* &pointer Node */ (*inputptr_1).refer_1 = 1;
}
else 
error_1( 175 );
if( !(test_6) )
do {
iexpr_6 = gattr_1.codeTree_1;
if( txt_6 )
{
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 <= (1)) )
{
if( comptypes_2( intptr_1, gattr_1.typtr_1 ) )
{
if( chkflags_6 )
{
chkflags_6 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 70 */
fprintf( $fp->f, "%s", "if( $fp->flags>0 ) ungetc(($fp->flags==2? '\\n': $fp->buffer), $fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "$fp->buffer=1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "({ intmax_t $i;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 48 */
fprintf( $fp->f, "%s", "const int $r = fscanf( $fp->f, \"%\"SCNdMAX, &$i);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "if($r!=1) _Pfatal(\"read integer failed\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
getbounds_1( gattr_1.typtr_1, &lmin_6, &lmax_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "if( $i>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lmax_6 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "|| $i<" );
fprintf( $fp->f, "%1i", (int)lmin_6 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "_Pfatal(\"value read is out of range\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", " = $i;});" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( comptypes_2( realptr_1, gattr_1.typtr_1 ) )
{
if( chkflags_6 )
{
chkflags_6 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 70 */
fprintf( $fp->f, "%s", "if( $fp->flags>0 ) ungetc(($fp->flags==2? '\\n': $fp->buffer), $fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "$fp->buffer=1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "{const int $r=fscanf( $fp->f, \" %lf\", &" );
$fp->flags = -2;
});
genCExpr_4( iexpr_6 );
if( debug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "); if($r!=1) _Pfatal(\"read real failed\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", " );};" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( comptypes_2( charptr_1, gattr_1.typtr_1 ) )
{
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " = " );
$fp->flags = -2;
});
if( chkflags_6 )
{
chkflags_6 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 72 */
fprintf( $fp->f, "%s", "$fp->flags>0 ? ({char $c = $fp->buffer; $fp->buffer=$fp->flags; $c;}) : " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "({int $c = fgetc($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 67 */
fprintf( $fp->f, "%s", "if($c==EOF && $fp->buffer==2) _Pfatal(\"attempted read char at eof\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "if( $c=='\\n' || $c==EOF) { " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 45 */
fprintf( $fp->f, "%s", "$c = ' '; $fp->buffer=2;} else $fp->buffer=1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
getbounds_1( gattr_1.typtr_1, &lmin_6, &lmax_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "if( $c>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lmax_6 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "|| $c<" );
fprintf( $fp->f, "%1i", (int)lmin_6 );
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
});
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "_Pfatal(\"value read is out of range\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", " $c;});" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
error_1( 399 );
}
else 
error_1( 116 );
}
else 
{
if( !(comptypes_2( gattr_1.typtr_1,  /* &pointer Node */ (*lsp_6).filtype_1 )) )
error_1( 129 );
if( chkflags_6 )
{
chkflags_6 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "if( $fp->flags>0)" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", " = $fp->buffer;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "else" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( gattr_1.packcom_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", "{ int $n = fread(&$fp->buffer, " );
$fp->flags = -2;
/* const string, len is 32 */
fprintf( $fp->f, "%s", "sizeof($fp->buffer), 1, $fp->f);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "if($n != 1)" );
$fp->flags = -2;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "_Pfatal(\"read failed\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " = $fp->buffer;}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "if(fread(&" );
$fp->flags = -2;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", ", sizeof($fp->buffer), 1, $fp->f) != 1)" );
$fp->flags = -2;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "_Pfatal(\"read failed\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "fread(&" );
$fp->flags = -2;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", ", sizeof($fp->buffer), 1, $fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
test_6 = (sy_1 != (12));
freeTree_4( iexpr_6 );
if( !(test_6) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 1 );
}
} while( ! test_6);
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
{
if( inputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "text *const $fp = &" );
$fp->flags = -2;
});
writeId_1( inputptr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
 /* &pointer Node */ (*inputptr_1).refer_1 = 1;
}
else 
error_1( 175 );
if( (lkey_5 != (10)) )
error_1( 116 );
}
if( (lkey_5 == (10)) )
{
if( chkflags_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "if($fp->flags!=2) " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "{ int $c=fgetc($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "if($c==EOF && " );
$fp->flags = -2;
});
if( chkflags_6 )
{
chkflags_6 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "$fp->flags==0 &&  " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "$fp->buffer==2)" );
$fp->flags = -2;
/* const string, len is 37 */
fprintf( $fp->f, "%s", "_Pfatal(\"attempted read char at eof\"," );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 62 */
fprintf( $fp->f, "%s", "while(($c != EOF) && ($c != '\\n')) $c=fgetc($fp->f);} //readln" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "$fp->buffer = 2; " );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "$fp->flags = 0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} /* readprocedure_5() */
void writeprocedure_5(void) {
stp_1  /* form (2) */ lsp1_6, lsp_6;
bool  /* form (0) */ isPrec_6, isTotWid_6;
bool  /* form (0) */ isvPrec_6, isvWid_6;
int  /* form (0) */ cWid1_6, cWid_6;
int  /* form (0) */ len_6;
int  /* form (0) */ ewid_6, emax_6;
bool  /* form (0) */ txt_6;
struct attr_1  /* form (5) */ vattr_6;
bool  /* form (0) */ test_6;
exprTreePtr_1  /* form (2) */ oexpr_6;
exprTreePtr_1  /* form (2) */ wexpr_6;
exprTreePtr_1  /* form (2) */ pexpr_6;
bool  /* form (0) */ testFlags_6;
txt_6 = 1;
testFlags_6 = 1;
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (sy_1 == (8)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
lsp_6 = gattr_1.typtr_1;
test_6 = 0;
if( (lsp_6 != (NULL)) )
{
if( ( /* &pointer Node */ (*lsp_6).form_1 == (6)) )
{
{ // with statement
struct attr_1  *const $tw7 = &gattr_1;
{
genfp_4( $tw7->typtr_1, $tw7->codeTree_1 );
freeTree_4( $tw7->codeTree_1 );
checkdefined_4(  );
checkWritable_4(  );
lsp1_6 = lsp_6;
txt_6 = (lsp_6 == (textptr_1));
if( (!(txt_6) && (((lkey_5 == (11))))) )
error_1( 116 );
if( (sy_1 == (9)) )
{
if( (lkey_5 == (9)) )
error_1( 116 );
test_6 = 1;
}
else 
if( (sy_1 != (12)) )
{
error_1( 116 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
if( (sy_1 == (12)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
else 
test_6 = 1;
}
} // with
}
else 
if( outputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "text *const $fp = &" );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
 /* &pointer Node */ (*outputptr_1).refer_1 = 1;
}
else 
error_1( 176 );
}
else 
if( outputhdf_1 )
{
 /* &pointer Node */ (*outputptr_1).refer_1 = 1;
}
if( !(test_6) )
do {
oexpr_6 = gattr_1.codeTree_1;
vattr_6 = gattr_1;
lsp_6 = gattr_1.typtr_1;
if( txt_6 )
{
isvWid_6 = 0;
isvPrec_6 = 0;
if( (sy_1 == (16)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
wexpr_6 = gattr_1.codeTree_1;
if( (gattr_1.typtr_1 != (NULL)) )
{
if( (gattr_1.typtr_1 != (intptr_1)) )
error_1( 116 );
if( (gattr_1.kind_1 == (0)) )
{
cWid_6 = gattr_1.cval_1.ival_1;
}
else 
{
isvWid_6 = 1;
}
}
isTotWid_6 = 1;
}
else 
isTotWid_6 = 0;
if( (sy_1 == (16)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
pexpr_6 = gattr_1.codeTree_1;
if( (gattr_1.typtr_1 != (NULL)) )
{
if( (gattr_1.typtr_1 != (intptr_1)) )
error_1( 116 );
if( (gattr_1.kind_1 == (0)) )
{
cWid1_6 = gattr_1.cval_1.ival_1;
if( (cWid1_6 < (0)) )
error_1( 209 );
}
else 
{
isvPrec_6 = 1;
}
}
if( (lsp_6 != (realptr_1)) )
error_1( 208 );
isPrec_6 = 1;
}
else 
isPrec_6 = 0;
if( (lsp_6 == (intptr_1)) )
{
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*i\", (int)" );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", (int)" );
$fp->flags = -2;
});
}
else 
if( isTotWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", "i\", (int)" );
});
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%i\", (int)" );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (lsp_6 == (realptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $w = " );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "const double $o = " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( isPrec_6 )
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%#" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"% #" );
$fp->flags = -2;
});
if( isvWid_6 )
({
text  *const $fp = &prc_1;
{char $c = 42;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
else 
if( isTotWid_6 )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)cWid_6 );
$fp->flags = -2;
});
if( isvPrec_6 )
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", ".*f\"" );
$fp->flags = -2;
});
else 
if( isPrec_6 )
({
text  *const $fp = &prc_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid1_6 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "f\"" );
});
else 
{
if( isTotWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ".*" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "e\"" );
$fp->flags = -2;
});
}
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", ", $w" );
$fp->flags = -2;
});
}
if( isvPrec_6 )
{
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", ", ({const int $p=" );
$fp->flags = -2;
});
genCExpr_4( pexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 56 */
fprintf( $fp->f, "%s", "; if($p<=0) _Pfatal(\"real format precision must be > 0\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $p;})" );
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", (int)" );
$fp->flags = -2;
});
genCExpr_4( pexpr_6 );
}
}
if( (!(isPrec_6) && (isTotWid_6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", ", ({const int $extra = " );
$fp->flags = -2;
});
emax_6 = 100;
ewid_6 = 7;
if( (308 >= (emax_6)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "fabs($o)<=0.0 ||" );
$fp->flags = -2;
});
do {
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", " (fabs($o)<1.0e" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)emax_6 );
/* const string, len is 18 */
fprintf( $fp->f, "%s", " && fabs($o)>1.0e-" );
fprintf( $fp->f, "%1i", (int)emax_6 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", ")? " );
fprintf( $fp->f, "%1i", (int)ewid_6 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " : " );
});
emax_6 = (emax_6 * (10));
ewid_6 = (ewid_6 + (1));
} while( ! (308 < (emax_6)));
}
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)ewid_6 );
$fp->flags = -2;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( isvWid_6 )
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "const int $precision = $w - $extra;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "const int $precision = " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", " - $extra;" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "($precision > 0)? $precision: 1; })" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", ", $o ); });" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (lsp_6 == (charptr_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "{char $c = " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "int $w = " );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 48 */
fprintf( $fp->f, "%s", "; if( $w != 0 ) fprintf( $fp->f, \"%*c\", $w, $c);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isTotWid_6 )
{
if( (cWid_6 != (0)) )
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "c\", $c);" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%c\", $c);" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " };" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (lsp_6 == (boolptr_1)) )
{
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", "({ const int $w = " );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "if(" );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ") " );
$fp->flags = -2;
/* const string, len is 62 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*.*s\", $w, (abs($w)<4?abs($w):4), \"true\" );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "else " );
$fp->flags = -2;
/* const string, len is 67 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*.*s\", $w, (abs($w)<5?abs($w):5), \"false\" ); });" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isTotWid_6 )
{
if( (abs(cWid_6) <= (4)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%." );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)abs(cWid_6) );
/* const string, len is 5 */
fprintf( $fp->f, "%s", "s\", (" );
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", ")? \"true\" : \"false\" );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "if(" );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", ") fprintf( $fp->f, \"%" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
});
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", ".4s\", \"true\");" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "else fprintf( $fp->f, \"%" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
/* const string, len is 16 */
fprintf( $fp->f, "%s", ".5s\", \"false\" );" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%s\", (" );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", ")? \"true\" : \"false\" );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
else 
if( (lsp_6 != (NULL)) )
{
if( ( /* &pointer Node */ (*lsp_6).form_1 == (0)) )
error_1( 399 );
else 
if( ( /* &pointer Node */ (*lsp_6).form_1 == (2)) )
{
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*p\", (int)" );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
}
else 
if( isTotWid_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cWid_6 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "p\"" );
});
}
else 
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%p\"" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", ", (void*)" );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isString_2( lsp_6 ) )
{
if( (vattr_6.kind_1 == (0)) )
{
len_6 =  /* &pointer Node */ (*vattr_6.cval_1.valp_1).slgth_1;
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "/* const string, len is " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "  const int $w1 = (int)" );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", ";  const int $w2 = (abs($w1)<" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 13 */
fprintf( $fp->f, "%s", ")? abs($w1): " );
fprintf( $fp->f, "%1i", (int)len_6 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*.*s\", $w1, $w2, " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " );}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isTotWid_6 )
{
if( (abs(cWid_6) < (len_6)) )
len_6 = abs(cWid_6);
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%" );
$fp->flags = -2;
});
if( (cWid_6 != (0)) )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)cWid_6 );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "s\", " );
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%s\", " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
len_6 =  /* &pointer Node */ (* /* &pointer Node */ (*lsp_6).inxtype_1).smax_1;
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/* string var, len is " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( isvWid_6 )
{
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "  const int $t1 = (int)" );
$fp->flags = -2;
});
genCExpr_4( wexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", ";  const int $t2 = (abs($t1)<" );
$fp->flags = -2;
fprintf( $fp->f, "%i", (int)len_6 );
/* const string, len is 13 */
fprintf( $fp->f, "%s", ")? abs($t1): " );
fprintf( $fp->f, "%1i", (int)len_6 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%*.*s\", $t1, $t2, " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", ".component );}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( isTotWid_6 )
{
if( (abs(cWid_6) < (len_6)) )
len_6 = abs(cWid_6);
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%" );
$fp->flags = -2;
});
if( (cWid_6 != (0)) )
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)cWid_6 );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "s\", " );
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", ".component );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"%." );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)len_6 );
/* const string, len is 4 */
fprintf( $fp->f, "%s", "s\", " );
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", ".component );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
}
else 
error_1( 116 );
}
else 
{
;
}
if( testFlags_6 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "$fp->flags = -2;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
testFlags_6 = 0;
}
if( isTotWid_6 )
freeTree_4( wexpr_6 );
if( isPrec_6 )
freeTree_4( pexpr_6 );
}
else 
{
if( !(comptypes_2(  /* &pointer Node */ (*lsp1_6).filtype_1, lsp_6 )) )
error_1( 129 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "$fp-> buffer = " );
$fp->flags = -2;
});
genCExpr_4( oexpr_6 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 80 */
fprintf( $fp->f, "%s", "fwrite( &$fp->buffer, sizeof($fp->buffer), 1, $fp->f); $fp->flags = -1; // write" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
freeTree_4( oexpr_6 );
test_6 = (sy_1 != (12));
if( !(test_6) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
} while( ! test_6);
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
{
if( outputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "text *const $fp = &" );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
 /* &pointer Node */ (*outputptr_1).refer_1 = 1;
}
else 
error_1( 176 );
if( (lkey_5 != (11)) )
error_1( 116 );
}
if( (lkey_5 == (11)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "fprintf( $fp->f, \"\\n\");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "$fp->flags = -1;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
} /* writeprocedure_5() */
void packprocedure_5(void) {
stp_1  /* form (2) */ lsp1_6, lsp_6;
struct attr_1  /* form (5) */ lattr_6;
exprTreePtr_1  /* form (2) */ iexpr_6;
int  /* form (0) */ hi_6, lo_6;
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
lsp_6 = NULL;
lsp1_6 = NULL;
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.typtr_1);
if( ($tw7->form_1 == (4)) )
{
if( $tw7->packing_1 )
error_1( -4 );
lsp_6 = $tw7->inxtype_1;
lsp1_6 = $tw7->aeltype_1;
if( $tw7->confFlag_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $lo2=" );
$fp->flags = -2;
});
writeId_1( $tw7->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi2=" );
$fp->flags = -2;
});
writeId_1( $tw7->highbound_1 );
}
else 
{
getbounds_1( lsp_6, &lo_6, &hi_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $lo2=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi2=" );
fprintf( $fp->f, "%1i", (int)hi_6 );
});
}
}
else 
error_1( 116 );
} // with
lattr_6 = gattr_1;
if( (sy_1 == (12)) )
insymbol_1(  );
else 
error_1( 20 );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
iexpr_6 = gattr_1.codeTree_1;
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0)) )
error_1( 116 );
else 
if( !(comptypes_2( lsp_6, gattr_1.typtr_1 )) )
error_1( 116 );
if( (sy_1 == (12)) )
insymbol_1(  );
else 
error_1( 20 );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.typtr_1);
if( ($tw7->form_1 == (4)) )
{
if( !($tw7->packing_1) )
error_1( -5 );
if( $tw7->confFlag_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $lo1=" );
$fp->flags = -2;
});
writeId_1( $tw7->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi1=" );
$fp->flags = -2;
});
writeId_1( $tw7->highbound_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
getbounds_1( $tw7->inxtype_1, &lo_6, &hi_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $lo1=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi1=" );
fprintf( $fp->f, "%1i", (int)hi_6 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( !(comptypes_2( $tw7->aeltype_1, lsp1_6 )) )
error_1( 116 );
else 
if( filecomponent_2( $tw7->aeltype_1 ) )
error_1( 146 );
}
else 
error_1( 116 );
} // with
if( (((gattr_1.typtr_1 != (NULL))) && (((lattr_6.typtr_1 != (NULL))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "memcpy( " );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", ".component, " );
$fp->flags = -2;
});
genCExpr_4( lattr_6.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", ".component - $lo2 + " );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "({ int $i = " );
$fp->flags = -2;
});
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "; if($i>$hi2-$hi1+$lo1 || $i<$lo2) " );
$fp->flags = -2;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "_Pfatal(\"pack bounds error\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $i;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
genCExpr_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", ", sizeof( " );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", " )); // pack()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
freeTree_4( lattr_6.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
freeTree_4( iexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
} /* packprocedure_5() */
void unpackprocedure_5(void) {
stp_1  /* form (2) */ lsp1_6, lsp_6;
struct attr_1  /* form (5) */ lattr1_6, lattr_6;
int  /* form (0) */ hi_6, lo_6;
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
lsp_6 = NULL;
lsp1_6 = NULL;
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.typtr_1);
if( ($tw7->form_1 == (4)) )
{
if( !($tw7->packing_1) )
error_1( -5 );
lsp1_6 = $tw7->aeltype_1;
if( $tw7->confFlag_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $lo1=" );
$fp->flags = -2;
});
writeId_1( $tw7->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi1=" );
$fp->flags = -2;
});
writeId_1( $tw7->highbound_1 );
}
else 
{
getbounds_1( $tw7->inxtype_1, &lo_6, &hi_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "const int $lo1=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi1=" );
fprintf( $fp->f, "%1i", (int)hi_6 );
});
}
}
else 
error_1( 116 );
} // with
lattr_6 = gattr_1;
if( (sy_1 == (12)) )
insymbol_1(  );
else 
error_1( 20 );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 0 );
lattr1_6 = gattr_1;
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.typtr_1);
if( ($tw7->form_1 == (4)) )
{
if( $tw7->packing_1 )
error_1( -4 );
lsp_6 = $tw7->inxtype_1;
if( $tw7->confFlag_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $lo2=" );
$fp->flags = -2;
});
writeId_1( $tw7->lowbound_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi2=" );
$fp->flags = -2;
});
writeId_1( $tw7->highbound_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
getbounds_1( $tw7->inxtype_1, &lo_6, &hi_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $lo2=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_6 );
/* const string, len is 7 */
fprintf( $fp->f, "%s", ", $hi2=" );
fprintf( $fp->f, "%1i", (int)hi_6 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( !(comptypes_2( $tw7->aeltype_1, lsp1_6 )) )
error_1( 116 );
else 
if( filecomponent_2( $tw7->aeltype_1 ) )
error_1( 146 );
}
else 
error_1( 116 );
} // with
if( (sy_1 == (12)) )
insymbol_1(  );
else 
error_1( 20 );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
 );
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0)) )
error_1( 116 );
else 
if( !(comptypes_2( lsp_6, gattr_1.typtr_1 )) )
error_1( 116 );
if( (((lattr_6.typtr_1 != (NULL))) && (((lattr1_6.typtr_1 != (NULL))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "memcpy( " );
$fp->flags = -2;
});
genCExpr_4( lattr1_6.codeTree_1 );
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 32 */
fprintf( $fp->f, "%s", ".component - $lo2 + ({ int $i = " );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "; if($i>$hi2-$hi1+$lo1 || $i<$lo2) " );
$fp->flags = -2;
/* const string, len is 32 */
fprintf( $fp->f, "%s", " _Pfatal(\"unpack bounds error\", " );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 10 */
fprintf( $fp->f, "%s", "); $i;}), " );
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", ".component - $lo2 + " );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ", " );
$fp->flags = -2;
});
}
genCExpr_4( lattr_6.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", ".component, sizeof( " );
$fp->flags = -2;
});
genCExpr_4( lattr_6.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", " )); // unpack()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
freeTree_4( lattr_6.codeTree_1 );
freeTree_4( lattr1_6.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
} /* unpackprocedure_5() */
void newdisposeprocedure_5(void) {
jmp_buf _PJB5;
stp_1  /* form (2) */ lsp1_6, lsp_6;
struct valu_1  /* form (5) */ lval_6;
exprTreePtr_1  /* form (2) */ lexpr_6;
stp_1  /* form (2) */ mtype_6;
void prPtr_6(void) {
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "(*$p)" );
$fp->flags = -2;
});
} /* prPtr_6() */
if( (lkey_5 == (15)) )
{
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 0 );
}
else 
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
lexpr_6 = gattr_1.codeTree_1;
lsp_6 = NULL;
mtype_6 = NULL;
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.typtr_1);
if( ($tw7->form_1 == (2)) )
{
mtype_6 = $tw7->eltype_1;
if( ($tw7->eltype_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*$tw7->eltype_1).form_1 == (5)) )
lsp_6 =  /* &pointer Node */ (*$tw7->eltype_1).recvar_1;
}
}
else 
error_1( 116 );
} // with
while( (sy_1 == (12)))
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, &lsp1_6, &lval_6 );
if( (lsp_6 == (NULL)) )
error_1( 158 );
else 
if( ( /* &pointer Node */ (*lsp_6).form_1 != (7)) )
error_1( 162 );
else 
if( ( /* &pointer Node */ (*lsp_6).tagfieldp_1 != (NULL)) )
if( (isString_2( lsp1_6 ) || (((lsp1_6 == (realptr_1))))) )
error_1( 159 );
else 
if( comptypes_2(  /* &pointer Node */ (* /* &pointer Node */ (*lsp_6).tagfieldp_1).idtype_1, lsp1_6 ) )
{
lsp1_6 =  /* &pointer Node */ (*lsp_6).fstvar_1;
while( (lsp1_6 != (NULL)))
{ // with statement
struct structure_1  *const $tw7 = & /* &pointer Node */ (*lsp1_6);
if( ($tw7->varval_1 == (lval_6.ival_1)) )
{
lsp_6 = $tw7->subvar_1;
goto _PL5;
}
else 
lsp1_6 = $tw7->nxtvar_1;
} // with
lsp_6 = NULL;
}
else 
error_1( 116 );
_PL5:
;
}
if( (lkey_5 == (15)) )
{
if( (memDebug_1 || (debug_1)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genTypeOf_4( lexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " $p " );
$fp->flags = -2;
});
}
else 
genCExpr_4( lexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", " = calloc( 1, sizeof( " );
$fp->flags = -2;
});
genCType_2( mtype_6, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "))" );
$fp->flags = -2;
});
if( (memDebug_1 || (debug_1)) )
{
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "if($p==NULL) _Pfatal(\"out of memory\", " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCExpr_4( lexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", " = $p;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( memDebug_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "_Padd_mem( &_Proot, $p, " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " );" );
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
genTypeOf_4( lexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " $p=" );
$fp->flags = -2;
});
genCExpr_4( lexpr_6 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "; " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( filecomponent_2( mtype_6 ) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "// dispose - closing files (" );
$fp->flags = -2;
});
genCType_2( mtype_6, 0 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
genCloseFiles_3( mtype_6, prPtr_6 );
}
if( memDebug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "_Pfree_mem( _Proot, $p, " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "free($p);" );
$fp->flags = -2;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "})" );
$fp->flags = -2;
});
}
freeTree_4( lexpr_6 );
} /* newdisposeprocedure_5() */
void checkIntReal_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (((gattr_1.typtr_1 != (intptr_1))) && (((gattr_1.typtr_1 != (realptr_1))))) )
{
error_1( 125 );
gattr_1.typtr_1 = intptr_1;
}
} /* checkIntReal_5() */
void checkReal_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (gattr_1.typtr_1 != (realptr_1)) )
error_1( 125 );
gattr_1.typtr_1 = intptr_1;
} /* checkReal_5() */
void oddfunction_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (gattr_1.typtr_1 != (intptr_1)) )
error_1( 125 );
gattr_1.typtr_1 = boolptr_1;
} /* oddfunction_5() */
void ordfunction_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (((gattr_1.typtr_1 == (realptr_1))) || ((( /* &pointer Node */ (*gattr_1.typtr_1).form_1 >= (3))))) )
error_1( 125 );
gattr_1.typtr_1 = intptr_1;
} /* ordfunction_5() */
void chrfunction_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (gattr_1.typtr_1 != (intptr_1)) )
error_1( 125 );
gattr_1.typtr_1 = charptr_1;
} /* chrfunction_5() */
void predsuccfunction_5(void) {
if( (gattr_1.typtr_1 != (NULL)) )
if( (((gattr_1.typtr_1 == (realptr_1))) || ((( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0))))) )
{
error_1( 125 );
gattr_1.typtr_1 = NULL;
}
} /* predsuccfunction_5() */
void eofeolnfunction_5(void) {
exprTreePtr_1  /* form (2) */ lexpr_6;
lexpr_6 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_6).n_1 = 14;
 /* &pointer Node */ (*lexpr_6).key_1 = lkey_5;
if( (sy_1 == (8)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
, 0 );
 /* &pointer Node */ (*lexpr_6).arg_1 = gattr_1.codeTree_1;
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (6)) )
error_1( 125 );
else 
if( (((lkey_5 == (27))) && (((gattr_1.typtr_1 != (textptr_1))))) )
error_1( 116 );
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
if( inputhdf_1 )
{
 /* &pointer Node */ (*lexpr_6).arg_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (* /* &pointer Node */ (*lexpr_6).arg_1);
{
$tw7->n_1 = 6;
$tw7->isVar_1 = 0;
$tw7->nodeVar_1 = inputptr_1;
}
} // with
{ // with statement
struct attr_1  *const $tw7 = &gattr_1;
{
$tw7->typtr_1 = textptr_1;
$tw7->kind_1 = 1;
$tw7->access_1 = 0;
$tw7->packing_1 = 0;
$tw7->vlevel_1 =  /* &pointer Node */ (*inputptr_1).vlev_1;
 /* &pointer Node */ (*inputptr_1).refer_1 = 1;
}
} // with
}
else 
{
error_1( 175 );
}
 /* &pointer Node */ (*lexpr_6).argType_1 = gattr_1.typtr_1;
gattr_1.codeTree_1 = lexpr_6;
gattr_1.typtr_1 = boolptr_1;
if( ( /* &pointer Node */ (*lexpr_6).argType_1 == (textptr_1)) )
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "/* eof/eoln on text file */ " );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "/* eof on bin file */ " );
$fp->flags = -2;
});
} /* eofeolnfunction_5() */
void callnonstandard_5(void) {
ctp_1  /* form (2) */ lcp_6, nxt_6;
stp_1  /* form (2) */ lspoa_6, lspof_6, lsp_6;
bool  /* form (0) */ lb_6;
bool  /* form (0) */ varp_6;
exprTreePtr_1  /* form (2) */ lexpr_6;
pfParamPtr_1  /* form (2) */ prevPar_6, xPar_6;
bool  conformable_6(stp_1  fspf_7, stp_1  fspa_7) {
bool $result6;
bool  /* form (0) */ test_7;
stp_1  /* form (2) */ lspa_7, lspf_7;
int  /* form (0) */ lmaxa_7, lmaxf_7, lmina_7, lminf_7;
if( ((((fspf_7 == (fspa_7))) || (((fspf_7 == (NULL))))) || (((fspa_7 == (NULL))))) )
{
$result6 = 1;
}
else 
if( ((( /* &pointer Node */ (*fspf_7).form_1 != (4))) || ((( /* &pointer Node */ (*fspa_7).form_1 != (4))))) )
$result6 = 0;
else 
{
test_7 =  /* &pointer Node */ (*fspf_7).confFlag_1;
if( test_7 )
test_7 = conformable_6(  /* &pointer Node */ (*fspf_7).aeltype_1,  /* &pointer Node */ (*fspa_7).aeltype_1 );
if( test_7 )
test_7 = ( /* &pointer Node */ (*fspf_7).packing_1 == ( /* &pointer Node */ (*fspa_7).packing_1));
lspf_7 =  /* &pointer Node */ (*fspf_7).inxtype_1;
if( (test_7 && (((lspf_7 != (NULL))))) )
{
lspa_7 =  /* &pointer Node */ (*fspa_7).inxtype_1;
test_7 = comptypes_2( lspf_7, lspa_7 );
if( (test_7 && (((lspa_7 != (NULL))))) )
{
getbounds_1( lspa_7, &lmina_7, &lmaxa_7 );
getbounds_1( lspf_7, &lminf_7, &lmaxf_7 );
if(  /* &pointer Node */ (*fspa_7).confFlag_1 )
{
test_7 = (((lmina_7 <= (lmaxf_7))) && (((lmaxa_7 >= (lminf_7)))));
}
else 
{
test_7 = (((lmina_7 >= (lminf_7))) && (((lmaxa_7 <= (lmaxf_7)))));
}
}
}
$result6 = test_7;
}
return $result6;
} /* conformable_6() */
void congruous_6(ctp_1  plf_7, ctp_1  pla_7) {
bool  /* form (0) */ test_7;
stp_1  /* form (2) */ oldPlaType_7, oldPlfType_7;
bool  equivalent_7(stp_1  fsp1_8, stp_1  fsp2_8) {
bool $result7;
if( ((((fsp1_8 == (NULL))) || (((fsp2_8 == (NULL))))) || (((fsp1_8 == (fsp2_8))))) )
$result7 = 1;
else 
if( ((( /* &pointer Node */ (*fsp1_8).form_1 != (4))) || ((( /* &pointer Node */ (*fsp2_8).form_1 != (4))))) )
$result7 = 0;
else 
$result7 = (((( /* &pointer Node */ (*fsp1_8).confFlag_1 && ( /* &pointer Node */ (*fsp2_8).confFlag_1)) && ((( /* &pointer Node */ (*fsp1_8).packing_1 == ( /* &pointer Node */ (*fsp2_8).packing_1))))) && (equivalent_7(  /* &pointer Node */ (*fsp1_8).aeltype_1,  /* &pointer Node */ (*fsp2_8).aeltype_1 ))) && (equivalent_7(  /* &pointer Node */ (*fsp1_8).inxtype_1,  /* &pointer Node */ (*fsp2_8).inxtype_1 )));
return $result7;
} /* equivalent_7() */
if( ( /* &pointer Node */ (*plf_7).klass_1 != ( /* &pointer Node */ (*pla_7).klass_1)) )
{
error_1( 189 );
}
else 
if( ( /* &pointer Node */ (*plf_7).klass_1 == (6)) )
{
if( (((( /* &pointer Node */ (*plf_7).idtype_1 != ( /* &pointer Node */ (*pla_7).idtype_1))) && ((( /* &pointer Node */ (*plf_7).idtype_1 != (NULL))))) && ((( /* &pointer Node */ (*pla_7).idtype_1 != (NULL))))) )
error_1( 128 );
}
oldPlfType_7 = NULL;
oldPlaType_7 = NULL;
plf_7 =  /* &pointer Node */ (*plf_7).pflist_1;
pla_7 =  /* &pointer Node */ (*pla_7).pflist_1;
while( (((plf_7 != (NULL))) && (((pla_7 != (NULL))))))
{
test_7 = ( /* &pointer Node */ (*plf_7).klass_1 == ( /* &pointer Node */ (*pla_7).klass_1));
if( test_7 )
if( ( /* &pointer Node */ (*plf_7).klass_1 == (2)) )
{
test_7 = ( /* &pointer Node */ (*plf_7).vkind_1 == ( /* &pointer Node */ (*pla_7).vkind_1));
if( test_7 )
if( (isConfArray_1(  /* &pointer Node */ (*plf_7).idtype_1 ) && ((((( /* &pointer Node */ (*plf_7).idtype_1 == (oldPlfType_7))) || ((( /* &pointer Node */ (*pla_7).idtype_1 == (oldPlaType_7)))))))) )
test_7 = ((( /* &pointer Node */ (*plf_7).idtype_1 == (oldPlfType_7))) && ((( /* &pointer Node */ (*pla_7).idtype_1 == (oldPlaType_7)))));
else 
test_7 = equivalent_7(  /* &pointer Node */ (*plf_7).idtype_1,  /* &pointer Node */ (*pla_7).idtype_1 );
}
else 
if( ({ const int $e =  /* &pointer Node */ (*plf_7).klass_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
 )
{
congruous_6( plf_7, pla_7 );
}
else 
{
({
text *const $fp = &output_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "*** unknown parameter class (" );
$fp->flags = -2;
fprintf( $fp->f, "%i", (int)(int) /* &pointer Node */ (*plf_7).klass_1 );
/* const string, len is 5 */
fprintf( $fp->f, "%s", ") ***" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( !(test_7) )
error_1( 189 );
oldPlfType_7 =  /* &pointer Node */ (*plf_7).idtype_1;
oldPlaType_7 =  /* &pointer Node */ (*pla_7).idtype_1;
plf_7 =  /* &pointer Node */ (*plf_7).next_1;
pla_7 =  /* &pointer Node */ (*pla_7).next_1;
}
if( (((plf_7 != (NULL))) || (((pla_7 != (NULL))))) )
error_1( 189 );
} /* congruous_6() */
lexpr_6 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_6).n_1 = 13;
 /* &pointer Node */ (*lexpr_6).paramList_1 = NULL;
 /* &pointer Node */ (*lexpr_6).nodeFunc_1 = fcp_5;
{ // with statement
struct identifier_1  *const $tw7 = & /* &pointer Node */ (*fcp_5);
{
nxt_6 = $tw7->pflist_1;
}
} // with
if( (sy_1 == (8)) )
{
lspof_6 = NULL;
lspoa_6 = NULL;
do {
lb_6 = 0;
if( (nxt_6 != (NULL)) )
lb_6 = ({ const int $e =  /* &pointer Node */ (*nxt_6).klass_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
;
else 
if( (fcp_5 != (ufctptr_1)) )
error_1( 126 );
insymbol_1(  );
if( lb_6 )
{
if( (sy_1 != (0)) )
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
else 
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
{
({ const int $e =  /* &pointer Node */ (*nxt_6).klass_1;
if( $e>=0 && $e<=6 ) $s0[($e>>3) - (0>>3)] |= (1<<($e&7)); });
}
$set0; })
, &lcp_6 );
congruous_6( nxt_6, lcp_6 );
xPar_6 = calloc( 1, sizeof( struct pfParam_1 ));
{ // with statement
struct pfParam_1  *const $tw7 = & /* &pointer Node */ (*xPar_6);
{
$tw7->parType_1 =  /* &pointer Node */ (*lcp_6).idtype_1;
$tw7->next_1 = NULL;
$tw7->parAccess_1 = 2;
$tw7->parExpr_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*$tw7->parExpr_1);
{
$tw8->n_1 = 7;
$tw8->fPar_1 = lcp_6;
}
} // with
}
} // with
if( ( /* &pointer Node */ (*lexpr_6).paramList_1 == (NULL)) )
 /* &pointer Node */ (*lexpr_6).paramList_1 = xPar_6;
else 
 /* &pointer Node */ (*prevPar_6).next_1 = xPar_6;
prevPar_6 = xPar_6;
insymbol_1(  );
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_5.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 9 || $e == 12);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
}
lsp_6 = NULL;
}
else 
{
varp_6 = 0;
if( (nxt_6 != (NULL)) )
varp_6 = ( /* &pointer Node */ (*nxt_6).vkind_1 == (1));
if( varp_6 )
{
 /* [0..48] 3 */  /* merge right + left --> result */ variable_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, 1 );
if( (gattr_1.typtr_1 == (NULL)) )
error_1( 154 );
}
else 
{
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
}
if( (gattr_1.typtr_1 != (NULL)) )
{
if( (nxt_6 != (NULL)) )
{
lsp_6 =  /* &pointer Node */ (*nxt_6).idtype_1;
if( (lsp_6 != (NULL)) )
{
xPar_6 = calloc( 1, sizeof( struct pfParam_1 ));
{ // with statement
struct pfParam_1  *const $tw7 = & /* &pointer Node */ (*xPar_6);
{
$tw7->parType_1 = lsp_6;
$tw7->next_1 = NULL;
$tw7->parExpr_1 = gattr_1.codeTree_1;
}
} // with
if( ( /* &pointer Node */ (*lexpr_6).paramList_1 == (NULL)) )
 /* &pointer Node */ (*lexpr_6).paramList_1 = xPar_6;
else 
 /* &pointer Node */ (*prevPar_6).next_1 = xPar_6;
prevPar_6 = xPar_6;
if( ( /* &pointer Node */ (*nxt_6).vkind_1 == (0)) )
{
 /* &pointer Node */ (*xPar_6).parAccess_1 = 0;
if( ( /* &pointer Node */ (*lsp_6).form_1 <= (3)) )
{
if( (comptypes_2( realptr_1, lsp_6 ) && (((gattr_1.typtr_1 == (intptr_1))))) )
{
gattr_1.typtr_1 = realptr_1;
}
}
else 
if( (isString_2( lsp_6 ) || (isConfArray_1( lsp_6 ))) )
{
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (* /* &pointer Node */ (*xPar_6).parExpr_1);
{
if( ((($tw7->n_1 == (5))) && ((($tw7->constType_1 == (charptr_1))))) )
{
mkStrConst_2( &$tw7->constType_1, 1 );
gattr_1.typtr_1 = $tw7->constType_1;
}
}
} // with
}
if( isConfArray_1( lsp_6 ) )
{
if( (lsp_6 == (lspof_6)) )
{
if( (gattr_1.typtr_1 != (lspoa_6)) )
error_1( 127 );
}
else 
if( !(conformable_6( lsp_6, gattr_1.typtr_1 )) )
{
error_1( 142 );
}
}
else 
if( comptypes_2( lsp_6, gattr_1.typtr_1 ) )
{
if( (((((gattr_1.kind_1 == (0))) && ((( /* &pointer Node */ (*lsp_6).form_1 <= (1))))) && (((lsp_6 != (intptr_1))))) && (((lsp_6 != (realptr_1))))) )
checkbounds_1( lsp_6, gattr_1.cval_1.ival_1, 303 );
}
else 
error_1( 142 );
}
else 
{
 /* &pointer Node */ (*xPar_6).parAccess_1 = 1;
if( gattr_1.packcom_1 )
error_1( 197 );
if( gattr_1.tagfieldg_1 )
error_1( 198 );
if( isConfArray_1( lsp_6 ) )
{
if( (lsp_6 == (lspof_6)) )
{
if( (gattr_1.typtr_1 != (lspoa_6)) )
error_1( 127 );
}
else 
if( !(conformable_6( lsp_6, gattr_1.typtr_1 )) )
{
error_1( 199 );
}
}
else 
if( (lsp_6 != (gattr_1.typtr_1)) )
error_1( 199 );
}
}
}
else 
freeTree_4( gattr_1.codeTree_1 );
}
else 
freeTree_4( gattr_1.codeTree_1 );
}
lspof_6 = lsp_6;
lspoa_6 = gattr_1.typtr_1;
if( (nxt_6 != (NULL)) )
nxt_6 =  /* &pointer Node */ (*nxt_6).next_1;
} while( ! (sy_1 != (12)));
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
if( (((nxt_6 != (NULL))) && (((fcp_5 != (ufctptr_1))))) )
error_1( 126 );
if( ( /* &pointer Node */ (*fcp_5).klass_1 == (5)) )
{
genCExpr_4( lexpr_6 );
freeTree_4( lexpr_6 );
}
else 
{
gattr_1.codeTree_1 = lexpr_6;
}
gattr_1.typtr_1 =  /* &pointer Node */ (*fcp_5).idtype_1;
} /* callnonstandard_5() */
if( ( /* &pointer Node */ (*fcp_5).pfdeckind_1 == (0)) )
{
lkey_5 =  /* &pointer Node */ (*fcp_5).key_1;
if( ( /* &pointer Node */ (*fcp_5).klass_1 == (5)) )
{
if( !((({ const int $e = lkey_5;
(0 /*@ (in) set test set node */ || $e == 12 || $e == 11 || $e == 10 || $e == 9 || $e == 8);})
)) )
if( (sy_1 == (8)) )
insymbol_1(  );
else 
error_1( 9 );
switch( lkey_5 ) {
case 4 :
case 5 :
case 6 :
case 7 :
getputresetrewriteprocedure_5(  );
break;
case 12 :
pageprocedure_5(  );
break;
case 8 :
case 10 :
readprocedure_5(  );
break;
case 9 :
case 11 :
writeprocedure_5(  );
break;
case 13 :
packprocedure_5(  );
break;
case 14 :
unpackprocedure_5(  );
break;
case 15 :
case 16 :
newdisposeprocedure_5(  );
break;
} /* switch */
if( !((({ const int $e = lkey_5;
(0 /*@ (in) set test set node */ || $e == 12 || $e == 11 || $e == 10 || $e == 9 || $e == 8);})
)) )
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
{
if( (({ const int $e = lkey_5;
(0 /*@ (in) set test set node */ || ( $e >= 17 &&   $e <= 25 ));})
) )
{
if( (sy_1 == (8)) )
insymbol_1(  );
else 
error_1( 9 );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
 );
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_5).n_1 = 14;
 /* &pointer Node */ (*lexpr_5).key_1 = lkey_5;
 /* &pointer Node */ (*lexpr_5).argType_1 = gattr_1.typtr_1;
 /* &pointer Node */ (*lexpr_5).arg_1 = gattr_1.codeTree_1;
gattr_1.codeTree_1 = lexpr_5;
switch( lkey_5 ) {
case 17 :
case 18 :
checkReal_5(  );
break;
case 19 :
case 20 :
checkIntReal_5(  );
break;
case 21 :
oddfunction_5(  );
break;
case 22 :
ordfunction_5(  );
break;
case 23 :
chrfunction_5(  );
break;
case 24 :
case 25 :
predsuccfunction_5(  );
break;
} /* switch */
if( (sy_1 == (9)) )
insymbol_1(  );
else 
error_1( 4 );
}
else 
if( (((lkey_5 == (26))) || (((lkey_5 == (27))))) )
{
eofeolnfunction_5(  );
}
}
gattr_1.kind_1 = 2;
}
else 
callnonstandard_5(  );
} /* call_4() */
void expression_4(setofsys_1  fsys_5) {
struct attr_1  /* form (5) */ lattr_5;
operator_1  /* form (0) */ lop_5;
exprTreePtr_1  /* form (2) */ lexpr_5;
void simpleexpression_5(setofsys_1  fsys_6) {
struct attr_1  /* form (5) */ lattr_6;
operator_1  /* form (0) */ lop_6;
bool  /* form (0) */ signed_6;
exprTreePtr_1  /* form (2) */ lexpr_6;
void term_6(setofsys_1  fsys_7) {
struct attr_1  /* form (5) */ lattr_7;
operator_1  /* form (0) */ lop_7;
exprTreePtr_1  /* form (2) */ lexpr_7;
void factor_7(setofsys_1  fsys_8) {
ctp_1  /* form (2) */ lcp_8;
stp_1  /* form (2) */ lsp_8;
struct attr_1  /* form (5) */ rattr_8, tattr_8;
bool  /* form (0) */ haveComma_8;
bool  /* form (0) */ errFlag_8;
exprTreePtr_1  /* form (2) */ lexpr_8;
int  /* form (0) */ thi_8, tlo_8;
constElementPtr_1  /* form (2) */ c1_8;
varElementPtr_1  /* form (2) */ v1_8;
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((facbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 58 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), facbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
}
gattr_1.typtr_1 = NULL;
gattr_1.codeTree_1 = NULL;
while(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((facbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)
{
switch( sy_1 ) {
case 0 :
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(6>>3) - (0>>3)] |= (1<<(6&7));
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(4>>3) - (0>>3)] |= (1<<(4&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$s0[(1>>3) - (0>>3)] |= (1<<(1&7));
$set0; })
, &lcp_8 );
insymbol_1(  );
if( (lcp_8 == (uvarptr_1)) )
if( (sy_1 == (8)) )
lcp_8 = ufctptr_1;
if( ( /* &pointer Node */ (*lcp_8).klass_1 == (6)) )
{
 /* [0..48] 3 */ call_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, lcp_8 );
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
$tw9->kind_1 = 2;
if( ($tw9->typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*$tw9->typtr_1).form_1 == (1)) )
$tw9->typtr_1 =  /* &pointer Node */ (*$tw9->typtr_1).rangetype_1;
}
} // with
}
else 
if( ( /* &pointer Node */ (*lcp_8).klass_1 == (1)) )
{
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
struct identifier_1  *const $tw10 = & /* &pointer Node */ (*lcp_8);
{
$tw9->typtr_1 = $tw10->idtype_1;
$tw9->kind_1 = 0;
$tw9->cval_1 = $tw10->values_1;
$tw9->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
}
} // with
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*gattr_1.codeTree_1);
{
$tw9->n_1 = 5;
$tw9->nodeCval_1 =  /* &pointer Node */ (*lcp_8).values_1;
$tw9->constType_1 =  /* &pointer Node */ (*lcp_8).idtype_1;
}
} // with
}
else 
{
if( ( /* &pointer Node */ (*lcp_8).klass_1 == (4)) )
{
{ // with statement
struct identifier_1  *const $tw9 = & /* &pointer Node */ (*lcp_8);
struct attr_1  *const $tw10 = &gattr_1;
{
$tw10->kind_1 = 1;
$tw10->typtr_1 = $tw9->idtype_1;
$tw10->access_1 = 0;
$tw10->vlevel_1 = $tw9->lev_1;
$tw10->tagfieldg_1 = 0;
$tw10->packing_1 = 0;
$tw10->packcom_1 = 0;
$tw10->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw11 = & /* &pointer Node */ (*$tw10->codeTree_1);
{
$tw11->n_1 = 6;
$tw11->nodeVar_1 = lcp_8;
$tw11->isVar_1 = 0;
}
} // with
}
} // with
}
else 
{
 /* [0..48] 3 */ selector_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, lcp_8, 0 );
}
if( (gattr_1.typtr_1 != (NULL)) )
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
struct structure_1  *const $tw10 = & /* &pointer Node */ (*$tw9->typtr_1);
if( ($tw10->form_1 == (1)) )
$tw9->typtr_1 = $tw10->rangetype_1;
} // with
}
}
break;
case 1 :
{
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
$tw9->typtr_1 = intptr_1;
$tw9->kind_1 = 0;
$tw9->cval_1 = val_1;
$tw9->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
}
} // with
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*gattr_1.codeTree_1);
{
$tw9->n_1 = 5;
$tw9->nodeCval_1 = val_1;
$tw9->constType_1 = intptr_1;
}
} // with
insymbol_1(  );
}
break;
case 2 :
{
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
$tw9->typtr_1 = realptr_1;
$tw9->kind_1 = 0;
$tw9->cval_1 = val_1;
$tw9->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw10 = & /* &pointer Node */ (*$tw9->codeTree_1);
{
$tw10->n_1 = 5;
$tw10->nodeCval_1 = val_1;
$tw10->constType_1 = realptr_1;
}
} // with
}
} // with
insymbol_1(  );
}
break;
case 3 :
{
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
if( (lgth_1 == (1)) )
$tw9->typtr_1 = charptr_1;
else 
mkStrConst_2( &$tw9->typtr_1, lgth_1 );
$tw9->kind_1 = 0;
$tw9->cval_1 = val_1;
$tw9->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw10 = & /* &pointer Node */ (*$tw9->codeTree_1);
{
$tw10->n_1 = 5;
$tw10->nodeCval_1 = val_1;
$tw10->constType_1 = $tw9->typtr_1;
}
} // with
}
} // with
insymbol_1(  );
}
break;
case 8 :
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(9>>3) - (0>>3)] |= (1<<(9&7));
$set0; })
 );
if( (gattr_1.typtr_1 != (NULL)) )
if( (((( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (3))) && (((gattr_1.kind_1 != (0))))) && (((gattr_1.kind_1 != (1))))) )
{
lexpr_8 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_8).n_1 = 3;
 /* &pointer Node */ (*lexpr_8).unOpKind_1 = 3;
 /* &pointer Node */ (*lexpr_8).operand_1 = gattr_1.codeTree_1;
gattr_1.codeTree_1 = lexpr_8;
}
if( (sy_1 == (9)) )
{
insymbol_1(  );
}
else 
error_1( 4 );
}
break;
case 4 :
{
lexpr_8 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_8).n_1 = 3;
 /* &pointer Node */ (*lexpr_8).unOpKind_1 = 2;
insymbol_1(  );
 /* [0..48] 3 */ factor_7( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
$tw9->kind_1 = 2;
 /* &pointer Node */ (*lexpr_8).operand_1 = $tw9->codeTree_1;
$tw9->codeTree_1 = lexpr_8;
if( ($tw9->typtr_1 != (NULL)) )
if( ($tw9->typtr_1 != (boolptr_1)) )
{
error_1( 135 );
$tw9->typtr_1 = NULL;
}
}
} // with
}
break;
case 10 :
{
insymbol_1(  );
lsp_8 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( lsp_8 );
{ // with statement
struct structure_1  *const $tw9 = & /* &pointer Node */ (*lsp_8);
{
$tw9->typeName_1 = NULL;
$tw9->hasFile_1 = 0;
$tw9->form_1 = 3;
$tw9->elset_1 = NULL;
$tw9->packing_1 = 0;
$tw9->matchpack_1 = 0;
}
} // with
lexpr_8 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*lexpr_8);
{
$tw9->n_1 = 10;
$tw9->varList_1 = NULL;
$tw9->constList_1 = NULL;
$tw9->listLo_1 = 2147483647;
$tw9->listHi_1 = -2147483647;
$tw9->sparent_1 = NULL;
}
} // with
if( (sy_1 == (11)) )
{
gattr_1.kind_1 = 0;
insymbol_1(  );
}
else 
{
errFlag_8 = 0;
do {
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(18>>3) - (0>>3)] |= (1<<(18&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
test_3 = errFlag_8;
if( (gattr_1.typtr_1 != (NULL)) )
{
if( ((( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0))) || (((gattr_1.typtr_1 == (realptr_1))))) )
{
error_1( 136 );
gattr_1.typtr_1 = NULL;
}
else 
if( !(comptypes_2(  /* &pointer Node */ (*lsp_8).elset_1, gattr_1.typtr_1 )) )
{
if( !(test_3) )
{
error_1( 137 );
test_3 = 1;
}
}
}
if( (gattr_1.typtr_1 == (NULL)) )
freeTree_4( gattr_1.codeTree_1 );
else 
 /* &pointer Node */ (*lsp_8).elset_1 = gattr_1.typtr_1;
rattr_8.typtr_1 = NULL;
rattr_8.codeTree_1 = NULL;
if( (sy_1 == (18)) )
{
insymbol_1(  );
tattr_8 = gattr_1;
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(11>>3) - (0>>3)] |= (1<<(11&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
 );
if( (gattr_1.typtr_1 != (NULL)) )
{
if( ((( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0))) || (((gattr_1.typtr_1 == (realptr_1))))) )
{
error_1( 136 );
gattr_1.typtr_1 = NULL;
}
else 
if( !(comptypes_2(  /* &pointer Node */ (*lsp_8).elset_1, gattr_1.typtr_1 )) )
{
if( !(test_3) )
{
error_1( 137 );
test_3 = 1;
}
}
}
if( (gattr_1.typtr_1 == (NULL)) )
freeTree_4( gattr_1.codeTree_1 );
else 
 /* &pointer Node */ (*lsp_8).elset_1 = gattr_1.typtr_1;
if( (tattr_8.typtr_1 != (NULL)) )
{
rattr_8 = gattr_1;
gattr_1 = tattr_8;
}
}
errFlag_8 = (!(errFlag_8) && (test_3));
if( (gattr_1.typtr_1 != (NULL)) )
{
if( (rattr_8.typtr_1 != (NULL)) )
{
if( (((gattr_1.kind_1 == (0))) && (((rattr_8.kind_1 == (0))))) )
{
c1_8 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw9 = & /* &pointer Node */ (*c1_8);
{
$tw9->next_1 =  /* &pointer Node */ (*lexpr_8).constList_1;
$tw9->isRange_1 = 1;
$tw9->elvalue_1 = gattr_1.cval_1.ival_1;
$tw9->hiValue_1 = rattr_8.cval_1.ival_1;
{ // with statement
struct exprTree_1  *const $tw10 = & /* &pointer Node */ (*lexpr_8);
{
if( ($tw9->elvalue_1 < ($tw10->listLo_1)) )
$tw10->listLo_1 = $tw9->elvalue_1;
if( ($tw9->hiValue_1 > ($tw10->listHi_1)) )
$tw10->listHi_1 = $tw9->hiValue_1;
}
} // with
}
} // with
freeTree_4( gattr_1.codeTree_1 );
freeTree_4( rattr_8.codeTree_1 );
 /* &pointer Node */ (*lexpr_8).constList_1 = c1_8;
}
else 
{
v1_8 = calloc( 1, sizeof( struct varElement_1 ));
{ // with statement
struct varElement_1  *const $tw9 = & /* &pointer Node */ (*v1_8);
{
$tw9->next_1 =  /* &pointer Node */ (*lexpr_8).varList_1;
$tw9->isRange_1 = 1;
$tw9->elvalue_1 = gattr_1.codeTree_1;
$tw9->hiValue_1 = rattr_8.codeTree_1;
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "/* x..y */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
 /* &pointer Node */ (*lexpr_8).varList_1 = v1_8;
}
}
else 
{
if( (gattr_1.kind_1 == (0)) )
{
c1_8 = calloc( 1, sizeof( struct constElement_1 ));
{ // with statement
struct constElement_1  *const $tw9 = & /* &pointer Node */ (*c1_8);
{
$tw9->next_1 =  /* &pointer Node */ (*lexpr_8).constList_1;
$tw9->isRange_1 = 0;
$tw9->elvalue_1 = gattr_1.cval_1.ival_1;
}
} // with
{ // with statement
struct constElement_1  *const $tw9 = & /* &pointer Node */ (*c1_8);
struct exprTree_1  *const $tw10 = & /* &pointer Node */ (*lexpr_8);
{
if( ($tw9->elvalue_1 < ($tw10->listLo_1)) )
$tw10->listLo_1 = $tw9->elvalue_1;
if( ($tw9->elvalue_1 > ($tw10->listHi_1)) )
{
$tw10->listHi_1 = $tw9->elvalue_1;
}
$tw10->constList_1 = c1_8;
}
} // with
freeTree_4( gattr_1.codeTree_1 );
}
else 
{
v1_8 = calloc( 1, sizeof( struct varElement_1 ));
{ // with statement
struct varElement_1  *const $tw9 = & /* &pointer Node */ (*v1_8);
{
$tw9->next_1 =  /* &pointer Node */ (*lexpr_8).varList_1;
$tw9->isRange_1 = 0;
$tw9->elvalue_1 = gattr_1.codeTree_1;
}
} // with
 /* &pointer Node */ (*lexpr_8).varList_1 = v1_8;
}
}
}
haveComma_8 = (sy_1 == (12));
if( haveComma_8 )
insymbol_1(  );
} while( ! !(haveComma_8));
gattr_1.kind_1 = 2;
if( (sy_1 == (11)) )
insymbol_1(  );
else 
error_1( 12 );
}
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*lexpr_8);
{
$tw9->seltype_1 =  /* &pointer Node */ (*lsp_8).elset_1;
if( ($tw9->varList_1 != (NULL)) )
{
getbounds_1( $tw9->seltype_1, &tlo_8, &thi_8 );
if( (tlo_8 < ($tw9->listLo_1)) )
$tw9->listLo_1 = tlo_8;
if( (thi_8 > ($tw9->listHi_1)) )
$tw9->listHi_1 = thi_8;
}
}
} // with
gattr_1.typtr_1 = lsp_8;
gattr_1.codeTree_1 = lexpr_8;
}
break;
case 47 :
{
{ // with statement
struct attr_1  *const $tw9 = &gattr_1;
{
$tw9->typtr_1 = nilptr_1;
$tw9->kind_1 = 0;
$tw9->codeTree_1 = calloc( 1, sizeof( struct exprTree_1 ));
}
} // with
{ // with statement
struct exprTree_1  *const $tw9 = & /* &pointer Node */ (*gattr_1.codeTree_1);
{
$tw9->n_1 = 5;
$tw9->constType_1 = nilptr_1;
}
} // with
insymbol_1(  );
}
break;
} /* switch */
if(  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_8.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_8.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), facbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
$set0; })
 );
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((facbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1.codeTree_1 = NULL;
}
}
}
} /* factor_7() */
 /* [0..48] 3 */  /* merge right + left --> result */ factor_7( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_7.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(5>>3) - (0>>3)] |= (1<<(5&7));
$set0; })
 );
while( (sy_1 == (5)))
{
lattr_7 = gattr_1;
lop_7 = op_1;
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ factor_7( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_7.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(5>>3) - (0>>3)] |= (1<<(5&7));
$set0; })
 );
if( (((lattr_7.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (NULL))))) )
{
switch( lop_7 ) {
case 0 :
if( (((lattr_7.typtr_1 != (intptr_1))) || (((gattr_1.typtr_1 != (intptr_1))))) )
{
if( (lattr_7.typtr_1 == (intptr_1)) )
{
lattr_7.typtr_1 = realptr_1;
}
else 
if( (gattr_1.typtr_1 == (intptr_1)) )
{
gattr_1.typtr_1 = realptr_1;
}
if( (((lattr_7.typtr_1 == (realptr_1))) && (((gattr_1.typtr_1 == (realptr_1))))) )
;
else 
if( ((( /* &pointer Node */ (*lattr_7.typtr_1).form_1 == (3))) && (comptypes_2( lattr_7.typtr_1, gattr_1.typtr_1 ))) )
{
;
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
}
break;
case 1 :
{
if( (gattr_1.typtr_1 == (intptr_1)) )
{
gattr_1.typtr_1 = realptr_1;
}
if( (lattr_7.typtr_1 == (intptr_1)) )
{
lattr_7.typtr_1 = realptr_1;
}
if( (((lattr_7.typtr_1 != (realptr_1))) || (((gattr_1.typtr_1 != (realptr_1))))) )
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
}
break;
case 3 :
if( (((lattr_7.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) )
{
if( (((gattr_1.kind_1 == (0))) && (((gattr_1.cval_1.ival_1 == (0))))) )
error_1( 300 );
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
break;
case 4 :
if( (((lattr_7.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) )
{
if( (((gattr_1.kind_1 == (0))) && (((gattr_1.cval_1.ival_1 == (0))))) )
error_1( 300 );
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
break;
case 2 :
if( (((lattr_7.typtr_1 != (boolptr_1))) || (((gattr_1.typtr_1 != (boolptr_1))))) )
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
break;
} /* switch */
if( (gattr_1.typtr_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*lattr_7.typtr_1).form_1 == (3)) )
{
lexpr_7 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*lexpr_7);
{
$tw8->n_1 = 2;
$tw8->setOpKind_1 = lop_7;
$tw8->setLeft_1 = lattr_7.codeTree_1;
$tw8->setRight_1 = gattr_1.codeTree_1;
findResBounds_4( lexpr_7 );
$tw8->locked_1 = 0;
}
} // with
gattr_1.kind_1 = 2;
gattr_1.codeTree_1 = lexpr_7;
}
else 
if( (((lop_7 == (2))) && (((lattr_7.kind_1 == (0))))) )
{
if( (lattr_7.cval_1.ival_1 == (0)) )
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1 = lattr_7;
}
else 
{
freeTree_4( lattr_7.codeTree_1 );
}
}
else 
if( ((((lop_7 == (2))) && (((gattr_1.kind_1 == (0))))) && (((gattr_1.cval_1.ival_1 != (0))))) )
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1 = lattr_7;
}
else 
if( (((((lattr_7.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) && (((gattr_1.kind_1 == (0))))) && (((lattr_7.kind_1 == (0))))) )
{
{ // with statement
struct valu_1  *const $tw8 = & /* &pointer Node */ (*gattr_1.codeTree_1).nodeCval_1;
{
if( ($tw8->ival_1 != (0)) )
{
switch( lop_7 ) {
case 0 :
if( (abs(lattr_7.cval_1.ival_1) > ((2147483647 / (int)(abs($tw8->ival_1))))) )
error_1( 204 );
else 
$tw8->ival_1 = (lattr_7.cval_1.ival_1 * ($tw8->ival_1));
break;
case 3 :
$tw8->ival_1 = (lattr_7.cval_1.ival_1 / (int)($tw8->ival_1));
break;
case 4 :
$tw8->ival_1 = ({ const int $d = $tw8->ival_1;
const int $a = lattr_7.cval_1.ival_1 % $d;
($d>0)? (($a>=0)? $a: $a+$d): ($a>0? $a+$d: $a);}
);
break;
} /* switch */
}
gattr_1.cval_1.ival_1 = $tw8->ival_1;
}
} // with
freeTree_4( lattr_7.codeTree_1 );
}
else 
{
lexpr_7 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_7).n_1 = 0;
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*lexpr_7);
{
$tw8->binOpKind_1 = lop_7;
$tw8->binOpType_1 = gattr_1.typtr_1;
$tw8->left_1 = lattr_7.codeTree_1;
$tw8->right_1 = gattr_1.codeTree_1;
}
} // with
gattr_1.kind_1 = 2;
gattr_1.codeTree_1 = lexpr_7;
}
}
else 
freeTree_4( lattr_7.codeTree_1 );
}
else 
{
gattr_1.typtr_1 = NULL;
freeTree_4( lattr_7.codeTree_1 );
}
}
} /* term_6() */
exprTreePtr_1  mergeSets_6(exprTreePtr_1  sexpr1_7, exprTreePtr_1  sexpr2_7) {
exprTreePtr_1 $result6;
exprTreePtr_1  /* form (2) */ resExpr_7;
exprTreePtr_1  /* form (2) */ t1_7;
constElementPtr_1  /* form (2) */ c1_7;
varElementPtr_1  /* form (2) */ v1_7;
if( ( /* &pointer Node */ (*sexpr1_7).sparent_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", " /* merge left + right --> result */ " );
$fp->flags = -2;
});
t1_7 = sexpr1_7;
resExpr_7 = sexpr2_7;
}
else 
if( ( /* &pointer Node */ (*sexpr2_7).sparent_1 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 37 */
fprintf( $fp->f, "%s", " /* merge right + left --> result */ " );
$fp->flags = -2;
});
t1_7 = sexpr2_7;
resExpr_7 = sexpr1_7;
}
{ // with statement
struct exprTree_1  *const $tw8 = & /* &pointer Node */ (*resExpr_7);
{
c1_7 = $tw8->constList_1;
if( (c1_7 == (NULL)) )
$tw8->constList_1 =  /* &pointer Node */ (*t1_7).constList_1;
else 
{
while( ( /* &pointer Node */ (*c1_7).next_1 != (NULL)))
c1_7 =  /* &pointer Node */ (*c1_7).next_1;
 /* &pointer Node */ (*c1_7).next_1 =  /* &pointer Node */ (*t1_7).constList_1;
}
if( ($tw8->listLo_1 > ( /* &pointer Node */ (*t1_7).listLo_1)) )
$tw8->listLo_1 =  /* &pointer Node */ (*t1_7).listLo_1;
if( ($tw8->listHi_1 < ( /* &pointer Node */ (*t1_7).listHi_1)) )
$tw8->listHi_1 =  /* &pointer Node */ (*t1_7).listHi_1;
v1_7 = $tw8->varList_1;
if( (v1_7 == (NULL)) )
{
$tw8->varList_1 =  /* &pointer Node */ (*t1_7).varList_1;
}
else 
{
while( ( /* &pointer Node */ (*v1_7).next_1 != (NULL)))
v1_7 =  /* &pointer Node */ (*v1_7).next_1;
 /* &pointer Node */ (*v1_7).next_1 =  /* &pointer Node */ (*t1_7).varList_1;
}
if( ($tw8->seltype_1 == (NULL)) )
$tw8->seltype_1 =  /* &pointer Node */ (*t1_7).seltype_1;
}
} // with
({ typeof(t1_7) $p=t1_7; 
free($p);});
$result6 = resExpr_7;
return $result6;
} /* mergeSets_6() */
signed_6 = 0;
if( (((sy_1 == (6))) && ((({ const int $e = op_1;
(0 /*@ (in) set test set node */ || $e == 6 || $e == 5);})
))) )
{
signed_6 = 1;
lop_6 = op_1;
insymbol_1(  );
}
 /* [0..48] 3 */  /* merge right + left --> result */ term_6( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_6.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(6>>3) - (0>>3)] |= (1<<(6&7));
$set0; })
 );
if( signed_6 )
{
if( (((gattr_1.typtr_1 == (intptr_1))) || (((gattr_1.typtr_1 == (realptr_1))))) )
{
if( (lop_6 == (6)) )
{
if( ((((gattr_1.kind_1 == (0))) && (((gattr_1.typtr_1 == (intptr_1))))) && ((( /* &pointer Node */ (*gattr_1.codeTree_1).n_1 == (5))))) )
{
{ // with statement
struct valu_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.codeTree_1).nodeCval_1;
{
if( ($tw7->ival_1 < (-2147483647)) )
error_1( 204 );
else 
{
$tw7->ival_1 = -($tw7->ival_1);
gattr_1.cval_1.ival_1 = -(gattr_1.cval_1.ival_1);
}
}
} // with
}
else 
{
lexpr_6 = calloc( 1, sizeof( struct exprTree_1 ));
 /* &pointer Node */ (*lexpr_6).n_1 = 3;
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*lexpr_6);
{
if( (gattr_1.typtr_1 == (intptr_1)) )
$tw7->unOpKind_1 = 1;
else 
$tw7->unOpKind_1 = 0;
$tw7->operand_1 = gattr_1.codeTree_1;
}
} // with
gattr_1.codeTree_1 = lexpr_6;
gattr_1.kind_1 = 2;
}
}
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
}
while( (sy_1 == (6)))
{
lattr_6 = gattr_1;
lop_6 = op_1;
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ term_6( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_6.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(6>>3) - (0>>3)] |= (1<<(6&7));
$set0; })
 );
if( (((lattr_6.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (NULL))))) )
{
switch( lop_6 ) {
case 5 :
if( (((lattr_6.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) )
;
else 
{
if( (lattr_6.typtr_1 == (intptr_1)) )
{
lattr_6.typtr_1 = realptr_1;
}
else 
if( (gattr_1.typtr_1 == (intptr_1)) )
{
gattr_1.typtr_1 = realptr_1;
}
if( (((lattr_6.typtr_1 == (realptr_1))) && (((gattr_1.typtr_1 == (realptr_1))))) )
;
else 
if( ((( /* &pointer Node */ (*lattr_6.typtr_1).form_1 == (3))) && (comptypes_2( lattr_6.typtr_1, gattr_1.typtr_1 ))) )
{
;
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
}
break;
case 6 :
if( (((lattr_6.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) )
;
else 
{
if( (lattr_6.typtr_1 == (intptr_1)) )
{
lattr_6.typtr_1 = realptr_1;
}
else 
if( (gattr_1.typtr_1 == (intptr_1)) )
{
gattr_1.typtr_1 = realptr_1;
}
if( (((lattr_6.typtr_1 == (realptr_1))) && (((gattr_1.typtr_1 == (realptr_1))))) )
;
else 
if( ((( /* &pointer Node */ (*lattr_6.typtr_1).form_1 == (3))) && (comptypes_2( lattr_6.typtr_1, gattr_1.typtr_1 ))) )
{
;
}
else 
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
}
break;
case 7 :
if( (((lattr_6.typtr_1 != (boolptr_1))) || (((gattr_1.typtr_1 != (boolptr_1))))) )
{
error_1( 134 );
gattr_1.typtr_1 = NULL;
}
break;
} /* switch */
if( (gattr_1.typtr_1 != (NULL)) )
{
if( ( /* &pointer Node */ (*lattr_6.typtr_1).form_1 == (3)) )
{
if( (((((lop_6 == (5))) && ((( /* &pointer Node */ (*lattr_6.codeTree_1).n_1 == (10))))) && ((( /* &pointer Node */ (*gattr_1.codeTree_1).n_1 == (10))))) && ((((( /* &pointer Node */ (*lattr_6.codeTree_1).sparent_1 == (NULL))) || ((( /* &pointer Node */ (*gattr_1.codeTree_1).sparent_1 == (NULL)))))))) )
{
lexpr_6 = mergeSets_6( lattr_6.codeTree_1, gattr_1.codeTree_1 );
}
else 
{
lexpr_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*lexpr_6);
{
$tw7->n_1 = 2;
$tw7->setOpKind_1 = lop_6;
$tw7->setLeft_1 = lattr_6.codeTree_1;
$tw7->setRight_1 = gattr_1.codeTree_1;
findResBounds_4( lexpr_6 );
$tw7->locked_1 = 0;
}
} // with
}
gattr_1.codeTree_1 = lexpr_6;
gattr_1.kind_1 = 2;
}
else 
if( (((lop_6 == (7))) && (((lattr_6.kind_1 == (0))))) )
{
if( (lattr_6.cval_1.ival_1 == (0)) )
{
freeTree_4( lattr_6.codeTree_1 );
}
else 
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1 = lattr_6;
}
}
else 
if( ((((lop_6 == (7))) && (((gattr_1.kind_1 == (0))))) && (((gattr_1.cval_1.ival_1 == (0))))) )
{
freeTree_4( gattr_1.codeTree_1 );
gattr_1 = lattr_6;
}
else 
if( (((((lattr_6.typtr_1 == (intptr_1))) && (((gattr_1.typtr_1 == (intptr_1))))) && (((gattr_1.kind_1 == (0))))) && (((lattr_6.kind_1 == (0))))) )
{
{ // with statement
struct valu_1  *const $tw7 = & /* &pointer Node */ (*gattr_1.codeTree_1).nodeCval_1;
{
switch( lop_6 ) {
case 5 :
if( ((((($tw7->ival_1 < (0))) && (((lattr_6.cval_1.ival_1 < ((-2147483647 - ($tw7->ival_1)))))))) || ((((($tw7->ival_1 > (0))) && (((lattr_6.cval_1.ival_1 > ((2147483647 - ($tw7->ival_1)))))))))) )
error_1( 204 );
else 
$tw7->ival_1 = (lattr_6.cval_1.ival_1 + ($tw7->ival_1));
break;
case 6 :
if( ((((($tw7->ival_1 > (0))) && (((lattr_6.cval_1.ival_1 < ((-2147483647 + ($tw7->ival_1)))))))) || ((((($tw7->ival_1 < (0))) && (((lattr_6.cval_1.ival_1 > ((2147483647 + ($tw7->ival_1)))))))))) )
error_1( 204 );
else 
$tw7->ival_1 = (lattr_6.cval_1.ival_1 - ($tw7->ival_1));
break;
} /* switch */
gattr_1.cval_1.ival_1 = $tw7->ival_1;
}
} // with
freeTree_4( lattr_6.codeTree_1 );
}
else 
{
lexpr_6 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw7 = & /* &pointer Node */ (*lexpr_6);
{
$tw7->n_1 = 0;
$tw7->binOpKind_1 = lop_6;
$tw7->binOpType_1 = gattr_1.typtr_1;
$tw7->left_1 = lattr_6.codeTree_1;
$tw7->right_1 = gattr_1.codeTree_1;
}
} // with
gattr_1.codeTree_1 = lexpr_6;
gattr_1.kind_1 = 2;
}
}
else 
freeTree_4( lattr_6.codeTree_1 );
}
else 
{
gattr_1.typtr_1 = NULL;
freeTree_4( lattr_6.codeTree_1 );
}
}
} /* simpleexpression_5() */
 /* [0..48] 3 */  /* merge right + left --> result */ simpleexpression_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(7>>3) - (0>>3)] |= (1<<(7&7));
$set0; })
 );
if( (sy_1 == (7)) )
{
lattr_5 = gattr_1;
lop_5 = op_1;
insymbol_1(  );
 /* [0..48] 3 */ simpleexpression_5( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_5.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
if( (((lattr_5.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (NULL))))) )
{
if( (lop_5 == (14)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 == (3)) )
if( comptypes_2( lattr_5.typtr_1,  /* &pointer Node */ (*gattr_1.typtr_1).elset_1 ) )
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 2;
$tw6->setOpKind_1 = 14;
$tw6->setLeft_1 = lattr_5.codeTree_1;
$tw6->setRight_1 = gattr_1.codeTree_1;
getbounds_1(  /* &pointer Node */ (*gattr_1.typtr_1).elset_1, &$tw6->resLo_1, &$tw6->resHi_1 );
$tw6->locked_1 = 0;
}
} // with
gattr_1.codeTree_1 = lexpr_5;
}
else 
{
error_1( 129 );
freeTree_4( lattr_5.codeTree_1 );
gattr_1.typtr_1 = NULL;
}
else 
{
error_1( 130 );
freeTree_4( lattr_5.codeTree_1 );
gattr_1.typtr_1 = NULL;
}
else 
{
if( (lattr_5.typtr_1 != (gattr_1.typtr_1)) )
{
if( (lattr_5.typtr_1 == (intptr_1)) )
{
lattr_5.typtr_1 = realptr_1;
}
else 
if( (gattr_1.typtr_1 == (intptr_1)) )
{
gattr_1.typtr_1 = realptr_1;
}
else 
if( isString_2( lattr_5.typtr_1 ) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*gattr_1.codeTree_1);
{
if( ((($tw6->n_1 == (5))) && ((($tw6->constType_1 == (charptr_1))))) )
{
mkStrConst_2( &$tw6->constType_1, 1 );
gattr_1.typtr_1 = $tw6->constType_1;
}
}
} // with
}
else 
if( isString_2( gattr_1.typtr_1 ) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lattr_5.codeTree_1);
{
if( ((($tw6->n_1 == (5))) && ((($tw6->constType_1 == (charptr_1))))) )
{
mkStrConst_2( &$tw6->constType_1, 1 );
lattr_5.typtr_1 = $tw6->constType_1;
}
}
} // with
}
}
if( comptypes_2( lattr_5.typtr_1, gattr_1.typtr_1 ) )
{
lexpr_5 = NULL;
switch(  /* &pointer Node */ (*lattr_5.typtr_1).form_1 ) {
case 0 :
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 0;
$tw6->binOpKind_1 = lop_5;
$tw6->binOpType_1 = gattr_1.typtr_1;
$tw6->left_1 = lattr_5.codeTree_1;
$tw6->right_1 = gattr_1.codeTree_1;
}
} // with
}
break;
case 2 :
{
if( ({ const int $e = lop_5;
(0 /*@ (in) set test set node */ || $e == 10 || $e == 11 || $e == 9 || $e == 8);})
 )
error_1( 131 );
else 
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 0;
$tw6->binOpKind_1 = lop_5;
$tw6->binOpType_1 = gattr_1.typtr_1;
$tw6->left_1 = lattr_5.codeTree_1;
$tw6->right_1 = gattr_1.codeTree_1;
}
} // with
}
}
break;
case 3 :
{
if( ({ const int $e = lop_5;
(0 /*@ (in) set test set node */ || $e == 11 || $e == 8);})
 )
error_1( 132 );
else 
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 2;
$tw6->setOpKind_1 = lop_5;
$tw6->setLeft_1 = lattr_5.codeTree_1;
$tw6->setRight_1 = gattr_1.codeTree_1;
$tw6->locked_1 = 0;
findResBounds_4( lexpr_5 );
}
} // with
}
}
break;
case 4 :
{
if( !(isString_2( lattr_5.typtr_1 )) )
error_1( 134 );
else 
{
lexpr_5 = calloc( 1, sizeof( struct exprTree_1 ));
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
$tw6->n_1 = 1;
$tw6->strOpKind_1 = lop_5;
$tw6->strLeft_1 = lattr_5.codeTree_1;
$tw6->strRight_1 = gattr_1.codeTree_1;
$tw6->lvar_1 = (lattr_5.kind_1 != (0));
$tw6->rvar_1 = (gattr_1.kind_1 != (0));
if( $tw6->rvar_1 )
{
$tw6->slen_1 =  /* &pointer Node */ (* /* &pointer Node */ (*gattr_1.typtr_1).inxtype_1).smax_1;
}
else 
{
$tw6->slen_1 =  /* &pointer Node */ (*gattr_1.typtr_1).slen_1;
}
}
} // with
}
}
break;
case 5 :
{
error_1( 134 );
}
break;
case 6 :
{
error_1( 133 );
}
break;
} /* switch */
if( (lexpr_5 != (NULL)) )
gattr_1.codeTree_1 = lexpr_5;
else 
freeTree_4( lattr_5.codeTree_1 );
}
else 
{
error_1( 129 );
freeTree_4( lattr_5.codeTree_1 );
}
}
}
else 
freeTree_4( lattr_5.codeTree_1 );
gattr_1.typtr_1 = boolptr_1;
gattr_1.kind_1 = 2;
}
} /* expression_4() */
void assignment_4(ctp_1  fcp_5) {
struct attr_1  /* form (5) */ lattr_5;
exprTreePtr_1  /* form (2) */ lexpr_5, lvar_5;
int  /* form (0) */ hi_5, lo_5;
 /* [0..48] 3 */  /* merge right + left --> result */ selector_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(17>>3) - (0>>3)] |= (1<<(17&7));
$set0; })
, fcp_5, 1 );
lvar_5 = gattr_1.codeTree_1;
if( (sy_1 == (17)) )
{
if( ( /* &pointer Node */ (*fcp_5).klass_1 == (6)) )
{
if( ( /* &pointer Node */ (*fcp_5).pfdeckind_1 == (1)) )
 /* &pointer Node */ (*fcp_5).asgn_1 = 1;
}
else 
if( ( /* &pointer Node */ (*fcp_5).klass_1 == (2)) )
{ // with statement
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*fcp_5);
{
if( ($tw6->vlev_1 < (level_1)) )
$tw6->threat_1 = 1;
if( ($tw6->forcnt_1 > (0)) )
error_1( 195 );
}
} // with
lattr_5 = gattr_1;
insymbol_1(  );
 /* [0..48] 3 */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
lexpr_5 = gattr_1.codeTree_1;
if( (((lattr_5.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (NULL))))) )
{
if( ( /* &pointer Node */ (*lattr_5.typtr_1).form_1 == (3)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "({ " );
$fp->flags = -2;
});
getbounds_1(  /* &pointer Node */ (*lattr_5.typtr_1).elset_1, &lo_5, &hi_5 );
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "bool $r=0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( checkSet_4( lexpr_5, lo_5, hi_5 ) )
error_1( 304 );
({
text  *const $fp = &prc_1;
/* const string, len is 54 */
fprintf( $fp->f, "%s", "if($r) _Pfatal(\"assigning element outside set bounds\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( ( /* &pointer Node */ (*lexpr_5).n_1 == (10)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "uint8_t *const $s0 = " );
$fp->flags = -2;
});
genSetPtr_4(  /* &pointer Node */ (*lvar_5).sparent_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
constructSet_4( lexpr_5, lo_5, hi_5, 0 );
}
else 
if( ( /* &pointer Node */ (*lexpr_5).n_1 == (2)) )
{
if( ((( /* &pointer Node */ (* /* &pointer Node */ (*lexpr_5).setLeft_1).n_1 == (10))) && ((((( /* &pointer Node */ (* /* &pointer Node */ (*lexpr_5).setRight_1).n_1 == (10))) && ((( /* &pointer Node */ (* /* &pointer Node */ (*lexpr_5).setRight_1).sparent_1 == (NULL)))))))) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "uint8_t *const $s0 = " );
$fp->flags = -2;
});
genSetPtr_4(  /* &pointer Node */ (*lvar_5).sparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "; /* avoid set copy */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
constructSet_4( lexpr_5, lo_5, hi_5, 0 );
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "uint8_t $s0 [(" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", ">>3)-(" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ">>3)+1]; " );
});
constructSet_4( lexpr_5, lo_5, hi_5, 0 );
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "memcpy(" );
$fp->flags = -2;
});
genSetPtr_4(  /* &pointer Node */ (*lvar_5).sparent_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", ", $s0, sizeof($s0));" );
$fp->flags = -2;
});
}
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 31 */
fprintf( $fp->f, "%s", ">>> set expression expected (4)" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "}) // $s0 := set expr" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( (lvar_5 != (NULL)) )
{
genCExpr_4( lvar_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " = " );
$fp->flags = -2;
});
if( isString_2( lattr_5.typtr_1 ) )
{
if( ( /* &pointer Node */ (*lexpr_5).n_1 == (5)) )
{
{ // with statement
struct exprTree_1  *const $tw6 = & /* &pointer Node */ (*lexpr_5);
{
if( ($tw6->constType_1 == (charptr_1)) )
{
mkStrConst_2( &$tw6->constType_1, 1 );
gattr_1.typtr_1 = $tw6->constType_1;
}
}
} // with
({
text  *const $fp = &prc_1;
{char $c = 40;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genTypeOf_4( lvar_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "){{" );
$fp->flags = -2;
});
genCExpr_4( lexpr_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "}}" );
$fp->flags = -2;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "*(" );
$fp->flags = -2;
});
genTypeOf_4( lvar_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " *)&" );
$fp->flags = -2;
});
genCExpr_4( lexpr_5 );
}
}
else 
{
{ // with statement
struct attr_1  *const $tw6 = &lattr_5;
if( ((((((gattr_1.kind_1 == (0))) && ((( /* &pointer Node */ (*$tw6->typtr_1).form_1 <= (1))))) && ((($tw6->typtr_1 != (intptr_1))))) && ((($tw6->typtr_1 != (realptr_1))))) && (comptypes_2( $tw6->typtr_1, gattr_1.typtr_1 ))) )
{
checkbounds_1( $tw6->typtr_1, gattr_1.cval_1.ival_1, 303 );
genCExpr_4( lexpr_5 );
}
else 
if( (((debug_1 && ((( /* &pointer Node */ (*$tw6->typtr_1).form_1 <= (1))))) && ((($tw6->typtr_1 != (intptr_1))))) && ((($tw6->typtr_1 != (realptr_1))))) )
{
getbounds_1( $tw6->typtr_1, &lo_5, &hi_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "({int $i = " );
$fp->flags = -2;
});
genCExpr_4( lexpr_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "; if($i>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 6 */
fprintf( $fp->f, "%s", "|| $i<" );
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 39 */
fprintf( $fp->f, "%s", ") _Pfatal(\"bounds error in assignment\"," );
fprintf( $fp->f, "%1i", (int)linecount_1 );
/* const string, len is 8 */
fprintf( $fp->f, "%s", "); $i;})" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
genCExpr_4( lexpr_5 );
} // with
}
}
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (comptypes_2( realptr_1, lattr_5.typtr_1 ) && (((gattr_1.typtr_1 == (intptr_1))))) )
{
;
}
else 
if( !(comptypes_2( lattr_5.typtr_1, gattr_1.typtr_1 )) )
error_1( 129 );
else 
if( filecomponent_2( gattr_1.typtr_1 ) )
error_1( 146 );
}
freeTree_4( lexpr_5 );
}
else 
error_1( 51 );
freeTree_4( lvar_5 );
} /* assignment_4() */
void gotostatement_4(void) {
lbp_1  /* form (2) */ llp_5;
disprange_1  /* form (1) */ ttop1_5, ttop_5;
insymbol_1(  );
if( (sy_1 == (1)) )
{
ttop_5 = top_1;
while( (display_1.component[(unsigned)(ttop_5 - 0) ].occur_1 != (0)))
ttop_5 = (ttop_5 - (1));
ttop1_5 = ttop_5;
do {
searchlabel_1( &llp_5, ttop_5 );
if( (llp_5 != (NULL)) )
{ // with statement
struct labl_1  *const $tw6 = & /* &pointer Node */ (*llp_5);
{
$tw6->refer_1 = 1;
if( $tw6->defined_1 )
if( ($tw6->slevel_1 > (stalvl_2)) )
error_1( 185 );
else 
if( ((($tw6->slevel_1 > (1))) && (!($tw6->bact_1))) )
error_1( 187 );
if( ($tw6->minlvl_1 > (stalvl_2)) )
$tw6->minlvl_1 = stalvl_2;
if( (ttop_5 == (ttop1_5)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "goto _PL" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->labname_1 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "({" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "while(_Phead!=NULL && _Phead->level>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->vlevel_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", ") {" );
});
({
text  *const $fp = &prc_1;
/* const string, len is 18 */
fprintf( $fp->f, "%s", " _Phead->cuFunc();" );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", " _Phead=_Phead->link; }; " );
$fp->flags = -2;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "longjmp( _PJB" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw6->labname_1 );
/* const string, len is 9 */
fprintf( $fp->f, "%s", ", 1 );});" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
$tw6->ipcref_1 = 1;
}
}
} // with
ttop_5 = (ttop_5 - (1));
} while( ! (((llp_5 != (NULL))) || (((ttop_5 == (0))))));
if( (llp_5 == (NULL)) )
{
error_1( 167 );
newlabel_1( &llp_5 );
 /* &pointer Node */ (*llp_5).refer_1 = 1;
}
insymbol_1(  );
}
else 
error_1( 15 );
} /* gotostatement_4() */
void compoundstatement_4(void) {
bool  /* form (0) */ done_5;
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
addlvl_3(  );
do {
do {
 /* [0..48] 3 */  /* merge right + left --> result */  /* [0..48] 0 */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(39>>3) - (0>>3)] |= (1<<(39&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
({uint8_t $s1 [(48>>3)-(0>>3)+1]; 
int $i;
/* dest bounds are 0 .. 48 */
memset($s1, 0, (48>>3)-(0>>3)+1 );
$s1[(40>>3) - (0>>3)] |= (1<<(40&7));
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] &= ~$s1[$i];
});
$set0; })
 );
} while( !  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)));
done_5 = (sy_1 != (13));
if( !(done_5) )
{
insymbol_1(  );
done_5 = (sy_1 == (39));
}
} while( ! done_5);
if( (sy_1 == (39)) )
{
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
}
else 
error_1( 13 );
sublvl_3(  );
} /* compoundstatement_4() */
void ifstatement_4(void) {
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "if( " );
$fp->flags = -2;
});
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(46>>3) - (0>>3)] |= (1<<(46&7));
$set0; })
 );
if( (((gattr_1.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (boolptr_1))))) )
{
error_1( 135 );
gattr_1.typtr_1 = NULL;
}
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (sy_1 == (46)) )
insymbol_1(  );
else 
error_1( 52 );
addlvl_3(  );
 /* [0..48] 3 */  /* merge right + left --> result */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(40>>3) - (0>>3)] |= (1<<(40&7));
$set0; })
 );
sublvl_3(  );
if( (sy_1 == (40)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "else " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
addlvl_3(  );
 /* [0..48] 3 */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
sublvl_3(  );
}
} /* ifstatement_4() */
void casestatement_4(void) {
jmp_buf _PJB6;
stp_1  /* form (2) */ lsp1_5, lsp_5;
cip_1  /* form (2) */ lpt3_5, lpt2_5, lpt1_5, fstptr_5;
struct valu_1  /* form (5) */ lval_5;
bool  /* form (0) */ test_5;
bool  /* form (0) */ caseDebug_5;
int  /* form (0) */ caseLine_5;
caseDebug_5 = debug_1;
caseLine_5 = linecount_1;
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$s0[(42>>3) - (0>>3)] |= (1<<(42&7));
$set0; })
 );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "switch( " );
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", " ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
lsp_5 = gattr_1.typtr_1;
if( (lsp_5 != (NULL)) )
if( ((( /* &pointer Node */ (*lsp_5).form_1 != (0))) || (((lsp_5 == (realptr_1))))) )
{
error_1( 144 );
lsp_5 = NULL;
}
if( (sy_1 == (42)) )
insymbol_1(  );
else 
error_1( 8 );
fstptr_5 = NULL;
do {
lpt3_5 = NULL;
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 39 || $e == 13);})
)) )
{
do {
 /* [0..48] 3 */  /* merge right + left --> result */ constant_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(16>>3) - (0>>3)] |= (1<<(16&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, &lsp1_5, &lval_5 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "case " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lval_5.ival_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", " :" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (((lsp_5 != (NULL))) && (((lsp1_5 != (NULL))))) )
if( comptypes_2( lsp_5, lsp1_5 ) )
{
lpt1_5 = fstptr_5;
lpt2_5 = NULL;
while( (lpt1_5 != (NULL)))
{ // with statement
struct caseinfo_1  *const $tw6 = & /* &pointer Node */ (*lpt1_5);
{
if( ($tw6->cslab_1 <= (lval_5.ival_1)) )
{
if( ($tw6->cslab_1 == (lval_5.ival_1)) )
error_1( 156 );
goto _PL6;
}
lpt2_5 = lpt1_5;
lpt1_5 = $tw6->next_1;
}
} // with
_PL6:
getcas_1( &lpt3_5 );
{ // with statement
struct caseinfo_1  *const $tw6 = & /* &pointer Node */ (*lpt3_5);
{
$tw6->next_1 = lpt1_5;
$tw6->cslab_1 = lval_5.ival_1;
}
} // with
if( (lpt2_5 == (NULL)) )
fstptr_5 = lpt3_5;
else 
 /* &pointer Node */ (*lpt2_5).next_1 = lpt3_5;
}
else 
error_1( 147 );
test_5 = (sy_1 != (12));
if( !(test_5) )
insymbol_1(  );
} while( ! test_5);
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
addlvl_3(  );
do {
 /* [0..48] 3 */  /* merge right + left --> result */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(39>>3) - (0>>3)] |= (1<<(39&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
} while( !  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)));
sublvl_3(  );
if( (lpt3_5 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "break;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
test_5 = (sy_1 != (13));
if( !(test_5) )
insymbol_1(  );
} while( ! test_5);
while( (fstptr_5 != (NULL)))
{
lpt1_5 = fstptr_5;
fstptr_5 =  /* &pointer Node */ (*fstptr_5).next_1;
putcas_1( lpt1_5 );
}
if( (sy_1 == (39)) )
{
if( caseDebug_5 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 51 */
fprintf( $fp->f, "%s", "default: _Pfatal(\"no case constant for expression\"," );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)caseLine_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
insymbol_1(  );
}
else 
error_1( 13 );
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "} /* switch */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} /* casestatement_4() */
void repeatstatement_4(void) {
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "do {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
addlvl_3(  );
do {
 /* [0..48] 3 */  /* merge right + left --> result */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(41>>3) - (0>>3)] |= (1<<(41&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
error_1( 14 );
} while( !  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)));
while( (sy_1 == (13)))
{
insymbol_1(  );
if( (sy_1 != (41)) )
{
do {
 /* [0..48] 3 */  /* merge right + left --> result */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(41>>3) - (0>>3)] |= (1<<(41&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
if(  /* [0..48] 3 */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
 )
error_1( 14 );
} while( !  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)));
}
}
if( (sy_1 == (41)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "} while( ! " );
$fp->flags = -2;
});
insymbol_1(  );
 /* [0..48] 3 */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
if( (((gattr_1.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (boolptr_1))))) )
{
error_1( 135 );
gattr_1.typtr_1 = NULL;
}
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
error_1( 53 );
sublvl_3(  );
} /* repeatstatement_4() */
void whilestatement_4(void) {
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "while( " );
$fp->flags = -2;
});
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$set0; })
 );
if( (((gattr_1.typtr_1 != (NULL))) && (((gattr_1.typtr_1 != (boolptr_1))))) )
{
error_1( 135 );
gattr_1.typtr_1 = NULL;
}
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
{char $c = 41;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (sy_1 == (43)) )
insymbol_1(  );
else 
error_1( 54 );
addlvl_3(  );
 /* [0..48] 3 */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
sublvl_3(  );
} /* whilestatement_4() */
void forstatement_4(void) {
struct attr_1  /* form (5) */ lattr_5;
bool  /* form (0) */ istosy_5;
int  /* form (0) */ lin_5, hi_5, lo_5;
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "{ const int $tf1 = " );
$fp->flags = -2;
});
insymbol_1(  );
lcp_4 = NULL;
{ // with statement
struct attr_1  *const $tw6 = &lattr_5;
{
$tw6->typtr_1 = NULL;
$tw6->kind_1 = 1;
$tw6->access_1 = 0;
$tw6->vlevel_1 = level_1;
$tw6->packing_1 = 0;
}
} // with
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$set0; })
, &lcp_4 );
{ // with statement
struct identifier_1  *const $tw6 = & /* &pointer Node */ (*lcp_4);
struct attr_1  *const $tw7 = &lattr_5;
{
$tw7->typtr_1 = $tw6->idtype_1;
$tw7->kind_1 = 1;
$tw7->packing_1 = 0;
if( ($tw6->threat_1 || ((($tw6->forcnt_1 > (0))))) )
error_1( 195 );
$tw6->forcnt_1 = ($tw6->forcnt_1 + (1));
if( ($tw6->vkind_1 == (0)) )
{
$tw7->access_1 = 0;
$tw7->vlevel_1 = $tw6->vlev_1;
if( ($tw6->vlev_1 != (level_1)) )
error_1( 183 );
}
else 
{
error_1( 155 );
$tw7->typtr_1 = NULL;
}
}
} // with
if( (lattr_5.typtr_1 != (NULL)) )
if( ((( /* &pointer Node */ (*lattr_5.typtr_1).form_1 <= (1))) && (!(comptypes_2( realptr_1, lattr_5.typtr_1 )))) )
getbounds_1( lattr_5.typtr_1, &lo_5, &hi_5 );
else 
{
error_1( 143 );
lattr_5.typtr_1 = NULL;
}
insymbol_1(  );
}
else 
{
error_1( 2 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$s0[(45>>3) - (0>>3)] |= (1<<(45&7));
$s0[(44>>3) - (0>>3)] |= (1<<(44&7));
$s0[(17>>3) - (0>>3)] |= (1<<(17&7));
$set0; })
 );
}
if( (sy_1 == (17)) )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$s0[(45>>3) - (0>>3)] |= (1<<(45&7));
$s0[(44>>3) - (0>>3)] |= (1<<(44&7));
$set0; })
 );
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "; const int $tf2 = " );
$fp->flags = -2;
});
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0)) )
error_1( 144 );
else 
if( !(comptypes_2( lattr_5.typtr_1, gattr_1.typtr_1 )) )
error_1( 145 );
}
else 
{
error_1( 51 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$s0[(45>>3) - (0>>3)] |= (1<<(45&7));
$s0[(44>>3) - (0>>3)] |= (1<<(44&7));
$set0; })
 );
}
istosy_5 = (sy_1 == (44));
if( ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 45 || $e == 44);})
 )
{
insymbol_1(  );
 /* [0..48] 3 */  /* merge right + left --> result */ expression_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$set0; })
 );
genCExpr_4( gattr_1.codeTree_1 );
freeTree_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( istosy_5 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $tf2 >= $tf1 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "if( $tf2 <= $tf1 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( debug_1 )
{
lin_5 = linecount_1;
if( istosy_5 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "if( $tf1<" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 63 */
fprintf( $fp->f, "%s", ") _Pfatal(\"initial value of control variable low range error\", " );
fprintf( $fp->f, "%1i", (int)lin_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "if( $tf1>" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 64 */
fprintf( $fp->f, "%s", ") _Pfatal(\"initial value of control variable high range error\", " );
fprintf( $fp->f, "%1i", (int)lin_5 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", ");" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
writeId_1( lcp_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " = $tf1; do" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 != (0)) )
error_1( 144 );
else 
if( !(comptypes_2( lattr_5.typtr_1, gattr_1.typtr_1 )) )
error_1( 145 );
}
else 
{
error_1( 55 );
 /* [0..48] 3 */  /* merge right + left --> result */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$set0; })
 );
}
if( (sy_1 == (43)) )
insymbol_1(  );
else 
error_1( 54 );
addlvl_3(  );
 /* [0..48] 3 */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "while(" );
$fp->flags = -2;
});
writeId_1( lcp_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", " != $tf2 && (" );
$fp->flags = -2;
});
if( debug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "({ if(" );
$fp->flags = -2;
});
writeId_1( lcp_4 );
if( istosy_5 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", ">=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)hi_5 );
/* const string, len is 50 */
fprintf( $fp->f, "%s", ") _Pfatal(\"control variable exceeds range limit\", " );
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "<=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lo_5 );
/* const string, len is 54 */
fprintf( $fp->f, "%s", ") _Pfatal(\"control variable falls below range limit\", " );
});
}
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "%1i", (int)lin_5 );
$fp->flags = -2;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "); 1;}), " );
});
}
if( istosy_5 )
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "++" );
$fp->flags = -2;
});
else 
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "--" );
$fp->flags = -2;
});
writeId_1( lcp_4 );
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", ", 1) ); }}" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
sublvl_3(  );
if( (lcp_4 != (NULL)) )
 /* &pointer Node */ (*lcp_4).forcnt_1 = ( /* &pointer Node */ (*lcp_4).forcnt_1 - (1));
} /* forstatement_4() */
void withstatement_4(void) {
ctp_1  /* form (2) */ lcp_5;
disprange_1  /* form (1) */ lcnt1_5;
bool  /* form (0) */ test_5;
insymbol_1(  );
lcnt1_5 = 0;
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "{ // with statement" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
do {
if( (sy_1 == (0)) )
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$set0; })
, &lcp_5 );
insymbol_1(  );
}
else 
{
error_1( 2 );
lcp_5 = uvarptr_1;
}
 /* [0..48] 3 */  /* merge right + left --> result */ selector_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(43>>3) - (0>>3)] |= (1<<(43&7));
$s0[(12>>3) - (0>>3)] |= (1<<(12&7));
$set0; })
, lcp_5, 0 );
if( (gattr_1.typtr_1 != (NULL)) )
if( ( /* &pointer Node */ (*gattr_1.typtr_1).form_1 == (5)) )
if( (top_1 < (300)) )
{
top_1 = (top_1 + (1));
lcnt1_5 = (lcnt1_5 + (1));
if( ( /* &pointer Node */ (*gattr_1.typtr_1).typeName_1 != (NULL)) )
genCType_2( gattr_1.typtr_1, 0 );
else 
{
genTypeOf_4( gattr_1.codeTree_1 );
}
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", " *const $tw" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)top_1 );
/* const string, len is 3 */
fprintf( $fp->f, "%s", " = " );
});
{ // with statement
typeof(display_1.component[(unsigned)(top_1 - 0) ]) *const $tw6 = &display_1.component[(unsigned)(top_1 - 0) ];
{
$tw6->fname_1 =  /* &pointer Node */ (*gattr_1.typtr_1).fstfld_1;
$tw6->flabel_1 = NULL;
$tw6->flabel_1 = NULL;
$tw6->fconst_1 = NULL;
$tw6->fstruct_1 = NULL;
$tw6->packing_1 = gattr_1.packing_1;
$tw6->packcom_1 = gattr_1.packcom_1;
$tw6->ptrref_1 = gattr_1.ptrref_1;
if( (gattr_1.access_1 == (0)) )
{
$tw6->occur_1 = 1;
$tw6->clev_1 = gattr_1.vlevel_1;
}
else 
{
$tw6->occur_1 = 2;
}
}
} // with
({
text  *const $fp = &prc_1;
{char $c = 38;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
});
genCExpr_4( gattr_1.codeTree_1 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
error_1( 250 );
else 
error_1( 140 );
freeTree_4( gattr_1.codeTree_1 );
test_5 = (sy_1 != (12));
if( !(test_5) )
insymbol_1(  );
} while( ! test_5);
if( (sy_1 == (43)) )
insymbol_1(  );
else 
error_1( 54 );
addlvl_3(  );
 /* [0..48] 3 */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
sublvl_3(  );
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "} // with" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
while( (lcnt1_5 > (0)))
{
display_1.component[(unsigned)(top_1 - 0) ].fname_1 = NULL;
putdsp_1( top_1 );
top_1 = (top_1 - (1));
lcnt1_5 = (lcnt1_5 - (1));
}
} /* withstatement_4() */
mergeFixedSets_4 = 0;
if( (sy_1 == (1)) )
{
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
searchlabel_1( &llp_4, level_1 );
if( (llp_4 == (NULL)) )
{
error_1( 167 );
newlabel_1( &llp_4 );
}
{ // with statement
struct labl_1  *const $tw5 = & /* &pointer Node */ (*llp_4);
{
if( $tw5->defined_1 )
error_1( 165 );
$tw5->bact_1 = 1;
$tw5->slevel_1 = stalvl_2;
$tw5->defined_1 = 1;
if( ($tw5->ipcref_1 && (((stalvl_2 > (1))))) )
error_1( 184 );
else 
if( ($tw5->minlvl_1 < (stalvl_2)) )
error_1( 186 );
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "_PL" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw5->labname_1 );
{char $c = 58;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} // with
insymbol_1(  );
if( (sy_1 == (16)) )
insymbol_1(  );
else 
error_1( 5 );
}
if(  /* [0..48] 3 */  /* merge right + left --> result */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 0);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
if(  /* [0..48] 3 */  /* merge right + left --> result */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 0);})
 )
{
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
switch( sy_1 ) {
case 0 :
{
searchid_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(6>>3) - (0>>3)] |= (1<<(6&7));
$s0[(5>>3) - (0>>3)] |= (1<<(5&7));
$s0[(4>>3) - (0>>3)] |= (1<<(4&7));
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$set0; })
, &lcp_4 );
insymbol_1(  );
if( (lcp_4 == (uvarptr_1)) )
if(  /* [0..48] 3 */  /* merge right + left --> result */ ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((fsys_4.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
 || $e == 13 || $e == 8);})
 )
lcp_4 = uprcptr_1;
if( ( /* &pointer Node */ (*lcp_4).klass_1 == (5)) )
{
 /* [0..48] 3 */ call_4( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, lcp_4 );
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
if( ( /* &pointer Node */ (*lcp_4).klass_1 == (4)) )
error_1( 224 );
assignment_4( lcp_4 );
}
}
break;
case 31 :
compoundstatement_4(  );
break;
case 38 :
gotostatement_4(  );
break;
case 32 :
ifstatement_4(  );
break;
case 33 :
casestatement_4(  );
break;
case 35 :
whilestatement_4(  );
break;
case 34 :
repeatstatement_4(  );
break;
case 36 :
forstatement_4(  );
break;
case 37 :
withstatement_4(  );
break;
} /* switch */
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 41 || $e == 40 || $e == 39 || $e == 13);})
)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_4.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
}
else 
({
text  *const $fp = &prc_1;
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
} /* statement_3() */
void genCleanup_3(void) {
fileListItemPtr_2  /* form (2) */ t_4;
void prname_4(void) {
writeId_1(  /* &pointer Node */ (*t_4).fileVar_2 );
} /* prname_4() */
if( (fileList_2 != (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "void _Pcleanup(void) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( 0 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "printf(\"cleaning up " );
$fp->flags = -2;
});
writeId_1( display_1.component[(unsigned)(level_1 - 0) ].bname_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "\\n\");" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
do {
t_4 = fileList_2;
genCloseFiles_3(  /* &pointer Node */ (* /* &pointer Node */ (*t_4).fileVar_2).idtype_1, prname_4 );
fileList_2 =  /* &pointer Node */ (*fileList_2).next_2;
({ typeof(t_4) $p=t_4; 
free($p);});
} while( ! (fileList_2 == (NULL)));
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "} // _Pcleanup" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 39 */
fprintf( $fp->f, "%s", "struct _PcleanupInf _Pcudat = { .level=" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)level_1 );
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", ", .cuFunc=_Pcleanup, .link=_Phead };" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "_Phead=&_Pcudat;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
} /* genCleanup_3() */
if( (fprocp_2 == (NULL)) )
{
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "int main( int argc, char* argv[] ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( inputhdf_1 )
{
writeId_1( inputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", ".f =  stdin;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( outputhdf_1 )
{
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", ".f =  stdout;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 22 */
fprintf( $fp->f, "%s", "#if defined(__WIN32__)" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", "setvbuf(stdout, NULL, _IONBF, 0);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#endif" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "atexit(_Pexit);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (fextfilep_1 != (NULL)) )
{
saveid_3 = *(typeof(saveid_3) *)&id_1;
do {
{ // with statement
struct filerec_1  *const $tw4 = & /* &pointer Node */ (*fextfilep_1);
{
if( ($tw4->argNr_1 > (0)) )
{
id_1 = *(typeof(id_1) *)&$tw4->filename_1;
searchidne_1( ({setofids_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 6 */
memset($s0, 0, (6>>3)-(0>>3)+1 );
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$set0; })
, &llcp_3 );
if( (llcp_3 == (NULL)) )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
/* const string, len is 38 */
fprintf( $fp->f, "%s", "**** Error: Undeclared external file '" );
$fp->flags = -2;
/* string var, len is 250 */
fprintf( $fp->f, "%8.8s", $tw4->filename_1.component );
{char $c = 39;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
toterr_1 = (toterr_1 + (1));
}
else 
if( ( /* &pointer Node */ (*llcp_3).idtype_1 != (NULL)) )
{
if( ( /* &pointer Node */ (* /* &pointer Node */ (*llcp_3).idtype_1).form_1 != (6)) )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
/* const string, len is 50 */
fprintf( $fp->f, "%s", "**** Error: external, but not declared as a file: " );
$fp->flags = -2;
/* string var, len is 250 */
fprintf( $fp->f, "%8.8s", $tw4->filename_1.component );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
toterr_1 = (toterr_1 + (1));
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", "if( " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)($tw4->argNr_1 + (1)) );
/* const string, len is 11 */
fprintf( $fp->f, "%s", " <= argc ) " );
});
writeId_1( llcp_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", ".name = argv[" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw4->argNr_1 );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "];" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 7 */
fprintf( $fp->f, "%s", "else { " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
writeId_1( llcp_3 );
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", ".f = tmpfile();" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 56 */
fprintf( $fp->f, "%s", "fprintf( stderr, \"warning: no external file assigned to " );
$fp->flags = -2;
});
writev_1( &prc_1,  /* &pointer Node */ (*llcp_3).name_1, lenpv_1(  /* &pointer Node */ (*llcp_3).name_1 ) );
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "\\n\" ); }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
}
}
}
} // with
fp_3 = fextfilep_1;
fextfilep_1 =  /* &pointer Node */ (*fp_3).nextfile_1;
putfil_1( fp_3 );
} while( ! (fextfilep_1 == (NULL)));
id_1 = *(typeof(id_1) *)&saveid_3;
}
}
genCleanup_3(  );
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
llp_3 = display_1.component[(unsigned)(top_1 - 0) ].flabel_1;
while( (llp_3 != (NULL)))
{ // with statement
struct labl_1  *const $tw4 = & /* &pointer Node */ (*llp_3);
{
if( $tw4->ipcref_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "if( setjmp( _PJB" );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw4->labname_1 );
/* const string, len is 17 */
fprintf( $fp->f, "%s", ") != 0 ) goto _PL" );
fprintf( $fp->f, "%1i", (int)$tw4->labname_1 );
{char $c = 59;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( lnflag_1 )
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#line " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)linecount_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
llp_3 = $tw4->nextlab_1;
}
} // with
addlvl_3(  );
if( (sy_1 == (31)) )
insymbol_1(  );
do {
do {
 /* [0..48] 3 */  /* merge right + left --> result */ statement_3( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_3.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(39>>3) - (0>>3)] |= (1<<(39&7));
$s0[(13>>3) - (0>>3)] |= (1<<(13&7));
$set0; })
 );
} while( !  /* [0..48] 3 */ !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)));
test_3 = (sy_1 != (13));
if( !(test_3) )
{
insymbol_1(  );
test_3 = (sy_1 == (39));
}
} while( ! test_3);
sublvl_3(  );
if( (sy_1 == (39)) )
insymbol_1(  );
else 
error_1( 13 );
printed_3 = 0;
chkrefs_1( display_1.component[(unsigned)(top_1 - 0) ].fname_1, &printed_3 );
llp_3 = display_1.component[(unsigned)(top_1 - 0) ].flabel_1;
while( (llp_3 != (NULL)))
{ // with statement
struct labl_1  *const $tw4 = & /* &pointer Node */ (*llp_3);
{
if( !($tw4->defined_1) )
{
error_1( 168 );
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "   **** label " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw4->labval_1 );
/* const string, len is 11 */
fprintf( $fp->f, "%s", " is missing" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( !($tw4->refer_1) )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &output_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "label " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)$tw4->labval_1 );
/* const string, len is 31 */
fprintf( $fp->f, "%s", " not used by any goto statement" );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
llp_3 = $tw4->nextlab_1;
}
} // with
if( (fprocp_2 == (NULL)) )
{
if( memDebug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "_Preport_mem(_Proot);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "exit(EXIT_SUCCESS);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 14 */
fprintf( $fp->f, "%s", "} /* main() */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( prtables_1 )
{
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
printtables_1( 1 );
}
}
} /* body_2() */
stalvl_2 = 0;
dp_1 = 1;
lforwcnt_2 = 0;
fileList_2 = NULL;
do {
if( (sy_1 == (19)) )
labeldeclaration_2(  );
if( (sy_1 == (20)) )
constdeclaration_2(  );
if( (sy_1 == (21)) )
typedeclaration_2(  );
if( (sy_1 == (22)) )
vardeclaration_2(  );
while( ({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 23 || $e == 25);})
)
procdeclaration_2(  );
if( (sy_1 != (31)) )
{
error_1( 18 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
} while( !  /* [0..48] 3 */ /* eof/eoln on text file */ ((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((statbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
) || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
if( (lforwcnt_2 > (0)) )
{
error_1( 117 );
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
checkforw_2( display_1.component[(unsigned)(level_1 - 0) ].fname_1 );
}
dp_1 = 0;
if( (sy_1 != (31)) )
error_1( 17 );
do {
 /* [0..48] 3 */  /* merge right + left --> result */ body_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$set0; })
 );
if( (sy_1 != (fsy_2)) )
{
error_1( 6 );
 /* [0..48] 3 */ skip_2( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
 );
}
} while( !  /* [0..48] 3 */ /* eof/eoln on text file */ (((((sy_1 == (fsy_2))) || ((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || (($e>=0) && ($e<=48) && ((blockbegsys_1.element[($e>>3) - (0>>3)] & (1<<($e&7))) != 0 ))
);})
)))) || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
} /* block_1() */
static void programme_1(setofsys_1  fsys_2) {
extfilep_1  /* form (2) */ extfp_2;
int  /* form (0) */ argCounter_2;
memDebug_1 = debug_1;
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "#include <p5c.h>" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "#if __P5C_H__ - 0 != 100" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "#error \"compiler incompatible with p5c.h\"" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 6 */
fprintf( $fp->f, "%s", "#endif" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( memDebug_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "#define MEMDEBUG" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "struct _Pmem" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 23 */
fprintf( $fp->f, "%s", "    struct _Pmem *left;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "    struct _Pmem *right;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "    int line;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 11 */
fprintf( $fp->f, "%s", "    bool f;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "    void * addr;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "};" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "struct _Pmem* _Proot=NULL;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 75 */
fprintf( $fp->f, "%s", "static void _Padd_mem( struct _Pmem **const m, void *const a, const int l )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "struct _Pmem *p = *m;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "    if( p==NULL ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 58 */
fprintf( $fp->f, "%s", "        p = (struct _Pmem*)malloc( sizeof(struct _Pmem) );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "        if( p != NULL ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "            *m = p;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "            p->left = NULL;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "            p->right = NULL;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "            p->line = l;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "            p->f = 0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "            p->addr = a;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 9 */
fprintf( $fp->f, "%s", "        }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "        else" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 40 */
fprintf( $fp->f, "%s", "            _Pfatal(\"out of memory\", l);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( a < p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "        _Padd_mem(&p->left, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( a > p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "        _Padd_mem(&p->right, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( p->f != 0 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "        p->line = l;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "        p->f = 0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 8 */
fprintf( $fp->f, "%s", "    else" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 47 */
fprintf( $fp->f, "%s", "        _Pfatal(\"memory already allocated\", l);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "} // _Padd_mem()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 75 */
fprintf( $fp->f, "%s", "static void _Pfree_mem( struct _Pmem *const p, void *const a, const int l )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 13 */
fprintf( $fp->f, "%s", "char msg[50];" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 66 */
fprintf( $fp->f, "%s", "    if( p == NULL ) _Pfatal( \"attempt to dispose nil pointer\", l);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "    if( a > p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 36 */
fprintf( $fp->f, "%s", "       _Pfree_mem( p->right, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( a < p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "       _Pfree_mem( p->left, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( p->f == 0 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 15 */
fprintf( $fp->f, "%s", "       free(a);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "       p->line = l;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "       p->f = !0;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 10 */
fprintf( $fp->f, "%s", "    else {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 72 */
fprintf( $fp->f, "%s", "       sprintf(msg, \"memory was already disposed at line %d\", p->line );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "       _Pfatal( msg, l); " );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "} // _Pfree_mem()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 74 */
fprintf( $fp->f, "%s", "static void _Puse_mem( struct _Pmem *const p, void *const a, const int l )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 66 */
fprintf( $fp->f, "%s", "    if( p == NULL ) _Pfatal( \"attempt to use invalid pointer\", l);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "    if( a > p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 35 */
fprintf( $fp->f, "%s", "       _Puse_mem( p->right, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( a < p->addr )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "       _Puse_mem( p->left, a, l );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "    else if( p->f != 0 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "       char msg[40];" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 67 */
fprintf( $fp->f, "%s", "       sprintf(msg, \"using pointer disposed at line %d\", p->line );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "       _Pfatal( msg, l);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 16 */
fprintf( $fp->f, "%s", "} // _Puse_mem()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 49 */
fprintf( $fp->f, "%s", "static void _Preport_mem( struct _Pmem *const p )" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 123;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 27 */
fprintf( $fp->f, "%s", "    if( p == NULL ) return;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "    _Preport_mem( p->left );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "    if( p->f == 0 ) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 70 */
fprintf( $fp->f, "%s", "        printf( \"new memory at line %i was not disposed\\n\", p->line );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 5 */
fprintf( $fp->f, "%s", "    }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 29 */
fprintf( $fp->f, "%s", "    _Preport_mem( p->right );" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
{char $c = 125;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", "struct _PcleanupInf *_Phead=NULL;" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 43 */
fprintf( $fp->f, "%s", "static void _Pclose_file(text *const $fp) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", " if($fp->f != NULL) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 59 */
fprintf( $fp->f, "%s", "  if($fp->name!=NULL && $fp->flags==-2) putc('\\n', $fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 17 */
fprintf( $fp->f, "%s", "  fclose($fp->f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", " }" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "} // _Pclose_file()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (sy_1 == (24)) )
{
insymbol_1(  );
if( (sy_1 != (0)) )
error_1( 2 );
else 
insymbol_1(  );
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 13 || $e == 8);})
)) )
error_1( 14 );
inputptr_1 = NULL;
outputptr_1 = NULL;
if( (sy_1 == (8)) )
{
argCounter_2 = 1;
do {
insymbol_1(  );
if( (sy_1 == (0)) )
{
getfil_1( &extfp_2 );
{ // with statement
struct filerec_1  *const $tw3 = & /* &pointer Node */ (*extfp_2);
{
$tw3->argNr_1 = 0;
$tw3->filename_1 = *(typeof($tw3->filename_1) *)&id_1;
$tw3->nextfile_1 = fextfilep_1;
}
} // with
if( strequri_1( *(restr_1 *)&na_1.component[(unsigned)(2 - 0) ], &id_1 ) )
{
inputhdf_1 = 1;
inputptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( inputptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*inputptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(2 - 0) ] );
$tw3->idtype_1 = textptr_1;
$tw3->klass_1 = 2;
$tw3->vkind_1 = 0;
$tw3->next_1 = NULL;
$tw3->vlev_1 = 1;
$tw3->refer_1 = 0;
$tw3->threat_1 = 0;
$tw3->forcnt_1 = 0;
}
} // with
enterid_1( inputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "static text " );
$fp->flags = -2;
});
writeId_1( inputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 42 */
fprintf( $fp->f, "%s", " = { .name=\"input\", .buffer=2, .flags=0 };" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
if( strequri_1( *(restr_1 *)&na_1.component[(unsigned)(3 - 0) ], &id_1 ) )
{
outputhdf_1 = 1;
outputptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( outputptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*outputptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(3 - 0) ] );
$tw3->idtype_1 = textptr_1;
$tw3->klass_1 = 2;
$tw3->vkind_1 = 0;
$tw3->next_1 = NULL;
$tw3->vlev_1 = 1;
$tw3->refer_1 = 0;
$tw3->threat_1 = 0;
$tw3->forcnt_1 = 0;
}
} // with
enterid_1( outputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "static text " );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 33 */
fprintf( $fp->f, "%s", " = { .name=\"output\", .flags=-1 };" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
 /* &pointer Node */ (*extfp_2).argNr_1 = argCounter_2;
argCounter_2 = (argCounter_2 + (1));
}
fextfilep_1 = extfp_2;
insymbol_1(  );
if( !((({ const int $e = sy_1;
(0 /*@ (in) set test set node */ || $e == 9 || $e == 12);})
)) )
error_1( 20 );
}
else 
error_1( 2 );
} while( ! (sy_1 != (12)));
if( (sy_1 != (9)) )
error_1( 4 );
insymbol_1(  );
if( (sy_1 != (13)) )
error_1( 14 );
}
if( (sy_1 == (13)) )
insymbol_1(  );
}
else 
error_1( 3 );
({
text  *const $fp = &prc_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "static void _Pexit(void) {" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( outputhdf_1 )
{
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", "if(" );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", ".flags==-2)  putc('\\n', " );
$fp->flags = -2;
});
writeId_1( outputptr_1 );
({
text  *const $fp = &prc_1;
/* const string, len is 4 */
fprintf( $fp->f, "%s", ".f);" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
({
text  *const $fp = &prc_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "while(_Phead!=NULL){" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 41 */
fprintf( $fp->f, "%s", "  _Phead->cuFunc();_Phead=_Phead->link;};" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 12 */
fprintf( $fp->f, "%s", "} //_Pexit()" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
do {
 /* [0..48] 3 */ block_1( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), fsys_2.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$set0; })
, 14, NULL );
if( (sy_1 != (14)) )
error_1( 22 );
} while( ! /* eof/eoln on text file */ (((sy_1 == (14))) || (({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
)));
if( list_1 )
({
text  *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (errinx_1 != (0)) )
{
list_1 = 0;
endofline_1(  );
}
} /* programme_1() */
static void stdnames_1(void) {
na_1.component[(unsigned)(0 - 0) ] = (typeof(na_1.component[(unsigned)(0 - 0) ])){{"false    "}};
na_1.component[(unsigned)(1 - 0) ] = (typeof(na_1.component[(unsigned)(1 - 0) ])){{"true     "}};
na_1.component[(unsigned)(2 - 0) ] = (typeof(na_1.component[(unsigned)(2 - 0) ])){{"input    "}};
na_1.component[(unsigned)(3 - 0) ] = (typeof(na_1.component[(unsigned)(3 - 0) ])){{"output   "}};
na_1.component[(unsigned)(4 - 0) ] = (typeof(na_1.component[(unsigned)(4 - 0) ])){{"get      "}};
na_1.component[(unsigned)(5 - 0) ] = (typeof(na_1.component[(unsigned)(5 - 0) ])){{"put      "}};
na_1.component[(unsigned)(6 - 0) ] = (typeof(na_1.component[(unsigned)(6 - 0) ])){{"reset    "}};
na_1.component[(unsigned)(7 - 0) ] = (typeof(na_1.component[(unsigned)(7 - 0) ])){{"rewrite  "}};
na_1.component[(unsigned)(8 - 0) ] = (typeof(na_1.component[(unsigned)(8 - 0) ])){{"read     "}};
na_1.component[(unsigned)(9 - 0) ] = (typeof(na_1.component[(unsigned)(9 - 0) ])){{"write    "}};
na_1.component[(unsigned)(10 - 0) ] = (typeof(na_1.component[(unsigned)(10 - 0) ])){{"readln   "}};
na_1.component[(unsigned)(11 - 0) ] = (typeof(na_1.component[(unsigned)(11 - 0) ])){{"writeln  "}};
na_1.component[(unsigned)(12 - 0) ] = (typeof(na_1.component[(unsigned)(12 - 0) ])){{"page     "}};
na_1.component[(unsigned)(13 - 0) ] = (typeof(na_1.component[(unsigned)(13 - 0) ])){{"pack     "}};
na_1.component[(unsigned)(14 - 0) ] = (typeof(na_1.component[(unsigned)(14 - 0) ])){{"unpack   "}};
na_1.component[(unsigned)(15 - 0) ] = (typeof(na_1.component[(unsigned)(15 - 0) ])){{"new      "}};
na_1.component[(unsigned)(16 - 0) ] = (typeof(na_1.component[(unsigned)(16 - 0) ])){{"dispose  "}};
na_1.component[(unsigned)(17 - 0) ] = (typeof(na_1.component[(unsigned)(17 - 0) ])){{"trunc    "}};
na_1.component[(unsigned)(18 - 0) ] = (typeof(na_1.component[(unsigned)(18 - 0) ])){{"round    "}};
na_1.component[(unsigned)(19 - 0) ] = (typeof(na_1.component[(unsigned)(19 - 0) ])){{"abs      "}};
na_1.component[(unsigned)(20 - 0) ] = (typeof(na_1.component[(unsigned)(20 - 0) ])){{"sqr      "}};
na_1.component[(unsigned)(21 - 0) ] = (typeof(na_1.component[(unsigned)(21 - 0) ])){{"odd      "}};
na_1.component[(unsigned)(22 - 0) ] = (typeof(na_1.component[(unsigned)(22 - 0) ])){{"ord      "}};
na_1.component[(unsigned)(23 - 0) ] = (typeof(na_1.component[(unsigned)(23 - 0) ])){{"chr      "}};
na_1.component[(unsigned)(24 - 0) ] = (typeof(na_1.component[(unsigned)(24 - 0) ])){{"pred     "}};
na_1.component[(unsigned)(25 - 0) ] = (typeof(na_1.component[(unsigned)(25 - 0) ])){{"succ     "}};
na_1.component[(unsigned)(26 - 0) ] = (typeof(na_1.component[(unsigned)(26 - 0) ])){{"eof      "}};
na_1.component[(unsigned)(27 - 0) ] = (typeof(na_1.component[(unsigned)(27 - 0) ])){{"eoln     "}};
na_1.component[(unsigned)(28 - 0) ] = (typeof(na_1.component[(unsigned)(28 - 0) ])){{"sin      "}};
na_1.component[(unsigned)(29 - 0) ] = (typeof(na_1.component[(unsigned)(29 - 0) ])){{"cos      "}};
na_1.component[(unsigned)(30 - 0) ] = (typeof(na_1.component[(unsigned)(30 - 0) ])){{"exp      "}};
na_1.component[(unsigned)(31 - 0) ] = (typeof(na_1.component[(unsigned)(31 - 0) ])){{"sqrt     "}};
na_1.component[(unsigned)(32 - 0) ] = (typeof(na_1.component[(unsigned)(32 - 0) ])){{"ln       "}};
na_1.component[(unsigned)(33 - 0) ] = (typeof(na_1.component[(unsigned)(33 - 0) ])){{"arctan   "}};
na_1.component[(unsigned)(34 - 0) ] = (typeof(na_1.component[(unsigned)(34 - 0) ])){{"maxint   "}};
} /* stdnames_1() */
static void enterstdtypes_1(void) {
intptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( intptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*intptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 0;
$tw3->scalkind_1 = 0;
}
} // with
realptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( realptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*realptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 0;
$tw3->scalkind_1 = 0;
}
} // with
charptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( charptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*charptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 0;
$tw3->scalkind_1 = 0;
}
} // with
boolptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( boolptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*boolptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 0;
$tw3->scalkind_1 = 1;
}
} // with
nilptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( nilptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*nilptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 2;
$tw3->eltype_1 = NULL;
}
} // with
parmptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( parmptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*parmptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 0;
$tw3->form_1 = 0;
$tw3->scalkind_1 = 0;
}
} // with
textptr_1 = calloc( 1, sizeof( struct structure_1 ));
pshstc_1( textptr_1 );
{ // with statement
struct structure_1  *const $tw3 = & /* &pointer Node */ (*textptr_1);
{
$tw3->typeName_1 = NULL;
$tw3->hasFile_1 = 1;
$tw3->form_1 = 6;
$tw3->filtype_1 = charptr_1;
}
} // with
} /* enterstdtypes_1() */
static void entstdnames_1(void) {
ctp_1  /* form (2) */ cp1_2, cp_2;
tStdNames_1  /* form (0) */ i_2;
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"integer  " );
$tw3->idtype_1 = intptr_1;
$tw3->klass_1 = 0;
}
} // with
enterid_1( cp_2 );
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"real     " );
$tw3->idtype_1 = realptr_1;
$tw3->klass_1 = 0;
}
} // with
enterid_1( cp_2 );
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"char     " );
$tw3->idtype_1 = charptr_1;
$tw3->klass_1 = 0;
}
} // with
enterid_1( cp_2 );
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"boolean  " );
$tw3->idtype_1 = boolptr_1;
$tw3->klass_1 = 0;
}
} // with
enterid_1( cp_2 );
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"text     " );
$tw3->idtype_1 = textptr_1;
$tw3->klass_1 = 0;
}
} // with
enterid_1( cp_2 );
cp1_2 = NULL;
{ const int $tf1 = 0; const int $tf2 = 1;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(i_2 - 0) ] );
$tw3->idtype_1 = boolptr_1;
$tw3->next_1 = cp1_2;
$tw3->klass_1 = 1;
$tw3->values_1.ival_1 = ((int)i_2 - ((int)0));
}
} // with
enterid_1( cp_2 );
cp1_2 = cp_2;
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
 /* &pointer Node */ (*boolptr_1).fconst_1 = cp_2;
{ const int $tf1 = 4; const int $tf2 = 16;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(i_2 - 0) ] );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 5;
$tw3->pflist_1 = NULL;
$tw3->pfdeckind_1 = 0;
$tw3->key_1 = i_2;
}
} // with
enterid_1( cp_2 );
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
{ const int $tf1 = 17; const int $tf2 = 27;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(i_2 - 0) ] );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 6;
$tw3->pflist_1 = NULL;
$tw3->pfdeckind_1 = 0;
$tw3->key_1 = i_2;
}
} // with
enterid_1( cp_2 );
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
{ const int $tf1 = 28; const int $tf2 = 33;
if( $tf2 >= $tf1 ) {
i_2 = $tf1; do
{
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = realptr_1;
$tw3->klass_1 = 2;
$tw3->vkind_1 = 0;
$tw3->next_1 = NULL;
$tw3->vlev_1 = 1;
$tw3->threat_1 = 0;
$tw3->forcnt_1 = 0;
}
} // with
cp1_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp1_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp1_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(i_2 - 0) ] );
$tw3->idtype_1 = realptr_1;
$tw3->klass_1 = 6;
$tw3->pflist_1 = cp_2;
$tw3->pfdeckind_1 = 1;
$tw3->pflev_1 = 0;
$tw3->pfname_1 = i_2;
$tw3->pfkind_1 = 0;
$tw3->forwdecl_1 = 0;
$tw3->externl_1 = 1;
}
} // with
enterid_1( cp1_2 );
}
while(i_2 != $tf2 && (++i_2, 1) ); }}
cp_2 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( cp_2 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*cp_2);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &na_1.component[(unsigned)(34 - 0) ] );
$tw3->idtype_1 = intptr_1;
$tw3->next_1 = NULL;
$tw3->klass_1 = 1;
$tw3->values_1.ival_1 = 2147483647;
}
} // with
enterid_1( cp_2 );
} /* entstdnames_1() */
static void enterundecl_1(void) {
utypptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( utypptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*utypptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->klass_1 = 0;
}
} // with
ucstptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( ucstptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*ucstptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 1;
$tw3->values_1.ival_1 = 0;
}
} // with
uvarptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( uvarptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*uvarptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 2;
$tw3->vkind_1 = 0;
$tw3->vlev_1 = 0;
$tw3->threat_1 = 0;
$tw3->forcnt_1 = 0;
}
} // with
ufldptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( ufldptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*ufldptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 3;
}
} // with
uprcptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( uprcptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*uprcptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 5;
$tw3->pflist_1 = NULL;
$tw3->pfdeckind_1 = 1;
$tw3->pflev_1 = 0;
$tw3->pfkind_1 = 0;
$tw3->externl_1 = 0;
$tw3->forwdecl_1 = 0;
}
} // with
ufctptr_1 = calloc( 1, sizeof( struct identifier_1 ));
ininam_1( ufctptr_1 );
{ // with statement
struct identifier_1  *const $tw3 = & /* &pointer Node */ (*ufctptr_1);
{
strassvf_1( &$tw3->name_1, /* bounds: */ 1, 9, &"         " );
$tw3->idtype_1 = NULL;
$tw3->next_1 = NULL;
$tw3->klass_1 = 6;
$tw3->pflist_1 = NULL;
$tw3->pfdeckind_1 = 1;
$tw3->pflev_1 = 0;
$tw3->pfkind_1 = 0;
$tw3->forwdecl_1 = 0;
$tw3->externl_1 = 0;
}
} // with
} /* enterundecl_1() */
static void exitundecl_1(void) {
putnam_1( utypptr_1 );
putnam_1( ucstptr_1 );
putnam_1( uvarptr_1 );
putnam_1( ufldptr_1 );
putnam_1( uprcptr_1 );
putnam_1( ufctptr_1 );
} /* exitundecl_1() */
static void initscalars_1(void) {
fwptr_1 = NULL;
prtables_1 = 0;
list_1 = 1;
debug_1 = 1;
lnflag_1 = 0;
chkvar_1 = 1;
chkref_1 = 1;
algSet_1 = 0;
dp_1 = 1;
errinx_1 = 0;
intlabel_1 = 0;
kk_1 = 250;
fextfilep_1 = NULL;
eol_1 = 1;
linecount_1 = 0;
ch_1 = 32;
chcnt_1 = 0;
mxint10_1 = 214748364;
inputhdf_1 = 0;
outputhdf_1 = 0;
 /* [-10..500] 3 */ ({ uint8_t *const $s0 = errtbl_1.element;
/* dest bounds are -10 .. 500 */
memset($s0, 0, (500>>3)-(-10>>3)+1 );
}) // $s0 := set expr
;
toterr_1 = 0;
totwarn_1 = 0;
warnings_1 = 1;
strcnt_1 = 0;
cspcnt_1 = 0;
stpcnt_1 = 0;
ctpcnt_1 = 0;
lbpcnt_1 = 0;
filcnt_1 = 0;
cipcnt_1 = 0;
} /* initscalars_1() */
static void initsets_1(void) {
 /* [0..48] 3 */ ({ uint8_t *const $s0 = constbegsys_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$s0[(1>>3) - (0>>3)] |= (1<<(1&7));
$s0[(6>>3) - (0>>3)] |= (1<<(6&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */  /* [0..48] 3 */  /* merge left + right --> result */ ({ uint8_t *const $s0 = simptypebegsys_1.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), constbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */  /* [0..48] 3 */  /* merge left + right --> result */ ({ uint8_t *const $s0 = typebegsys_1.element;
/* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), simptypebegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
$s0[(30>>3) - (0>>3)] |= (1<<(30&7));
$s0[(26>>3) - (0>>3)] |= (1<<(26&7));
$s0[(29>>3) - (0>>3)] |= (1<<(29&7));
$s0[(28>>3) - (0>>3)] |= (1<<(28&7));
$s0[(27>>3) - (0>>3)] |= (1<<(27&7));
$s0[(15>>3) - (0>>3)] |= (1<<(15&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */ ({ uint8_t *const $s0 = typedels_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(30>>3) - (0>>3)] |= (1<<(30&7));
$s0[(26>>3) - (0>>3)] |= (1<<(26&7));
$s0[(29>>3) - (0>>3)] |= (1<<(29&7));
$s0[(28>>3) - (0>>3)] |= (1<<(28&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */ ({ uint8_t *const $s0 = blockbegsys_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(31>>3) - (0>>3)] |= (1<<(31&7));
$s0[(23>>3) - (0>>3)] |= (1<<(23&7));
$s0[(25>>3) - (0>>3)] |= (1<<(25&7));
$s0[(22>>3) - (0>>3)] |= (1<<(22&7));
$s0[(21>>3) - (0>>3)] |= (1<<(21&7));
$s0[(20>>3) - (0>>3)] |= (1<<(20&7));
$s0[(19>>3) - (0>>3)] |= (1<<(19&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */ ({ uint8_t *const $s0 = selectsys_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(10>>3) - (0>>3)] |= (1<<(10&7));
$s0[(14>>3) - (0>>3)] |= (1<<(14&7));
$s0[(15>>3) - (0>>3)] |= (1<<(15&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */ ({ uint8_t *const $s0 = facbegsys_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(47>>3) - (0>>3)] |= (1<<(47&7));
$s0[(4>>3) - (0>>3)] |= (1<<(4&7));
$s0[(10>>3) - (0>>3)] |= (1<<(10&7));
$s0[(8>>3) - (0>>3)] |= (1<<(8&7));
$s0[(0>>3) - (0>>3)] |= (1<<(0&7));
$s0[(3>>3) - (0>>3)] |= (1<<(3&7));
$s0[(2>>3) - (0>>3)] |= (1<<(2&7));
$s0[(1>>3) - (0>>3)] |= (1<<(1&7));
}) // $s0 := set expr
;
 /* [0..48] 3 */ ({ uint8_t *const $s0 = statbegsys_1.element;
/* dest bounds are 0 .. 48 */
memset($s0, 0, (48>>3)-(0>>3)+1 );
$s0[(33>>3) - (0>>3)] |= (1<<(33&7));
$s0[(37>>3) - (0>>3)] |= (1<<(37&7));
$s0[(36>>3) - (0>>3)] |= (1<<(36&7));
$s0[(34>>3) - (0>>3)] |= (1<<(34&7));
$s0[(35>>3) - (0>>3)] |= (1<<(35&7));
$s0[(32>>3) - (0>>3)] |= (1<<(32&7));
$s0[(38>>3) - (0>>3)] |= (1<<(38&7));
$s0[(31>>3) - (0>>3)] |= (1<<(31&7));
}) // $s0 := set expr
;
} /* initsets_1() */
static void inittables_1(void) {
void reswords_2(void) {
rw_1.component[(unsigned)(1 - 1) ] = (typeof(rw_1.component[(unsigned)(1 - 1) ])){{"if       "}};
rw_1.component[(unsigned)(2 - 1) ] = (typeof(rw_1.component[(unsigned)(2 - 1) ])){{"do       "}};
rw_1.component[(unsigned)(3 - 1) ] = (typeof(rw_1.component[(unsigned)(3 - 1) ])){{"of       "}};
rw_1.component[(unsigned)(4 - 1) ] = (typeof(rw_1.component[(unsigned)(4 - 1) ])){{"to       "}};
rw_1.component[(unsigned)(5 - 1) ] = (typeof(rw_1.component[(unsigned)(5 - 1) ])){{"in       "}};
rw_1.component[(unsigned)(6 - 1) ] = (typeof(rw_1.component[(unsigned)(6 - 1) ])){{"or       "}};
rw_1.component[(unsigned)(7 - 1) ] = (typeof(rw_1.component[(unsigned)(7 - 1) ])){{"end      "}};
rw_1.component[(unsigned)(8 - 1) ] = (typeof(rw_1.component[(unsigned)(8 - 1) ])){{"for      "}};
rw_1.component[(unsigned)(9 - 1) ] = (typeof(rw_1.component[(unsigned)(9 - 1) ])){{"var      "}};
rw_1.component[(unsigned)(10 - 1) ] = (typeof(rw_1.component[(unsigned)(10 - 1) ])){{"div      "}};
rw_1.component[(unsigned)(11 - 1) ] = (typeof(rw_1.component[(unsigned)(11 - 1) ])){{"mod      "}};
rw_1.component[(unsigned)(12 - 1) ] = (typeof(rw_1.component[(unsigned)(12 - 1) ])){{"set      "}};
rw_1.component[(unsigned)(13 - 1) ] = (typeof(rw_1.component[(unsigned)(13 - 1) ])){{"and      "}};
rw_1.component[(unsigned)(14 - 1) ] = (typeof(rw_1.component[(unsigned)(14 - 1) ])){{"not      "}};
rw_1.component[(unsigned)(15 - 1) ] = (typeof(rw_1.component[(unsigned)(15 - 1) ])){{"nil      "}};
rw_1.component[(unsigned)(16 - 1) ] = (typeof(rw_1.component[(unsigned)(16 - 1) ])){{"then     "}};
rw_1.component[(unsigned)(17 - 1) ] = (typeof(rw_1.component[(unsigned)(17 - 1) ])){{"else     "}};
rw_1.component[(unsigned)(18 - 1) ] = (typeof(rw_1.component[(unsigned)(18 - 1) ])){{"with     "}};
rw_1.component[(unsigned)(19 - 1) ] = (typeof(rw_1.component[(unsigned)(19 - 1) ])){{"goto     "}};
rw_1.component[(unsigned)(20 - 1) ] = (typeof(rw_1.component[(unsigned)(20 - 1) ])){{"case     "}};
rw_1.component[(unsigned)(21 - 1) ] = (typeof(rw_1.component[(unsigned)(21 - 1) ])){{"type     "}};
rw_1.component[(unsigned)(22 - 1) ] = (typeof(rw_1.component[(unsigned)(22 - 1) ])){{"file     "}};
rw_1.component[(unsigned)(23 - 1) ] = (typeof(rw_1.component[(unsigned)(23 - 1) ])){{"begin    "}};
rw_1.component[(unsigned)(24 - 1) ] = (typeof(rw_1.component[(unsigned)(24 - 1) ])){{"until    "}};
rw_1.component[(unsigned)(25 - 1) ] = (typeof(rw_1.component[(unsigned)(25 - 1) ])){{"while    "}};
rw_1.component[(unsigned)(26 - 1) ] = (typeof(rw_1.component[(unsigned)(26 - 1) ])){{"array    "}};
rw_1.component[(unsigned)(27 - 1) ] = (typeof(rw_1.component[(unsigned)(27 - 1) ])){{"const    "}};
rw_1.component[(unsigned)(28 - 1) ] = (typeof(rw_1.component[(unsigned)(28 - 1) ])){{"label    "}};
rw_1.component[(unsigned)(29 - 1) ] = (typeof(rw_1.component[(unsigned)(29 - 1) ])){{"repeat   "}};
rw_1.component[(unsigned)(30 - 1) ] = (typeof(rw_1.component[(unsigned)(30 - 1) ])){{"record   "}};
rw_1.component[(unsigned)(31 - 1) ] = (typeof(rw_1.component[(unsigned)(31 - 1) ])){{"downto   "}};
rw_1.component[(unsigned)(32 - 1) ] = (typeof(rw_1.component[(unsigned)(32 - 1) ])){{"packed   "}};
rw_1.component[(unsigned)(33 - 1) ] = (typeof(rw_1.component[(unsigned)(33 - 1) ])){{"program  "}};
rw_1.component[(unsigned)(34 - 1) ] = (typeof(rw_1.component[(unsigned)(34 - 1) ])){{"function "}};
rw_1.component[(unsigned)(35 - 1) ] = (typeof(rw_1.component[(unsigned)(35 - 1) ])){{"procedure"}};
frw_1.component[(unsigned)(1 - 1) ] = 1;
frw_1.component[(unsigned)(2 - 1) ] = 1;
frw_1.component[(unsigned)(3 - 1) ] = 7;
frw_1.component[(unsigned)(4 - 1) ] = 16;
frw_1.component[(unsigned)(5 - 1) ] = 23;
frw_1.component[(unsigned)(6 - 1) ] = 29;
frw_1.component[(unsigned)(7 - 1) ] = 33;
frw_1.component[(unsigned)(8 - 1) ] = 34;
frw_1.component[(unsigned)(9 - 1) ] = 35;
frw_1.component[(unsigned)(10 - 1) ] = 36;
} /* reswords_2() */
void symbols_2(void) {
rsy_1.component[(unsigned)(1 - 1) ] = 32;
rsy_1.component[(unsigned)(2 - 1) ] = 43;
rsy_1.component[(unsigned)(3 - 1) ] = 42;
rsy_1.component[(unsigned)(4 - 1) ] = 44;
rsy_1.component[(unsigned)(5 - 1) ] = 7;
rsy_1.component[(unsigned)(6 - 1) ] = 6;
rsy_1.component[(unsigned)(7 - 1) ] = 39;
rsy_1.component[(unsigned)(8 - 1) ] = 36;
rsy_1.component[(unsigned)(9 - 1) ] = 22;
rsy_1.component[(unsigned)(10 - 1) ] = 5;
rsy_1.component[(unsigned)(11 - 1) ] = 5;
rsy_1.component[(unsigned)(12 - 1) ] = 26;
rsy_1.component[(unsigned)(13 - 1) ] = 5;
rsy_1.component[(unsigned)(14 - 1) ] = 4;
rsy_1.component[(unsigned)(15 - 1) ] = 47;
rsy_1.component[(unsigned)(16 - 1) ] = 46;
rsy_1.component[(unsigned)(17 - 1) ] = 40;
rsy_1.component[(unsigned)(18 - 1) ] = 37;
rsy_1.component[(unsigned)(19 - 1) ] = 38;
rsy_1.component[(unsigned)(20 - 1) ] = 33;
rsy_1.component[(unsigned)(21 - 1) ] = 21;
rsy_1.component[(unsigned)(22 - 1) ] = 30;
rsy_1.component[(unsigned)(23 - 1) ] = 31;
rsy_1.component[(unsigned)(24 - 1) ] = 41;
rsy_1.component[(unsigned)(25 - 1) ] = 35;
rsy_1.component[(unsigned)(26 - 1) ] = 28;
rsy_1.component[(unsigned)(27 - 1) ] = 20;
rsy_1.component[(unsigned)(28 - 1) ] = 19;
rsy_1.component[(unsigned)(29 - 1) ] = 34;
rsy_1.component[(unsigned)(30 - 1) ] = 29;
rsy_1.component[(unsigned)(31 - 1) ] = 45;
rsy_1.component[(unsigned)(32 - 1) ] = 27;
rsy_1.component[(unsigned)(33 - 1) ] = 24;
rsy_1.component[(unsigned)(34 - 1) ] = 23;
rsy_1.component[(unsigned)(35 - 1) ] = 25;
ssy_1.component[(unsigned)(43 - 0) ] = 6;
ssy_1.component[(unsigned)(45 - 0) ] = 6;
ssy_1.component[(unsigned)(42 - 0) ] = 5;
ssy_1.component[(unsigned)(47 - 0) ] = 5;
ssy_1.component[(unsigned)(40 - 0) ] = 8;
ssy_1.component[(unsigned)(41 - 0) ] = 9;
ssy_1.component[(unsigned)(36 - 0) ] = 48;
ssy_1.component[(unsigned)(61 - 0) ] = 7;
ssy_1.component[(unsigned)(32 - 0) ] = 48;
ssy_1.component[(unsigned)(44 - 0) ] = 12;
ssy_1.component[(unsigned)(46 - 0) ] = 14;
ssy_1.component[(unsigned)(39 - 0) ] = 48;
ssy_1.component[(unsigned)(91 - 0) ] = 10;
ssy_1.component[(unsigned)(93 - 0) ] = 11;
ssy_1.component[(unsigned)(58 - 0) ] = 16;
ssy_1.component[(unsigned)(94 - 0) ] = 15;
ssy_1.component[(unsigned)(60 - 0) ] = 7;
ssy_1.component[(unsigned)(62 - 0) ] = 7;
ssy_1.component[(unsigned)(59 - 0) ] = 13;
ssy_1.component[(unsigned)(64 - 0) ] = 15;
} /* symbols_2() */
void rators_2(void) {
int  /* form (0) */ i_3;
{ const int $tf1 = 1; const int $tf2 = 35;
if( $tf2 >= $tf1 ) {
i_3 = $tf1; do
rop_1.component[(unsigned)(i_3 - 1) ] = 15;
while(i_3 != $tf2 && (++i_3, 1) ); }}
rop_1.component[(unsigned)(5 - 1) ] = 14;
rop_1.component[(unsigned)(10 - 1) ] = 3;
rop_1.component[(unsigned)(11 - 1) ] = 4;
rop_1.component[(unsigned)(6 - 1) ] = 7;
rop_1.component[(unsigned)(13 - 1) ] = 2;
{ const int $tf1 = 0; const int $tf2 = 255;
if( $tf2 >= $tf1 ) {
i_3 = $tf1; do
sop_1.component[(unsigned)((unsigned char)(i_3) - 0) ] = 15;
while(i_3 != $tf2 && (++i_3, 1) ); }}
sop_1.component[(unsigned)(43 - 0) ] = 5;
sop_1.component[(unsigned)(45 - 0) ] = 6;
sop_1.component[(unsigned)(42 - 0) ] = 0;
sop_1.component[(unsigned)(47 - 0) ] = 1;
sop_1.component[(unsigned)(61 - 0) ] = 13;
sop_1.component[(unsigned)(60 - 0) ] = 8;
sop_1.component[(unsigned)(62 - 0) ] = 11;
} /* rators_2() */
void chartypes_2(void) {
int  /* form (0) */ i_3;
{ const int $tf1 = 0; const int $tf2 = 255;
if( $tf2 >= $tf1 ) {
i_3 = $tf1; do
chartp_1.component[(unsigned)((unsigned char)(i_3) - 0) ] = 3;
while(i_3 != $tf2 && (++i_3, 1) ); }}
chartp_1.component[(unsigned)(97 - 0) ] = 0;
chartp_1.component[(unsigned)(98 - 0) ] = 0;
chartp_1.component[(unsigned)(99 - 0) ] = 0;
chartp_1.component[(unsigned)(100 - 0) ] = 0;
chartp_1.component[(unsigned)(101 - 0) ] = 0;
chartp_1.component[(unsigned)(102 - 0) ] = 0;
chartp_1.component[(unsigned)(103 - 0) ] = 0;
chartp_1.component[(unsigned)(104 - 0) ] = 0;
chartp_1.component[(unsigned)(105 - 0) ] = 0;
chartp_1.component[(unsigned)(106 - 0) ] = 0;
chartp_1.component[(unsigned)(107 - 0) ] = 0;
chartp_1.component[(unsigned)(108 - 0) ] = 0;
chartp_1.component[(unsigned)(109 - 0) ] = 0;
chartp_1.component[(unsigned)(110 - 0) ] = 0;
chartp_1.component[(unsigned)(111 - 0) ] = 0;
chartp_1.component[(unsigned)(112 - 0) ] = 0;
chartp_1.component[(unsigned)(113 - 0) ] = 0;
chartp_1.component[(unsigned)(114 - 0) ] = 0;
chartp_1.component[(unsigned)(115 - 0) ] = 0;
chartp_1.component[(unsigned)(116 - 0) ] = 0;
chartp_1.component[(unsigned)(117 - 0) ] = 0;
chartp_1.component[(unsigned)(118 - 0) ] = 0;
chartp_1.component[(unsigned)(119 - 0) ] = 0;
chartp_1.component[(unsigned)(120 - 0) ] = 0;
chartp_1.component[(unsigned)(121 - 0) ] = 0;
chartp_1.component[(unsigned)(122 - 0) ] = 0;
chartp_1.component[(unsigned)(65 - 0) ] = 0;
chartp_1.component[(unsigned)(66 - 0) ] = 0;
chartp_1.component[(unsigned)(67 - 0) ] = 0;
chartp_1.component[(unsigned)(68 - 0) ] = 0;
chartp_1.component[(unsigned)(69 - 0) ] = 0;
chartp_1.component[(unsigned)(70 - 0) ] = 0;
chartp_1.component[(unsigned)(71 - 0) ] = 0;
chartp_1.component[(unsigned)(72 - 0) ] = 0;
chartp_1.component[(unsigned)(73 - 0) ] = 0;
chartp_1.component[(unsigned)(74 - 0) ] = 0;
chartp_1.component[(unsigned)(75 - 0) ] = 0;
chartp_1.component[(unsigned)(76 - 0) ] = 0;
chartp_1.component[(unsigned)(77 - 0) ] = 0;
chartp_1.component[(unsigned)(78 - 0) ] = 0;
chartp_1.component[(unsigned)(79 - 0) ] = 0;
chartp_1.component[(unsigned)(80 - 0) ] = 0;
chartp_1.component[(unsigned)(81 - 0) ] = 0;
chartp_1.component[(unsigned)(82 - 0) ] = 0;
chartp_1.component[(unsigned)(83 - 0) ] = 0;
chartp_1.component[(unsigned)(84 - 0) ] = 0;
chartp_1.component[(unsigned)(85 - 0) ] = 0;
chartp_1.component[(unsigned)(86 - 0) ] = 0;
chartp_1.component[(unsigned)(87 - 0) ] = 0;
chartp_1.component[(unsigned)(88 - 0) ] = 0;
chartp_1.component[(unsigned)(89 - 0) ] = 0;
chartp_1.component[(unsigned)(90 - 0) ] = 0;
chartp_1.component[(unsigned)(48 - 0) ] = 1;
chartp_1.component[(unsigned)(49 - 0) ] = 1;
chartp_1.component[(unsigned)(50 - 0) ] = 1;
chartp_1.component[(unsigned)(51 - 0) ] = 1;
chartp_1.component[(unsigned)(52 - 0) ] = 1;
chartp_1.component[(unsigned)(53 - 0) ] = 1;
chartp_1.component[(unsigned)(54 - 0) ] = 1;
chartp_1.component[(unsigned)(55 - 0) ] = 1;
chartp_1.component[(unsigned)(56 - 0) ] = 1;
chartp_1.component[(unsigned)(57 - 0) ] = 1;
chartp_1.component[(unsigned)(43 - 0) ] = 2;
chartp_1.component[(unsigned)(45 - 0) ] = 2;
chartp_1.component[(unsigned)(42 - 0) ] = 2;
chartp_1.component[(unsigned)(47 - 0) ] = 2;
chartp_1.component[(unsigned)(40 - 0) ] = 9;
chartp_1.component[(unsigned)(41 - 0) ] = 2;
chartp_1.component[(unsigned)(36 - 0) ] = 2;
chartp_1.component[(unsigned)(61 - 0) ] = 2;
chartp_1.component[(unsigned)(32 - 0) ] = 10;
chartp_1.component[(unsigned)(44 - 0) ] = 2;
chartp_1.component[(unsigned)(46 - 0) ] = 6;
chartp_1.component[(unsigned)(39 - 0) ] = 4;
chartp_1.component[(unsigned)(91 - 0) ] = 2;
chartp_1.component[(unsigned)(93 - 0) ] = 2;
chartp_1.component[(unsigned)(58 - 0) ] = 5;
chartp_1.component[(unsigned)(94 - 0) ] = 2;
chartp_1.component[(unsigned)(59 - 0) ] = 2;
chartp_1.component[(unsigned)(60 - 0) ] = 7;
chartp_1.component[(unsigned)(62 - 0) ] = 8;
chartp_1.component[(unsigned)(123 - 0) ] = 11;
chartp_1.component[(unsigned)(125 - 0) ] = 2;
chartp_1.component[(unsigned)(64 - 0) ] = 2;
ordint_1.component[(unsigned)(48 - 0) ] = 0;
ordint_1.component[(unsigned)(49 - 0) ] = 1;
ordint_1.component[(unsigned)(50 - 0) ] = 2;
ordint_1.component[(unsigned)(51 - 0) ] = 3;
ordint_1.component[(unsigned)(52 - 0) ] = 4;
ordint_1.component[(unsigned)(53 - 0) ] = 5;
ordint_1.component[(unsigned)(54 - 0) ] = 6;
ordint_1.component[(unsigned)(55 - 0) ] = 7;
ordint_1.component[(unsigned)(56 - 0) ] = 8;
ordint_1.component[(unsigned)(57 - 0) ] = 9;
} /* chartypes_2() */
reswords_2(  );
symbols_2(  );
rators_2(  );
chartypes_2(  );
} /* inittables_1() */
int main( int argc, char* argv[] ) {
output_1.f =  stdout;
#if defined(__WIN32__)
setvbuf(stdout, NULL, _IONBF, 0);
#endif
atexit(_Pexit);
if( 3 <= argc ) prc_1.name = argv[2];
else { 
prc_1.f = tmpfile();
fprintf( stderr, "warning: no external file assigned to prc\n" ); }
if( 2 <= argc ) prd_1.name = argv[1];
else { 
prd_1.f = tmpfile();
fprintf( stderr, "warning: no external file assigned to prd\n" ); }
void _Pcleanup(void) {
_Pclose_file((text*)&prd_1);
_Pclose_file((text*)&prc_1);
} // _Pcleanup
struct _PcleanupInf _Pcudat = { .level=1, .cuFunc=_Pcleanup, .link=_Phead };
_Phead=&_Pcudat;
if( setjmp( _PJB1) != 0 ) goto _PL1;
({
text *const $fp = &output_1;
/* const string, len is 24 */
fprintf( $fp->f, "%s", "P5c Pascal compiler vs. " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)1 );
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%1i", (int)2 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
initscalars_1(  );
initsets_1(  );
inittables_1(  );
level_1 = 0;
top_1 = 0;
{ // with statement
typeof(display_1.component[(unsigned)(0 - 0) ]) *const $tw2 = &display_1.component[(unsigned)(0 - 0) ];
{
$tw2->fname_1 = NULL;
$tw2->flabel_1 = NULL;
$tw2->fconst_1 = NULL;
$tw2->fstruct_1 = NULL;
$tw2->packing_1 = 0;
$tw2->occur_1 = 0;
$tw2->hasFile_1 = 0;
$tw2->bname_1 = NULL;
}
} // with
enterstdtypes_1(  );
stdnames_1(  );
entstdnames_1(  );
enterundecl_1(  );
top_1 = 1;
level_1 = 1;
{ // with statement
typeof(display_1.component[(unsigned)(1 - 0) ]) *const $tw2 = &display_1.component[(unsigned)(1 - 0) ];
{
$tw2->fname_1 = NULL;
$tw2->flabel_1 = NULL;
$tw2->fconst_1 = NULL;
$tw2->fstruct_1 = NULL;
$tw2->packing_1 = 0;
$tw2->occur_1 = 0;
$tw2->hasFile_1 = 0;
$tw2->bname_1 = NULL;
}
} // with
({ text  *const $fp = &prd_1;
if($fp->flags==-2) putc('\n',$fp->f);
if( $fp->name != NULL ) { // reset
if( $fp->f != NULL )
$fp->f = freopen($fp->name,  "r", $fp->f);
else
$fp->f = fopen($fp->name,  "r");
} else {
rewind($fp->f);}
if( $fp->f == NULL )_Pfatal("file not found or reset error", 11522);
$fp->buffer=2;$fp->flags=0;
});
({ text  *const $fp = &prc_1;
if( $fp->name != NULL ) { // rewrite
if( $fp->f != NULL )
$fp->f = freopen($fp->name,  "w", $fp->f);
else
$fp->f = fopen($fp->name,  "w");
} else {
if( $fp->f != NULL ) fclose($fp->f);
$fp->f = tmpfile();
}
 $fp->flags = -1;
});
if( /* eof/eoln on text file */ ({ text  *const $fp = &prd_1;
$fp->flags<0 || ($fp->flags==0 && !isatty(fileno($fp->f)) && ({const int $c = fgetc($fp->f); int $r = 0;if($c==EOF) {  if($fp->buffer==2) $r=1; else {$fp->buffer=' '; $fp->flags=2;}} else { $fp->flags=($c=='\n'?2:1); $fp->buffer=($c=='\n'?' ':$c); }; $r;})); })
 )
{
({
text *const $fp = &output_1;
/* const string, len is 34 */
fprintf( $fp->f, "%s", "--- missing pascal source code ---" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
else 
{
({
text  *const $fp = &prc_1;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "/*" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 46 */
fprintf( $fp->f, "%s", " *  c file Generated by P5c Pascal compiler v " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)1 );
{char $c = 46;
fprintf( $fp->f, "%c", $c); };
fprintf( $fp->f, "%1i", (int)2 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text  *const $fp = &prc_1;
/* const string, len is 3 */
fprintf( $fp->f, "%s", " */" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
insymbol_1(  );
 /* [0..48] 3 */  /* [0..48] 3 */  /* [0..48] 0 */  /* [0..48] 0 */ programme_1( ({setofsys_1 $set0;
uint8_t *const $s0 =  $set0.element;
/* dest bounds are 0 .. 48 */
/* dest bounds are 0 .. 48 */
/*@+set construct left set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s0+(0>>3)-(0>>3), blockbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s0[0]&=(~0<<(0&7));
$s0[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({uint8_t $s1[(48>>3)-(0>>3)+1]; 
/*@+set construct right set*//* dest bounds are 0 .. 48 */
/* src bounds are 0..48 */
memmove($s1+(0>>3)-(0>>3), statbegsys_1.element+(0>>3)-(0>>3), (48>>3)-(0>>3)+1);
$s1[0]&=(~0<<(0&7));
$s1[(48>>3)-(0>>3)]&=((uint8_t)~0)>>(7-(48&7));
({ int $i;
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] |= $s1[$i];});
}); // $s1
({uint8_t $s1 [(48>>3)-(0>>3)+1]; 
int $i;
/* dest bounds are 0 .. 48 */
memset($s1, 0, (48>>3)-(0>>3)+1 );
$s1[(33>>3) - (0>>3)] |= (1<<(33&7));
for($i=0; $i<=(48>>3)-(0>>3); ++$i)
$s0[$i] &= ~$s1[$i];
});
$set0; })
 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 19 */
fprintf( $fp->f, "%s", "Errors in program: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)toterr_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
f_1 = 1;
{ const int $tf1 = 1; const int $tf2 = 500;
if( $tf2 >= $tf1 ) {
erridx_1 = $tf1; do
if(  /* [-10..500] 3 */ ({ const int $e = erridx_1;
(0 /*@ (in) set test set node */ || (($e>=-10) && ($e<=500) && ((errtbl_1.element[($e>>3) - (-10>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
if( f_1 )
{
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "Error numbers in listing:" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "-------------------------" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
f_1 = 0;
}
({
text *const $fp = &output_1;
fprintf( $fp->f, "%3i", (int)erridx_1 );
$fp->flags = -2;
/* const string, len is 2 */
fprintf( $fp->f, "%s", "  " );
});
errmsg_1( erridx_1 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
while(erridx_1 != $tf2 && (++erridx_1, 1) ); }}
if( !(f_1) )
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 21 */
fprintf( $fp->f, "%s", "Warnings in program: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)totwarn_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
f_1 = 1;
{ const int $tf1 = -10; const int $tf2 = 0;
if( $tf2 >= $tf1 ) {
erridx_1 = $tf1; do
if(  /* [-10..500] 3 */ ({ const int $e = erridx_1;
(0 /*@ (in) set test set node */ || (($e>=-10) && ($e<=500) && ((errtbl_1.element[($e>>3) - (-10>>3)] & (1<<($e&7))) != 0 ))
);})
 )
{
if( f_1 )
{
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 20 */
fprintf( $fp->f, "%s", "Warnings in listing:" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 25 */
fprintf( $fp->f, "%s", "-------------------------" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
f_1 = 0;
}
({
text *const $fp = &output_1;
{char $c = 87;
fprintf( $fp->f, "%c", $c); };
$fp->flags = -2;
fprintf( $fp->f, "%3i", (int)-(erridx_1) );
/* const string, len is 2 */
fprintf( $fp->f, "%s", "  " );
});
errmsg_1( erridx_1 );
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
while(erridx_1 != $tf2 && (++erridx_1, 1) ); }}
if( !(f_1) )
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( 0 )
prtlabels_1(  );
if( 0 )
prtdsp_1(  );
}
exitundecl_1(  );
putdsp_1( 1 );
putdsp_1( 0 );
if( 0 )
{
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 26 */
fprintf( $fp->f, "%s", "Recycling tracking counts:" );
$fp->flags = -2;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "string quants:              " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)strcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "constants:                  " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cspcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "structures:                 " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)stpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "identifiers:                " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)ctpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "label counts:               " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lbpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "file tracking counts:       " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)filcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
/* const string, len is 28 */
fprintf( $fp->f, "%s", "case entry tracking counts: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cipcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
({
text *const $fp = &output_1;
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
}
if( (strcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 60 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: string recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)strcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (cspcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 62 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: constant recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cspcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (stpcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 63 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: structure recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)stpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (ctpcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 64 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: identifier recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)ctpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (lbpcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 59 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: label recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)lbpcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (filcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 58 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: file recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)filcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
if( (cipcnt_1 != (0)) )
({
text *const $fp = &output_1;
/* const string, len is 58 */
fprintf( $fp->f, "%s", "*** Error: Compiler internal error: case recycle balance: " );
$fp->flags = -2;
fprintf( $fp->f, "%1i", (int)cipcnt_1 );
fprintf( $fp->f, "\n");
$fp->flags = -1;
});
_PL1:
;
exit(EXIT_SUCCESS);
} /* main() */
