paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 08:13:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

* handle the fact that we emit constant strings that can be longer or shorter

Browse Source 
than their type at the Pascal level

git-svn-id: branches/hlcgllvm@28211 -
This commit is contained in:
Jonas Maebe 2014-07-12 22:42:31 +00:00
parent ea9fbe381e
commit 5c8e723cf8
1 changed files with 45 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/llvm/nllvmcon.pas
View File

@ -35,16 +35,58 @@ interface
procedure pass_generate_code;override;
end;
tllvmstringconstnode = class(tcgstringconstnode)
procedure pass_generate_code; override;
end;
implementation
uses
globtype,verbose,
symdef,defutil,
globtype,verbose,cutils,
symtype,symdef,defutil,
aasmdata,
ncon,
llvmbase,aasmllvm,hlcgobj,
cgbase,cgutils;
{*****************************************************************************
tllvmstringconstnode
*****************************************************************************}
procedure tllvmstringconstnode.pass_generate_code;
var
datadef, resptrdef: tdef;
hreg: tregister;
begin
inherited pass_generate_code;
if cst_type in [cst_conststring,cst_shortstring] then
begin
if location.loc<>LOC_CREFERENCE then
internalerror(2014071202);
case cst_type of
cst_conststring:
{ this kind of string const is used both for array of char
constants (-> excludes terminating #0) and pchars (-> includes
terminating #0). The resultdef excludes the #0 while the data
includes it -> insert typecast from datadef to resultdef }
datadef:=getarraydef(cansichartype,len+2);
cst_shortstring:
{ the resultdef of the string constant is the type of the
string to which it is assigned, which can be longer or shorter
than the length of the string itself -> typecast it to the
correct string type }
datadef:=getarraydef(cansichartype,min(len,255)+1);
else
internalerror(2014071203);
end;
{ get address of array as pchar }
resptrdef:=getpointerdef(resultdef);
hreg:=hlcg.getaddressregister(current_asmdata.CurrAsmList,resptrdef);
hlcg.a_loadaddr_ref_reg(current_asmdata.CurrAsmList,datadef,resptrdef,location.reference,hreg);
hlcg.reference_reset_base(location.reference,resptrdef,hreg,0,location.reference.alignment);
end;
end;
{*****************************************************************************
tllvmrealconstnode
*****************************************************************************}
@ -80,5 +122,6 @@ implementation
begin
cstringconstnode:=tllvmstringconstnode;
crealconstnode:=tllvmrealconstnode;
end.