paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ color segment register

Browse Source 
git-svn-id: trunk@24579 -
This commit is contained in:
florian 2013-05-24 17:57:28 +00:00
parent 035cb74855
commit b85addb451
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/rgobj.pas
View File

@ -1832,6 +1832,18 @@ unit rgobj;
{$endif}
setsupreg(index,reginfo[u].colour);
end;
{$if defined(x86) or defined(m68k)}
if (segment<>NR_NO) and
(getregtype(segment)=regtype) then
begin
u:=getsupreg(segment);
{$ifdef EXTDEBUG}
if (u>=maxreginfo) then
internalerror(2013052401);
{$endif}
setsupreg(segment,reginfo[u].colour);
end;
{$endif defined(x86) or defined(m68k)}
end;
end;
{$ifdef arm}