From be560dadf8dc8238eb3fd3813f8cd4246d6ecb89 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 18 Apr 2022 23:00:40 +0200
Subject: [PATCH]   * manual fixes to get .weak support in fixes

---
 compiler/aasmbase.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/aasmbase.pas b/compiler/aasmbase.pas
index 7c6797f913..d09668d2fd 100644
--- a/compiler/aasmbase.pas
+++ b/compiler/aasmbase.pas
@@ -45,7 +45,8 @@ interface
          AB_TEMP,
          { a global symbol that points to another global symbol and is only used
            to allow indirect loading in case of packages and indirect imports }
-         AB_INDIRECT,AB_EXTERNAL_INDIRECT);
+         AB_INDIRECT,AB_EXTERNAL_INDIRECT,
+         AB_WEAK);
 
        TAsmsymtype=(
          AT_NONE,AT_FUNCTION,AT_DATA,AT_SECTION,AT_LABEL,
@@ -80,7 +81,7 @@ interface
        asmlabeltypeprefix : array[TAsmLabeltype] of char = ('j','a','d','l','f','t','c');
        asmsymbindname : array[TAsmsymbind] of string[23] = ('none', 'external','common',
        'local','global','weak external','private external','lazy','import','internal temp',
-       'indirect','external indirect');
+       'indirect','external indirect','weak');
        asmsymbindindirect = [AB_INDIRECT,AB_EXTERNAL_INDIRECT];
 
     type