diff --git a/compiler/rgobj.pas b/compiler/rgobj.pas
index 1cc5de65aa..9d4d3fb9dd 100644
--- a/compiler/rgobj.pas
+++ b/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