93 lines
3.0 KiB
C
93 lines
3.0 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001, 2011 Fidelity Information Services, 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 "cmd_qlf.h"
|
|
#include "rtnhdr.h"
|
|
#include "obj_file.h"
|
|
#include "list_file.h"
|
|
#include "emit_code.h"
|
|
#include "dumptable.h"
|
|
|
|
LITREF octabstruct oc_tab[]; /* op-code table */
|
|
GBLREF triple t_orig; /* head of triples */
|
|
GBLREF char cg_phase; /* code generation phase */
|
|
GBLREF int4 curr_addr; /* current address */
|
|
GBLREF src_line_struct src_head;
|
|
GBLREF short source_column,source_line;
|
|
GBLREF int4 pending_errtriplecode; /* if non-zero contains the error code to invoke ins_errtriple with */
|
|
|
|
void code_gen(void)
|
|
{
|
|
int4 old_line, pad_len;
|
|
src_line_struct *sl;
|
|
triple *ct; /* current triple */
|
|
DCL_THREADGBL_ACCESS;
|
|
|
|
SETUP_THREADGBL_ACCESS;
|
|
if (CGP_ASSEMBLY == cg_phase)
|
|
{
|
|
curr_addr = t_orig.exorder.fl->rtaddr;
|
|
old_line = -1;
|
|
}
|
|
assert(0 == pending_errtriplecode); /* we should never have a pending ins_errtriple at this point */
|
|
assert(&t_orig == TREF(curtchain)); /* curtchain should still be pointing to what it was originally */
|
|
DEBUG_ONLY(chktchain(&t_orig)); /* if this assert fails, then recompile with DEBUG_TRIPLES to catch the issue sooner */
|
|
dqloop(&t_orig, exorder, ct)
|
|
{
|
|
if (CGP_APPROX_ADDR == cg_phase)
|
|
ct->rtaddr = curr_addr;
|
|
else if (CGP_ASSEMBLY == cg_phase)
|
|
{
|
|
if (ct->src.line != old_line)
|
|
{
|
|
list_line("");
|
|
for (sl = src_head.que.bl; sl->line <= ct->src.line && sl != &src_head; )
|
|
{
|
|
list_line_number();
|
|
dqdel(sl,que);
|
|
list_line(sl->addr);
|
|
sl = src_head.que.bl;
|
|
}
|
|
old_line = ct->src.line;
|
|
}
|
|
}
|
|
source_line = ct->src.line;
|
|
source_column = ct->src.column;
|
|
if (!(oc_tab[ct->opcode].octype & OCT_CGSKIP))
|
|
trip_gen(ct);
|
|
}/* dqloop */
|
|
#ifdef _AIX
|
|
emit_epilog();
|
|
#endif
|
|
/* The code section needs to be padded so the next section (variable name table) can be optimally aligned
|
|
for use by the hashing functions (ex use 8 byte loads on alpha requires 8 byte alignment). We compute the
|
|
pad length and record it and add it to the code size. Later when the code is optimized, the pad length
|
|
will be subtracted back out, rechecked for padding and an appropriate pad length recomputed.
|
|
*/
|
|
if (CGP_APPROX_ADDR == cg_phase)
|
|
TREF(codegen_padlen) = PADLEN(curr_addr, SECTION_ALIGN_BOUNDARY); /* Length to pad to align next section */
|
|
if (TREF(codegen_padlen))
|
|
{
|
|
assert(STR_LIT_LEN(PADCHARS) >= TREF(codegen_padlen));
|
|
if (CGP_MACHINE == cg_phase)
|
|
emit_immed(PADCHARS, TREF(codegen_padlen)); /* Pad out with extraneous info */
|
|
else
|
|
curr_addr += TREF(codegen_padlen);
|
|
}
|
|
if (CGP_ASSEMBLY == cg_phase)
|
|
dumptable();
|
|
}/* code_gen */
|