/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  WHEN YOU FIGURE OUT WHAT THIS FILE DOES, PLEASE
*               DESCRIBE IT HERE!
*
****************************************************************************/


#include "standard.h"
#include "coderep.h"
#include "sysmacro.h"
#include "model.h"

typedef struct  edge_list {
        block_edge              *edge;
        struct edge_list        *next;
        label_handle            lbl;
        block_num               gen_id;
} edge_list;

extern  block           *NewBlock(label_handle,bool);
extern  void            RemoveInputEdge(block_edge*);
extern  bool            AskIfReachedLabel(label_handle);
extern  label_handle    AskForNewLabel();
extern  bool            FixReturns();
extern  void            FixEdges();
extern  void            UnFixEdges();
extern  void            FreeABlock();

extern  block           *HeadBlock;
extern  block           *CurrBlock;
extern  block           *BlockList;

static  block           *Curr;
static  block           *Break;
static  edge_list       *BranchOuts;
static  block           *Tail = { NULL };
static  bool            HaveBreak = { FALSE };


static  void            FreeBranchOuts() {
/**************************************/

    edge_list   *junk;
    edge_list   *curr;

    curr = BranchOuts;
    while( curr != NULL ) {
        junk = curr;
        curr = curr->next;
        _Free( junk, sizeof( edge_list ) );
    }
}


