From b85addb4517417acfe224f16243a686f36f26008 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 24 May 2013 17:57:28 +0000
Subject: [PATCH] + color segment register

git-svn-id: trunk@24579 -
---
 compiler/rgobj.pas | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index eaa95eeeb2..3beed1ff71 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -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}