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

* handling of address registers in references fixed

Browse Source 
* write address registers as areg when compiling with -sr

git-svn-id: trunk@2398 -
This commit is contained in:
florian 2006-02-01 22:45:14 +00:00
parent c0f80338ab
commit 137f8f340d
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/cgbase.pas
View File

@ -520,6 +520,10 @@ implementation
result:='mreg'+nr;
R_MMXREGISTER:
result:='xreg'+nr;
R_ADDRESSREGISTER:
result:='areg'+nr;
R_SPECIALREGISTER:
result:='sreg'+nr;
else
begin
result:='INVALID';

2
compiler/rgobj.pas
View File

@ -1638,7 +1638,7 @@ unit rgobj;
setsupreg(reg,reginfo[getsupreg(reg)].colour);
Top_ref:
begin
if regtype=R_INTREGISTER then
if regtype in [R_INTREGISTER,R_ADDRESSREGISTER] then
with ref^ do
begin
if base<>NR_NO then