paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 07:26:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@33074 -
This commit is contained in:
sergei 2016-02-09 02:25:27 +00:00
parent 4fc05e6ec1
commit 36043d13ae
3 changed files with 1 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/aasmtai.pas
View File

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

10
compiler/m68k/ra68kmot.pas
View File

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

7
compiler/psystem.pas
View File

@ -743,13 +743,6 @@ implementation
aiclass[ait_stab]:=tai_stab; aiclass[ait_stab]:=tai_stab;
aiclass[ait_force_line]:=tai_force_line; aiclass[ait_force_line]:=tai_force_line;
aiclass[ait_function_name]:=tai_function_name; 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_symbolpair]:=tai_symbolpair;
aiclass[ait_cutobject]:=tai_cutobject; aiclass[ait_cutobject]:=tai_cutobject;
aiclass[ait_regalloc]:=tai_regalloc; aiclass[ait_regalloc]:=tai_regalloc;