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

+ reg2str -> std_reg2str()

Browse Source
This commit is contained in:
carl 2002-04-15 19:03:31 +00:00
parent 5befcda7e5
commit 17f229006a
2 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/regvars.pas
View File

@ -371,9 +371,9 @@ implementation
if cs_asm_source in aktglobalswitches then
asml.insert(Tai_asm_comment.Create(strpnew(regvarinfo^.regvars[i].name+
' with weight '+tostr(regvarinfo^.regvars[i].refs)+' assigned to register '+
reg2str(regvarinfo^.regvars[i].reg))));
std_reg2str[regvarinfo^.regvars[i].reg])));
if (status.verbosity and v_debug)=v_debug then
Message3(cg_d_register_weight,reg2str(regvarinfo^.regvars[i].reg),
Message3(cg_d_register_weight,std_reg2str[regvarinfo^.regvars[i].reg],
tostr(regvarinfo^.regvars[i].refs),regvarinfo^.regvars[i].name);
end;
end;
@ -401,9 +401,9 @@ implementation
if cs_asm_source in aktglobalswitches then
asml.insert(Tai_asm_comment.Create(strpnew(regvarinfo^.fpuregvars[i].name+
' with weight '+tostr(regvarinfo^.fpuregvars[i].refs)+' assigned to register '+
reg2str(regvarinfo^.fpuregvars[i].reg))));
std_reg2str[regvarinfo^.fpuregvars[i].reg])));
if (status.verbosity and v_debug)=v_debug then
Message3(cg_d_register_weight,reg2str(regvarinfo^.fpuregvars[i].reg),
Message3(cg_d_register_weight,std_reg2str[regvarinfo^.fpuregvars[i].reg],
tostr(regvarinfo^.fpuregvars[i].refs),regvarinfo^.fpuregvars[i].name);
end;
end;
@ -459,7 +459,10 @@ end.
{
$Log$
Revision 1.25 2002-04-06 18:13:01 jonas
Revision 1.26 2002-04-15 19:04:04 carl
+ reg2str -> std_reg2str()
Revision 1.25 2002/04/06 18:13:01 jonas
* several powerpc-related additions and fixes
Revision 1.24 2002/04/02 17:11:29 peter

9
compiler/rgobj.pas
View File

@ -45,7 +45,7 @@ unit rgobj;
1: (ofs: longint);
end;
tpushedsaved = array[lowsavereg..highsavereg] of tpushedsavedloc;
tpushedsaved = array[firstreg..lastreg] of tpushedsavedloc;
trgobj = class
{ The "usableregsxxx" contain all registers of type "xxx" that }
@ -247,7 +247,7 @@ unit rgobj;
if (r in unusedregs) then
{$ifdef EXTTEMPREGDEBUG}
begin
Comment(V_Debug,'register freed twice '+reg2str(r));
Comment(V_Debug,'register freed twice '+std_reg2str[r]);
testregisters32;
exit;
end
@ -842,7 +842,10 @@ end.
{
$Log$
Revision 1.5 2002-04-06 18:13:01 jonas
Revision 1.6 2002-04-15 19:03:31 carl
+ reg2str -> std_reg2str()
Revision 1.5 2002/04/06 18:13:01 jonas
* several powerpc-related additions and fixes
Revision 1.4 2002/04/04 19:06:04 peter