From 2557382815faa04b61f3dd4f560fb767a319824b Mon Sep 17 00:00:00 2001 From: nickysn Date: Tue, 14 May 2013 22:20:04 +0000 Subject: [PATCH] - rm tcg8086.g_maybe_got_init as it's of no use for the i8086 git-svn-id: trunk@24499 - --- compiler/i8086/cgcpu.pas | 43 ---------------------------------------- 1 file changed, 43 deletions(-) diff --git a/compiler/i8086/cgcpu.pas b/compiler/i8086/cgcpu.pas index 0301d73597..6c0a914517 100644 --- a/compiler/i8086/cgcpu.pas +++ b/compiler/i8086/cgcpu.pas @@ -77,7 +77,6 @@ unit cgcpu; procedure g_adjust_self_value(list:TAsmList;procdef: tprocdef;ioffset: tcgint);override; procedure g_intf_wrapper(list: TAsmList; procdef: tprocdef; const labelname: string; ioffset: longint);override; - procedure g_maybe_got_init(list: TAsmList); override; procedure get_32bit_ops(op: TOpCG; out op1,op2: TAsmOp); end; @@ -1300,48 +1299,6 @@ unit cgcpu; end; - procedure tcg8086.g_maybe_got_init(list: TAsmList); - var - notdarwin: boolean; - begin - { allocate PIC register } - if (cs_create_pic in current_settings.moduleswitches) and - (tf_pic_uses_got in target_info.flags) and - (pi_needs_got in current_procinfo.flags) then - begin - notdarwin:=not(target_info.system in [system_i386_darwin,system_i386_iphonesim]); - { on darwin, the got register is virtual (and allocated earlier - already) } - if notdarwin then - { ecx could be used in leaf procedures that don't use ecx to pass - aparameter } - current_procinfo.got:=NR_EBX; - if notdarwin { needs testing before it can be enabled for non-darwin platforms - and - (current_settings.optimizecputype in [cpu_Pentium2,cpu_Pentium3,cpu_Pentium4]) } then - begin - current_module.requires_ebx_pic_helper:=true; - cg.a_call_name_static(list,'fpc_geteipasebx'); - end - else - begin - { call/pop is faster than call/ret/mov on Core Solo and later - according to Apple's benchmarking -- and all Intel Macs - have at least a Core Solo (furthermore, the i386 - Pentium 1 - don't have a return stack buffer) } - a_call_name_static(list,current_procinfo.CurrGOTLabel.name); - a_label(list,current_procinfo.CurrGotLabel); - list.concat(taicpu.op_reg(A_POP,S_L,current_procinfo.got)) - end; - if notdarwin then - begin - list.concat(taicpu.op_sym_ofs_reg(A_ADD,S_L,current_asmdata.RefAsmSymbol('_GLOBAL_OFFSET_TABLE_'),0,NR_PIC_OFFSET_REG)); - list.concat(tai_regalloc.alloc(NR_PIC_OFFSET_REG,nil)); - end; - end; - end; - - procedure tcg8086.get_32bit_ops(op: TOpCG; out op1, op2: TAsmOp); begin case op of