{ Copyright (c) 1998-2002 by Florian Klaempfl Generate assembler for nodes that handle loads and assignments which are the same for all (most) processors This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. **************************************************************************** } unit ncgld; {$i fpcdefs.inc} interface uses node,nld; type tcgloadnode = class(tloadnode) procedure pass_2;override; procedure generate_picvaraccess;virtual; end; tcgassignmentnode = class(tassignmentnode) procedure pass_2;override; end; tcgarrayconstructornode = class(tarrayconstructornode) procedure pass_2;override; end; tcgrttinode = class(trttinode) procedure pass_2;override; end; implementation uses cutils, systems, verbose,globtype,globals, symconst,symtype,symdef,symsym,defutil,paramgr, ncnv,ncon,nmem,nbas, aasmbase,aasmtai,aasmdata,aasmcpu, cgbase,pass_2, procinfo, cpubase,parabase, tgobj,ncgutil, cgutils,cgobj, ncgbas,ncgflw; {***************************************************************************** SecondLoad *****************************************************************************} procedure tcgloadnode.generate_picvaraccess; begin {$ifndef sparc} location.reference.base:=current_procinfo.got; location.reference.symbol:=current_asmdata.RefAsmSymbol(tglobalvarsym(symtableentry).mangledname+'@GOT'); {$endif sparc} end; procedure tcgloadnode.pass_2; var hregister : tregister; symtabletype : tsymtabletype; href : treference; newsize : tcgsize; endrelocatelab, norelocatelab : tasmlabel; paraloc1 : tcgpara; begin { we don't know the size of all arrays } newsize:=def_cgsize(resulttype.def); location_reset(location,LOC_REFERENCE,newsize); case symtableentry.typ of absolutevarsym : begin { this is only for toasm and toaddr } case tabsolutevarsym(symtableentry).abstyp of toaddr : begin {$ifdef i386} if tabsolutevarsym(symtableentry).absseg then location.reference.segment:=NR_FS; {$endif i386} location.reference.offset:=tabsolutevarsym(symtableentry).addroffset; end; toasm : location.reference.symbol:=current_asmdata.RefAsmSymbol(tabsolutevarsym(symtableentry).mangledname); else internalerror(200310283); end; end; constsym: begin if tconstsym(symtableentry).consttyp=constresourcestring then begin location_reset(location,LOC_CREFERENCE,OS_ADDR); location.reference.symbol:=current_asmdata.RefAsmSymbol(make_mangledname('RESSTR',symtableentry.owner,symtableentry.name)); { Resourcestring layout: TResourceStringRecord = Packed Record Name, CurrentValue, DefaultValue : AnsiString; HashValue : LongWord; end; } location.reference.offset:=sizeof(aint); end else internalerror(22798); end; globalvarsym, localvarsym, paravarsym : begin if (symtableentry.typ = globalvarsym) and ([vo_is_dll_var,vo_is_external] * tglobalvarsym(symtableentry).varoptions <> []) then begin location.reference.base := cg.g_indirect_sym_load(current_asmdata.CurrAsmList,tglobalvarsym(symtableentry).mangledname); if (location.reference.base <> NR_NO) then exit; end; symtabletype:=symtable.symtabletype; hregister:=NR_NO; if (vo_is_dll_var in tabstractvarsym(symtableentry).varoptions) then { DLL variable } begin hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); location.reference.symbol:=current_asmdata.RefAsmSymbol(tglobalvarsym(symtableentry).mangledname); cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,location.reference,hregister); reference_reset_base(location.reference,hregister,0); end { Thread variable } else if (vo_is_thread_var in tabstractvarsym(symtableentry).varoptions) and not(tf_section_threadvars in target_info.flags) then begin { Thread var loading is optimized to first check if a relocate function is available. When the function is available it is called to retrieve the address. Otherwise the address is loaded with the symbol The code needs to be in the order to first handle the call and then the address load to be sure that the register that is used for returning is the same (PFV) } current_asmdata.getjumplabel(norelocatelab); current_asmdata.getjumplabel(endrelocatelab); { make sure hregister can't allocate the register necessary for the parameter } paraloc1.init; paramanager.getintparaloc(pocall_default,1,paraloc1); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); reference_reset_symbol(href,current_asmdata.RefAsmSymbol('FPC_THREADVAR_RELOCATE'),0); cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,href,hregister); cg.a_cmp_const_reg_label(current_asmdata.CurrAsmList,OS_ADDR,OC_EQ,0,hregister,norelocatelab); { don't save the allocated register else the result will be destroyed later } reference_reset_symbol(href,current_asmdata.RefAsmSymbol(tglobalvarsym(symtableentry).mangledname),0); paramanager.allocparaloc(current_asmdata.CurrAsmList,paraloc1); cg.a_param_ref(current_asmdata.CurrAsmList,OS_32,href,paraloc1); paramanager.freeparaloc(current_asmdata.CurrAsmList,paraloc1); paraloc1.done; cg.allocallcpuregisters(current_asmdata.CurrAsmList); cg.a_call_reg(current_asmdata.CurrAsmList,hregister); cg.deallocallcpuregisters(current_asmdata.CurrAsmList); cg.getcpuregister(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG); cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_INT,OS_ADDR,NR_FUNCTION_RESULT_REG,hregister); cg.a_jmp_always(current_asmdata.CurrAsmList,endrelocatelab); cg.a_label(current_asmdata.CurrAsmList,norelocatelab); { no relocation needed, load the address of the variable only, the layout of a threadvar is (4 bytes pointer): 0 - Threadvar index 4 - Threadvar value in single threading } reference_reset_symbol(href,current_asmdata.RefAsmSymbol(tglobalvarsym(symtableentry).mangledname),sizeof(aint)); cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,hregister); cg.a_label(current_asmdata.CurrAsmList,endrelocatelab); location.reference.base:=hregister; end { Nested variable } else if assigned(left) then begin if not(symtabletype in [localsymtable,parasymtable]) then internalerror(200309285); secondpass(left); if left.location.loc<>LOC_REGISTER then internalerror(200309286); if tabstractnormalvarsym(symtableentry).localloc.loc<>LOC_REFERENCE then internalerror(200409241); hregister:=left.location.register; reference_reset_base(location.reference,hregister,tabstractnormalvarsym(symtableentry).localloc.reference.offset); end { Normal (or external) variable } else begin {$ifdef OLDREGVARS} { in case it is a register variable: } if tvarsym(symtableentry).localloc.loc in [LOC_REGISTER,LOC_FPUREGISTER] then begin case getregtype(tvarsym(symtableentry).localloc.register) of R_FPUREGISTER : begin location_reset(location,LOC_CFPUREGISTER,def_cgsize(resulttype.def)); location.register:=tvarsym(symtableentry).localloc.register; end; R_INTREGISTER : begin location_reset(location,LOC_CREGISTER,def_cgsize(resulttype.def)); location.register:=tvarsym(symtableentry).localloc.register; hregister := location.register; end; else internalerror(200301172); end; end else {$endif OLDREGVARS} begin case symtabletype of stt_exceptsymtable, localsymtable, parasymtable : location:=tabstractnormalvarsym(symtableentry).localloc; globalsymtable, staticsymtable : begin if tabstractnormalvarsym(symtableentry).localloc.loc=LOC_INVALID then reference_reset_symbol(location.reference,current_asmdata.RefAsmSymbol(tglobalvarsym(symtableentry).mangledname),0) else location:=tglobalvarsym(symtableentry).localloc; {$ifdef i386} if (tf_section_threadvars in target_info.flags) and (vo_is_thread_var in tabstractvarsym(symtableentry).varoptions) then begin case target_info.system of system_i386_linux: location.reference.segment:=NR_GS; system_i386_win32: location.reference.segment:=NR_FS; end; end; {$endif i386} end; else internalerror(200305102); end; end; end; { handle call by reference variables when they are not alreayd copied to local copies. Also ignore the reference when we need to load the self pointer for objects } if is_addr_param_load then begin if (location.loc in [LOC_CREGISTER,LOC_REGISTER]) then hregister:=location.register else begin hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); { we need to load only an address } location.size:=OS_ADDR; cg.a_load_loc_reg(current_asmdata.CurrAsmList,location.size,location,hregister); end; location_reset(location,LOC_REFERENCE,newsize); location.reference.base:=hregister; end; { make const a LOC_CREFERENCE } if (tabstractvarsym(symtableentry).varspez=vs_const) and (location.loc=LOC_REFERENCE) then location.loc:=LOC_CREFERENCE; end; procsym: begin if not assigned(procdef) then internalerror(200312011); if assigned(left) then begin { THIS IS A TERRIBLE HACK!!!!!! WHICH WILL NOT WORK ON 64-BIT SYSTEMS: SINCE PROCSYM FOR METHODS CONSISTS OF TWO OS_ADDR, so you cannot set it to OS_64 - how to solve?? Carl Solved. Florian } if (sizeof(aint) = 4) then location_reset(location,LOC_CREFERENCE,OS_64) else if (sizeof(aint) = 8) then location_reset(location,LOC_CREFERENCE,OS_128) else internalerror(20020520); tg.GetTemp(current_asmdata.CurrAsmList,2*sizeof(aint),tt_normal,location.reference); secondpass(left); { load class instance address } case left.location.loc of LOC_CREGISTER, LOC_REGISTER: begin { this is not possible for objects } if is_object(left.resulttype.def) then internalerror(200304234); hregister:=left.location.register; end; LOC_CREFERENCE, LOC_REFERENCE: begin hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); if is_class_or_interface(left.resulttype.def) then cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,left.location.reference,hregister) else cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,left.location.reference,hregister); location_freetemp(current_asmdata.CurrAsmList,left.location); end; else internalerror(26019); end; { store the class instance address } href:=location.reference; inc(href.offset,sizeof(aint)); cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,hregister,href); { virtual method ? } if (po_virtualmethod in procdef.procoptions) and not(nf_inherited in flags) then begin { load vmt pointer } reference_reset_base(href,hregister,0); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,href,hregister); { load method address } reference_reset_base(href,hregister,procdef._class.vmtmethodoffset(procdef.extnumber)); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); cg.a_load_ref_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,href,hregister); { ... and store it } cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,hregister,location.reference); end else begin { load address of the function } reference_reset_symbol(href,current_asmdata.RefAsmSymbol(procdef.mangledname),0); hregister:=cg.getaddressregister(current_asmdata.CurrAsmList); cg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,href,hregister); cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,hregister,location.reference); end; end else begin if (po_external in tprocsym(symtableentry).procdef[1].procoptions) then location.reference.base := cg.g_indirect_sym_load(current_asmdata.CurrAsmList,tprocsym(symtableentry).procdef[1].mangledname); {!!!!! Be aware, work on virtual methods too } if (location.reference.base = NR_NO) then location.reference.symbol:=current_asmdata.RefAsmSymbol(procdef.mangledname); end; end; typedconstsym : location.reference.symbol:=current_asmdata.RefAsmSymbol(ttypedconstsym(symtableentry).mangledname); labelsym : location.reference.symbol:=tcglabelnode((tlabelsym(symtableentry).code)).getasmlabel; else internalerror(200510032); end; end; {***************************************************************************** SecondAssignment *****************************************************************************} procedure tcgassignmentnode.pass_2; var otlabel,hlabel,oflabel : tasmlabel; fputyp : tfloattype; href : treference; releaseright : boolean; len : aint; r:Tregister; begin location_reset(location,LOC_VOID,OS_NO); otlabel:=current_procinfo.CurrTrueLabel; oflabel:=current_procinfo.CurrFalseLabel; current_asmdata.getjumplabel(current_procinfo.CurrTrueLabel); current_asmdata.getjumplabel(current_procinfo.CurrFalseLabel); { in most cases we can process first the right node which contains the most complex code. Exceptions for this are: - result is in flags, loading left will then destroy the flags - result is a jump, loading left must be already done before the jump is made - result need reference count, when left points to a value used in right then decreasing the refcnt on left can possibly release the memory before right increased the refcnt, result is that an empty value is assigned - calln, call destroys most registers and is therefor 'complex' But not when the result is in the flags, then loading the left node afterwards can destroy the flags. } if not(right.expectloc in [LOC_FLAGS,LOC_JUMP]) and ((right.nodetype=calln) or (right.resulttype.def.needs_inittable) or (right.registersint>=left.registersint)) then begin secondpass(right); { increment source reference counter, this is useless for string constants} if (right.resulttype.def.needs_inittable) and (right.nodetype<>stringconstn) then begin location_force_mem(current_asmdata.CurrAsmList,right.location); location_get_data_ref(current_asmdata.CurrAsmList,right.location,href,false); cg.g_incrrefcount(current_asmdata.CurrAsmList,right.resulttype.def,href); end; if codegenerror then exit; if not(nf_concat_string in flags) then begin { left can't be never a 64 bit LOC_REGISTER, so the 3. arg } { can be false } secondpass(left); { decrement destination reference counter } if (left.resulttype.def.needs_inittable) then begin location_get_data_ref(current_asmdata.CurrAsmList,left.location,href,false); cg.g_decrrefcount(current_asmdata.CurrAsmList,left.resulttype.def,href); end; if codegenerror then exit; end; end else begin { calculate left sides } { don't do it yet if it's a crgister (JM) } if not(nf_concat_string in flags) then begin secondpass(left); { decrement destination reference counter } if (left.resulttype.def.needs_inittable) then begin location_get_data_ref(current_asmdata.CurrAsmList,left.location,href,false); cg.g_decrrefcount(current_asmdata.CurrAsmList,left.resulttype.def,href); end; if codegenerror then exit; end; { left can't be never a 64 bit LOC_REGISTER, so the 3. arg } { can be false } secondpass(right); { increment source reference counter, this is useless for string constants} if (right.resulttype.def.needs_inittable) and (right.nodetype<>stringconstn) then begin location_force_mem(current_asmdata.CurrAsmList,right.location); location_get_data_ref(current_asmdata.CurrAsmList,right.location,href,false); cg.g_incrrefcount(current_asmdata.CurrAsmList,right.resulttype.def,href); end; if codegenerror then exit; end; releaseright:=true; { optimize temp to temp copies } (* if (left.nodetype = temprefn) and { we may store certain temps in registers in the future, then this } { optimization will have to be adapted } (left.location.loc = LOC_REFERENCE) and (right.location.loc = LOC_REFERENCE) and tg.istemp(right.location.reference) and (tg.sizeoftemp(current_asmdata.CurrAsmList,right.location.reference) = tg.sizeoftemp(current_asmdata.CurrAsmList,left.location.reference)) then begin { in theory, we should also make sure the left temp type is } { already more or less of the same kind (ie. we must not } { assign an ansistring to a normaltemp). In practice, the } { assignment node will have already taken care of this for us } tcgtemprefnode(left).changelocation(right.location.reference); end { shortstring assignments are handled separately } else *) if is_shortstring(left.resulttype.def) then begin { we can get here only in the following situations for the right node: - empty constant string - char } { empty constant string } if (right.nodetype=stringconstn) and (tstringconstnode(right).len=0) then begin cg.a_load_const_ref(current_asmdata.CurrAsmList,OS_8,0,left.location.reference); end { char loading } else if is_char(right.resulttype.def) then begin if right.nodetype=ordconstn then begin if (target_info.endian = endian_little) then cg.a_load_const_ref(current_asmdata.CurrAsmList,OS_16,(tordconstnode(right).value shl 8) or 1, left.location.reference) else cg.a_load_const_ref(current_asmdata.CurrAsmList,OS_16,tordconstnode(right).value or (1 shl 8), left.location.reference); end else begin href:=left.location.reference; cg.a_load_const_ref(current_asmdata.CurrAsmList,OS_8,1,href); inc(href.offset,1); case right.location.loc of LOC_REGISTER, LOC_CREGISTER : begin r:=cg.makeregsize(current_asmdata.CurrAsmList,right.location.register,OS_8); cg.a_load_reg_ref(current_asmdata.CurrAsmList,OS_8,OS_8,r,href); end; LOC_REFERENCE, LOC_CREFERENCE : cg.a_load_ref_ref(current_asmdata.CurrAsmList,OS_8,OS_8,right.location.reference,href); else internalerror(200205111); end; end; end else internalerror(200204249); end else begin { SSA support } maybechangeloadnodereg(left); case right.location.loc of LOC_CONSTANT : begin {$ifndef cpu64bit} if right.location.size in [OS_64,OS_S64] then cg64.a_load64_const_loc(current_asmdata.CurrAsmList,right.location.value64,left.location) else {$endif cpu64bit} cg.a_load_const_loc(current_asmdata.CurrAsmList,right.location.value,left.location); end; LOC_REFERENCE, LOC_CREFERENCE : begin case left.location.loc of LOC_REGISTER, LOC_CREGISTER : begin {$ifndef cpu64bit} if left.location.size in [OS_64,OS_S64] then cg64.a_load64_ref_reg(current_asmdata.CurrAsmList,right.location.reference,left.location.register64) else {$endif cpu64bit} cg.a_load_ref_reg(current_asmdata.CurrAsmList,right.location.size,left.location.size,right.location.reference,left.location.register); end; LOC_FPUREGISTER, LOC_CFPUREGISTER : begin cg.a_loadfpu_ref_reg(current_asmdata.CurrAsmList, right.location.size, right.location.reference, left.location.register); end; LOC_REFERENCE, LOC_CREFERENCE : begin {$warning HACK: unaligned test, maybe remove all unaligned locations (array of char) from the compiler} { Use unaligned copy when the offset is not aligned } len:=left.resulttype.def.size; if (right.location.reference.offset mod sizeof(aint)<>0) or (left.location.reference.offset mod sizeof(aint)<>0) or (right.resulttype.def.alignment