paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-06 16:38:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added missing begin_anonymous_record() for widestring constants (undetected

Browse Source 
before because it only matters for the llvm target, and fpc+llvm+windows is
    not yet supported/tested)

git-svn-id: branches/hlcgllvm@28749 -
This commit is contained in:
Jonas Maebe 2014-10-06 20:53:09 +00:00
parent b18ba8e85b
commit 6cc74cd115
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/aasmcnst.pas
View File

@ -644,6 +644,7 @@ implementation
strlength:=getlengthwidestring(pcompilerwidestring(data)); strlength:=getlengthwidestring(pcompilerwidestring(data));
if winlike then if winlike then
begin begin
datatcb.begin_anonymous_record;
current_asmdata.getdatalabel(result.lab); current_asmdata.getdatalabel(result.lab);
datatcb.emit_tai(Tai_const.Create_32bit(strlength*cwidechartype.size),s32inttype); datatcb.emit_tai(Tai_const.Create_32bit(strlength*cwidechartype.size),s32inttype);
{ can we optimise by placing the string constant label at the { can we optimise by placing the string constant label at the