* a64: Porting of MatchOperand function from x86 that takes integer parameter

compiler/armgen/aoptarm.pas

@@ -33,7 +33,7 @@ Unit aoptarm;
 Interface
 
 uses
-  cgbase, cgutils, cpubase, aasmtai, aasmcpu,aopt, aoptobj;
+  cgbase, cgutils, globtype, cpubase, aasmtai, aasmcpu,aopt, aoptobj;
 
 Type
   { while ARM and AAarch64 look not very similar at a first glance,
@@ -54,7 +54,6 @@ Type
     function OptPass1SXTB(var p: tai): Boolean;
     function OptPass1SXTH(var p: tai): Boolean;
 
-
     function OptPass1LDR(var p: tai): Boolean; virtual;
     function OptPass1STR(var p: tai): Boolean; virtual;
     function OptPass1And(var p: tai): Boolean; virtual;
@@ -71,11 +70,12 @@ Type
 
   function MatchOperand(const oper: TOper; const reg: TRegister): boolean; inline;
   function MatchOperand(const oper1: TOper; const oper2: TOper): boolean; inline;
+  function MatchOperand(const oper: TOper; const a: TCGInt): boolean; inline;
 
 Implementation
 
   uses
-    cutils,verbose,globtype,globals,
+    cutils,verbose,globals,
     systems,
     cpuinfo,
     cgobj,procinfo,
@@ -196,6 +196,11 @@ Implementation
     end;
 
 
+  function MatchOperand(const oper: TOper; const a: TCGInt): boolean; inline;
+    begin
+      result := (oper.typ = top_const) and (oper.val = a);
+    end;
+
 {$ifdef AARCH64}
   function TARMAsmOptimizer.USxtOp2Op(var p,hp1: tai; shiftmode: tshiftmode): Boolean;
     var