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

* properly align common symbols.

Browse Source 
git-svn-id: trunk@5264 -
This commit is contained in:
yury 2006-11-06 00:22:33 +00:00
parent 036207803b
commit 11fcbcc663
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ogbase.pas
View File

@ -1899,6 +1899,7 @@ implementation
firstcommon:=false; firstcommon:=false;
end; end;
internalObjData.setsection(commonObjSection); internalObjData.setsection(commonObjSection);
internalObjData.allocalign(var_align(objsym.size));
commonsym:=internalObjData.symboldefine(objsym.name,AB_GLOBAL,AT_FUNCTION); commonsym:=internalObjData.symboldefine(objsym.name,AB_GLOBAL,AT_FUNCTION);
commonsym.size:=objsym.size; commonsym.size:=objsym.size;
internalObjData.alloc(objsym.size); internalObjData.alloc(objsym.size);