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

merge r17371 from cpstrnew branch by michael:

Browse Source 
* Patch from Inoussa to fix tunistr5.pp

git-svn-id: trunk@19108 -
This commit is contained in:
paul 2011-09-17 13:17:19 +00:00
parent 7fd7eee1c9
commit 4b9a082152
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/asmutils.pas
View File

@ -94,7 +94,7 @@ uses
else
begin
list.concat(Tai_const.Create_pint(-1));
list.concat(Tai_const.Create_pint(strlength*cwidechartype.size));
list.concat(Tai_const.Create_pint(strlength));
end;
{ make sure the string doesn't get dead stripped if the header is referenced }
if (target_info.system in systems_darwin) then