* handling of address registers in references fixed

* write address registers as areg when compiling with -sr

git-svn-id: trunk@2398 -

compiler/cgbase.pas

@@ -520,6 +520,10 @@ implementation
             result:='mreg'+nr;
           R_MMXREGISTER:
             result:='xreg'+nr;
+          R_ADDRESSREGISTER:
+            result:='areg'+nr;
+          R_SPECIALREGISTER:
+            result:='sreg'+nr;
           else
             begin
               result:='INVALID';

compiler/rgobj.pas

@@ -1638,7 +1638,7 @@ unit rgobj;
                                setsupreg(reg,reginfo[getsupreg(reg)].colour);
                           Top_ref:
                             begin
-                              if regtype=R_INTREGISTER then
+                              if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
                                 with ref^ do
                                   begin
                                     if base<>NR_NO then