From ac18eb005f6126db2e65ca82c879d55fcb2da6cf Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Wed, 25 Nov 2015 22:25:54 +0000
Subject: [PATCH]   * make the vectorized dead strip section symbol external
 for files that     don't define it

git-svn-id: trunk@32534 -
---
 compiler/aasmcnst.pas | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/compiler/aasmcnst.pas b/compiler/aasmcnst.pas
index fe8ef557e3..7d414dfcbc 100644
--- a/compiler/aasmcnst.pas
+++ b/compiler/aasmcnst.pas
@@ -1341,11 +1341,17 @@ implementation
 
 
    class function ttai_typedconstbuilder.get_vectorized_dead_strip_section_symbol(const basename: string; st: tsymtable; define, start: boolean): tasmsymbol;
+     var
+       bind: tasmsymbind;
      begin
-       if start then
-         result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'START'),AB_GLOBAL,AT_DATA)
+       if define then
+         bind:=AB_GLOBAL
        else
-         result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'END'),AB_GLOBAL,AT_DATA);
+         bind:=AB_EXTERNAL;
+       if start then
+         result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'START'),bind,AT_DATA)
+       else
+         result:=current_asmdata.DefineAsmSymbol(make_mangledname(basename,st,'END'),bind,AT_DATA);
      end;