67 lines
2.0 KiB
C
67 lines
2.0 KiB
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* Copyright 2001, 2004 Sanchez Computer Associates, Inc. *
|
||
|
|
* *
|
||
|
|
* This source code contains the intellectual property *
|
||
|
|
* of its copyright holder(s), and is made available *
|
||
|
|
* under a license. If you do not know the terms of *
|
||
|
|
* the license, please stop and do not read further. *
|
||
|
|
* *
|
||
|
|
****************************************************************/
|
||
|
|
|
||
|
|
#include "mdef.h"
|
||
|
|
#include "compiler.h"
|
||
|
|
#include "opcode.h"
|
||
|
|
#include "mdq.h"
|
||
|
|
#include "cgp.h"
|
||
|
|
#include "emit_code.h"
|
||
|
|
#include "rtnhdr.h"
|
||
|
|
#include "obj_file.h"
|
||
|
|
|
||
|
|
GBLREF int4 curr_addr, code_size, codegen_padlen;
|
||
|
|
GBLREF char cg_phase; /* code generation phase */
|
||
|
|
GBLREF triple t_orig; /* head of triples */
|
||
|
|
LITREF octabstruct oc_tab[]; /* op-code table */
|
||
|
|
|
||
|
|
void shrink_jmps(void)
|
||
|
|
{
|
||
|
|
int new_size, old_size, shrink;
|
||
|
|
triple *ct; /* current triple */
|
||
|
|
|
||
|
|
assert(cg_phase == CGP_ADDR_OPT);
|
||
|
|
do
|
||
|
|
{
|
||
|
|
shrink = 0;
|
||
|
|
dqloop(&t_orig, exorder, ct)
|
||
|
|
{
|
||
|
|
if (oc_tab[ct->opcode].octype & OCT_JUMP || ct->opcode == OC_LDADDR || ct->opcode == OC_FORLOOP)
|
||
|
|
{
|
||
|
|
old_size = ct->exorder.fl->rtaddr - ct->rtaddr;
|
||
|
|
curr_addr = 0;
|
||
|
|
if (ct->operand[0].oprval.tref->rtaddr - ct->rtaddr < 0)
|
||
|
|
{
|
||
|
|
ct->rtaddr -= shrink;
|
||
|
|
trip_gen(ct);
|
||
|
|
} else
|
||
|
|
{
|
||
|
|
trip_gen(ct);
|
||
|
|
ct->rtaddr -= shrink;
|
||
|
|
}
|
||
|
|
new_size = curr_addr; /* size of operand 0 */
|
||
|
|
assert(old_size >= new_size);
|
||
|
|
shrink += old_size - new_size;
|
||
|
|
} else
|
||
|
|
ct->rtaddr -= shrink;
|
||
|
|
}/* dqloop */
|
||
|
|
code_size -= shrink;
|
||
|
|
} while (shrink != 0);
|
||
|
|
|
||
|
|
/* Now that the code has been strunk, we may have to adjust the pad length of the code segment. Compute
|
||
|
|
this by now subtracting out the size of the pad length from the code size and recomputing the pad length
|
||
|
|
and readjusting the code size. (see similar computation in code_gen().
|
||
|
|
*/
|
||
|
|
code_size -= codegen_padlen;
|
||
|
|
codegen_padlen = PADLEN(code_size, SECTION_ALIGN_BOUNDARY); /* Length to pad to align next section */
|
||
|
|
code_size += codegen_padlen;
|
||
|
|
}
|