+ stop with an internal error if GetNextReg is called with a non-imaginary register

git-svn-id: trunk@24493 -

compiler/x86/cpubase.pas

@@ -556,6 +556,8 @@ implementation
 {$ifdef i8086}
     function GetNextReg(const r: TRegister): TRegister;
       begin
+        if getsupreg(r)<first_int_imreg then
+          internalerror(2013051401);
         result:=TRegister(longint(r)+1);
       end;
 {$endif i8086}