diff --git a/compiler/cgobj.pas b/compiler/cgobj.pas index de4a1b934f..7552b79202 100644 --- a/compiler/cgobj.pas +++ b/compiler/cgobj.pas @@ -68,8 +68,6 @@ unit cgobj; procedure init_register_allocators;virtual; {# Clean up the register allocators needed for the codegenerator.} procedure done_register_allocators;virtual; - {# Set the spill location of a register } - procedure set_spill_temp(reg: tregister; const ref: treference); {# Set whether live_start or live_end should be updated when allocating registers, needed when e.g. generating initcode after the rest of the code. } procedure set_regalloc_extend_backwards(b: boolean); @@ -703,18 +701,6 @@ implementation end; - procedure tcg.set_spill_temp(reg: tregister; const ref: treference); - var - rt : tregistertype; - begin - rt:=getregtype(reg); - if assigned(rg[rt]) then - rg[rt].set_spill_temp(getsupreg(reg),ref) - else - internalerror(2006072702); - end; - - procedure tcg.set_regalloc_extend_backwards(b: boolean); var rt : tregistertype;