From 07461d0fc3a36fd6071aaa9bd13f2d651ae0a74d Mon Sep 17 00:00:00 2001
From: Nikolay Nikolov <nickysn@gmail.com>
Date: Sun, 26 Sep 2021 10:17:19 +0300
Subject: [PATCH] * made the constructor of TObjSymbol virtual, so it can be
 overriden

---
 compiler/ogbase.pas | 2 +-
 compiler/ogwasm.pas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index f7c5e666af..2619807569 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -268,7 +268,7 @@ interface
        ThumbFunc : boolean;
 {$endif ARM}
 
-       constructor create(AList:TFPHashObjectList;const AName:string);
+       constructor create(AList:TFPHashObjectList;const AName:string);virtual;
        function  address:qword;
        procedure SetAddress(apass:byte;aobjsec:TObjSection;abind:TAsmsymbind;atyp:Tasmsymtype);
        function  ObjData: TObjData;
diff --git a/compiler/ogwasm.pas b/compiler/ogwasm.pas
index 32df879894..40e4165e21 100644
--- a/compiler/ogwasm.pas
+++ b/compiler/ogwasm.pas
@@ -49,7 +49,7 @@ interface
         SymbolIndex: Integer;
         AliasOf: string;
         ExtraData: TWasmObjSymbolExtraData;
-        constructor create(AList:TFPHashObjectList;const AName:string);
+        constructor create(AList:TFPHashObjectList;const AName:string);override;
         function ImportOrFuncIndex: Integer;
         function IsAlias: Boolean;
       end;