* moved isaddressregister() from m68k/cpubase to cgbase

git-svn-id: branches/llvm@11395 -

compiler/cgbase.pas

@@ -315,6 +315,8 @@ interface
     procedure setsupreg(var r:tregister;sr:tsuperregister);{$ifdef USEINLINE}inline;{$endif}
     function generic_regname(r:tregister):string;
 
+    function isaddressregister(reg : tregister) : boolean; {$ifdef USEINLINE} inline; {$endif}
+
     {# From a constant numeric value, return the abstract code generator
        size.
     }
@@ -576,6 +578,12 @@ implementation
       end;
 
 
+    function isaddressregister(reg : tregister) : boolean;
+      begin
+        result:=getregtype(reg)=R_ADDRESSREGISTER;
+      end;
+
+
     function int_cgsize(const a: aint): tcgsize;{$ifdef USEINLINE}inline;{$endif}
       const
         size2cgsize : array[0..8] of tcgsize = (

compiler/m68k/cpubase.pas

@@ -335,8 +335,6 @@ unit cpubase;
     function std_regnum_search(const s:string):Tregister;
     function std_regname(r:Tregister):string;
 
-    function isaddressregister(reg : tregister) : boolean;
-
     function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function conditions_equal(const c1, c2: TAsmCond): boolean; {$ifdef USEINLINE}inline;{$endif USEINLINE}
     function dwarf_reg(r:tregister):shortint;
@@ -486,12 +484,6 @@ implementation
       end;
 
 
-    function isaddressregister(reg : tregister) : boolean;
-      begin
-        result:=getregtype(reg)=R_ADDRESSREGISTER;
-      end;
-
-
     function inverse_cond(const c: TAsmCond): TAsmCond; {$ifdef USEINLINE}inline;{$endif USEINLINE}
       const
         inverse:array[TAsmCond] of TAsmCond=(C_None,