From 2a65c05a8c01988d89e997c0e6f0a7254895f097 Mon Sep 17 00:00:00 2001 From: svenbarth Date: Sat, 22 Feb 2014 21:29:31 +0000 Subject: [PATCH] Clean up dead code. m68k/n68kcnv.pas: - pass_generate_code is used from the parent class - ungetcpuregister is not needed here git-svn-id: trunk@26848 - --- compiler/m68k/n68kcnv.pas | 25 ------------------------- 1 file changed, 25 deletions(-) diff --git a/compiler/m68k/n68kcnv.pas b/compiler/m68k/n68kcnv.pas index 34e90af476..cf5a68ace0 100644 --- a/compiler/m68k/n68kcnv.pas +++ b/compiler/m68k/n68kcnv.pas @@ -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;