diff options
| author | tom_at_work <tom_at_work@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-10 21:09:08 +0000 |
|---|---|---|
| committer | tom_at_work <tom_at_work@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2008-01-10 21:09:08 +0000 |
| commit | 6b623226d401acdcf140d4312d7f02015a5bbbf8 (patch) | |
| tree | eb720359325a902a2c8236be315bab378570718b | |
| parent | d2e7b736cef990272b342cec9de17c11b1dea834 (diff) | |
| download | fpc-6b623226d401acdcf140d4312d7f02015a5bbbf8.tar.gz | |
* properly align FPC_RESLOCATION so that linking does not fail on some architectures (e.g. ppc64)
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/resources@9710 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | compiler/pmodules.pas | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/pmodules.pas b/compiler/pmodules.pas index 7a2ef6bc22..53d3f08915 100644 --- a/compiler/pmodules.pas +++ b/compiler/pmodules.pas @@ -255,6 +255,9 @@ implementation if (target_res.id in [res_elf,res_macho]) then begin ResourceInfo:=TAsmList.Create; + + maybe_new_object_file(ResourceInfo); + new_section(ResourceInfo,sec_data,'FPC_RESLOCATION',sizeof(aint)); ResourceInfo.concat(Tai_symbol.Createname_global('FPC_RESLOCATION',AT_DATA,0)); if ResourcesUsed then { Valid pointer to resource information } |