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

* removed things which shouldn't have been committed yet

Browse Source 
git-svn-id: trunk@4326 -
This commit is contained in:
Jonas Maebe 2006-08-01 20:44:43 +00:00
parent dec97dea73
commit d5aa230395
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/cgobj.pas
View File

@ -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;