* remove convert_registers

compiler/aasmtai.pas

@@ -475,7 +475,6 @@ interface
        taasmoutput = class(tlinkedlist)
           constructor create;
           function getlasttaifilepos : pfileposinfo;
-          procedure convert_registers;
           procedure translate_registers(const table:Ttranstable);
        end;
 
@@ -1815,46 +1814,6 @@ implementation
            end;
       end;
 
-    procedure Taasmoutput.convert_registers;
-
-    var p:Tai;
-        i:shortint;
-        r:Preference;
-
-    begin
-      p:=Tai(first);
-      while assigned(p) do
-        begin
-          case p.typ of
-            ait_regalloc:
-              convert_register_to_enum(Tai_regalloc(p).reg);
-            ait_instruction:
-              begin
-                for i:=0 to Taicpu_abstract(p).ops-1 do
-                  if Taicpu_abstract(p).oper[i].typ=Top_reg then
-                    begin
-                      if Taicpu_abstract(p).oper[i].reg.enum=R_NO then
-                        internalerror(200302052);
-                      convert_register_to_enum(Taicpu_abstract(p).oper[i].reg)
-                    end
-                  else if Taicpu_abstract(p).oper[i].typ=Top_ref then
-                    begin
-                      r:=Taicpu_abstract(p).oper[i].ref;
-                   {$ifdef i386}
-                      convert_register_to_enum(r^.segment);
-                   {$endif i386}
-                      convert_register_to_enum(r^.base);
-                      convert_register_to_enum(r^.index);
-                    end;
-              {$ifdef i386}
-                convert_register_to_enum(Taicpu_abstract(p).segprefix);
-              {$endif}
-              end;
-          end;
-          p:=Tai(p.next);
-        end;
-    end;
-
     procedure Taasmoutput.translate_registers(const table:Ttranstable);
 
     var p,q:Tai;
@@ -1901,7 +1860,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.34  2003-08-20 20:29:06  daniel
+  Revision 1.35  2003-08-21 14:47:41  peter
+    * remove convert_registers
+
+  Revision 1.34  2003/08/20 20:29:06  daniel
     * Some more R_NO changes
     * Preventive code to loadref added
 

compiler/nobj.pas

@@ -1011,7 +1011,6 @@ implementation
           end;
         dataSegment.concatlist(rawdata);
         rawdata.free;
-{        rawcode.convert_registers;}
         codeSegment.concatlist(rawcode);
         rawcode.free;
         freemem(impintfindexes,(max+1)*sizeof(longint));
@@ -1328,7 +1327,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.46  2003-08-20 09:07:00  daniel
+  Revision 1.47  2003-08-21 14:47:41  peter
+    * remove convert_registers
+
+  Revision 1.46  2003/08/20 09:07:00  daniel
     * New register coding now mandatory, some more convert_registers calls
       removed.
 

compiler/pmodules.pas

@@ -791,7 +791,6 @@ implementation
         list.insertlistafter(headertai,templist);
         { Add exit code at the end }
         gen_exit_code(list,false,usesacc,usesacchi,usesfpu);
-{        list.convert_registers;}
         release_main_proc(pd);
         templist.free;
       end;
@@ -1465,7 +1464,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.118  2003-08-20 17:48:49  peter
+  Revision 1.119  2003-08-21 14:47:41  peter
+    * remove convert_registers
+
+  Revision 1.118  2003/08/20 17:48:49  peter
     * fixed stackalloc to not allocate localst.datasize twice
     * order of stackalloc code fixed for implicit init/final
 

compiler/systems/t_win32.pas

@@ -560,7 +560,6 @@ const
 
               hp1:=timportlist(hp1.next);
            end;
-         importsSection.convert_registers;
       end;
 
 
@@ -1628,7 +1627,10 @@ initialization
 end.
 {
   $Log$
-  Revision 1.17  2003-08-20 20:50:18  daniel
+  Revision 1.18  2003-08-21 14:47:41  peter
+    * remove convert_registers
+
+  Revision 1.17  2003/08/20 20:50:18  daniel
     * convert_registers call removed from t_win32.pas
 
   Revision 1.16  2003/05/13 15:15:25  peter