From 31709b1b43bd7bea3654b1174d419ed12f05dd32 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 5 Apr 2015 19:06:06 +0000
Subject: [PATCH] * check registers of ait_regalloc for a valid color when
translating and compiling with -dextdebug
git-svn-id: trunk@30438 -
---
compiler/rgobj.pas | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index dfff57d08a..cf0d5d50ae 100644
--- a/compiler/rgobj.pas
+++ b/compiler/rgobj.pas
@@ -1800,7 +1800,12 @@ unit rgobj;
end
else
begin
- setsupreg(reg,reginfo[getsupreg(reg)].colour);
+ u:=reginfo[getsupreg(reg)].colour;
+{$ifdef EXTDEBUG}
+ if u>=maxreginfo then
+ internalerror(2015040501);
+{$endif}
+ setsupreg(reg,u);
{
Remove sequences of release and
allocation of the same register like. Other combinations
@@ -2411,3 +2416,4 @@ unit rgobj;
end;
end.
+