paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-30 05:53:12 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ write std_reg2str instead of gas registers

Browse Source
This commit is contained in:
carl 2002-04-15 19:15:09 +00:00
parent 79b490d551
commit d05ba2dfce
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/utils/ppudump.pp
View File

@ -959,7 +959,7 @@ begin
write(', ') write(', ')
else else
first := false; first := false;
write(gas_reg2str[r]) write(std_reg2str[r])
end; end;
if (firstsavefpureg <> R_NO) then if (firstsavefpureg <> R_NO) then
for r := firstsavefpureg to lastsavefpureg do for r := firstsavefpureg to lastsavefpureg do
@ -969,7 +969,7 @@ begin
write(', ') write(', ')
else else
first := false; first := false;
write(gas_reg2str[r]) write(std_reg2str[r])
end; end;
if (firstsavemmreg <> R_NO) then if (firstsavemmreg <> R_NO) then
for r := firstsavemmreg to lastsavemmreg do for r := firstsavemmreg to lastsavemmreg do
@ -979,7 +979,7 @@ begin
write(', ') write(', ')
else else
first := false; first := false;
write(gas_reg2str[r]) write(std_reg2str[r])
end; end;
writeln; writeln;
end; end;
@ -1700,7 +1700,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.19 2002-04-14 17:02:19 carl Revision 1.20 2002-04-15 19:15:09 carl
+ write std_reg2str instead of gas registers
Revision 1.19 2002/04/14 17:02:19 carl
+ att_reg2str -> gas_reg2str + att_reg2str -> gas_reg2str
Revision 1.18 2002/04/07 10:23:36 carl Revision 1.18 2002/04/07 10:23:36 carl