* hopefully final fix for absolute references to absolute symbols

compiler/rautils.pas

@@ -861,8 +861,9 @@ Begin
               begin
                 setvarsize(tabstractvarsym(sym));
                 size_set_from_absolute:=true;
+                sym:=plist^.sym;
                 { Check if address can be resolved, but only if not an array }
-                if (tabsolutevarsym(sym).abstyp=toaddr) and not
+                if (sym.typ=absolutevarsym) and (tabsolutevarsym(sym).abstyp=toaddr) and not
                   (assigned(plist^.next) and (plist^.next^.sltype=sl_vec)) then
                   begin
                     initref;
@@ -872,7 +873,6 @@ Begin
                     exit;
                   end;
                 { resolve the chain of array indexes (if there are any) }
-                sym:=plist^.sym;
                 harrdef:=nil;
                 while assigned(plist^.next) do
                   begin