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

* fixed ansi/unicodestring constants on non-llvm/darwin platforms after

Browse Source 
r28327

git-svn-id: branches/hlcgllvm@28404 -
This commit is contained in:
Jonas Maebe 2014-08-13 19:25:45 +00:00
parent 5c75b6dd6b
commit 6e09fcb744
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/aasmcnst.pas
View File

@ -534,6 +534,7 @@ implementation
function ttai_lowleveltypedconstbuilder.emit_string_const_common(list: TAsmList; stringtype: tstringtype; len: asizeint; encoding: tstringencoding; out startlab: tasmlabel): tasmlabofs;
var
string_symofs: asizeint;
charptrdef: tdef;
elesize: word;
begin
current_asmdata.getdatalabel(result.lab);
@ -547,9 +548,15 @@ implementation
{ element size }
case stringtype of
st_ansistring:
elesize:=1;
begin
elesize:=1;
charptrdef:=charpointertype;
end;
st_unicodestring:
elesize:=2;
begin
elesize:=2;
charptrdef:=widecharpointertype;
end
else
internalerror(2014080401);
end;
@ -567,7 +574,7 @@ implementation
if string_symofs=0 then
begin
{ results in slightly more efficient code }
list.concat(tai_label.create(result.lab));
emit_tai(tai_label.create(result.lab),charptrdef);
result.ofs:=0;
current_asmdata.getdatalabel(startlab);
end;