bool ReqName( int index ) {
//============================
if( RecName() )
return( true );
KnownClassErr( SX_NO_NAME, index );
return( false );
}
static void CkFieldNoList( void ) {
//===============================
// Check that array field with no list is alright.
itnode *opr_node;
// find the node that contains the structured symbol
opr_node = FieldNode;
while( opr_node->value.sc.struct_chain != NULL ) {
opr_node = opr_node->value.sc.struct_chain;
}
if( ( ASType & AST_IO ) && ( opr_node->opr == OPR_TRM ) &&
RecNextOpr( OPR_TRM ) ) {
if( ( CITNode->opn.us & USOPN_WHAT ) != USOPN_ARR ) {
KnownClassErr( SV_NO_LIST, NAME_ARRAY );
}
return;
}
if( ( !RecNextOpr( OPR_COM ) && !RecNextOpr( OPR_RBR ) ) ||
( ( opr_node->opr != OPR_COM ) && ( opr_node->opr != OPR_FBR ) ) ) {
KnownClassErr( SV_NO_LIST, NAME_ARRAY );
}
}
