+ reg2str -> std_reg2str()

compiler/regvars.pas

@@ -371,9 +371,9 @@ implementation
                 if cs_asm_source in aktglobalswitches then
                  asml.insert(Tai_asm_comment.Create(strpnew(regvarinfo^.regvars[i].name+
                   ' with weight '+tostr(regvarinfo^.regvars[i].refs)+' assigned to register '+
-                  reg2str(regvarinfo^.regvars[i].reg))));
+                  std_reg2str[regvarinfo^.regvars[i].reg])));
                 if (status.verbosity and v_debug)=v_debug then
-                 Message3(cg_d_register_weight,reg2str(regvarinfo^.regvars[i].reg),
+                 Message3(cg_d_register_weight,std_reg2str[regvarinfo^.regvars[i].reg],
                   tostr(regvarinfo^.regvars[i].refs),regvarinfo^.regvars[i].name);
                end;
             end;
@@ -401,9 +401,9 @@ implementation
                     if cs_asm_source in aktglobalswitches then
                       asml.insert(Tai_asm_comment.Create(strpnew(regvarinfo^.fpuregvars[i].name+
                         ' with weight '+tostr(regvarinfo^.fpuregvars[i].refs)+' assigned to register '+
-                        reg2str(regvarinfo^.fpuregvars[i].reg))));
+                        std_reg2str[regvarinfo^.fpuregvars[i].reg])));
                     if (status.verbosity and v_debug)=v_debug then
-                      Message3(cg_d_register_weight,reg2str(regvarinfo^.fpuregvars[i].reg),
+                      Message3(cg_d_register_weight,std_reg2str[regvarinfo^.fpuregvars[i].reg],
                         tostr(regvarinfo^.fpuregvars[i].refs),regvarinfo^.fpuregvars[i].name);
                  end;
             end;
@@ -459,7 +459,10 @@ end.
 
 {
   $Log$
-  Revision 1.25  2002-04-06 18:13:01  jonas
+  Revision 1.26  2002-04-15 19:04:04  carl
+  + reg2str -> std_reg2str()
+
+  Revision 1.25  2002/04/06 18:13:01  jonas
     * several powerpc-related additions and fixes
 
   Revision 1.24  2002/04/02 17:11:29  peter

compiler/rgobj.pas

@@ -45,7 +45,7 @@ unit rgobj;
            1: (ofs: longint);
        end;
 
-       tpushedsaved = array[lowsavereg..highsavereg] of tpushedsavedloc;
+       tpushedsaved = array[firstreg..lastreg] of tpushedsavedloc;
 
        trgobj = class
           { The "usableregsxxx" contain all registers of type "xxx" that }
@@ -247,7 +247,7 @@ unit rgobj;
          if (r in unusedregs) then
 {$ifdef EXTTEMPREGDEBUG}
            begin
-             Comment(V_Debug,'register freed twice '+reg2str(r));
+             Comment(V_Debug,'register freed twice '+std_reg2str[r]);
              testregisters32;
              exit;
            end
@@ -842,7 +842,10 @@ end.
 
 {
   $Log$
-  Revision 1.5  2002-04-06 18:13:01  jonas
+  Revision 1.6  2002-04-15 19:03:31  carl
+  + reg2str -> std_reg2str()
+
+  Revision 1.5  2002/04/06 18:13:01  jonas
     * several powerpc-related additions and fixes
 
   Revision 1.4  2002/04/04 19:06:04  peter