paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

compiler: winlike widestrings should not contain "encoding" and "element size" fields

Browse Source 
git-svn-id: trunk@19146 -
This commit is contained in:
paul 2011-09-19 02:13:09 +00:00
parent 41e85bc36a
commit 9c39ad5428
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/asmutils.pas
View File

@ -98,16 +98,16 @@ uses
list.concat(tai_label.create(referencelab));
end;
strlength := getlengthwidestring(pcompilerwidestring(data));
list.concat(tai_const.create_16bit(encoding));
list.concat(tai_const.create_16bit(2));
{$ifdef cpu64bitaddr}
{ dummy for alignment }
list.concat(Tai_const.Create_32bit(0));
{$endif cpu64bitaddr}
if Winlike then
list.concat(Tai_const.Create_32bit(strlength*cwidechartype.size))
else
begin
list.concat(tai_const.create_16bit(encoding));
list.concat(tai_const.create_16bit(2));
{$ifdef cpu64bitaddr}
{ dummy for alignment }
list.concat(Tai_const.Create_32bit(0));
{$endif cpu64bitaddr}
list.concat(Tai_const.Create_pint(-1));
list.concat(Tai_const.Create_pint(strlength));
end;