From 531d3808fc71ec20127f29a8125bd738d6329ce6 Mon Sep 17 00:00:00 2001 From: pierre Date: Thu, 3 Nov 2011 10:10:40 +0000 Subject: [PATCH] Override abstract method to abvoid warning at compilation time git-svn-id: trunk@19582 - --- compiler/mips/cgcpu.pas | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/compiler/mips/cgcpu.pas b/compiler/mips/cgcpu.pas index a145800cab..6a88661bf3 100644 --- a/compiler/mips/cgcpu.pas +++ b/compiler/mips/cgcpu.pas @@ -86,6 +86,9 @@ type procedure g_concatcopy_unaligned(list: tasmlist; const Source, dest: treference; len: tcgint); override; procedure g_concatcopy_move(list: tasmlist; const Source, dest: treference; len: tcgint); procedure g_intf_wrapper(list: tasmlist; procdef: tprocdef; const labelname: string; ioffset: longint); override; + { Transform unsupported methods into Internal errors } + procedure a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: TCGSize; src, dst: TRegister); override; + procedure g_stackpointer_alloc(list : TAsmList;localsize : longint);override; end; TCg64MPSel = class(tcg64f32) @@ -1693,6 +1696,16 @@ begin List.concat(Tai_symbol_end.Createname(labelname)); end; +procedure TCgMPSel.g_stackpointer_alloc(list : TAsmList;localsize : longint); + begin + Comment(V_Error,'TCgMPSel.g_stackpointer_alloc method not implemented'); + end; + +procedure TCgMPSel.a_bit_scan_reg_reg(list: TAsmList; reverse: boolean; size: TCGSize; src, dst: TRegister); + begin + Comment(V_Error,'TCgMPSel.a_bit_scan_reg_reg method not implemented'); + end; + {**************************************************************************** TCG64_MIPSel ****************************************************************************}