#include "compiler/CodeGen.h" #include "compiler/CCompiler.h" #include "compiler/CDecl.h" #include "compiler/CError.h" #include "compiler/CExpr.h" #include "compiler/CFunc.h" #include "compiler/CInt64.h" #include "compiler/CMachine.h" #include "compiler/CMangler.h" #include "compiler/CParser.h" #include "compiler/CPrep.h" #include "compiler/CPrepTokenizer.h" #include "compiler/InstrSelection.h" #include "compiler/Operands.h" #include "compiler/PCode.h" #include "compiler/PCodeInfo.h" #include "compiler/PCodeUtilities.h" #include "compiler/RegisterInfo.h" #include "compiler/StackFrame.h" #include "compiler/TOC.h" #include "compiler/CompilerTools.h" #include "compiler/enode.h" #include "compiler/objects.h" #include "compiler/scopes.h" #include "compiler/tokens.h" #include "compiler/types.h" // TODO: MOVE ME extern void Intrinsics_SetupRuntimeObjects(void); extern void Intrinsics_ReInitRuntimeObjects(Boolean); extern Boolean Intrinsics_IsPublicRuntimeObject(Object *); extern ENode *Intrinsics_HandleIntrinsicCall(Object *func, ENodeList *arg_exprs); extern void PPCError_Error(int, ...); extern void PPCError_Warning(int, ...); extern void PPCError_Message(char *, ...); extern void globallyoptimizepcode(Object *); extern void pclistblocks(char *, char *); extern void pclistblocks_start_scheduler(char *, char *); extern void pclistblocks_end_scheduler(); extern void scheduleinstructions(Boolean); extern void peepholemergeblocks(Object *, Boolean); extern void peepholeoptimizeforward(Object *); extern void peepholeoptimizepcode(Object *); extern void colorinstructions(Object *); extern void removecommonsubexpressions(Object *, Boolean); extern int removedcommonsubexpressions; extern SInt32 assemblefunction(Object *, void *); extern void dumpswitchtables(Object *); extern void ObjGen_DeclareInitFunction(Object *); extern void *switchtables; extern void initializeexceptiontables(); extern void dumpexceptiontables(Object *, SInt32); extern void switchstatement(ENode *, CLabel *); extern void DumpIR(Statement **, Object *); extern void InlineAsm_TranslateIRtoPCode(Statement *stmt); typedef struct WeirdInlineAsmThing { UInt8 x0, x1, x2; } WeirdInlineAsmThing; extern Statement **COpt_Optimizer(Object *, Statement **); static Macro powcM; static Macro __powcM; static Macro ppc_cpu; static Macro profM; static Macro hostM; static Macro bendM; static Macro _ppc_M; static Macro longI; static Macro IEEED; Macro vecM; Macro altivecM; static Macro macM2; static Macro appleM; static Macro optM; static Macro alignM; static Macro _machM; static Macro archM; static Macro dynM; static Macro ppcM; Object *gFunction; static ObjectList *temps; CLabel *returnlabel; CLabel *cleanreturnlabel; Boolean needs_cleanup; Statement *current_statement; int has_catch_blocks; int disable_optimizer; SInt32 current_linenumber; Boolean has_altivec_arrays; short high_reg; short low_reg; short high_offset; short low_offset; short low_reg2; short high_reg2; PCodeLabel *pic_base_pcodelabel; Object *dyld_stub_binding_helper; Object *rt_cvt_fp2unsigned; Object *rt_profile_entry; Object *rt_profile_exit; Object *rt_div2i; Object *rt_div2u; Object *rt_mod2i; Object *rt_mod2u; Object *rt_shr2i; Object *rt_shr2u; Object *rt_shl2i; Object *rt_cvt_ull_dbl; Object *rt_cvt_sll_dbl; Object *rt_cvt_ull_flt; Object *rt_cvt_sll_flt; Object *rt_cvt_dbl_usll; static heaperror_t saveheaperror; enum { GPRLimit = 10, FPRLimit = 13, VRLimit = 13 }; // forward decls static void CodeGen_heaperror(void); VarInfo *CodeGen_GetNewVarInfo(void) { VarInfo *vi; vi = lalloc(sizeof(VarInfo)); memclrw(vi, sizeof(VarInfo)); vi->deftoken = *CPrep_CurStreamElement(); vi->varnumber = localcount++; return vi; } Object *maketemporary(Type *type) { ObjectList *list; Object *obj; for (list = temps; list; list = list->next) { obj = list->object; if (obj->u.var.uid == 0 && obj->type == type) { obj->u.var.uid = 1; return obj; } } obj = lalloc(sizeof(Object)); memclrw(obj, sizeof(Object)); obj->otype = OT_OBJECT; obj->access = ACCESSPUBLIC; obj->datatype = DLOCAL; obj->type = type; obj->name = CParser_GetUniqueName(); obj->u.var.info = CodeGen_GetNewVarInfo(); obj->u.var.uid = 1; list = lalloc(sizeof(ObjectList)); memclrw(list, sizeof(ObjectList)); list->next = temps; list->object = obj; temps = list; return obj; } static void free_temporaries(void) { ObjectList *list; for (list = temps; list; list = list->next) list->object->u.var.uid = 0; } static void allocate_temporaries(void) { ObjectList *list; for (list = temps; list; list = list->next) assign_local_memory(list->object); } void process_arguments(ArgumentProcessor func, Boolean flag) { short gpr = 3; short fpr = 1; short vr = 2; Type *type; ObjectList *list; for (list = arguments; list; list = list->next) { type = list->object->type; if (IS_TYPE_FLOAT(type)) { func(list->object, (fpr <= FPRLimit) ? fpr : 0); fpr++; if (type->size == 4) gpr++; else gpr += 2; } else if (IS_TYPE_VECTOR(type)) { func(list->object, (vr <= VRLimit) ? vr : 0); vr++; if (flag) { if ((vr - 1) == 2) gpr = 9; else if ((vr - 1) > 2) gpr = 11; } } else { func(list->object, (gpr <= GPRLimit) ? gpr : 0); if (TYPE_FITS_IN_REGISTER(type)) { if (type->size <= 4) gpr += 1; else gpr += 2; } else { gpr += (type->size >> 2); if (type->size & 3) gpr++; } } } last_argument_register[RegClass_GPR] = gpr - 1; last_argument_register[RegClass_FPR] = fpr - 1; last_argument_register[RegClass_VR] = vr - 1; if (flag) move_varargs_to_memory(); } static void retain_argument_register(Object *obj, short reg) { VarInfo *vi = Registers_GetVarInfo(obj); Type *type = obj->type; if (reg && !vi->noregister && vi->used) { if (TYPE_FITS_IN_REGISTER(type)) { if (type->size <= 4) { retain_register(obj, RegClass_GPR, reg); } else if (reg < GPRLimit) { if (copts.little_endian) retain_GPR_pair(obj, reg, reg + 1); else retain_GPR_pair(obj, reg + 1, reg); } } else if (IS_TYPE_FLOAT(type)) { retain_register(obj, RegClass_FPR, reg); } else if (IS_TYPE_VECTOR(type)) { retain_register(obj, RegClass_VR, reg); } } } static void allocate_local_vregs(void) { VarInfo *vi; ObjectList *list; Object *obj; if (copts.codegen_pic && uses_globals && assignable_registers[RegClass_GPR]) { if (assignable_registers[RegClass_GPR]) { vi = pic_base.u.var.info; vi->reg = 0; assign_register_by_type(&pic_base); pic_base_reg = vi->reg; #line 497 CError_ASSERT(pic_base_reg); } else { #line 500 CError_FATAL(); } } else { pic_base_reg = 0; } for (list = exceptionlist; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && !vi->reg) assign_register_by_type(obj); } } set_last_exception_registers(); for (list = arguments; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && !vi->reg) assign_register_by_type(obj); } } for (list = locals; list; list = list->next) { obj = list->object; if (!IsTempName(obj->name)) { vi = Registers_GetVarInfo(obj); if (vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && !vi->reg) assign_register_by_type(obj); } } } open_fe_temp_registers(); for (list = locals; list; list = list->next) { obj = list->object; if (IsTempName(obj->name)) { vi = Registers_GetVarInfo(obj); if (vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && !vi->reg) assign_register_by_type(obj); } } } for (list = toclist; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (!vi->reg && vi->used && vi->usage > 1) assign_register_by_type(obj); } } static void allocate_local_GPRs(void) { ObjectList *list; Object *obj; Object *winning_obj; SInt32 winning_usage; VarInfo *vi; Type *type; if (copts.codegen_pic && uses_globals && assignable_registers[RegClass_GPR]) { vi = pic_base.u.var.info; vi->reg = 0; assign_register_by_type(&pic_base); pic_base_reg = vi->reg; #line 605 CError_ASSERT(pic_base_reg); } else { pic_base_reg = 0; } while (assignable_registers[RegClass_GPR]) { winning_obj = NULL; winning_usage = -1; if (!(disable_optimizer & 2)) { for (list = arguments; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); type = obj->type; if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (TYPE_FITS_IN_REGISTER(type) && (!TYPE_IS_8BYTES(type) || assignable_registers[RegClass_GPR] >= 2)) { winning_obj = obj; winning_usage = vi->usage; } } } } } if (!(disable_optimizer & 2)) { for (list = locals; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); type = obj->type; if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (TYPE_FITS_IN_REGISTER(type) && (!TYPE_IS_8BYTES(type) || assignable_registers[RegClass_GPR] >= 2)) { winning_obj = obj; winning_usage = vi->usage; } } } } } for (list = toclist; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used) { if (vi->usage >= winning_usage && vi->usage >= 3) { winning_obj = obj; winning_usage = vi->usage; } } } if (!winning_obj) break; assign_register_by_type(winning_obj); #line 698 CError_ASSERT(Registers_GetVarInfo(winning_obj)->flags & VarInfoFlag2); } } static void allocate_local_FPRs(void) { ObjectList *list; Object *obj; Object *winning_obj; SInt32 winning_usage; VarInfo *vi; Type *type; while (assignable_registers[RegClass_FPR]) { winning_obj = NULL; winning_usage = -1; if (!(disable_optimizer & 2)) { for (list = arguments; list; list = list->next) { obj = list->object; type = obj->type; vi = Registers_GetVarInfo(obj); if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (IS_TYPE_FLOAT(type)) { winning_obj = obj; winning_usage = vi->usage; } } } } } if (!(disable_optimizer & 2)) { for (list = locals; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (IS_TYPE_FLOAT(obj->type)) { winning_obj = obj; winning_usage = vi->usage; } } } } } if (!winning_obj) break; assign_register_by_type(winning_obj); #line 782 CError_ASSERT(Registers_GetVarInfo(winning_obj)->flags & VarInfoFlag2); } } static void allocate_local_VRs(void) { ObjectList *list; Object *obj; Object *winning_obj; SInt32 winning_usage; VarInfo *vi; while (assignable_registers[RegClass_VR]) { winning_obj = NULL; winning_usage = -1; if (!(disable_optimizer & 2)) { for (list = arguments; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (IS_TYPE_VECTOR(obj->type)) { winning_obj = obj; winning_usage = vi->usage; } } } } } if (!(disable_optimizer & 2)) { for (list = locals; list; list = list->next) { obj = list->object; vi = Registers_GetVarInfo(obj); if (vi->flags & VarInfoFlag40) vi->usage = 100000; if (!vi->reg && vi->used && !vi->noregister) { if (!OBJ_GET_TARGET_VOLATILE(obj) && vi->usage >= winning_usage && vi->usage >= 2) { if (IS_TYPE_VECTOR(obj->type)) { winning_obj = obj; winning_usage = vi->usage; } } } } } if (!winning_obj) break; assign_register_by_type(winning_obj); #line 846 CError_ASSERT(Registers_GetVarInfo(winning_obj)->flags & VarInfoFlag2); } } static void allocate_locals(void) { has_altivec_arrays = 0; if (!requires_frame && !optimizing) process_arguments(retain_argument_register, 0); if (optimizing) { allocate_local_vregs(); } else { allocate_local_GPRs(); allocate_local_FPRs(); allocate_local_VRs(); } assign_locals_to_memory(locals); } void move_assigned_argument(Object *obj, short reg) { VarInfo *vi; Type *type; SInt32 bytesLeft; SInt32 offset; vi = Registers_GetVarInfo(obj); type = obj->type; #line 901 CError_ASSERT(obj->datatype == DLOCAL); if (!vi->used) return; if (reg) { if (vi->reg) { if (TYPE_IS_8BYTES(type)) { if (copts.little_endian) { if (vi->reg != reg) emitpcode(PC_MR, vi->reg, reg); if (reg < GPRLimit) { #line 916 CError_FAIL((vi->regHi == reg) || (vi->reg == (reg + 1))); if (vi->regHi != (reg + 1)) emitpcode(PC_MR, vi->regHi, reg + 1); } else { load_store_register(PC_LWZ, vi->regHi, local_base_register(obj), obj, high_offset); } } else { if (vi->regHi != reg) emitpcode(PC_MR, vi->regHi, reg); if (reg < GPRLimit) { #line 931 CError_FAIL((vi->reg == reg) || (vi->regHi == (reg + 1))); if (vi->reg != (reg + 1)) emitpcode(PC_MR, vi->reg, reg + 1); } else { load_store_register(PC_LWZ, vi->reg, local_base_register(obj), obj, low_offset); } } } else if (vi->reg != reg) { if (IS_TYPE_FLOAT(type)) { emitpcode(PC_FMR, vi->reg, reg); } else if (IS_TYPE_VECTOR(type)) { emitpcode(PC_VMR, vi->reg, reg); } else { emitpcode(PC_MR, vi->reg, reg); } } } else { if (IS_TYPE_POINTER(type) || IS_TYPE_4BYTES_MEMBERPOINTER(type)) { load_store_register(PC_STW, reg, local_base_register(obj), obj, 0); } else if (IS_TYPE_INT(type) || IS_TYPE_ENUM(type)) { switch (type->size) { case 1: load_store_register(PC_STB, reg, local_base_register(obj), obj, 0); break; case 2: load_store_register(PC_STH, reg, local_base_register(obj), obj, 0); break; case 4: load_store_register(PC_STW, reg, local_base_register(obj), obj, 0); break; case 8: load_store_register(PC_STW, reg, local_base_register(obj), obj, 0); if (reg < GPRLimit) load_store_register(PC_STW, reg + 1, local_base_register(obj), obj, 4); break; default: #line 993 CError_FATAL(); } } else if (IS_TYPE_FLOAT(type)) { load_store_register((type->size == 4) ? PC_STFS : PC_STFD, reg, local_base_register(obj), obj, 0); } else if (IS_TYPE_VECTOR(type)) { load_store_register(PC_STVX, reg, local_base_register(obj), obj, 0); } else { bytesLeft = (11 - reg) * 4; if (bytesLeft > obj->type->size) bytesLeft = obj->type->size; offset = 0; while (bytesLeft > 0) { load_store_register(PC_STW, reg, local_base_register(obj), obj, offset); reg++; offset += 4; bytesLeft -= 4; } } } } else { if (vi->reg) { if (IS_TYPE_POINTER(type) || IS_TYPE_4BYTES_MEMBERPOINTER(type)) { load_store_register(PC_LWZ, vi->reg, local_base_register(obj), obj, 0); } else if (IS_TYPE_FLOAT(type)) { load_store_register((type->size == 4) ? PC_LFS : PC_LFD, vi->reg, local_base_register(obj), obj, 0); } else if (IS_TYPE_VECTOR(type)) { load_store_register(PC_LVX, vi->reg, local_base_register(obj), obj, 0); } else { switch (type->size) { case 1: load_store_register(PC_LBZ, vi->reg, local_base_register(obj), obj, 0); break; case 2: load_store_register(is_unsigned(type) ? PC_LHZ : PC_LHA, vi->reg, local_base_register(obj), obj, 0); break; case 4: load_store_register(PC_LWZ, vi->reg, local_base_register(obj), obj, 0); break; case 8: load_store_register(PC_LWZ, vi->regHi, local_base_register(obj), obj, high_offset); load_store_register(PC_LWZ, vi->reg, local_base_register(obj), obj, low_offset); break; default: #line 1095 CError_FATAL(); } } } else if (!optimizing) { local_base_register(obj); } } } static void load_TOC_pointers(void) { VarInfo *vi; Object *obj; ObjectList *list; PCode *pc; Operand opnd; if (uses_globals && pic_base_reg) { pic_base_pcodelabel = makepclabel(); pc = makepcode(PC_BC, 20, 7, 3, pic_base_pcodelabel); pcsetlinkbit(pc); pcsetsideeffects(pc); appendpcode(pclastblock, pc); pcbranch(pclastblock, pic_base_pcodelabel); makepcblock(); pclabel(pclastblock, pic_base_pcodelabel); emitpcode(PC_MFLR, pic_base_reg); } memclrw(&opnd, sizeof(Operand)); for (list = toclist; list; list = list->next) { obj = list->object; if ((vi = Registers_GetVarInfo(obj)) && (vi->flags & VarInfoFlag2)) { switch (obj->datatype) { case DNONLAZYPTR: symbol_operand(&opnd, obj); opnd.optype = OpndType_IndirectSymbol; if (opnd.optype) Coerce_to_register(&opnd, TYPE(&void_ptr), vi->reg); if (opnd.reg != vi->reg) emitpcode(PC_MR, vi->reg, opnd.reg); break; default: #line 1206 CError_FATAL(); } } } } static int has_vararglist(Object *funcobj) { FuncArg *arg; arg = TYPE_FUNC(funcobj->type)->args; while (arg && arg != &elipsis) arg = arg->next; return (arg == &elipsis); } void assign_labels(Statement *stmt) { Statement *last; last = NULL; while (stmt) { if (stmt->type == ST_LABEL && !stmt->label->pclabel) { if (last && last->type == ST_LABEL) stmt->label->pclabel = last->label->pclabel; else stmt->label->pclabel = makepclabel(); } last = stmt; stmt = stmt->next; } } static Boolean islaststatement(Statement *stmt) { for (stmt = stmt->next; stmt; stmt = stmt->next) { if (stmt->type > ST_LABEL) return 0; } return 1; } static void newstatement(SInt32 sourceoffset, SInt32 value, int flag) { PCodeBlock *block = pclastblock; pcloopweight = value; if (!block->pcodeCount) block->loopWeight = value; if (block->pcodeCount > 100) branch_label(makepclabel()); if (flag) block->flags |= fPCBlockFlag4000; } static void expressionstatement(ENode *expr) { Operand opnd; memclrw(&opnd, sizeof(Operand)); cgdispatch[expr->type](expr, 0, 0, &opnd); if (ENODE_IS(expr, EINDIRECT) && (opnd.flags & OpndFlags_Volatile)) { if (TYPE_FITS_IN_REGISTER_2(expr->rtype)) { if (opnd.optype != OpndType_GPR) Coerce_to_register(&opnd, expr->rtype, 0); } else if (IS_TYPE_FLOAT(expr->rtype)) { if (opnd.optype != OpndType_FPR) Coerce_to_fp_register(&opnd, expr->rtype, 0); } else if (IS_TYPE_VECTOR(expr->rtype)) { if (opnd.optype != OpndType_VR) Coerce_to_v_register(&opnd, expr->rtype, 0); } } } static void labelstatement(CLabel *label) { if (!label->pclabel) label->pclabel = makepclabel(); if (!label->pclabel->resolved) branch_label(label->pclabel); free_temporaries(); } static void gotostatement(CLabel *label) { if (!label->pclabel) label->pclabel = makepclabel(); branch_always(label->pclabel); free_temporaries(); } static void gotoexpression(ENode *expr) { Operand opnd; CodeLabelList *list; memclrw(&opnd, sizeof(Operand)); cgdispatch[expr->type](expr, 0, 0, &opnd); if (opnd.optype != OpndType_GPR) Coerce_to_register(&opnd, TYPE(&void_ptr), 0); #line 1397 CError_ASSERT(opnd.optype == OpndType_GPR); for (list = codelabellist; list; list = list->next) pcbranch(pclastblock, list->label->pclabel); emitpcode(PC_MTCTR, opnd.reg); branch_indirect(NULL); } static void conditionalstatement(ENode *cond, CLabel *label, short truthy) { Operand opnd; memclrw(&opnd, sizeof(Operand)); cond = evaluate_and_skip_comma(cond); if (!label->pclabel) label->pclabel = makepclabel(); if (TYPE_IS_8BYTES(cond->data.diadic.right->rtype) || TYPE_IS_8BYTES(cond->data.diadic.left->rtype)) I8_gen_condition(cond, &opnd, 0); else gen_condition(cond, &opnd); branch_conditional(opnd.reg, opnd.regOffset, truthy, label->pclabel); free_temporaries(); } static void returnstatement(ENode *expr, Boolean dont_branch) { Operand opnd; Type *type; memclrw(&opnd, sizeof(Operand)); if (expr) { type = expr->rtype; if (TYPE_FITS_IN_REGISTER(type)) { if (TYPE_IS_8BYTES(type)) { cgdispatch[expr->type](expr, low_reg, high_reg, &opnd); coerce_to_register_pair(&opnd, type, low_reg, high_reg); } else { cgdispatch[expr->type](expr, 3, 0, &opnd); if (opnd.optype != OpndType_GPR) Coerce_to_register(&opnd, type, 3); if (opnd.reg != 3) emitpcode(PC_MR, 3, opnd.reg); } } else if (IS_TYPE_FLOAT(type)) { cgdispatch[expr->type](expr, 1, 0, &opnd); if (opnd.optype != OpndType_FPR) Coerce_to_fp_register(&opnd, type, 1); if (opnd.reg != 1) emitpcode(PC_FMR, 1, opnd.reg); } else if (IS_TYPE_VECTOR(type)) { cgdispatch[expr->type](expr, 2, 0, &opnd); if (opnd.optype != OpndType_VR) Coerce_to_v_register(&opnd, type, 2); if (opnd.reg != 2) emitpcode(PC_VMR, 2, opnd.reg); } else { cgdispatch[expr->type](expr, 0, 0, &opnd); } } if (!dont_branch) { if (!returnlabel->pclabel) returnlabel->pclabel = makepclabel(); branch_always(returnlabel->pclabel); free_temporaries(); } } static void capturestackpointer(Object *obj) { branch_label(makepclabel()); #line 1568 CError_ASSERT(obj->datatype == DLOCAL); load_store_register(PC_STW, 1, local_base_register(obj), obj, 20); branch_label(makepclabel()); } static void resetstackpointer(Object *obj) { PCode *pc; #line 1595 CError_ASSERT(obj->datatype == DLOCAL); branch_label(makepclabel()); load_store_register(PC_LWZ, 0, 1, NULL, 0); pc = makepcode(PC_LWZ, 1, local_base_register(obj), obj, 20); pcsetsideeffects(pc); appendpcode(pclastblock, pc); load_store_register(PC_STW, 0, 1, NULL, 0); branch_label(makepclabel()); } static void callprofiler(char *name) { UInt32 masks[RegClassMax] = {0, 0, 0, 0, 0}; load_store_register(PC_LWZ, 3, 1, NULL, 0); load_store_register(PC_LWZ, 3, 3, NULL, 8); masks[RegClass_GPR] |= (1 << 3); branch_subroutine(rt_profile_entry, 1, masks); } static void exitprofiler(void) { } void CodeGen_Generator(Statement **statements, Object *func, UInt8 mysteryFlag, Boolean callOnModuleBind) { Statement *stmt; Boolean has_varargs; PCodeBlock *tmp; Object *obj; SInt32 size; CodeGen_InitialSanityCheck(); if (!saveheaperror) { saveheaperror = getheaperror(); setheaperror(CodeGen_heaperror); } if (cparamblkptr->isPrecompiling == 1) CError_Error(180); if (!func) { func = createstaticinitobject(); } else if (func && func->name) { PrintProgressFunction(func->name->name); } gFunction = func; has_varargs = has_vararglist(func); init_endian(); init_stack_globals(func); assign_arguments_to_memory(func, mysteryFlag, has_varargs); needs_cleanup = 0; disable_optimizer = 0; has_catch_blocks = 0; current_statement = NULL; current_linenumber = 0; precomputedoperands = NULL; switchtables = NULL; temps = NULL; initializeexceptiontables(); returnlabel = cleanreturnlabel = newlabel(); if (copts.debuglisting) DumpIR(statements, func); statements = COpt_Optimizer(func, statements); if (copts.debuglisting) DumpIR(statements, func); resetTOCvarinfo(); init_registers(); expandTOCreferences(statements); if (copts.debuglisting) DumpIR(statements, func); if (copts.profile) { makes_call = 1; requires_frame = 1; } initpcode(); pclabel(prologue = makepcblock(), makepclabel()); prologue->flags |= fPCBlockFlag1; pclabel(tmp = makepcblock(), makepclabel()); pcbranch(prologue, tmp->labels); init_frame_sizes(has_varargs); allocate_locals(); process_arguments(move_assigned_argument, has_varargs); if (copts.schedule_mode || copts.altivec_model) branch_label(makepclabel()); load_TOC_pointers(); if (copts.profile) callprofiler(CMangler_GetLinkName(func)->name); assign_labels(*statements); open_temp_registers(); for (stmt = *statements; stmt; stmt = stmt->next) { current_statement = stmt; current_linenumber = stmt->sourceoffset; switch (stmt->type) { case ST_NOP: break; case ST_EXPRESSION: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); expressionstatement(stmt->expr); break; case ST_LABEL: labelstatement(stmt->label); break; case ST_IFGOTO: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); conditionalstatement(stmt->expr, stmt->label, 1); break; case ST_IFNGOTO: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); conditionalstatement(stmt->expr, stmt->label, 0); break; case ST_GOTOEXPR: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); gotoexpression(stmt->expr); break; case ST_GOTO: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); gotostatement(stmt->label); break; case ST_RETURN: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); returnstatement(stmt->expr, islaststatement(stmt)); break; case ST_SWITCH: newstatement(stmt->sourceoffset, stmt->value, (stmt->flags & StmtFlag_10) != 0); switchstatement(stmt->expr, stmt->label); break; case ST_BEGINCATCH: capturestackpointer(stmt->expr->data.objref); break; case ST_ENDCATCHDTOR: #line 2056 CError_ASSERT(stmt->expr->data.objref->datatype == DLOCAL); obj = stmt->expr->data.objref; add_immediate(3, local_base_register(obj), obj, 0); { UInt32 masks[RegClassMax] = {0, 0, 0, 0, 0}; masks[RegClass_GPR] |= 1 << 3; branch_subroutine(Xecth_func, 1, masks); } case ST_ENDCATCH: resetstackpointer(stmt->expr->data.objref); break; case ST_ASM: if (stmt->expr) { // ... will need to understand inline ASM properly for this ... if (((WeirdInlineAsmThing *) stmt->expr)->x2 & 1) { #line 2076 CError_FATAL(); } else { branch_label(makepclabel()); InlineAsm_TranslateIRtoPCode(stmt); } } break; case ST_BEGINLOOP: #line 2086 CError_FATAL(); break; case ST_ENDLOOP: #line 2090 CError_FATAL(); break; default: #line 2094 CError_FATAL(); } check_temp_registers(); } close_temp_registers(); labelstatement(returnlabel); current_statement = NULL; epilogue = pclastblock; pclastblock->flags |= fPCBlockFlag2; pccomputepredecessors(); deleteunreachableblocks(); if (copts.report_heap_info > 0) CodeGen_reportheapinfo(0, CMangler_GetLinkName(func)->name, "before optimization"); if (copts.optimizationlevel > 0 && !disable_optimizer) globallyoptimizepcode(func); else pclistblocks(CMangler_GetLinkName(func)->name, "INITIAL CODE"); if (copts.schedule_mode == 2) { if (copts.peephole) peepholemergeblocks(func, 0); if (copts.debuglisting) pclistblocks_start_scheduler(CMangler_GetLinkName(func)->name, "BEFORE SCHEDULING"); scheduleinstructions(0); if (copts.debuglisting) pclistblocks_end_scheduler(); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER INSTRUCTION SCHEDULING"); } if (copts.peephole) { if (copts.schedule_mode == 0 && copts.optimizationlevel > 1) peepholemergeblocks(func, 0); peepholeoptimizeforward(func); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER PEEPHOLE FORWARD"); } allocate_temporaries(); colorinstructions(func); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER REGISTER COLORING"); if (copts.optimizationlevel > 1 && !disable_optimizer) { removecommonsubexpressions(func, 1); if (removedcommonsubexpressions && copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER VALUE NUMBERING (POST COLORING)"); } compute_frame_sizes(); generate_prologue(prologue, has_varargs); if (copts.profile) exitprofiler(); generate_epilogue(epilogue, 1); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER GENERATING EPILOGUE, PROLOGUE"); if (copts.peephole) { if (copts.schedule_mode) { peepholemergeblocks(func, 1); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER MERGING EPILOGUE, PROLOGUE"); } peepholeoptimizepcode(func); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "AFTER PEEPHOLE OPTIMIZATION"); } if (copts.schedule_mode) { if (copts.debuglisting) pclistblocks_start_scheduler(CMangler_GetLinkName(func)->name, "BEFORE SCHEDULING"); scheduleinstructions(1); if (copts.debuglisting) pclistblocks_end_scheduler(); if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "FINAL CODE AFTER INSTRUCTION SCHEDULING"); } else { if (copts.debuglisting) pclistblocks(CMangler_GetLinkName(func)->name, "FINAL CODE"); } size = assemblefunction(func, NULL); dumpswitchtables(func); dumpcodelabels(func); if (callOnModuleBind) ObjGen_DeclareInitFunction(func); pic_base_pcodelabel = NULL; pic_base_reg = 0; if (copts.exceptions && requires_frame) dumpexceptiontables(func, size); if (copts.report_heap_info > 0) CodeGen_reportheapinfo(0, CMangler_GetLinkName(func)->name, "finished"); if (saveheaperror) setheaperror(saveheaperror); } enum { reg3 = 3, reg4 = 4 }; void CodeGen_GenVDispatchThunk(Object *thunkobj, Object *obj, SInt32 a, SInt32 b, SInt32 c) { Boolean save_debug; Boolean save_peephole; Boolean save_traceback; char reg; save_debug = copts.isGeneratingDebugInfo; save_peephole = copts.peephole; save_traceback = copts.traceback; CodeGen_InitialSanityCheck(); #line 2270 CError_ASSERT(b == 0); initpcode(); makepcblock(); if (a) { reg = CMach_PassResultInHiddenArg(TYPE_FUNC(obj->type)->functype) ? reg4 : reg3; if (c >= 0) { if (!FITS_IN_SHORT(c)) { emitpcode(PC_ADDIS, 11, 0, 0, HIGH_PART(c)); if (c) emitpcode(PC_ADDI, 11, 11, 0, LOW_PART(c)); } else { emitpcode(PC_ADDI, 11, 0, 0, c); } emitpcode(PC_LWZX, 11, reg, 11); emitpcode(PC_ADD, reg, reg, 11); } if (!FITS_IN_SHORT(a)) { emitpcode(PC_ADDIS, reg, reg, 0, HIGH_PART(a)); if (a) emitpcode(PC_ADDI, reg, reg, 0, LOW_PART(a)); } else { emitpcode(PC_ADDI, reg, reg, 0, a); } } emitpcode(PC_B, 0, obj); copts.isGeneratingDebugInfo = 0; copts.peephole = 0; copts.traceback = 0; assemblefunction(thunkobj, NULL); copts.isGeneratingDebugInfo = save_debug; copts.peephole = save_peephole; copts.traceback = save_traceback; } void CodeGen_SetupRuntimeObjects(void) { setupaddressing(); dyld_stub_binding_helper = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_fp2unsigned = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_profile_entry = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_profile_exit = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_div2i = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_div2u = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_mod2i = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_mod2u = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_shr2i = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_shr2u = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_shl2i = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_ull_dbl = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_sll_dbl = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_ull_flt = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_sll_flt = CParser_NewRTFunc(&stvoid, NULL, 2, 0); rt_cvt_dbl_usll = CParser_NewRTFunc(&stvoid, NULL, 2, 0); Intrinsics_SetupRuntimeObjects(); } Boolean CodeGen_ReInitRuntimeObjects(Boolean is_precompiler) { dyld_stub_binding_helper->name = GetHashNameNodeExport("dyld_stub_binding_helper"); dyld_stub_binding_helper->u.func.linkname = dyld_stub_binding_helper->name; rt_cvt_fp2unsigned->name = GetHashNameNodeExport("__cvt_fp2unsigned"); rt_profile_entry->name = GetHashNameNodeExport("mcount"); rt_profile_entry->u.func.linkname = rt_profile_entry->name; rt_profile_exit->name = GetHashNameNodeExport("profile_exit"); rt_div2i->name = GetHashNameNodeExport("__div2i"); rt_div2u->name = GetHashNameNodeExport("__div2u"); rt_mod2i->name = GetHashNameNodeExport("__mod2i"); rt_mod2u->name = GetHashNameNodeExport("__mod2u"); rt_shr2i->name = GetHashNameNodeExport("__shr2i"); rt_shr2u->name = GetHashNameNodeExport("__shr2u"); rt_shl2i->name = GetHashNameNodeExport("__shl2i"); rt_cvt_ull_dbl->name = GetHashNameNodeExport("__cvt_ull_dbl"); rt_cvt_sll_dbl->name = GetHashNameNodeExport("__cvt_sll_dbl"); rt_cvt_ull_flt->name = GetHashNameNodeExport("__cvt_ull_flt"); rt_cvt_sll_flt->name = GetHashNameNodeExport("__cvt_sll_flt"); rt_cvt_dbl_usll->name = GetHashNameNodeExport("__cvt_dbl_usll"); CMach_ReInitRuntimeObjects(); Intrinsics_ReInitRuntimeObjects(is_precompiler); } Boolean CodeGen_IsPublicRuntimeObject(Object *obj) { return Intrinsics_IsPublicRuntimeObject(obj); } void CodeGen_SOMStub(Object *a, Object *b, Object *c, SInt32 offset) { Boolean save_debug; Boolean save_peephole; Boolean save_traceback; Object *tmp; Operand opnd; save_debug = copts.isGeneratingDebugInfo; save_peephole = copts.peephole; save_traceback = copts.traceback; CodeGen_InitialSanityCheck(); memclrw(&opnd, sizeof(Operand)); #line 2528 CError_ASSERT(offset <= 0x7FFF); initpcode(); makepcblock(); tmp = createIndirect(c, 1, 1); if (tmp) { opnd.optype = OpndType_Symbol; opnd.object = tmp; indirect(&opnd, NULL); } else { opnd.optype = OpndType_Symbol; opnd.object = c; } if (opnd.optype != OpndType_GPR) Coerce_to_register(&opnd, TYPE(&void_ptr), 12); if (opnd.optype != OpndType_GPR) { #line 2562 CError_FATAL(); } else if (opnd.reg != 12) { emitpcode(PC_MR, 12, opnd.reg); } load_store_register(PC_LWZ, 12, 12, NULL, (short) offset); emitpcode(PC_B, 0, b); copts.isGeneratingDebugInfo = 0; copts.peephole = 0; copts.traceback = 0; assemblefunction(a, NULL); copts.isGeneratingDebugInfo = save_debug; copts.peephole = save_peephole; copts.traceback = save_traceback; } void CodeGen_ParseDeclSpec(HashNameNode *identifier, DeclInfo *declinfo) { if (!strcmp(identifier->name, "private_extern")) { declinfo->storageclass = TK_EXTERN; declinfo->exportflags = EXPORT_FLAGS_INTERNAL; } else { CError_Error(176); } } static void CodeGen_EOLCheck(void) { short t; if (plex() != TK_NEG7) { CPrep_Error(113); do { t = plex(); } while (t != TK_NEG7 && t != 0); } } static void schedule_for(int what) { CPrep_PushOption(OPT_OFFSET(schedule_cpu), what); if (copts.schedule_mode == 0) CPrep_PushOption(OPT_OFFSET(schedule_mode), 2); } static void pragma_scheduling(void) { Boolean *flag; int cpu; tk = plex(); if (tk == TK_IDENTIFIER) { flag = &copts.altivec_model; if (!strcmp(tkidentifier->name, "vger")) { schedule_for(10); return; } else if (!strcmp(tkidentifier->name, "altivec")) { schedule_for(7); return; } else if (!strcmp(tkidentifier->name, "reset")) { CPrep_PopOption(OPT_OFFSET(schedule_cpu)); CPrep_PopOption(OPT_OFFSET(schedule_mode)); return; } else if (!strcmp(tkidentifier->name, "off")) { CPrep_PushOption(OPT_OFFSET(schedule_mode), 0); return; } else if (!strcmp(tkidentifier->name, "once")) { CPrep_PushOption(OPT_OFFSET(schedule_mode), 1); return; } else if (!strcmp(tkidentifier->name, "twice")) { CPrep_PushOption(OPT_OFFSET(schedule_mode), 2); return; } else if (!strcmp(tkidentifier->name, "on")) { CPrep_PushOption(OPT_OFFSET(schedule_mode), 2); return; } else if (!*flag) { if (!strcmp(tkidentifier->name, "603e")) { schedule_for(5); return; } else if (!strcmp(tkidentifier->name, "604e")) { schedule_for(6); return; } else if (!strcmp(tkidentifier->name, "PPC603e")) { schedule_for(5); return; } else if (!strcmp(tkidentifier->name, "PPC604e")) { schedule_for(6); return; } } else { PPCError_Error(115); return; } CPrep_Error(186); return; } if (tk == TK_INTCONST) { switch (CInt64_GetULong(&tkintconst)) { case 601: cpu = 1; break; case 603: cpu = 2; break; case 604: cpu = 3; break; case 750: cpu = 4; break; case 7400: cpu = 7; break; case 7450: cpu = 10; break; case 8240: case 8260: cpu = 5; break; case 801: case 821: case 823: case 850: case 860: cpu = 9; break; default: CPrep_Error(186); return; } schedule_for(cpu); return; } if (copts.warn_illpragma) CPrep_Warning(186); } static SInt32 CodeGen_ParseLongIntegerORonORoff(void) { SInt32 result; short t; result = 0; t = plex(); if (t == TK_INTCONST) { if (!tkintconst.hi) result = CInt64_GetULong(&tkintconst); else CPrep_Error(154); CodeGen_EOLCheck(); } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "on")) { CodeGen_EOLCheck(); return 1; } if (!strcmp(tkidentifier->name, "off")) { CodeGen_EOLCheck(); return 0; } if (copts.warn_illpragma) CPrep_Warning(186); return 0; } else { if (copts.warn_illpragma) CPrep_Warning(186); } return result; } void CodeGen_ParsePragma(HashNameNode *name) { short t; SInt32 value; char *str; NameSpace *nspace; NameSpaceObjectList *list; if (!strcmp(name->name, "debuglisting")) { copts.debuglisting = CodeGen_ParseLongIntegerORonORoff(); return; } if (!strcmp(name->name, "report_heap_info")) { t = plex(); if (t == TK_INTCONST) { copts.report_heap_info = CInt64_GetULong(&tkintconst); if (copts.report_heap_info < 0) { copts.report_heap_info = 0; CError_Error(186); } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.report_heap_info = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.report_heap_info = 1; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "scheduling")) { pragma_scheduling(); CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "ppc_unroll_speculative")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.ppc_unroll_speculative = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.ppc_unroll_speculative = 1; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "ppc_unroll_instructions_limit")) { t = plex(); if (t == TK_INTCONST) { copts.ppc_unroll_instructions_limit = CInt64_GetULong(&tkintconst); if (copts.ppc_unroll_instructions_limit < 0) { copts.ppc_unroll_instructions_limit = 0; CError_Error(186); } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.ppc_unroll_instructions_limit = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.ppc_unroll_instructions_limit = 70; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "gen_fsel")) { t = plex(); if (t == TK_INTCONST) { value = CInt64_GetULong(&tkintconst); if (value < 0) { copts.gen_fsel = 0; CError_Error(186); } else if (value > 255) { copts.gen_fsel = 255; CError_Error(186); } else { copts.gen_fsel = value; } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.gen_fsel = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.gen_fsel = 10; } else if (!strcmp(tkidentifier->name, "always")) { copts.gen_fsel = 255; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "ppc_unroll_factor_limit")) { t = plex(); if (t == TK_INTCONST) { copts.ppc_unroll_factor_limit = CInt64_GetULong(&tkintconst); if (copts.ppc_unroll_factor_limit < 0) { copts.ppc_unroll_factor_limit = 0; CError_Error(186); } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.ppc_unroll_factor_limit = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.ppc_unroll_factor_limit = 10; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "altivec_model")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.altivec_model = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.altivec_model = 1; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "altivec_vrsave")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { CPrep_PushOption(OPT_OFFSET(altivec_vrsave), 0); } else if (!strcmp(tkidentifier->name, "on")) { CPrep_PushOption(OPT_OFFSET(altivec_vrsave), 1); } else if (!strcmp(tkidentifier->name, "allon")) { CPrep_PushOption(OPT_OFFSET(altivec_vrsave), 2); } else if (!strcmp(tkidentifier->name, "reset")) { CPrep_PopOption(OPT_OFFSET(altivec_vrsave)); } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "function_align")) { t = plex(); if (t == TK_INTCONST) { value = CInt64_GetULong(&tkintconst); switch (value) { case 4: case 8: case 16: case 32: case 64: case 128: CPrep_PushOption(OPT_OFFSET(code_alignment), value); break; default: PPCError_Warning(161); CodeGen_EOLCheck(); return; } } else if (t == TK_IDENTIFIER && !strcmp(tkidentifier->name, "reset")) { CPrep_PopOption(OPT_OFFSET(code_alignment)); } else { PPCError_Warning(161); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "processor")) { if (cscope_currentfunc) { PPCError_Warning(156, "pragma processor"); return; } t = plex(); if (t == TK_INTCONST) { switch (CInt64_GetULong(&tkintconst)) { case 401: copts.cpu = 0; break; case 403: copts.cpu = 1; break; case 505: copts.cpu = 2; break; case 509: copts.cpu = 3; break; case 555: copts.cpu = 4; break; case 556: copts.cpu = 25; break; case 565: copts.cpu = 26; break; case 601: copts.cpu = 5; break; case 602: copts.cpu = 6; break; case 8240: copts.cpu = 18; break; case 8260: copts.cpu = 19; break; case 603: copts.cpu = 7; break; case 604: copts.cpu = 9; break; case 740: copts.cpu = 11; break; case 750: copts.cpu = 12; break; case 801: copts.cpu = 13; break; case 821: copts.cpu = 14; break; case 823: copts.cpu = 15; break; case 850: copts.cpu = 16; break; case 860: copts.cpu = 17; break; case 7400: copts.cpu = 21; break; default: PPCError_Warning(208); CodeGen_EOLCheck(); return; } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "generic")) copts.cpu = 20; else if (!strcmp(tkidentifier->name, "603e")) copts.cpu = 8; else if (!strcmp(tkidentifier->name, "604e")) copts.cpu = 10; else if (!strcmp(tkidentifier->name, "PPC603e")) copts.cpu = 8; else if (!strcmp(tkidentifier->name, "PPC604e")) copts.cpu = 10; else PPCError_Warning(208); } else { PPCError_Warning(208); } if ((str = CMach_GetCPU())) CPrep_InsertSpecialMacro(&ppc_cpu, str); CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "min_struct_alignment")) { t = plex(); if (t == TK_INTCONST) { value = CInt64_GetULong(&tkintconst); switch (value) { case 4: case 8: case 16: case 32: case 64: case 128: CPrep_PushOption(OPT_OFFSET(some_alignment), value); break; default: PPCError_Warning(191); CodeGen_EOLCheck(); return; } } else if (t == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "reset")) CPrep_PopOption(OPT_OFFSET(some_alignment)); else if (!strcmp(tkidentifier->name, "on")) CPrep_PushOption(OPT_OFFSET(some_alignment), 4); else if (!strcmp(tkidentifier->name, "off")) CPrep_PushOption(OPT_OFFSET(some_alignment), 1); } else { PPCError_Warning(161); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "tvectors")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { no_descriptors = 1; } else if (!strcmp(tkidentifier->name, "on")) { no_descriptors = 0; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "dynamic")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.codegen_dynamic = 0; copts.codegen_pic = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.codegen_dynamic = 1; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "pic")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.codegen_pic = 0; } else if (!strcmp(tkidentifier->name, "on")) { copts.codegen_pic = 1; if (!copts.codegen_dynamic) { PPCError_Error(189); copts.codegen_pic = 0; } } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "implicit_templates")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.no_implicit_templates = 1; } else if (!strcmp(tkidentifier->name, "on")) { copts.no_implicit_templates = 0; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "common")) { if (plex() == TK_IDENTIFIER) { if (!strcmp(tkidentifier->name, "off")) { copts.no_common = 1; } else if (!strcmp(tkidentifier->name, "on")) { copts.no_common = 0; } else { CError_Error(186); return; } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (!strcmp(name->name, "CALL_ON_MODULE_BIND")) { if (plex() == TK_IDENTIFIER) { for (nspace = cscope_current; nspace; nspace = nspace->parent) { list = CScope_GetLocalObject(nspace, tkidentifier); if (list && list->object->otype == OT_OBJECT && OBJECT(list->object)->datatype == DFUNC) { ObjGen_DeclareInitFunction(OBJECT(list->object)); break; } } } else { CError_Error(186); } CodeGen_EOLCheck(); return; } if (copts.warn_illpragma) CPrep_Warning(186); if (plex() != TK_NEG7) { do { t = plex(); } while (t != TK_NEG7 && t != 0); } } void CodeGen_UpdateObject(Object *object) { if (object->datatype == DDATA && object->section == SECT_DEFAULT && object == rt_ptmf_null) object->sclass = TK_EXTERN; } void CodeGen_UpdateBackEndOptions(void) { copts.global_optimizer = 1; } void CodeGen_objc_method_self_offset() { // TODO objc } void CodeGen_objc_method_sel_offset() { // TODO objc } void CodeGen_objc_method_arg_offset() { // TODO objc } void CodeGen_objc_method_args_size() { // TODO objc } ENode *CodeGen_HandleIntrinsicCall(Object *func, ENodeList *arg_exprs) { return Intrinsics_HandleIntrinsicCall(func, arg_exprs); } ENode *CodeGen_HandleTypeCast(ENode *expr, Type *type, UInt32 qual) { short flags; if (copts.altivec_model) { flags = qual & ENODE_FLAG_QUALS; if (IS_TYPE_STRUCT(type) && IS_TYPE_STRUCT(expr->rtype) && expr->flags == flags) { switch (TYPE_STRUCT(type)->stype) { case STRUCT_TYPE_4: case STRUCT_TYPE_5: case STRUCT_TYPE_6: case STRUCT_TYPE_7: case STRUCT_TYPE_8: case STRUCT_TYPE_9: case STRUCT_TYPE_A: case STRUCT_TYPE_B: case STRUCT_TYPE_C: case STRUCT_TYPE_D: case STRUCT_TYPE_E: expr = makemonadicnode(expr, ETYPCON); expr->rtype = type; expr->flags = flags; return expr; } } } return NULL; } short CodeGen_AssignCheck(ENode *expr, Type *type, Boolean flag1, Boolean flag2) { short result; Type *exprtype = expr->rtype; if (copts.altivec_model && IS_TYPE_VECTOR(type) && IS_TYPE_VECTOR(exprtype) && TYPE_STRUCT(type)->stype == TYPE_STRUCT(exprtype)->stype) result = CheckResult3; else result = CheckResult0; return result; } Boolean CodeGen_CollapseVectorExpression(ENode *expr, MWVector128 *vec, Type *type) { // this function is a mess and needs lots of fixing Boolean result; //int count; int i; ENode *escan; result = 0; for (i = 0; i < 4; i++) vec->ul[i] = 0; if (ENODE_IS(expr, ECOMMA)) { i = 0; escan = expr; while (ENODE_IS(escan, ECOMMA)) { i++; escan = escan->data.diadic.left; } switch (TYPE_STRUCT(type)->stype) { case STRUCT_TYPE_4: case STRUCT_TYPE_5: case STRUCT_TYPE_6: if (i < 15) { PPCError_Error(110, type, 0); } else if (i > 15) { PPCError_Error(111, type, 0); } else { escan = expr; i = 15; while (ENODE_IS(escan, ECOMMA)) { CInt64 v; expr = escan->data.diadic.right; v = expr->data.intval; if (!ENODE_IS(expr, EINTCONST)) { PPCError_Error(112); break; } if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_4) { if (!CInt64_IsInURange(v, 1)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 1)) PPCError_Warning(113, type, 0); } } vec->uc[i--] = (UInt8) v.lo; escan = escan->data.diadic.left; } if (ENODE_IS(escan, EINTCONST)) { CInt64 v = escan->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_4) { if (!CInt64_IsInURange(v, 1)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 1)) PPCError_Warning(113, type, 0); } } vec->uc[0] = (UInt8) v.lo; } else { PPCError_Error(112); break; } result = 1; } break; case STRUCT_TYPE_7: case STRUCT_TYPE_8: case STRUCT_TYPE_9: case STRUCT_TYPE_E: if (i < 7) { PPCError_Error(110, type, 0); } else if (i > 7) { PPCError_Error(111, type, 0); } else { escan = expr; i = 7; while (ENODE_IS(escan, ECOMMA)) { ENode *e = escan->data.diadic.right; CInt64 v = e->data.intval; if (!ENODE_IS(e, EINTCONST)) { PPCError_Error(112); break; } if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_7 || TYPE_STRUCT(type)->stype == STRUCT_TYPE_E) { if (!CInt64_IsInURange(v, 2)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 2)) PPCError_Warning(113, type, 0); } } vec->us[i--] = (UInt16) e->data.intval.lo; escan = escan->data.diadic.left; } if (ENODE_IS(escan, EINTCONST)) { CInt64 v = escan->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_7 || TYPE_STRUCT(type)->stype == STRUCT_TYPE_E) { if (!CInt64_IsInURange(v, 2)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 2)) PPCError_Warning(113, type, 0); } } vec->us[0] = (UInt16) v.lo; } else { PPCError_Error(112); break; } result = 1; } break; case STRUCT_TYPE_A: case STRUCT_TYPE_B: case STRUCT_TYPE_C: if (i < 3) { PPCError_Error(110, type, 0); } else if (i > 3) { PPCError_Error(111, type, 0); } else { escan = expr; i = 3; while (ENODE_IS(escan, ECOMMA)) { CInt64 v; expr = escan->data.diadic.right; v = expr->data.intval; if (!ENODE_IS(expr, EINTCONST)) { PPCError_Error(112); break; } if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_A) { if (!CInt64_IsInURange(v, 4)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 4)) PPCError_Warning(113, type, 0); } } vec->ul[i--] = expr->data.intval.lo; escan = escan->data.diadic.left; } if (ENODE_IS(escan, EINTCONST)) { CInt64 v = escan->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_A) { if (!CInt64_IsInURange(v, 4)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 4)) PPCError_Warning(113, type, 0); } } vec->ul[0] = v.lo; } else { PPCError_Error(112); break; } result = 1; } break; case STRUCT_TYPE_D: if (i < 3) { PPCError_Error(110, type, 0); } else if (i > 3) { PPCError_Error(111, type, 0); } else { Float fv; escan = expr; i = 3; while (ENODE_IS(escan, ECOMMA)) { expr = escan->data.diadic.right; if (ENODE_IS(expr, EFLOATCONST)) { fv = expr->data.floatval; } else if (ENODE_IS(escan->data.diadic.right, EINTCONST)) { fv = CMach_CalcFloatConvertFromInt(expr->rtype, expr->data.intval); } else { PPCError_Error(112); break; } CMach_InitFloatMem(TYPE(&stfloat), fv, &vec->f[i]); i--; escan = escan->data.diadic.left; } if (ENODE_IS(escan, EFLOATCONST)) { fv = escan->data.floatval; } else if (ENODE_IS(escan, EINTCONST)) { fv = CMach_CalcFloatConvertFromInt(escan->rtype, escan->data.intval); } else { PPCError_Error(112); break; } CMach_InitFloatMem(TYPE(&stfloat), fv, &vec->f[0]); result = 1; } break; } } else if (ENODE_IS(expr, EINTCONST)) { int i = 0; switch (TYPE_STRUCT(type)->stype) { case STRUCT_TYPE_4: case STRUCT_TYPE_5: case STRUCT_TYPE_6: { CInt64 v = expr->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_4) { if (!CInt64_IsInURange(v, 1)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 1)) PPCError_Warning(113, type, 0); } } while (i < 16) vec->uc[i++] = (UInt8) v.lo; result = 1; break; } case STRUCT_TYPE_7: case STRUCT_TYPE_8: case STRUCT_TYPE_9: case STRUCT_TYPE_E: { CInt64 v = expr->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_7 || TYPE_STRUCT(type)->stype == STRUCT_TYPE_E) { if (!CInt64_IsInURange(v, 2)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 2)) PPCError_Warning(113, type, 0); } } while (i < 8) vec->us[i++] = (UInt16) v.lo; result = 1; break; } case STRUCT_TYPE_A: case STRUCT_TYPE_B: case STRUCT_TYPE_C: { CInt64 v = expr->data.intval; if (copts.pedantic) { if (TYPE_STRUCT(type)->stype == STRUCT_TYPE_A) { if (!CInt64_IsInURange(v, 4)) PPCError_Warning(113, type, 0); } else { if (!CInt64_IsInRange(v, 4)) PPCError_Warning(113, type, 0); } } while (i < 4) vec->ul[i++] = v.lo; result = 1; break; } case STRUCT_TYPE_D: { Float fv; if (!CInt64_IsInRange(expr->data.intval, 4)) { PPCError_Error(112); break; } fv = CMach_CalcFloatConvertFromInt(expr->rtype, expr->data.intval); for (; i < 4; i++) CMach_InitFloatMem(TYPE(&stfloat), fv, &vec->f[i]); result = 1; break; } default: PPCError_Error(112); } } else if (ENODE_IS(expr, EFLOATCONST)) { switch (TYPE_STRUCT(type)->stype) { default: PPCError_Error(112); break; case STRUCT_TYPE_D: { Float fv; i = 0; fv = expr->data.floatval; CMach_InitFloatMem(TYPE(&stfloat), fv, &vec->f[0]); while (i < 4) CMach_InitFloatMem(TYPE(&stfloat), fv, &vec->f[i++]); result = 1; break; } } } else if (ENODE_IS2(expr, EINDIRECT, EFUNCCALL)) { if (!IS_TYPE_STRUCT(expr->rtype)) PPCError_Error(112); } else if (!ENODE_IS(expr, EVECTOR128CONST)) { PPCError_Error(112); } return result; } void CodeGen_InsertSpecialMacros(void) { char *str; CPrep_InsertSpecialMacro(&vecM, "__VEC__"); CPrep_InsertSpecialMacro(&altivecM, "__ALTIVEC__"); CPrep_InsertSpecialMacro(&powcM, "powerc"); CPrep_InsertSpecialMacro(&__powcM, "__powerc"); CPrep_InsertSpecialMacro(&hostM, "__POWERPC__"); CPrep_InsertSpecialMacro(&_ppc_M, "__ppc__"); CPrep_InsertSpecialMacro(&bendM, "__BIG_ENDIAN__"); if ((str = CMach_GetCPU())) CPrep_InsertSpecialMacro(&ppc_cpu, str); CPrep_InsertSpecialMacro(&profM, "__profile__"); CPrep_InsertSpecialMacro(&longI, "__fourbyteints__"); CPrep_InsertSpecialMacro(&IEEED, "__IEEEdoubles__"); CPrep_InsertSpecialMacro(&macM2, "__MACOS__"); CPrep_InsertSpecialMacro(&appleM, "__APPLE__"); CPrep_InsertSpecialMacro(&_machM, "__MACH__"); CPrep_InsertSpecialMacro(&archM, "__ARCHITECTURE__"); if (copts.optimizationlevel > 0) CPrep_InsertSpecialMacro(&optM, "__OPTIMIZE__"); if (copts.codegen_dynamic) CPrep_InsertSpecialMacro(&dynM, "__DYNAMIC__"); if (!copts.codegen_dynamic) CPrep_InsertSpecialMacro(&dynM, "__STATIC__"); if (copts.oldalignment && copts.align_mode == AlignMode2_PPC) CPrep_InsertSpecialMacro(&alignM, "__NATURAL_ALIGNMENT__"); if (!copts.ANSI_strict) CPrep_InsertSpecialMacro(&ppcM, "ppc"); } char *CodeGen_ExpandSpecialMacro(Macro *macro) { if (macro == &vecM) return "10205"; if (macro == &altivecM) return "100000000"; if (macro == &powcM) return "1"; if (macro == &__powcM) return "1"; if (macro == &hostM) return "1"; if (macro == &bendM) return "1"; if (macro == &_ppc_M) return "1"; if (CMach_GetCPU() && macro == &ppc_cpu) return "1"; if (macro == &profM) return copts.profile ? "1" : "0"; if (macro == &longI) return "1"; if (macro == &IEEED) return "1"; if (macro == &macM2) return "1"; if (macro == &appleM) return "1"; if (macro == &alignM) return "1"; if (macro == &optM) { switch (copts.optimizationlevel) { case 1: return "1"; case 2: return "2"; case 3: return "3"; case 4: return "4"; case 0: return "0"; default: return "9"; } } if (macro == &_machM) return "1"; if (macro == &archM) return "ppc"; if (macro == &dynM) return "1"; if (!copts.ANSI_strict && macro == &ppcM) return "1"; if (macro == &_ppc_M) return "1"; #line 4801 CError_FATAL(); return "0"; } void CodeGen_reportheapinfo(Boolean release_flag, char *name, char *text) { HeapInfo o; HeapInfo all; CTool_GetHeapInfo(&o, 3); CTool_GetHeapInfo(&all, 5); if (release_flag) releaseoheap(); PPCError_Message( "%n:%u HEAP STATUS\n" " optimizer: %i blocks, used: %i, free: %i, total: %i, largest free: %i\n" " all: %i blocks, used: %i, free: %i, total: %i, largest free: %i", name, text, o.blocks, o.total_size - o.total_free, o.total_free, o.total_size, o.largest_free_block, all.blocks, all.total_size - all.total_free, all.total_free, all.total_size, all.largest_free_block ); } static void CodeGen_heaperror(void) { CodeGen_reportheapinfo(1, "?", "out of memory"); if (saveheaperror) { setheaperror(saveheaperror); saveheaperror(); } } void CodeGen_InitialSanityCheck(void) { }