paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 20:59:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

* get rid of hash chars, modern tools and IDEs can use normal comments as documentation if needed

Browse Source 
git-svn-id: trunk@22108 -
This commit is contained in:
florian 2012-08-17 19:35:46 +00:00
parent 6729164fcc
commit c2d067940a
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
compiler/rgobj.pas
View File

@ -139,20 +139,20 @@ unit rgobj;
Apreserved_by_proc:Tcpuregisterset);
destructor destroy;override;
{# Allocate a register. An internalerror will be generated if there is
{ Allocate a register. An internalerror will be generated if there is
no more free registers which can be allocated.}
function getregister(list:TAsmList;subreg:Tsubregister):Tregister;virtual;
{# Get the register specified.}
{ Get the register specified.}
procedure getcpuregister(list:TAsmList;r:Tregister);virtual;
procedure ungetcpuregister(list:TAsmList;r:Tregister);virtual;
{# Get multiple registers specified.}
{ Get multiple registers specified.}
procedure alloccpuregisters(list:TAsmList;const r:Tcpuregisterset);virtual;
{# Free multiple registers specified.}
{ Free multiple registers specified.}
procedure dealloccpuregisters(list:TAsmList;const r:Tcpuregisterset);virtual;
function uses_registers:boolean;virtual;
procedure add_reg_instruction(instr:Tai;r:tregister;aweight:longint);
procedure add_move_instruction(instr:Taicpu);
{# Do the register allocation.}
{ Do the register allocation.}
procedure do_register_allocation(list:TAsmList;headertai:tai);virtual;
{ Adds an interference edge.
don't move this to the protected section, the arm cg requires to access this (FK) }
@ -186,9 +186,9 @@ unit rgobj;
procedure insert_regalloc_info_all(list:TAsmList);
private
int_live_range_direction: TRADirection;
{# First imaginary register.}
{ First imaginary register.}
first_imaginary : Tsuperregister;
{# Highest register allocated until now.}
{ Highest register allocated until now.}
reginfo : PReginfo;
usable_registers_cnt : word;
usable_registers : array[0..maxcpuregister] of tsuperregister;
@ -211,13 +211,13 @@ unit rgobj;
{$ifdef EXTDEBUG}
procedure writegraph(loopidx:longint);
{$endif EXTDEBUG}
{# Disposes of the reginfo array.}
{ Disposes of the reginfo array.}
procedure dispose_reginfo;
{# Prepare the register colouring.}
{ Prepare the register colouring.}
procedure prepare_colouring;
{# Clean up after register colouring.}
{ Clean up after register colouring.}
procedure epilogue_colouring;
{# Colour the registers; that is do the register allocation.}
{ Colour the registers; that is do the register allocation.}
procedure colour_registers;
procedure insert_regalloc_info(list:TAsmList;u:tsuperregister);
procedure generate_interference_graph(list:TAsmList;headertai:tai);