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

* set minimum alignment for pchar to 1 instead of 0 (llvm doesn't

Browse Source 
support alignment 0)

git-svn-id: trunk@32405 -
This commit is contained in:
Jonas Maebe 2015-11-21 12:36:42 +00:00
parent 7b93e40530
commit 8d8851afd6
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/ngtcon.pas
View File

@ -827,7 +827,7 @@ function get_next_varsym(def: tabstractrecorddef; const SymList:TFPHashObjectLis
if node.nodetype=stringconstn then if node.nodetype=stringconstn then
varalign:=size_2_align(tstringconstnode(node).len) varalign:=size_2_align(tstringconstnode(node).len)
else else
varalign:=0; varalign:=1;
varalign:=const_align(varalign); varalign:=const_align(varalign);
{ represent the string data as an array } { represent the string data as an array }
if node.nodetype=stringconstn then if node.nodetype=stringconstn then