From edb660ed58d6dff6601f16a40e835fc01309f711 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 19 Jul 2020 14:30:38 +0000
Subject: [PATCH]   * made TAArch64ClangGASAssembler inherit from
 TAArch64Assembler and removed custom     $TARGET handling (handled by the
 general triple handling now)

git-svn-id: trunk@45808 -
---
 compiler/aarch64/agcpugas.pas | 30 +-----------------------------
 1 file changed, 1 insertion(+), 29 deletions(-)

diff --git a/compiler/aarch64/agcpugas.pas b/compiler/aarch64/agcpugas.pas
index fbd2ddf2e5..1fabdecf1e 100644
--- a/compiler/aarch64/agcpugas.pas
+++ b/compiler/aarch64/agcpugas.pas
@@ -47,16 +47,13 @@ unit agcpugas;
         constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
       end;
 
-      TAArch64ClangGASAssembler=class(TGNUassembler)
+      TAArch64ClangGASAssembler=class(TAArch64Assembler)
       private
-        function TargetStr:String;
         procedure TransformSEHDirectives(list:TAsmList);
       protected
         function sectionflags(secflags:TSectionFlags):string;override;
       public
-        function MakeCmdLine:TCmdStr; override;
         procedure WriteAsmList; override;
-        constructor CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean); override;
       end;
 
     const
@@ -105,24 +102,6 @@ unit agcpugas;
 {                      CLang AArch64 Assembler writer                        }
 {****************************************************************************}
 
-    constructor TAArch64CLangGASAssembler.CreateWithWriter(info: pasminfo; wr: TExternalAssemblerOutputFile; freewriter, smart: boolean);
-      begin
-        inherited;
-        InstrWriter := TAArch64InstrWriter.create(self);
-      end;
-
-
-    function TAArch64ClangGASAssembler.TargetStr:String;
-      begin
-        case target_info.system of
-          system_aarch64_win64:
-            result:='aarch64-windows';
-          else
-            internalerror(2020032201);
-        end;
-      end;
-
-
     procedure TAArch64ClangGASAssembler.TransformSEHDirectives(list:TAsmList);
 
       function convert_unwinddata(list:tasmlist):tdynamicarray;
@@ -574,13 +553,6 @@ unit agcpugas;
       end;
 
 
-    function TAArch64ClangGASAssembler.MakeCmdLine:TCmdStr;
-      begin
-        Result:=inherited MakeCmdLine;
-        Replace(Result,'$TARGET',TargetStr);
-      end;
-
-
     procedure TAArch64ClangGASAssembler.WriteAsmList;
       begin
         { clang does not support all the directives we need, so we need to