diff --git a/compiler/aoptobj.pas b/compiler/aoptobj.pas
index 14253b1809..fd14f81674 100644
--- a/compiler/aoptobj.pas
+++ b/compiler/aoptobj.pas
@@ -1506,6 +1506,8 @@ Unit AoptObj;
 
     procedure TAOptObj.RemoveCurrentP(var p: tai; const hp1: tai); inline;
       begin
+        if (p=hp1) then
+          internalerror(2020120501);
         UpdateUsedRegs(tai(p.Next));
         AsmL.Remove(p);
         p.Free;