static void BIDumpAllEntryPoints( entry_pt *dum_lst, int level ) {
//================================================================
// Close up all entry points for the subprogram.
// This is done recursively since scope might be a factor
// in the future
if ( !dum_lst ) {
return;
}
BIDumpAllEntryPoints( dum_lst->link, level + 1 );
if ( level ) {
BIEndRBorEP();
}
}
void CpEndBlock( void )
{
CheckCSList( CS_REMOTEBLOCK );
if( CSHead->typ == CS_REMOTEBLOCK ) {
GLabel( CSHead->bottom );
FreeLabel( CSHead->bottom );
// Make sure REMOTEBLOCK statement was valid.
if( CSHead->cs_info.rb != NULL ) {
GEndBlock();
}
GLabel( CSHead->branch );
FreeLabel( CSHead->branch );
DelCSNode();
} else {
Match();
}
CSNoMore();
StNumbers.in_remote = FALSE;
ClearRem();
CSNoMore();
BIEndRBorEP();
}