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

Clean up dead code.

Browse Source 
m68k/n68kcnv.pas:
  - pass_generate_code is used from the parent class
  - ungetcpuregister is not needed here

git-svn-id: trunk@26848 -
This commit is contained in:
svenbarth 2014-02-22 21:29:31 +00:00
parent 908c0f7293
commit 2a65c05a8c
1 changed files with 0 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
compiler/m68k/n68kcnv.pas
View File

@ -34,7 +34,6 @@ interface
function first_int_to_real: tnode; override;
procedure second_int_to_real;override;
procedure second_int_to_bool;override;
// procedure pass_generate_code;override;
end;
implementation
@ -231,9 +230,7 @@ implementation
cg.a_load_ref_reg(current_asmdata.CurrAsmList,opsize,opsize,
left.location.reference,hreg2);
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,TCGSize2OpSize[opsize],hreg2));
// cg.ungetcpuregister(current_asmdata.CurrAsmList,hreg2);
end;
// reference_release(current_asmdata.CurrAsmList,left.location.reference);
end;
end;
LOC_REGISTER,LOC_CREGISTER :
@ -249,7 +246,6 @@ implementation
begin
hreg2:=left.location.register;
current_asmdata.CurrAsmList.concat(taicpu.op_reg(A_TST,TCGSize2OpSize[opsize],hreg2));
// cg.ungetcpuregister(current_asmdata.CurrAsmList,hreg2);
end;
end;
LOC_FLAGS :
@ -305,27 +301,6 @@ implementation
current_procinfo.CurrFalseLabel:=oldFalseLabel;
end;
{
procedure tm68ktypeconvnode.pass_generate_code;
{$ifdef TESTOBJEXT2}
var
r : preference;
nillabel : plabel;
{$endif TESTOBJEXT2}
begin
{ this isn't good coding, I think tc_bool_2_int, shouldn't be }
{ type conversion (FK) }
if not(convtype in [tc_bool_2_int,tc_bool_2_bool]) then
begin
secondpass(left);
location_copy(location,left.location);
if codegenerror then
exit;
end;
second_call_helper(convtype);
end;
}
begin
ctypeconvnode:=tm68ktypeconvnode;