Browse Source

- Removed remains of tai_labeled_instruction, already commented out probably in 1.0 times.

git-svn-id: trunk@33074 -
sergei 9 years ago
parent
commit
36043d13ae
3 changed files with 1 additions and 19 deletions
  1. 0 3
      compiler/aasmtai.pas
  2. 1 9
      compiler/m68k/ra68kmot.pas
  3. 0 7
      compiler/psystem.pas

+ 0 - 3
compiler/aasmtai.pas

@@ -69,9 +69,6 @@ interface
           ait_stab,
           ait_force_line,
           ait_function_name,
-{$ifdef m68k}
-          ait_labeled_instruction,
-{$endif m68k}
           ait_symbolpair,
           { used to split into tiny assembler files }
           ait_cutobject,

+ 1 - 9
compiler/m68k/ra68kmot.pas

@@ -1781,15 +1781,7 @@ const
                     instr.ConcatInstruction(curlist);
                   end;
                   instr.Free;
-{
-                  instr.init;
-                  BuildOpcode;
-                  instr.ops := operandnum;
-                  if instr.labeled then
-                    ConcatLabeledInstr(instr)
-                  else
-                    ConcatOpCode(instr);
-                  instr.done;}
+
                 end;
               AS_SEPARATOR:
                 begin

+ 0 - 7
compiler/psystem.pas

@@ -743,13 +743,6 @@ implementation
         aiclass[ait_stab]:=tai_stab;
         aiclass[ait_force_line]:=tai_force_line;
         aiclass[ait_function_name]:=tai_function_name;
-{$ifdef m68k}
-{ TODO: FIXME: tai_labeled_instruction doesn't exists}
-//        aiclass[ait_labeled_instruction]:=tai_labeled_instruction;
-{$endif m68k}
-{$ifdef SPARC}
-//        aiclass[ait_labeled_instruction]:=tai_labeled_instruction;
-{$endif SPARC}
         aiclass[ait_symbolpair]:=tai_symbolpair;
         aiclass[ait_cutobject]:=tai_cutobject;
         aiclass[ait_regalloc]:=tai_regalloc;