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

* don't align entries in string sections, gcc doesn't either

Browse Source 
git-svn-id: trunk@14246 -
This commit is contained in:
Jonas Maebe 2009-11-21 21:24:27 +00:00
parent 64b6700c61
commit 80499a1732
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/objcgutl.pas
View File

@ -166,7 +166,7 @@ function objcreatestringpoolentryintern(p: pchar; len: longint; pooltype: tconst
pc[entry^.keylength]:=#0;
{ add the string to the approriate section }
new_section(current_asmdata.asmlists[al_objc_pools],stringsec,strlab.name,sizeof(pint));
new_section(current_asmdata.asmlists[al_objc_pools],stringsec,strlab.name,0);
current_asmdata.asmlists[al_objc_pools].concat(Tai_label.Create(strlab));
current_asmdata.asmlists[al_objc_pools].concat(Tai_string.Create_pchar(pc,entry^.keylength+1));
Result := strlab;