paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* create only a single tai_string for shortstrings typed constants

Browse Source 
whose type length is larger than the specified string
  * corrected place of ftcb.maybe_end_aggregate() call

git-svn-id: branches/hlcgllvm@28134 -
This commit is contained in:
Jonas Maebe 2014-07-02 17:24:56 +00:00
parent 23f34608ed
commit 2d335baab8
1 changed files with 7 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/ngtcon.pas
View File

@ -532,23 +532,15 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
strlength:=def.size-1;
end;
ftcb.emit_tai(Tai_const.Create_8bit(strlength),cansichartype);
{ this can also handle longer strings }
getmem(ca,strlength+1);
{ room for the string data + terminating #0 }
getmem(ca,def.size);
move(strval^,ca^,strlength);
{ zero-terminate and fill with spaces if size is shorter }
fillchar(ca[strlength],def.size-strlength-1,' ');
ca[strlength]:=#0;
ftcb.emit_tai(Tai_string.Create_pchar(ca,strlength),getarraydef(cansichartype,strlength+1));
{ fillup with spaces if size is shorter }
if def.size>strlength then
begin
getmem(ca,def.size-strlength);
{ def.size contains also the leading length, so we }
{ we have to subtract one }
fillchar(ca[0],def.size-strlength-1,' ');
ca[def.size-strlength-1]:=#0;
{ this can also handle longer strings }
ftcb.emit_tai(Tai_string.Create_pchar(ca,def.size-strlength-1),getarraydef(cansichartype,def.size-strlength-1));
ftcb.maybe_end_aggregate(def);
end;
ca[def.size-1]:=#0;
ftcb.emit_tai(Tai_string.Create_pchar(ca,def.size-1),getarraydef(cansichartype,def.size-1));
ftcb.maybe_end_aggregate(def);
end;
st_ansistring:
begin