* reference local varsyms can't be regvar

compiler/rautils.pas

@@ -907,6 +907,9 @@ Begin
                      (current_procinfo.procdef.localst.symtablelevel>normal_function_level) and
                      symtable_has_varsyms(current_procinfo.procdef.localst) then
                     message1(asmr_e_local_para_unreachable,s);
+                  { variable can't be placed in a register anymore }
+                  exclude(tvarsym(sym).varoptions,vo_regable);
+                  exclude(tvarsym(sym).varoptions,vo_fpuregable);
                   opr.localsym:=tvarsym(sym);
                   opr.localsymofs:=0;
                   opr.localindexreg:=indexreg;
@@ -1666,7 +1669,10 @@ end;
 end.
 {
   $Log$
-  Revision 1.88  2004-06-20 08:55:30  florian
+  Revision 1.89  2004-09-27 15:14:34  peter
+    * reference local varsyms can't be regvar
+
+  Revision 1.88  2004/06/20 08:55:30  florian
     * logs truncated
 
   Revision 1.87  2004/06/16 20:07:09  florian