Преглед на файлове

* fix IE with -sr and EXTDEBUG

git-svn-id: trunk@5283 -
peter преди 19 години
родител
ревизия
60069ce3d2
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  1. 2 1
      compiler/rgobj.pas

+ 2 - 1
compiler/rgobj.pas

@@ -697,7 +697,8 @@ unit rgobj;
       begin
         supreg:=getsupreg(r);
 {$ifdef extdebug}
-        if supreg>=maxreginfo then
+        if not (cs_no_regalloc in current_settings.globalswitches) and
+           (supreg>=maxreginfo) then
           internalerror(200411061);
 {$endif extdebug}
         if supreg>=first_imaginary then