mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 10:19:31 +01:00
a25ebbba3e
o separate information for reading and writing, because e.g. in a
try-block, only the writes to local variables and parameters are
volatile (they have to be committed immediately in case the next
instruction causes an exception)
o for now, only references to absolute memory addresses are marked
as volatile
o the volatily information is (should be) properly maintained throughout
all code generators for all archictures with this patch
o no optimizers or other compiler infrastructure uses the volatility
information yet
o this functionality is not (yet) exposed at the language level, it
is only for internal code generator use right now
git-svn-id: trunk@34996 -
100 lines
3.4 KiB
ObjectPascal
100 lines
3.4 KiB
ObjectPascal
{
|
|
Copyright (c) 1998-2002,2015 by Florian Klaempfl
|
|
|
|
Generate x86 assembler for in load nodes
|
|
|
|
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 nx86ld;
|
|
|
|
{$i fpcdefs.inc}
|
|
|
|
interface
|
|
uses
|
|
globtype,
|
|
symtype,symsym,
|
|
node,nld,ncgld;
|
|
|
|
type
|
|
tx86loadnode = class(tcgloadnode)
|
|
protected
|
|
procedure generate_threadvar_access(gvs: tstaticvarsym); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
cutils,verbose,systems,
|
|
aasmbase,aasmtai,aasmdata,
|
|
cgutils,cgobj,
|
|
symconst,symdef,symtable,
|
|
cgbase,cpubase,parabase,paramgr;
|
|
|
|
{*****************************************************************************
|
|
TX86LOADNODE
|
|
*****************************************************************************}
|
|
|
|
procedure tx86loadnode.generate_threadvar_access(gvs: tstaticvarsym);
|
|
var
|
|
paraloc1 : tcgpara;
|
|
pd: tprocdef;
|
|
href: treference;
|
|
hregister : tregister;
|
|
handled: boolean;
|
|
begin
|
|
handled:=false;
|
|
if (tf_section_threadvars in target_info.flags) then
|
|
begin
|
|
if target_info.system in [system_i386_win32,system_x86_64_win64] then
|
|
begin
|
|
paraloc1.init;
|
|
pd:=search_system_proc('fpc_tls_add');
|
|
paramanager.getintparaloc(current_asmdata.CurrAsmList,pd,1,paraloc1);
|
|
if not(vo_is_weak_external in gvs.varoptions) then
|
|
reference_reset_symbol(href,current_asmdata.RefAsmSymbol(gvs.mangledname,AT_DATA,use_indirect_symbol(gvs)),0,sizeof(pint),[])
|
|
else
|
|
reference_reset_symbol(href,current_asmdata.WeakRefAsmSymbol(gvs.mangledname,AT_DATA),0,sizeof(pint),[]);
|
|
cg.a_loadaddr_ref_cgpara(current_asmdata.CurrAsmList,href,paraloc1);
|
|
paramanager.freecgpara(current_asmdata.CurrAsmList,paraloc1);
|
|
paraloc1.done;
|
|
|
|
cg.g_call(current_asmdata.CurrAsmList,'FPC_TLS_ADD');
|
|
cg.ungetcpuregister(current_asmdata.CurrAsmList,NR_FUNCTION_RESULT_REG);
|
|
hregister:=cg.getaddressregister(current_asmdata.CurrAsmList);
|
|
cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_ADDR,OS_ADDR,NR_FUNCTION_RESULT_REG,hregister);
|
|
location.reference.base:=hregister;
|
|
handled:=true;
|
|
end;
|
|
end;
|
|
|
|
if not handled then
|
|
inherited;
|
|
|
|
if (tf_section_threadvars in target_info.flags) then
|
|
begin
|
|
case target_info.system of
|
|
system_i386_linux,system_i386_android:
|
|
location.reference.segment:=NR_GS;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
cloadnode:=tx86loadnode;
|
|
end.
|