extern  bool            CreateBreak() {
/*************************************/

    block       *blk;
    block       *break_blk;
    block       *back_break_blk;
    block       *exit_blk;
    block_edge  *edge;
    block_edge  *next_edge;
    int         targets;
    int         pending;
    edge_list   *exit_edge;

    if( HeadBlock == NULL ) {
        return( FALSE );
    }
    if( _IsntModel( FORTRAN_ALIASING ) ) {
        return( FALSE );
    }
    if( !FixReturns() ) {
        return( FALSE );
    }
    FixEdges();
    blk = HeadBlock;
    while( blk != NULL ) {
        blk->class &= ~BLOCK_VISITED;
        blk = blk->next_block;
    }
/*
    Run through the blocks and find a place (break_blk) where no previous
    blocks are branched to from later blocks. IE: there are no backward branches
    around break_blk.
*/

    break_blk = NULL;
    back_break_blk = NULL;
    pending = 0;
    BranchOuts = NULL;
    blk = HeadBlock;
    while( blk != NULL ) {
        if( AskIfReachedLabel( blk->label ) && blk != HeadBlock ) break;
        if( !( blk->edge[ 0 ].flags & BLOCK_LABEL_DIES ) && blk != HeadBlock ) {
            blk->class |= BLOCK_VISITED;
            ++pending;
        } else if( pending == 0 ) {
            break_blk = blk;
        }
        targets = blk->targets;
        edge = &blk->edge[ 0 ];
        while( --targets >= 0 ) {
            if( edge->flags & DEST_IS_BLOCK ) {
                if( edge->flags & DEST_LABEL_DIES ) {
                    if( edge->destination->class & BLOCK_VISITED ) {
                        edge->destination->class &= ~BLOCK_VISITED;
                        if( --pending == 0 ) {
                            back_break_blk = blk->next_block;
                        }
                    }
                }
            }
            ++edge;
        }
        blk = blk->next_block;
    }
    /* clean up the BLOCK_VISITED flags */
    blk = HeadBlock;
    while( blk != NULL ) {
        blk->class &= ~BLOCK_VISITED;
        blk = blk->next_block;
    }
    if( back_break_blk != NULL ) {
        break_blk = back_break_blk; /* always better to break on a back edge */
    }
    if( break_blk == NULL ) {
        break_blk = HeadBlock;
    }
    if( break_blk == HeadBlock ) {
        break_blk = break_blk->next_block;
    }
    if( break_blk == NULL ) {
        UnFixEdges();
        return( FALSE );
    }

/*
    create a new block and link it after break_blk. Point Break to the rest
    of the blocks and unhook them from the block list.
*/
    Break = break_blk;
    Curr = CurrBlock;
    Tail = BlockList;
    exit_blk = NewBlock( NULL, FALSE );
    exit_blk->gen_id = BlockList->gen_id + 1;
    exit_blk->id = BlockList->id + 1;
    exit_blk->ins.hd.line_num = 0;
    BlockList = exit_blk;
    exit_blk->prev_block = break_blk->prev_block;
    exit_blk->next_block = NULL;
    exit_blk->class = UNKNOWN_DESTINATION;
    break_blk->prev_block->next_block = exit_blk;
    break_blk->prev_block = NULL;

/*
    run throuch all the blocks before break_blk, and create a 'BranchOut' for
    and edge that goes to a block after break_blk
*/
    blk = HeadBlock;
    while( blk != NULL ) {
        targets = blk->targets;
        edge = &blk->edge[ 0 ];
        while( --targets >= 0 ) {
            if( !( edge->flags & DEST_IS_BLOCK )
               || edge->destination->gen_id >= break_blk->gen_id ) {
                _Alloc( exit_edge, sizeof( edge_list ) );
                exit_edge->edge = edge;
                exit_edge->next = BranchOuts;
                exit_edge->gen_id = blk->gen_id;
                BranchOuts = exit_edge;
            }
            ++edge;
        }
        blk = blk->next_block;
    }

/*
    now, point all 'BranchOuts' at the new 'exit' block, saving their original
    labels in the 'lbl' field of the exit_list
*/

    exit_edge = BranchOuts;
    while( exit_edge != NULL ) {
        edge = exit_edge->edge;
        if( edge->flags & DEST_IS_BLOCK ) {
            exit_edge->lbl = edge->destination->label;
            RemoveInputEdge( edge );
        } else {
            exit_edge->lbl = edge->destination;
        }
        edge->destination = exit_blk;
        edge->flags |= DEST_IS_BLOCK;
        edge->next_source = exit_blk->input_edges;
        exit_blk->input_edges = edge;
        exit_blk->inputs++;
        exit_edge = exit_edge->next;
    }

    if( exit_blk->inputs == 0 ) {
        BlockList = exit_blk->prev_block;
        BlockList->next_block = NULL;
        exit_blk->prev_block = NULL;
        FreeABlock( exit_blk );
    }

    HeadBlock->class |= BIG_LABEL;
    HaveBreak = TRUE;
/*
    change any branches to HeadBlock from a block after break_blk into
    a label (~DEST_IS_BLOCK) branch.
*/
    edge = HeadBlock->input_edges;
    for(;;) {
        if( edge == NULL ) break;
        next_edge = edge->next_source;
        if( edge->source->gen_id >= break_blk->gen_id ) {
            RemoveInputEdge( edge );
            edge->destination = edge->destination->label;
            edge->flags &= ~DEST_IS_BLOCK;
        }
        edge = next_edge;
    }
/*
    Now, set up a new HeadBlock, and redirect all unknowns branches to it.
    Known branches may still go to the old HeadBlock. This is so that
    HeadBlock will not be a loop header. The loop optimizer will
    screw up if it is.
*/
    blk = NewBlock( NULL, FALSE );
    blk->input_edges = NULL;
    blk->inputs = 0;
    blk->label = HeadBlock->label;
    blk->ins.hd.line_num = HeadBlock->ins.hd.line_num;
    HeadBlock->ins.hd.line_num = 0;
    blk->gen_id = 0;
    blk->id = 0;
    HeadBlock->label = AskForNewLabel();
    blk->targets = 1;
    blk->class = BIG_LABEL | JUMP;
    HeadBlock->class &= ~BIG_LABEL;
    edge = &blk->edge[ 0 ];
    edge->flags = DEST_IS_BLOCK;
    edge->destination = HeadBlock;
    edge->source = blk;
    edge->next_source = HeadBlock->input_edges;
    HeadBlock->input_edges = edge;
    HeadBlock->inputs++;
    HeadBlock->prev_block = blk;
    blk->prev_block = NULL;
    blk->next_block = HeadBlock;
    HeadBlock = blk;
    return( TRUE );
}


extern  void            RemoveBreak() {
/*************************************/

    HeadBlock = Break;
    CurrBlock = Curr;
    BlockList = Tail;
    Tail = NULL;
    HaveBreak = FALSE;
    UnFixEdges();
}


extern  void            FixBreak() {
/**********************************/

    block       *blk;
    edge_list   *exit_edge;

    exit_edge = BranchOuts;
    while( exit_edge != NULL ) {
        blk = HeadBlock;
        while( blk != NULL ) {
            if( blk->gen_id == exit_edge->gen_id ) {
                RemoveInputEdge( exit_edge->edge );
                exit_edge->edge->destination = exit_edge->lbl;
                exit_edge->edge->flags &= ~DEST_IS_BLOCK;
                break;
            }
            blk = blk->next_block;
        }
        exit_edge = exit_edge->next;
    }
    UnFixEdges();
    FreeBranchOuts();
}

extern  block           *TailBlocks() {
/*************************************/

    return( Tail );
}

extern  bool            BreakExists() {
/*************************************/

    return( HaveBreak );
}
