From 6b623226d401acdcf140d4312d7f02015a5bbbf8 Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Thu, 10 Jan 2008 21:09:08 +0000
Subject: * 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
---
 compiler/pmodules.pas | 3 +++
 1 file changed, 3 insertions(+)

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 }
-- 
cgit v1.2.1