* made the constructor of TObjSymbol virtual, so it can be overriden

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;

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;